Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 41/7	;08C1
		ANDCAM	T1,JBTSTS##(J)	;  TRAP FLAG
 WIT
		ANDCAB	T1,JBTSTS##(J)	;  TRAP FLAG
 DEL 26/25	;08C2
		SETZM	.UPMP+.UPTMC	;TRAP COUNTERS
		SETZM	.UPMP+.UPTMI	;CLEAR VIRTUAL TIME
 REP 12/139	;08C3
	XWD	FOP.UR,FCLOS				;(10) UPDATE RIB
 WIT
	XWD	FOP.UR+FOP.RD,FCLOS			;(10) UPDATE RIB
 DEL 5/152	;08C4
		ADD	W,DEVSER(F)	;DISPATCH TABLE ADDR
 REP 22/152	;08C5
		POP	P,T1		;RESTORE T1
		PUSHJ	P,(T1)		;CALL USET CODE
		HRRZ	T1,DEVIOS(F)	;I/O STATUS
		TRNN	T1,760000	;ERRORS OR END OF FILE?
		AOS	(P)		;NO, SKIP RETURN TO THE USER
 WIT
		MOVE	T1,(P)		;GET DISPATCH OFFSET BACK
		CAIN	T1,DSO		;USETO?
		SKIPA	T1,[IOERR]	;YES--ONLY CHECK REAL I/O ERROS
		MOVEI	T1,IOERR+IODEND	;ELSE CHECK I/O ERRORS PLUS EOF
		EXCH	T1,(P)		;SAVE CONDITIONS TO CHECK,GET DISPATCH OFFSET
		ADD	T1,DEVSER(F)	;DISPATCH TABLE ADDR
		PUSHJ	P,(T1)		;CALL USET CODE
		HRRZ	T1,DEVIOS(F)	;I/O STATUS
		TDNN	T1,(P)		;ERRORS OR END OF FILE?
		AOS	-1(P)		;NO, SKIP RETURN TO THE USER
		POP	P,(P)		;TRIM STACK
 REP 21/170	;08C6
	UINITC:	PUSHJ	P,JDAADR	;CHANNEL ADDRESS
 WIT
	UINITC:	TLZ	F,-1		;CLEAR BITS FROM OTHER CHANNELS/DDBS
		PUSHJ	P,JDAADR	;CHANNEL ADDRESS
 REP 28/181	;08C7
	INEOF:	TDNN	S,[XWD IOEND,IODERR+IOBKTL+IODTER+IOIMPM]
					; EOF OR ERROR BIT SET BY SERVICE ROUTINE
 WIT
	INEOF:	MOVSI	T1,DEPSIE
		TDNE	T1,DEVJOB(F)	;SYNCH ON ERROR?
		TRNN	S,IODEND	;YES, AVOID KAF IF TAPE
		TDNE	S,[XWD IOEND,IODERR+IOBKTL+IODTER+IOIMPM]
		CAIA			; EOF OR ERROR BIT SET BY SERVICE ROUTINE
 SUM 95396