Unitek Miyachi LW250 Operation, Maintenance And Service Manual page 121

APPENDIX B: EXTERNAL COMMUNICATIONS INTERFACE SPECIFICATION
}
/* RTS on */
rts on()
-
{
char type;
type = 'R';
if (type == 'T')
outport(SIOCS, 0x07);
}
/* RTS off */
rts off()
-
{
char c;
while((inport(SIOCS) & 0x04) == 0){ /* txemp ? */
if(getsts() {
}
}
outport(SIOCS, 0x27);
}
/* get console status */
getsts()
}
AH = 0x0b;
-
geninterrupy(0x21);
AH = 0
-
}
/* get rs232c status */
getrssts()
{
CL = 0x0e;
-
DL = 0;
-
BX = 0xf808; /* 7bits, 2 stop, even pari, xoff, 9600 baud */
-
geninterrupt(0xdc);
}
990-605 REV B: May, 1997
rs[n] = '0';
c = getch();
if(c == CTLC)
exit(0);
/* RTS 1 */
/* function 0bh */
/* rs232c command */
/* ch0 rx data get */
LW250 PULSED Nd: YAG LASER
/* RTS 0 */
B-28