Unitek Miyachi LW250 Operation, Maintenance And Service Manual page 117

APPENDIX B: EXTERNAL COMMUNICATIONS INTERFACE SPECIFICATION
char n; /* data length */
{
char i;
for (I=0; i<n; I++)
cprintf("%c",rs[t+i]);
}
/* rs[] display the contents with decimal point */
dsp rsl(t, n)
-
char t; /* top address */
char n; /* data length */
{
char i;
for (I=0; i<n; i++){
if (i == 2)
cprintf(".");
cprintf("%c".rs[t+i]);
}
}
/* set bcc. Value of return is number of data */
set bcc(bf)
-
char bf[];
{
char bcc;
int n;
bcc = bf[1];
for (n = 2; bf[n] != ETX; ){
^
bcc = bf[n];
++n;
}
^
bcc = bf[n];
++n;
bf[n] = bcc;
return n;
}
/* transmit data until ETX is found */
tx text()
-
{
int n;
rts on();
-
990-605 REV B: May, 1997
/* n = tx cnt */
-
LW250 PULSED Nd: YAG LASER
B-24