.TITLE	VDTAB - VD: DRIVER TABLE
	.SBTTL	VDTAB - TITLE PAGE
	.IDENT	/V03.00/
;
; ************************************************************************
;                                                                        *
; THIS PROGRAM IS PROVIDED ON AN "AS IS" BASIS ONLY.  DIGITAL  EQUIPMENT *
; COMPUTER USER'S SOCIETY,  DIGITAL EQUIPMENT CORPORATION, MONSANTO, AND *
; THE AUTHOR DISCLAIM  ALL WARRANTIES ON THE PROGRAM,  INCLUDING WITHOUT *
; LIMITATION, ALL IMPLIED WARRANTIES OF MERCHANTABLITY AND FITNESS.      *
;									 *
; FULL PERMISSION AND CONSENT IS HEREBY GIVEN TO DECUS  AND TO THE DECUS *
; SPECIAL INTEREST  GROUPS  TO  REPRODUCE,  DISTRIBUTE,  AND PUBLISH AND *
; PERMIT  OTHERS  TO  REPRODUCE  IN  WHOLE  OR  IN PART, IN ANY FORM AND *
; WITHOUT RESTRICTION, THIS PROGRAM AND ANY INFORMATION RELATING THERETO *
;									 *
; ************************************************************************
;
; VD: (VIRTUAL DISK) DEVICE DRIVER TABLE.
;
; VERSION:	V03.00
;
; AUTHOR:	R.W. STAMERJOHN	MAPC	03-FEB-79
;
; MODIFICATION HISTORY:
;
;	V02.00  04-APR-80	T. PANG, L. M. FRASER
;		CONVERT FOR RSX-11M-PLUS V1.0
;
;	V03.00	26-MAR-82	T.K. PANG
;		Modified for RSX11M-PLUS V2.0 field test.
;
;
.PAGE
	.SBTTL	VDTBL - DECLARATIONS
;
; MACRO LIBRARY CALLS:
;
	.MCALL	DEVDF$			;DEFINE DEVICE DATA STRUCTURE SYMBOLICS
	DEVDF$
;
; GLOBAL DECLARATIONS:
;
	.GLOBL	$VDDAT			;START OF DATA STRUCTURES
	.GLOBL	$VDEND			;END   OF DATA STRUCTURES
	.GLOBL	$VDDCB			;START OF DCB
	.GLOBL	.VD0			;START OF UCB'S
	.GLOBL	$VD0			;START OF SCB
;
; GLOBAL REFERENCES:
;
	.IF NDF	LD$VD

	.GLOBL	$VDTBL			;DRIVER DISPATCH TABLE

	.ENDC
 
;
;
.PAGE
	.SBTTL	VDTBL - MACRO DEFINITIONS
;
; DEFINE UCB CREATION MACRO.
;
	.MACRO	UCBS	UNIT

	.IIF  EQ UNIT-0 .LIST

	.IF DF	M$$MUP

	.WORD	0			;(U.OWN ) OWNING TERMINAL UCB ADDRESS

	.ENDC

.VD'UNIT::				;REF. LABEL.
	.WORD	$VDDCB			;(U.DCB ) POINTER TO DCB
	.WORD	.-2			;(U.RED ) REDIRECT UCB POINTER
	.BYTE	UC.NPR!UC.ALG!UC.PWF!3 	;(U.CTL ) CONTROL FLAGS
	.BYTE	US.MNT!US.VV		;(U.STS ) STATUS FLAGS
	.BYTE	UNIT			;(U.UNIT) UNIT NUMBER
	.BYTE	US.RED!US.OFL		;(U.STS2) STATUS FLAGS
	.WORD	DV.DIR!DV.F11!DV.MNT	;(U.CW1 ) DEVICE CHARACTERISTICS
	.WORD	0			;(U.CW2 ) DEVICE CHARACTERISTICS
	.WORD	0			;(U.CW3 ) DEVICE CHARACTERISTICS
	.WORD	1000			;(U.CW4 ) BUFFER SIZE
	.WORD	$VD0			;(U.SCB ) SCB POINTER
	.WORD	0			;(U.ATT ) ATTACH WORD
	.WORD	0,0			;(U.BUF ) BUFFER RELOCATION ADDRESS
	.WORD	0			;(U.CNT ) BUFFER SIZE (BYTES)
	.WORD	0			;(U.UCBX) PTR TO UCB EXT. IN SEC POOL
	.WORD	0			;(U.ACP ) ACP TCB ADDRESS
	.WORD	0			;(U.VCB ) VCB ADDRESS
	.WORD	0			;(U.UMB ) UMB ADDR FOR SHADOW RECORDING
					;(U.PRM ) DISK SIZE IN TWO WORDS
	.WORD	0,0			;(U.NXT ) EXTENSION BLOCK ADDRESS OR 0
	.WORD	0			;(U.UTMO) UNIT COMMAND TIME OUT
	.WORD	0,0			;(U.LHD ) UNT OUSTNDNG I/O PKT LISTHEAD
	.WORD	0,0			;(U.BPKT) UNT BAD BLK PKT WAITING LIST
	.WORD	0			;(U.UC2X) PTR TO SECOND EXT IN SEC POOL
	.WORD	0			;(U.OTRF) OUSTND COMMAND STATS REQ REG.
	.WORD	0			;(U.CMST) COMMAND STATUS PROGRESS REG.
	.WORD	0			;(U.UFD ) SAVED DIRECTORY FOR FILE

	.IIF  EQ UNIT-0 .NLIST

	.ENDM	UCBS
