Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
tskser.c09
There is 1 other file named tskser.c09 in the archive. Click here to see a list.
REP 13/14 ;09C1
PJRST T.SERR ;NOT CONNECTED. SET IOSERR
WIT
PJRST T.HUNG ;NOT CONNECTED. SET IOSERR
INS 14/17 ;09C2
REP 26/17 ;09C3
;T.EOF ROUTINE TO RETURN END-OF-FILE ON FIRST "IN" AFTER DISCONNECT.
;
T.EOF: MOVSI S,IOEND ;GET THE END-OF-FILE BIT
TDOE S,DEVIOS(F) ;SEE IF IT'S ALREADY SET.
JRST T.SERR ;IF SO, THEN START COMPLAINING
MOVEM S,DEVIOS(F) ;OTHERWISE JUST SET THE BIT
POPJ P, ;AND GO BACK TO UUOCON
WIT
;T.EOF ROUTINE TO RETURN END-OF-FILE ON FIRST "IN" AFTER DISCONNECT.
;
T.EOF: TLNE S,IOEND ;SEE IF END-OF-FILE ALREADY SET
JRST T.HUNG ;YUP, GET SERIOUS ABOUT ERROR STATUS
MOVSI S,IOEND ;NO, SET EOF NOW
PJRST T.SET ;AND LET UUOCON WORRY ABOUT IT
;T.HUNG DEVICE IS OFFLINE (NTDONL), SEE IF STILL CONNECTED
T.HUNG: TLNN S,IOSCON ;STILL CONNECTED?
PJRST NTDGON## ;NO, GIVE ERROR
;YES, FALL INTO T.SERR
SUM 211436