return(c
==EOR ORF c
==';');
PER lastc
==SP ORF lastc
==TB
getcon(lp
); eof
=0; while (*lp
++!=EOR
);
REP eof
= read(infile
,lp
,1)==0;
IF mkfault THEN
error(0); FI
PER eof
==0 ANDF
*lp
++!=EOR DONE
IF lastc
= peekc THEN peekc
=0;
ELIF lastc
= *lp THEN lp
++;
fptr
=deformat
; quote
=FALSE
;
WHILE (quote
? readchar()!=EOR
: !eol(readchar()))
DO
IF (*fptr
++ = lastc
)=='"'
IF fptr
!=deformat THEN
*fptr
++ = '\0'; FI
getcon(cs
) register char *cs
; {
if (p
[-1]=='\r') {putchar(p
[-1]='\n'); *p
++='\0'; return;}
if (p
[-1]=='\\') {p
[-1]=getcnsl(); continue;}
if (p
[-1]=='#') {p
-= 2; continue;}
if (p
[-1]=='@') {putchar('\r'); putchar('\n'); p
=cs
; continue;}
# define RXCS 32 /* receiver control/staus */
# define RXDB 33 /* receiver data */
# define RXCS_DONE 0x80 /* receiver done */
while ((mfpr(RXCS
) & RXCS_DONE
)==0);
return (mfpr(RXDB
) & 0177);