APPENDIX B: EXTERNAL COMMUNICATIONS INTERFACE SPECIFICATION
LW250 PULSED Nd: YAG LASER
990-605 REV B: May, 1997
B-23
++n;
++x;
}
If (c == CR)
return;
Gotoxy(x,yc);
}
}
d
-
set1(xc, yc, cnt, t)
char xc;
char yc;
char cnt;
char t;
/* rs[] top address */
{
char c, x, n, m;
gotoxy(xc,yc);
m = 0;
for (n=0; n < cnt; ){
/* control no. */
x=wherex();
c = getch();
If ((c >= ‘0')&&(c <= ‘9')){
putch(c);
rs[t+m] = c;
If (n==1){
++n;
++x;
}
++m;
++n;
++x;
}
if (c == CR)
return;
gotoxy(x,yc);
}
}
/* rs[] display the contents */
dsp
-
rs(t, n)
char t; /* top address */
