Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_ap115_bb-ju01b-bb
-
router.c14
There are 3 other files named router.c14 in the archive. Click here to see a list.
REP 1/1 ;14C1
;TITLE ROUTER - Routing Layer Service for DECnet-36 V075
WIT
;TITLE ROUTER - Routing Layer Service for DECnet-36 V077
REP 2/2 ;14C2
SUBTTL V. Brownell & Anthony J. Rizzolo/Tarl/AJR/HMP 19 FEB 86
WIT
SUBTTL V. Brownell & Anthony J. Rizzolo/Tarl/AJR/HMP 1 APR 86
REP 16/2 ;14C3
XP ROUTER,075
WIT
XP ROUTER,077
REP 69/28 ;14C4
RTRFD2: JE RMIAP,(MB),RTRFD3 ; If from our NSP then visit count is zero
WIT
RTRFD2: JE RMICP,(MB),RTRFD3 ; If from our NSP then visit count is zero
REP 83/28 ;14C5
LOAD T3,AJNAN,(AJ) ;Get address of last router in path
WIT
LOAD T3,AJADR,(AJ) ;Get address of last router in path
REP 47/31 ;14C6
LOAD T3,AJNAN,(AJ) ;Get address of last router in path
WIT
LOAD T3,AJADR,(AJ) ;Get address of last router in path
REP 11/32 ;14C7
LOAD T3,AJNAN,(AJ) ;Get address of last router in path
WIT
LOAD T3,AJADR,(AJ) ;Get address of last router in path
REP 8/36 ;14C8
LOAD T2,MBDST,(MB) ; Yes, get the destination address
MOVE T3,T2 ; In case we need it later
TXZ T2,RN%ARE ; Clear the area number field
ADD T2,RTRNRV ; Add reach vector offset
TMNN RMTRY,(MB) ; "Try hard" flag set?
IFSKP.
SETZRO RNCCH,(T2) ; Yes, clear the in-cache flag
WIT
LOAD T3,MBDST,(MB) ; Yes, get the destination address
TMNN RMTRY,(MB) ; "Try hard" flag set?
IFSKP.
LOAD T2,RN%ARE,+T3 ; Yes, get area number of node
CAME T2,RTRHOM ; Our area?
IFSKP.
MOVE T2,T3 ; Get node address
TXZ T2,RN%ARE ; Clear the area number field
ADD T2,RTRNRV ; Add reach vector offset
SETZRO RNCCH,(T2) ; Clear the in-cache flag
ENDIF.
REP 23/36 ;14C9
LOAD T4,RCDSL,(RC) ; No, get address of designated router
TMNN RNCCH,(T2) ; Is cache flag set?
JUMPN T4,RTR2R5 ; Not in cache, use DSR if we have one
WIT
LOAD T4,RCDSL,(RC) ; Get address of designated router
LOAD T2,RN%ARE,+T3 ; Get area number of node
CAME T2,RTRHOM ; Our area?
JRST RTR2R3 ; No, node not in cache, continue
MOVE T2,T3 ; Get node address
TXZ T2,RN%ARE ; Clear the area number field
ADD T2,RTRNRV ; Add reach vector offset
TMNN RNCCH,(T2) ; Is cache flag set?
RTR2R3: JUMPN T4,RTR2R5 ; Not in cache, use DSR if we have one
REP 15/54 ;14C10
SOSG MAXNODE ;DECREMENT TOTAL NODE COUNT
WIT
SOSGE MAXNODE ;DECREMENT TOTAL NODE COUNT
REP 25/62 ;14C11
LOAD T3,AJNAN,(AJ) ;Get the node address
WIT
LOAD T3,AJADR,(AJ) ;Get the node address
REP 27/76 ;14C12
CALLRET FREMSG ; Not in our area, dump the message
WIT
SETZ AJ, ;Not in our area, no adjacency block
REP 6/91 ;14C13
RHMAR1: STKVAR <SELF>
SETZ SELF ;Initialize to zero
CALL DNGENA ; Get the six bytes of node id
WIT
STKVAR <SELF>
SETZM SELF ;Initialize to zero
RHMAR1: CALL DNGENA ; Get the six bytes of node id
REP 45/91 ;14C14
LOAD T3,AJNAN,(AJ) ;Get the node address
WIT
LOAD T3,AJADR,(AJ) ;Get the node address
REP 14/132 ;14C15
LOAD T3,AJNAN,(AJ) ;Get address of sender
WIT
LOAD T3,AJADR,(AJ) ;Get address of sender
REP 17/144 ;14C16
CAME T1,RTRADR ; Local connection?
WIT
CAMN T1,RTRADR ; Local connection?
CAME T2,RTRHOM ; ...
SUM 9902