Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;                    COPYRIGHT (c) 1980, 1981, 1982
;                    DIGITAL EQUIPMENT CORPORATION
;                        Maynard, Massachusetts
;
;     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.

		.title  NRMLLC
		.ident	/X01000/


;
;+
; LLC data base for NRM process
;-
;

     TT.LE   ==        6.	;  LP11 LINE PRINTER
     TT.CR   ==        8.	;  CR11 CARD READER
     TF.DEA  ==      040000	;  RESOURCE DEASSIGNED
     TF.DIS  ==      020000	;  LINE DISABLED

	.mcall	DAT$
	.mcall	NR$RES


	.MACRO	INAME,NAME
	.NCHR	LEN,NAME
	.BYTE	LEN
	.ASCII	/NAME/
	.REPT	6-LEN
	.BYTE	0
	.ENDR
	.ENDM	INAME
;
	.MACRO	TCB,name,obj,type
n = n+1
	.WORD	0,0,0,0,0,0
	.if idn <type> <LP11>
	.WORD	TF.DEA!TF.DIS!tt.le
	.iff
		.if idn <type> <CR11>
		.WORD	TF.DEA!TF.DIS!tt.cr
		.iff 
			.error ;only CR11 or LP11 supported
		.endc
	.endc
	.BYTE	n,0,0,'obj
	INAME	'name
	.byte	0
	.even
	.ENDM	TCB



	DAT$	DSR
	.word	0		;r$tim
	.word	0		;r$flg
	LST$D			;r$rwt
	.word	0		;r$tcq
	.word	nr.flw		;r$flw
	.word	nr.pip		;r$pcb
		DSR$W		;PCB's
		n = 0
		.rept	nr.pip
		.word	0	;p.res/p.rsv
		.word	0	;p.opn/p.ref
		.word	0	;p.cbtn
		.word	0	;p.user
		.word	0	;p.sts
		.byte	0	;p.lla
		.byte	0
		n = n+1
		.byte	n	;p.num
		.byte	0	;p.segs
		.byte	0	;p.pix
		.even
		.endr
		END$
	.word	2		;r$tcb
		DSR$W
		n = 0
		NR$RES	TCB
		END$
	END$
	.end