.TITLE USRTB
	.IDENT /01/
;VERSION 01

;B.H.HAZARD 20-OCT-79

; CONTROL BLOCKS FOR DN11 DRIVER


; DN11 ACU INTERFACE DEVICE DATA BASE

; DN11 DEVICE CONTROL BLOCK (DCB)

$USRTB::
DNDCB:	.WORD 0		       ;LINK TO	NEXT DCB
	.WORD .DN0	       ;POINTER	TO FIRST UCB
	.ASCII /DN/            ;DEVICE NAME
	.BYTE 0,DN$$04-1	;LOWEST AND HIGHEST UNIT # COVERED BY DCB
	.WORD DNND-DNST	       ;LENGTH OF EACH UCB IN BYTES
	.WORD $DNTBL	       ; POINTER TO DRIVER DISPATCH TABLE
	.WORD 160033	       ; LEGAL FUNCTION	CODE MASK 0-15
	.WORD 30	       ; CONTROL FUNCTION MASK CODES 0-15
	.WORD 160000	       ; NOP'ED FUNCTION MASK CODES 0-15
	.WORD 0		       ; ACP FUNCTION MASK CODES    0-15
	.WORD 5		       ; LEGAL FUNCTION	MASK CODES  16-31
	.WORD 0		       ; CONTROL FUNCTION MASK CODES 16-31
	.WORD 1		       ; NOP'ED FUNCTION MASK CODES 16-31
	.WORD 4		       ; ACP FUNCTION MASK CODES 16-31
;
; DN11 UNIT CONTROL BLOCKS
;
DNST=.
.IIF DF M$$MUP	.WORD	0
.DN0::
	.WORD DNDCB	       ; BACK POINTER TO DCB
	.WORD .-2	       ; REDIRECT PTR UCB
	.BYTE 0,0	       ; CONTROL PROC. FLAG,UNIT STATUS
	.BYTE 0,0	       ; PHYSICAL UNIT # &STATUS EXT.
	.WORD DV.SQD	       ; DEV. CHAR  (SEQ DEV)
	.WORD 0		       ; DEV. CHAR  (2)
	.WORD 0		       ; DEV. CHAR  (3)
	.WORD 20	       ; DEFAULT BUFFER	SIZE
	.WORD $DN0	       ; POINTER TO THIS UNIT SCB
	.WORD 0,0,0,0	       ; RESERVED
DNUCBO==.-DNST
DNND=.
DNST=.
.IIF DF M$$MUP	.WORD	0
.DN1::
	.WORD DNDCB	       ; SEE COMMENTS FOR UCB 0	(DN0::)
	.WORD .-2
	.BYTE 0,0
	.BYTE 1,0
	.WORD DV.SQD
	.WORD 0
	.WORD 0
	.WORD 20
	.WORD $DN1
	.WORD 0,0,0,0
DNND=.
	.IF GT DN$$04-2
DNST=.
.IIF DF M$$MUP	.WORD	0
.DN2::
	.WORD	DNDCB
	.WORD .-2
	.BYTE 0,0
	.BYTE 2,0
	.WORD DV.SQD
	.WORD 0
	.WORD 0
	.WORD 20
	.WORD $DN2
	.WORD 0,0,0,0
DNND=.
	.ENDC
	.IF GT DN$$04-3
DNST=.
.IIF DF M$$MUP	.WORD	0
.DN3::
	.WORD DNDCB
	.WORD .-2
	.BYTE 0,0
	.BYTE 3,0
	.WORD DV.SQD
	.WORD 0
	.WORD 0
	.WORD 20
	.WORD $DN3
	.WORD 0,0,0,0
DNND=.
	.ENDC
; DN11 STATUS CONTROL BLOCKS
	.ASECT
.=300
	.WORD $DNINT	       ; ADDRESS OF INT. ROUTINE
	.WORD PR7!0	       ; INT PRI CONT 0
	.PSECT
$DN0::
	.WORD 0		       ; CONTROLLER I/O QUEUE HDLST PTR TO 1ST
	.WORD .-2	       ; PTR TO	LAST ENTRY
	.BYTE PR4,300/4        ; DEVICE PRI,VECTOR ADR/4
	.BYTE 0,12	       ; CURRENT & INIT. TIMEOUT COUNTS
	.BYTE 0,0	       ; CONTROLLER INDEX & STATUS
	.WORD 175200	       ; ADR OF	CONTROL	STATUS REGISTER
	.WORD 0,0,0,0,0	       ; ADR OF	I/O PACKET, FORK BLK ALLOC,(4WD)
$DN1::
	.WORD 0
	.WORD .-2
	.BYTE PR4,300/4
	.BYTE 0,12
	.BYTE 2,0
	.WORD 175202
	.WORD 0,0,0,0,0
	.IF GT	DN$$04-2
$DN2::
	.WORD 0
	.WORD .-2
	.BYTE PR4,300/4
	.BYTE 0,12
	.BYTE 4,0
	.WORD 175204
	.WORD 0,0,0,0,0
	.ENDC
	.IF GT DN$$04-3
$DN3::
	.WORD 0
	.WORD .-2
	.BYTE PR4,300/4
	.BYTE 0,12
	.BYTE 6,0
	.WORD 175206
	.WORD 0,0,0,0,0
	.ENDC
;
;
;
	.END