Google
 

Trailing-Edge - PDP-10 Archives - DECNET-20_PhaseIII_4-1-82 - dn20/xptllc.m11
There are 16 other files named xptllc.m11 in the archive. Click here to see a list.
	.TITLE	XPTLLC
	.IDENT	/X01070/
.MACRO	LENG	P
	.NCHR	X,P
	.WORD	X
	.ENDM	LENG
.MACRO	NAME	P
	.NCHR	X,P
	.ASCII	/P/
	.IF	GT,6-X
	.REPT	6-X
	.ASCII	/ /
	.ENDM
	.ENDC
	.ENDM	NAME
.MACRO	COUN	NAM,NUM
NPH2=NPH2+1
	.ENDM
.MACRO	NAMNUM	NAM,NUM
	NAME	NAM
	.WORD	NUM
	.ENDM	NAMNUM
;
	DAT$	DSR			;Central Data Base
	.BYTE	1			;  Timer
	.BYTE	0			;  XPE's PIX
	.BYTE	0			;  TLI's PIX
	.BYTE	0			;  XPT's PIX
	.BYTE	0			;  NMX's PIX
	.BYTE	0			;  XNM's PIX
	COR$D	XP.NN*<XP.NLN+1>*2	;  HOPCOST
	DSR$W				;  Node data base:
X = 0					;
	.REPT	XP.NN			;	Contains NN entries:
	.BLKB	8.			;
.IF EQ,X				;
	VFY$	XPT$SN			;	+-----------------------+
.ENDC					;	!	MINHOP		!
X=X+1					;	+-----------------------+
	.ENDM				;	!       MINCOST         !
	END$				;	+-----------------------+
					;	!     OL    ! .....apr  !
					;	+-----------------------+
					;	!    USER   !   SELF    !
					;	+-----------------------+
					;
					;       Bits:	a	ADJACENT
					;		p	PHASE2_NODE
					;		r	REACH
					;					
	DSR$W				;  Line data base:
X=0					;
	.REPT	XP.NLN			;
	.REPT	44.			;
	.BYTE	0			;
	.ENDM				;	Contains NLN entries:
.IF EQ,X				;
	VFY$	XPT$SL			;
.ENDC					;	+-----------------------+
X=X+1					;	!	  LCV		!   0
	.ENDM				;	+-----------------------+
	END$				;	! LINE STATE ! NODE TYPE!   2
					;	+-----------------------+
					;	!       NODE ID		!   4
					;	+-----------------------+
					;	! padding  ! LINE QUOTA !   6
					;	+-----------------------+
					;	!PROV. LIX ! PROV. PIX  !  10
					;	+-----------------------+
					;	!N.ST!O.ST ! LINE NUMBER!  12
					;	+-----------------------+
					;	!	NMX ID		!  14
					;	+-----------------------+
					;	!    LINE EVENT WORD	!  16
					;	+-----------------------+
					;	!   FUNCTION CCB LIST	!  20
					;	+-----------------------+
					;	!       LINE FLAGS	!  22
					;	+-----------------------+
					;	!   PACKETS RECEIVED	!  24
					;	!     FOR THIS NODE	!
					;	+-----------------------+
					;	!     PACKETS SENT	!  30
					;	!    FROM THIS NODE	!
					;	+-----------------------+
					;	! ARRIVING CONG. LOSS	!  34
					;	+-----------------------+
					;	!       TRANSIT		!  36
					;	!   PACKETS RECEIVED	!
					;	+-----------------------+
					;	!       TRANSIT		!  42
					;	!    PACKETS SENT	!
					;	+-----------------------+
					;	! TRANSIT CONGEST. LOSS !  46
					;	+-----------------------+
					;	!INIT. FAILS! LINE DOWNS!  50
					;	+-----------------------+
					;	!INIT. TIMER!INPUT COUNT!  52
					;	+-----------------------+
					;
					;
	.WORD	0			;	UNUSED
	DSR$W				; Table of initial line costs
	.REPT	XP.NLN
	.WORD	1.
	.ENDM
	END$
	DSR$W				; Node Translate Table
	.WORD	0
;NPH2=0
;	XP$PH2	COUN
;	.WORD	NPH2
;	XP$PH2	NAMNUM
	END$
	DSR$W				;  Link Translate Table
		.WORD	XP.MXP*XP.NLN
		.REPT	XP.MXP
		.REPT	XP.NLN
		.WORD	-1,-1,-1,-1
		.ENDR
		.ENDR
	END$
	.WORD	XP.NN			;  NN (original value)
	.WORD	XP.NN			;  NN (current value)
	.BYTE	XP.NLN			;  NLN
	.BYTE	XP.LBQ			;  LINQ
	.BYTE	XP.LBQ			;  DLLquota
	.even				;	1 byte padding
	.WORD	XP.MXP			;  MAXLNK
	.WORD	XP.MXC			;  MAXC initial value
	.WORD	0			;  MAXC
	.BYTE	XP.MXH			;  MAXH initial value
	.BYTE	0			;  MAXH
	.BYTE	XP.MXV			;  MAXV initial value
	.BYTE	0			;  MAXV
	.WORD	XP.MXL			;  MAXL initial value
	.WORD	0			;  MAXL
	.WORD	0			;  Tid
	.WORD	XP.T1			;  T1 initial value
	.WORD	XP.T2			;  T2 initial value
	.WORD	XP.T3			;  T3 initial value
	.WORD	XP.T4			;  T4 initial value
	.WORD	15.			;  Init. timers' initial value (canned)
	.WORD	0			;  T1
	.WORD	0			;  T2
	.WORD	0			;  T3
	.WORD	0			;  T4
	.BYTE	1			;  NEXTline
	.BYTE	XP.UHQ			;  Routing/Hello buffer quota init val
	.BYTE	0			;    current value
	.BYTE	XP.EBQ			;  Quota for buffers to a Transport usr
	.BYTE	0			;    current value
	.BYTE	XP.IBQ			;  Current admission quota init. value
	.BYTE	0			;    current value
	.BYTE	XP.IBQ			;  Full admission quota (none used up)
	.WORD	0			;  Transport flags
	LST$D				;  Retry queue
	CE$NOD	LENG			;  Node name length
	CE$NOD	NAME			;  Node name, padded to 6 characters
	.WORD	XP.BL3			;  DLL blocksize
	.WORD	XP.BL2			;  Phase II version DLL blocksize
	.BYTE	0			;  Aged Packet Losses
	.BYTE	0			;  Node Out-of-Range Packet Losses
	.BYTE	0			;  Oversize Packet Losses
	.BYTE	0			;  Packet Format Errors
	.BYTE	0			;  Partial Routing Update Losses
	.BYTE	0			;  Verification Rejects
	.WORD	0			;  Unreachable Node Packet Losses
	.BYTE	0			;  Count of buffers on retry queue
	.EVEN
	.WORD	0			;  Work area for MaxN (ROUTES)
	.WORD	150./XP.nln		;  Number of nodes ROUTES can do at
					;    once
	.WORD	0			;  Redispatch address for _ROUTES
	DSR$W
	SYN$X				;  Synch block
	END$
	VFY$	XPT$SX
	END$
	.END