Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetDistr_7-23-85 - 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
;
;
;                    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.
;
;+
; 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