Unitek Miyachi LW250 Operation, Maintenance And Service Manual page 115

APPENDIX B: EXTERNAL COMMUNICATIONS INTERFACE SPECIFICATION
rs[1] = id[0]; rs[2] = is[1];
goto p3;
}
cprintf("]");
rs[n] =ETX;
p3 tx cnt = set bcc(rs);
- -
gotoxy(1,20); clreol(); /* spase */
gotoxy(1,21); clreol();
gotoxy(1,20); cprintf("send character [");
for (n=0; rs[n] l= ETX; n++)
putch(rs[n]);
putch(rs[n]); cprintf("] ");
tx ndat(rs, tx
- -
text = rx_text();
gotoxy(1,22); clreol(); /* spase */
gotoxy(1,23); clreol(); /* spase */
gotoxy(1,22); cprintf("receive character [");
if (text == NG)
goto p2;
for (n=0; (rs[n] != ETX) && (rs[n] != ACK)
&& (rs[n] != NAK) && (rs[n] != '@'); n++){
c = rs[n] & 0x7f;
putch(c);
}
putch(rs[n]); cprintf("]");
goto p2;
}
d set(xc, yc, cnt, t)
-
char xc;
char yc;
char cnt;
char t; /* rs[] top address */
{
char c, x, n;
gotoxy(xc,yc);
for (n=0; n < cnt; ){
x=wherex();
c = getch();
If ((c >= '0')&&(c <= '9')){
990-605 REV B: May, 1997
cnt);
putch(c);
rs[t+n] = c;
LW250 PULSED Nd: YAG LASER
/* set bcc data */
/* send */
/* receive data */
/* control no. */
B-22