Escort 3136A Operation Manual page 73

err=1;
while(++retry<10000)
if(0x20&inportb(RS232+5))
{
outportb(RS232,p);
err=0;
break;
}
}
char read(void)
{
unsigned int retry=0;
err=1;
while(++retry<30000)
if(0x01&inportb(RS232+5))
{
err=0;
break;
}
return(inportb(RS232));
}
69