Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-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