CAB Apollo Anleitung Seite 178

Anhang C - Schnittstellenprogrammierung
/* Solange warten bis Antwort */
while(!(inportb(NETStatus)&1) && count)
{
delay(1);
count--;
}
/* Lesen und anzeigen der empfangenen Byte */
value=inportb(NETData);
putch(value);
/* Unterbrechung wenn Timeout oder ESC gedrückt */
if(!count || (kbhit() && getch()==27))
return FALSE;
}
return TRUE;
}
/ *
Sende n Byte zur RS-485
Wenn TRUE-Modus, ESC wird in ESCESC umgewandelt
* /
int lpr(char *text, int n, int mode)
{
int value, rep;
long count;
/* Wiederholung für alle Byte */
while(n--)
{
value=(int)*text++&0xFF;
rep=TRUE;
for(;;)
{
/* Prüfung ob Leitung frei */
count=500L;
while(--count && (inportb(NETStatus)&32)==0)
178 cab Produkttechnik GmbH