Google
 

Trailing-Edge - PDP-10 Archives - k20v7b - dn20/xptllc.m11
There are 16 other files named xptllc.m11 in the archive. Click here to see a list.
	.TITLE	XPTLLC
	.IDENT	/X01150/
	.ENABL	lc
;
;
;                    COPYRIGHT (c) 1980, 1981, 1982
;                    DIGITAL EQUIPMENT CORPORATION
;
;     This software is furnished under a license and may  be  used
;     and copied only in accordance with the terms of such license
;     and with the inclusion of the above copyright notice.   This
;     software  or any other copies thereof may not be provided or
;     otherwise made available to any other person.  No  title  to
;     and ownership of the software is hereby transferred.
;
;     The information  in  this  software  is  subject  to  change
;     without  notice  and should not be construed as a commitment
;     by DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL assumes no responsibility for the use or reliability
;     of  its  software  on  equipment  which  is  not supplied by
;     DIGITAL.
;

.iif	ndf,XP.HLN, XP.HLN=12.	; Default hello data length

.MACRO	LENG	TXT
	.NCHR	LNG,TXT
	.IRP	..ln,<\LNG>
	.WORD	..ln
	.ENDM
	.ENDM	LENG
.MACRO	NAME	TXT
	.NCHR	LNG,TXT
	.ASCII	/TXT/
	.REPT	6-LNG
	.ASCII	/ /
	.ENDM
	.ENDM	NAME
.MACRO	COUN	NAM,NUM
NPH2=NPH2+1
	.ENDM
.MACRO	MAXADD	NUM,MAX
	.IF	B,<NUM>
	NNUM=0
	.MEXIT
	.ENDC
	.IF	LE,<NUM-NNUM>
	.ERROR	NUM;Node number out of order
	.MEXIT
	.ENDC
	.IF	GT,<NUM-XP.NN>
	.ERROR	NUM;Node number out of range
	.MEXIT
	.ENDC
	.REPT	NUM-NNUM-1
	.WORD	0
	.ENDR
	.WORD	MAX
	NNUM=NUM
	.ENDM	MAXADD
;
.MACRO	PASWD	NUM,RCV3,XMT3,RCV2,XMT2
	.WORD	0
.IF NB,NUM
	.WORD	NUM
	F8STR	<RCV2>
	.BYTE	130,2		; Phase II TV header
	F8STR	<XMT2>
	AISTR	<RCV3>
	.BYTE	3,0,0		; Phase III TV header
	AISTR	<XMT3>
.IFF
	.WORD	0
	XP$rcv	F8STR
	.BYTE	130,2		; Phase II TV header
	XP$xmt	F8STR
	AISTR	<RCV3>
	.BYTE	3,0,0		; Phase III TV header
	AISTR	<XMT3>
.ENDC
	.EVEN
	.ENDM	PASWD
;
.MACRO	AISTR	TXT
.NCHR	LNG,<TXT>
	.IRP	..ln,<\LNG>
	.BYTE	..ln
	.ENDM
	.ASCII	\TXT\
	.ENDM	AISTR
;
.MACRO	F8STR	TXT
.NCHR	LNG,<TXT>
	.ASCII	\TXT\
	.REPT	8.-LNG
	.BYTE	0
	.ENDR
	.ENDM	F8STR
;
	DAT$	DSR			;Central Data Base
	.BYTE	0			;  Timer
	.BYTE	0			;  Flags
	.BYTE	0			;  XPE's PIX
	.BYTE	0			;  TLI's PIX
	.BYTE	0			;  XPT's PIX
	.BYTE	0			;  NMX's PIX
	COR$D	XP.NN*<1+XP.NLN>*2	;  HOPCOST
	.WORD	0			;  Node data base
	.WORD	XP.NN			;   (contains NN entries)
	.WORD	XP.NN			;  NN (current value)
	.WORD	0			;  Line data base
	.WORD	XP.NLN			;   (contains NLN entries)
	DSR$W				;  NODE MAXIMUM ADDRESSes
		MAXADD
		XP$mxa	MAXADD
		MAXADD	XP.NN
		END$
	.WORD	0			;  Link Translate Table
	.WORD	XP.MXP*XP.NLN		;  Number of links
	.WORD	XP.MXP			;  MAXLNK
	.BYTE	XP.LBQ			;  LINQ
	.BYTE	XP.LBQ			;  DLLquota
	.WORD	XP.MXC			;  MAXC initial value
	.WORD	0			;  MAXC
	.WORD	XP.MXH			;  MAXH initial value
	.WORD	0			;  MAXH
	.WORD	XP.MXV			;  MAXV initial value
	.WORD	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			;  Routing clock
	.WORD	0			;  Update clock
	.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
	.BYTE	XP.HLN			;  Default hello data length
	.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$
	DSR$W				; Address of password data base.
		PASWD	,,<DECNET20> 	; Set default passwords
		END$
	.WORD	0			; Transport Init buffer
	.WORD	0			; Transport Init message length
	.WORD	0			; Phase II Node Init buffer
	.WORD	0			; Phase II Node Init message length
	.WORD	0			; Hello message buffer address
	.WORD	0			; Hello message length
	.WORD	0			; False Node LINEb address
	.WORD	0			; False Node Init buffer
	.WORD	0			; False Node Init message length
	END$	XPT$SX
	.END