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

 REP 14/5	;09C1
		JRST	L.GONE		; NO. TELL USER DEVICE IS GONE
 WIT
		PJRST	NTDGON##	; NO. TELL USER DEVICE IS GONE
 DEL 18/5	;09C2

	L.GONE:				;HERE WHEN LPT IS DISCONNECTED.
		MOVEI	S,IODERR!IODTER	;TWO BITS FOR UUOCON TO CONTEMPLATE
		IORB	S,DEVIOS(F)	;SET THEM IN DEVIOS
		MOVEI	T1,IONND%	;??????
		DPB	T1,PDVESE##	;??????
		POPJ	P,		;BACK TO UUOCON
 REP 11/13	;09C3
		JRST	C.GONE		;NODE WENT AWAY
 WIT
		PJRST	NTDGON##	;NODE WENT AWAY
 REP 13/14	;09C4
	C.HUNG:				;HERE FROM C.LOOP WHEN IOSERR IS SET.
		TLNN	S,IOSCON	;ARE WE STILL CONNECTED
		JRST	C.GONE		; NO. TELL USER THE DEVICE IS GONE
 WIT

	C.HUNG:				;HERE FROM C.LOOP WHEN IOSERR IS SET.
		TLNN	S,IOSCON	;ARE WE STILL CONNECTED
		PJRST	NTDGON##	; NO. TELL USER THE DEVICE IS GONE
 DEL 21/14	;09C5
	C.GONE:				;HERE WHER DEVICE IS NO LONGER CONNECTED
		MOVEI	S,IODERR!IODTER	;TWO LIKELY LOOKING BITS
		IORB	S,DEVIOS(F)	;SET THEM SO THE USER WILL KNOW SOMETHINGS BAD
		MOVEI	T1,IONND%	;??????
		DPB	T1,PDVESE##	;??????
		POPJ	P,		;BACK TO UUOCON.

 REP 13/31	;09C6
		PJRST	DDPGON		;NO - NETWORK CONNECTION GONE
 WIT
		PJRST	NTDGON##	;NO - NETWORK CONNECTION GONE
 REP 31/33	;09C7
		PJRST	DDPGON		;NO, NETWORK CONNECTION GONE
 WIT
		PJRST	NTDGON##	;NO, NETWORK CONNECTION GONE
 REP 12/34	;09C8
		JRST	DDPERS		;SET ERROR AND RETURN


	;HERE WHEN NETWORK CONNECTION GONE

	DDPGON:	MOVEI	T1,IONND%	;"NETWORK NODE DOWN"
		DPB	T1,PDVESE##	;SET ERROR CODE FOR DEVOP.
		MOVEI	S,IOERR		;LOTS OF ERROR BITS
	DDPERS:	IORB	S,DEVIOS(F)	;TELL USER TO LOOK AT DEVOP. ERROR STATUS
 WIT
	DDPERS:	IORB	S,DEVIOS(F)	;SET ERROR BITS IN DDB
 REP 6/45	;09C9
		SETZ	P2,		;FRESH SLATE FOR THE NAME
 WIT
		SETZB	P2,J		;FRESH SLATE FOR THE NAME
 SUM 81122