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