PDP-10 Archive: nrtser.c16 from tops10_703a_sys_atpch16

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