Google
 

Trailing-Edge - PDP-10 Archives - DECNET-20_PhaseIII_4-1-82 - dn20/dtrllc.m11
There are 15 other files named dtrllc.m11 in the archive. Click here to see a list.
	.TITLE	DTRLLC - DTR LLC data base
	.IDENT	/001010/
	.ENABL	LC
;+
; LLC data base for DTR process
;-
DR.lnk	=   3.			; Number of links to handle.
ULA	= 0

	.MCALL	DAT$

    DAT$   DSR
	.WORD	0
	.WORD	DR.lnk
	DSR$W
	    .REPT   DR.lnk
	    ULA = ULA + 1
	    .BYTE   ULA,0
	    .BYTE   0
	    .BYTE   0,0,0
	    .WORD   0
	    .BYTE   0,0
	    .WORD   0,0,0
	    .WORD   0,0
	    .WORD   0,0
	    .WORD   0,0
	    .WORD   0
	    .WORD   0
	    .IF     EQ,<ULA-1>
	    VFY$    L.LEN
	    .ENDC
	    .ENDR
	END$

    END$   D.LEN

	.END