Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93d-bb - 7,6/ap015/nrtser.c15
There are 2 other files named nrtser.c15 in the archive. Click here to see a list.
 REP 1/1	;15C1
		TITLE	NRTSER - DECnet Network Remote Terminal Service V060
		SUBTTL	W. G. Nichols/WGN/RCB, 31 DEC 85
 WIT
		TITLE	NRTSER - DECnet Network Remote Terminal Service V061
		SUBTTL	W. G. Nichols/WGN/RCB, 22 JUL 86
 INS 16/21	;15C2
		  BIT	XOF		;SCNSER REQUESTED NO DRQ'S FOR A WHILE
 REP 20/21	;15C3
		;FIELD	FLG,18		;WHERE WE ARE (4 BITS IN)
 WIT
		;FIELD	FLG,18		;WHERE WE ARE (5 BITS IN)
 REP 28/21	;15C4
		;FIELD	FLG,18		;WHERE WE ARE (4 BITS IN)
 WIT
		;FIELD	FLG,18		;WHERE WE ARE (5 BITS IN)
 DEL 38/21	;15C5
		  BIT	XOF		;SCNSER REQUESTED NO DRQ'S FOR A WHILE
 INS 18/23	;15C6
		CAILE	T3,IRRINV	;MAKE SURE THE ISRREM SUB-CODE IS IN RANGE
		CAILE	T3,IRROOB	;DO WE UNDERSTAND IT?
		RET			;NO, IGNORE IT
 REP 21/23	;15C7
		CAIE	T3,IRRDSC	;DISCONNECT REQUEST?
		CAIN	T3,IRRTMO	;OR A TIMEOUT REQUEST?
		TRNA			;YES, KEEP GOING
		RET			;NO, FORGET IT
		MOVX	R,NRRLS		;GET RELEASE BIT
 WIT
		PJRST	@.(T3)		;NO, NRT, DISPATCH FOR IT
		IFIW	CTHCSL		;(1) CHUNK SPACE LOW
		IFIW	CPOPJ		;(2) CHARACTER NOT STORED (RECHLT)
		IFIW	CPOPJ		;(3) OUTPUT SUPPRESSION CHANGE (DON'T CARE)
		IFIW	CTHCSA		;(4) CHUNK SPACE AVAILABLE
		IFIW	NRTRM1		;(5) DISCONNECT (TRMOP. .TODNT)
		IFIW	CPOPJ		;(6) CLEAR INPUT BUFFER (CLRBFI) (CAN'T DO)
		IFIW	NRTRM1		;(7) DISCONNECT TIMEOUT
		IFIW	CPOPJ		;(10) BREAK MASK CHANGED
		IFIW	CPOPJ		;(11) OOB SET CHANGED

	NRTRM1:	MOVX	R,NRRLS		;GET RELEASE BIT
 REP 31/23	;15C8
	CTHREM:	CAILE	T3,IRRINV	;MAKE SURE THE ISRREM SUB-CODE IS IN RANGE
		CAILE	T3,IRROOB	;DO WE UNDERSTAND IT?
		RET			;NO, IGNORE IT
		PJRST	@.(T3)		;YES, DISPATCH
 WIT
	CTHREM:	PJRST	@.(T3)		;DISPATCH FOR CTERM
 REP 13/54	;15C9
	NRTIN1:	MOVE	M,NRTSAP	;POINT TO NRT'S SAB
 WIT
	NRTIN1:	MOVE	R,NR.FLG(W)	;GET FLAGS
		TXNN	R,NRCTM		;IF A NRT LINK,
		TXNN	R,NRXOF		;MAKE SURE SCNSER WANTS SOME CHARACTERS
		TRNA			;CTERM OR NOT XOFF'ED, GO AHEAD
		RETSKP			;NRT AND XOFF'ED, QUIT WHILE WE'RE AHEAD
		MOVE	M,NRTSAP	;POINT TO NRT'S SAB
 SUM 226794