Trailing-Edge
-
PDP-10 Archives
-
bb-jr93e-bb
-
7,6/ap016/nrtser.c16
There are 2 other files named nrtser.c16 in the archive. Click here to see a list.
REP 34/34 ;16C1
PJRST NRTREL ;NO, GIVE UP
WIT
PJRST NRTRS1 ;NO, GIVE UP
REP 39/34 ;16C2
CALL NRTOT6 ;SEND THE MESSAGE
JFCL ;IGNORE ERRORS
PJRST NRTRS1 ;RELEASE THE CHANNEL & RETURN
WIT
SETZRO <NRTMO,NRCTM>,(W) ;SETUP TO BE RELEASED AFTER SENDING DATA
SETONE NRRLS,(W) ;MAKE SURE
PJRST NRTOT5 ;SEND THE DATA AND RETURN
REP 15/51 ;16C3
CCO8BT: ADDI T1,8 ;CONVERT TO CHARACTER FRAME SIZE
WIT
CCO8BT: ADDI T1,7 ;CONVERT TO CHARACTER FRAME SIZE
REP 25/92 ;16C4
NTDID1: PUSHJ P,CHKSTB## ;Address check the string block
JRST NOPADC## ;Failed
ADJSP P,3 ;Make some room
MOVEM T1,(P) ;Save node address
WIT
NTDID1: MOVE P2,T1 ;Preserve the node address
PUSHJ P,CHKSTB## ;Address check the string block
JRST NOPADC## ;Failed
ADJSP P,3 ;Make some room
MOVEM P2,(P) ;Save node address
SUM 140711