Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - qsrnet.c08
There is 1 other file named qsrnet.c08 in the archive. Click here to see a list.
 REP 16/6	;08C1
	;**;[1142]DELETE 1 LINE AT N$INTR:+10L	27-JUL-83/CTK
 WIT
	;**;[1206]DELETE EDIT 1142 AT N$INTR:+10L	20-APR-84/CTK
	;**;[1206]AND ADD 2 LINES AT N$INTR:+10L	20-APR-84/CTK
		MOVE	S1,NETNAM(AP)		;[1206]GET THE NODE NAME
		CAMN	S1,G$LNAM		;[1206]IS IT THE LOCAL NODE ???
		LOAD	AP,.QELNK(AP),QE.PTN	;[1206]YES, SKIP THE FIRST ENTRY
 REP 38/9	;08C2
	N$GNOD:	$SAVE	<P1>			;SAVE P1 FOR A MINUTE
 WIT
	N$GNOD:
	;**;[1206]CHANGE 1 AND ADD 1 LINE AT N$GNOD:+0L	20-APR-84/CTK
		$SAVE	<S1,P1>			;[1206]SAVE S1 and P1 FOR A MINUTE
		$CALL	CONOD			;[1206]CHECK THE NODE IDENTIFER
 INS 14/23	;08C3
	;**;[1206]ADD 1 LINE AT N$MTCH:+5L	20-APR-84/CTK
		$CALL	CONOD			;[1206]CHECK THE NODE IDENTIFIER
 INS 16/28	;08C4
	;**;[1206]ADD 1 LINE AT FNDD.0:+3L	20-APR-84/CTK
		$CALL	CONOD			;[1206]CHECK THE NODE NUMBER
 INS 1/35	;08C5
	SUBTTL  CONOD  COMPARE NODE TO ZERO
	;**;[1206]  Add a new routine at the end of the module.
	;	Called with S1 containing a node identifier.  If 0, then set to
	;	zero the local node name if the local node number is 0.
	;

	CONOD:  SKIPE   S1			;[1206]IS THE NODE NUMBER ZERO ???
		JRST    CONO.1			;[1206]...NO
		SKIPN   G$LNBR			;[1206]LOCAL NODE ZERO ?
		MOVE    S1,G$LNAM		;[1206]USE LOCAL NODE NAME
	CONO.1: $RET				;[1206]AND RETURN

 SUM 214308