.PAGE
	.SBTTL	VDTBL - DATA STRUCTURE
;
; THE VIRTUAL DISK DATA STRUCTURE LOOKS LIKE A NORMAL DISK STRUCTURE WITH
; SEVERAL UNITS AND ONE CONTROLLER. HOWEVER, THE UCB IS EXPANDED TO INCLUDE
; ADDITIONAL MAPPING INFORMATION AND THE SCB USES A NULL CSR AND VECTOR.

	.IIF DF	LD$VD	$VDTBL=0

;
; DCB DATA STRUCTURE.
;
$VDDAT::			;REF. LABEL.
$VDDCB::			;REF. LABEL.
	.WORD	0		;(D.LNK ) LINK TO NEXT DCB
	.WORD	.VD0		;(D.UCB ) LINK TO FIRST UCB
	.ASCII	/VD/		;(D.NAM ) DEVICE NAME
	.BYTE	0,VDHI-1	;(D.UNIT) LOWEST, HIGHEST UNIT NUMBER
	.WORD	VDND-VDST	;(D.UCBL) LENGTH OF UCB
	.WORD	$VDTBL		;(D.DSP ) ADDRESS OF DRIVER DISPATCH TABLE
	.WORD	177077		;(D.MSK ) LEGAL FUNCTION MASK 0-15
	.WORD	000030		;         CNTRL FUNCTION MASK 0-15
	.WORD	000040		;         NO-OP FUNCTION MASK 0-15
	.WORD	177000		;         ACP   FUNCTION MASK 0-15
	.WORD	000377		;         LEGAL FUNCTION MASK 16-31
	.WORD	000000		;         CNTRL FUNCTION MASK 16-31
	.WORD	000000		;         NO-OP FUNCTION MASK 16-31
	.WORD	000377		;         ACP   FUNCTION MASK 16-31

	.IF DF	L$$DRV

	.WORD	0		;(D.PCB)  PCB ADDRESS

	.ENDC

;
; UCB DATA STRUCTURE
;
VDHI	= 0

	.REPT	V$$D11

VDST	= .

	UCBS	\VDHI

VDHI	= VDHI+1
VDND	= .

	.ENDR

	.PAGE
	.SBTTL	SCB FOR VD DRIVER
;
;	SCB FOR VD DEVICE.
;
	.WORD	0		; S.OWN - CURRENT UCB ADDRESS
$VD0::				;REF. LABEL
	.WORD	0,.-2		;S.LHD -  I/O QUEUE LISTHEAD

	.IF DF M$$PRO
	.WORD	0		; S.URM - UNIBUS RUN MASK - MULTIPROCESSORS
	.ENDC
 
	.WORD	0,0,0,0		;S.FRK - FORK LINK WORD
	.WORD	0		;S.KS5 - KISAR5
 
	.WORD	0		;S.PKT - I/O PACKET ADDRESS
	.BYTE	0,0		;S.ITM + S.CTM -- CURR/INIT TIMEOUT
	.BYTE	0,0		;S.ST2 + S.STS -- CONTROLLER STATUS
	.WORD	0		;S.ST3 - STATUS EXTENSION 
	.WORD	0		;S.KRB - KRB ADDRESS
 
 
$VDEND::			;END OF DATA BASE

	.END