Unitek Miyachi LW250 Operation, Maintenance And Service Manual page 118

APPENDIX B: EXTERNAL COMMUNICATIONS INTERFACE SPECIFICATION
for ( n=0; rs[n] != ETX; n++)
rsout(rs[n]);
rsout(rs[n]);
rts off();
-
}
/* transmit context of BF for ENT */
tx ndat(bf, cnt)
-
char bf[];
int cnt;
{
Int n;
rts on();
-
for ( n=0; n <= cnt; n++)
rsout(bf[n]);
rts off();
-
}
/* transmit id code */
tx id(c)
-
char c;
{
rts on();
-
rsout(id[0]);
rsout(id[1]);
rsout(c);
rts off();
-
}
/* transmit RENEWD program */
tx update()
-
{
p0; tx id(ENQ);
-
if (rx dack() == NG)
-i
goto p0;
tx buf[0] = rs[0];
-
tx buf[1] = '+';
-
tx buf[2] = rs[2];
-
tx buf[3] = rs[3];
-
tx buf[4] = rs[4];
-
tx buf[5] = ETX;
-
set bcc(tx buf, tx
- -
tx ndat(tx buf, tx
- -
if (rx idack() == NG)
-
990-605 REV B: May, 1997
/* ID code */
/* ENQ / ACK */
/* + */
cntl); /* bcc and tx
-
ntl); /* send +pss */
-c
LW250 PULSED Nd: YAG LASER
/* send bcc */
/* send data */
/* send id enq */
/* wait id ack */
/* STX */
/* p */
/* s */
/* s */
cntl set */
-
/* wait id ack */
B-25