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