Google
 

Trailing-Edge - PDP-10 Archives - BB-P363B-SM_1985 - mcb/drivers/nrmlib.m11
There are no other files named nrmlib.m11 in the archive.
;                    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.

.macro	NRMDF$

	DAT$	DSR
r$tim::  .blkw	1		;timer word
R$FLG::	.BLKW	1		; CONTROL FLAGS:
 RF.CVR	==	100000		;  RESOURCE RECOVERY IN PROGRESS.
 RF.LIN	==	001000		;  RESOURCE LINE SERVICE PENDING.
 RF.CCB	==	000400		;  CCB PENDING.
 ;		000377		;  PIPE BEING FLUSHED.
R$RWT::	LST$D			; RESOURCE WAIT QUEUE.
R$TCQ::	.BLKW	1		; RESOURCE LINE SERVICE QUEUE.
r$flw:: .blkw   1		; request data count
R$PCB::	.BLKW	1		; NUMBER OF PCBS FOLLOWED BY
	DSR$W			; THE POINTER TO THE PCB TABLE.
    P.RSV:: .BLKW   1		; RESERVED WORD
    P.RES::			; * POINTER TO RESERVED TERMINAL LIST
    P.OPN:: .BLKW   1		; ** POINTER TO OPEN TERMINAL LIST
    P.REF::			; * POINTER TO REFERED CONTROL TERMINAL LIST
    P.CBTN::.BLKW   1		; ** CURRENT BTN FOR MULTI-SEGMENT MSSAGES
    P.USER::.BLKW   1		; USER IDENTIFICATION NUMBER
    P.STS:: .BLKW   1		; PIPE STATUS:
     PS.CI   ==     000001	;  CONNECT INITIATED
     PS.CC   ==     000002	;  CONNECT COMPLETED
     PS.DIP  ==     000004	;  DISCONNECT INITIATE PENDING
     PS.ABO  ==     000010	;  ABORT PENDING
     PS.NKP  ==     000040	;  NAK PENDING
     PS.IMP  ==     000100	;  INTERRUPT MESSAGE PENDING
     PS.CTL  ==     010000	;  * PIPE IS CONTROL PIPE
     PS.DAT  ==     020000	;  ** PIPE IS DATA PIPE
     ps.rqt  ==     040000	; requesting a ccb
    P.LLA:: .BLKB   1		; LOGICAL LINK ADDRESS OF PIPE
	    .BLKB   1		; (RESERVED)
    P.NUM:: .BLKB   1		; PIPE NUMBER
    P.SPI:: .BLKB   1		; PDV INDEX OF PIPE OWNER
    p.segs::.blkb   1		;data permission count
    p.pix:: .blkb   1		;process where connect came from
    PCBLEN::.BLKW   0		; LENGTH OF PCB
	    END$

R$TCB::	.BLKW	1		; NUMBER OF TCBS FOLLOWED BY
	DSR$W			; THE TCB TABLE.
    T.LNK:: .BLKW   1		; LINK TO NEXT RESERVED TERMINAL
    T.OLNK::.BLKW   1		; LINK TO NEXT OPENED TERMINAL
    T.PCBR::.BLKW   1		; LINK TO RESERVER'S CONTROL/DATA PCB
    T.PCBD::.BLKW   1		; LINK TO DATA PCB/HANDOFFEE'S CONTROL PCB
    T.RID:: .BLKW   1		; REQUESTOR ID FOR RESERVER
    T.STS:: .BLKW   1		; TERMINAL STATUS:
     TS.CLP  ==      000001	;  CLOSE PENDING
     TS.OPP  ==      000002	;  OPEN PENDING
     TS.OP   ==      000004	;  OPEN TERMINAL
     TS.RLP  ==      000010	;  RELEASE PENDING
     TS.RS   ==      000020	;  RESERVED
     TS.HP   ==      000040	;  HANDOFF PENDING
     TS.SRP  ==      000200	;  STATUS REPORT PENDING
     TS.OSP  ==      000400	;  OPERATIONAL STATUS PENDING
     TS.STE  ==      001000	;  START ERROR PENDING
     TS.PWF  ==      002000	;  POWERFAIL PROCESSING PENDING
    T.TT::  .BLKB   0		; RESOURCE TYPE:
     TT.LE   ==        6.	;  LP11 LINE PRINTER
     TT.LP   ==        7.	;  LP20 LINE PRINTER
     TT.CR   ==        8.	;  CR11 CARD READER
     TT.CD   ==        9.	;  CD20 CARD READER
    T.FLG:: .BLKW   1		; CONTROL FLAGS:
     TF.DEA  ==      040000	;  RESOURCE DEASSIGNED
     TF.DIS  ==      020000	;  LINE DISABLED
    ;		     000377	; (RESOURCE TYPE)
    T.NUM:: .BLKB   1		; TERMINAL NUMBER
    T.SPI:: .BLKB   1		; SERVER PROCESS INDEX
    t.pri:: .blkb   1		;process owning this resource
    T.OBJ:: .BLKB   1		; RESOURCE OBJECT TYPE
    T.NAML::.BLKB   1		; TERMINAL NAME LENGTH
    T.NAM:: .BLKB   6		; TERMINAL NAME (ASCII)
	    .blkb   1		; filler
    TCBLEN::.BLKW   0		; LENGTH OF TCB
	    END$

	END$

.endm