3302C Series Mainframe Operation Manual B-3
} */
strset(intbuf,'');
strset(tempbuf,'');
for (cnt = 0;cnt < count+1;cnt++,+)
{
intbuf[cnt] = *wrtbuf;
}
cnt = cnt--;
intbuf[cnt] = '\r';
cnt = cnt++;
count = count++;
intbuf[cnt] = '\n';
t = strcspn(intbuf," ");
if (t >count)
t = count-1;
for (cnt = 0;cnt < t;cnt++)
{
tempbuf[cnt] = intbuf[cnt];
}
strupr(tempbuf);
strupr(intbuf);
cnt = 0;
do
{
comerr = strncmp(tempbuf,combuf[cnt],t);
cnt = cnt++;
}while(( cnt != COMPTR) && (comerr != 0));
if ( comerr == 0)
{
result = SUCCESS;
for (cnt = 0;cnt < count+1;cnt++)
{ while(inportb(ACE_LINE_STAT_REG) & THRE == 0);
ch = intbuf[cnt];
delay(20);
outportb(ACE_DATA_REG, ch);
}
timeout = 0;
for (cnt = 0; cnt <= count;cnt++)
{
ch = intbuf[cnt];
