O$WNRS=0	;ALLOW PRIVATE PACKS
	.IF	NDF,X..DF.
$M$VE$=0
M$VE$$ = 0 ;MULT VE ASSIGNS
.ENDC
	.NLIST
	.TITLE	VE     - VIRTUAL DISK PREFIX FILE
;
;	GET UCB OFFSETS.
;
	.MCALL	UCBDF$		;DEFINE UCB OFFSETS
	UCBDF$
;
; DEFINE ADDITIONAL UCB OFFSET.
;

	.IF	NDF,R$$MPL	;FOR RSX11M --------------------------
U.NXT	= U.VCB+2		;EXTENSION BLOCK ADDRESS
	.IFF			;FOR RSX11M+ -------------------------
.IF NDF,R$MPV2 ;FOR RSX11M+ V1
U.NXT	= U.VCB+14		;EXTENSION BLOCK ADDRESS
.IFF ;V2
U.NXT=U.CNT+40
.ENDC
	.ENDC			; ------------------------------------
	.IF DF,O$WNRS
U.TIU=U.NXT+2	;TI UCB ADDRESS
U.PWD=U.TIU+2	;ACCESS PASSWORD
	.ENDC

;
; DEFINE EXTENSION BLOCK OFFSETS.
	.IF	NDF,M$VE$$
X.OFF	= 0			;DISK FILE OFFSETS
X.UCB	= X.OFF+4		;NEXT UCB ADDRESS
X.FLG	= X.UCB+2		;EXTENSION FLAGS
X.FNB	= X.FLG+2		;FILENAME BLOCK
X.LGTH	= X.FNB+36		;LENGTH OF EXTENSION BLOCK
	.IFF
;
;;
X.FLG=0		;FLAG WORD FIRST (ONLINE/OFFLINE HERE, ALSO RO FLAG)
X.OFF=X.FLG+2
;1ST 2 WORDS= LOW BLK (HI,LO) OF FILE ON DISK
;2ND 2 WORDS= LENGTH (HI,LO) OF FILE
;NEXT WORD (5TH)=UCB
X.NFIL=8.	;MAX NUMBER OF FILES THAT MAY LINK INTO A VIRTUAL DISK UNIT
X.UCB=X.OFF+10	;OFFSET TO 1ST UCB
X.FNB=X.OFF+<10.*X.NFIL>
X.LGTH	= X.FNB+36		;LENGTH OF EXTENSION BLOCK
	.ENDC
;
; DEFINE EXTENSION FLAG BITS
;
XF.RON	= 1			;ALLOW ONLY READ ACCESS
;
; DEFINE VE: AS LOADABLE
LD$VE=0
;
; DEFINE NUMBER OF VE: UNITS    (#UCBs)
	.IF	NDF,X..DF.
V$$E11=14
	.ENDC
	.LIST