Google
 

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