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