; DVSET REDEFINES THE PUD WITH ADDRESS PUDADR TO VIRTUAL DISK 'DV'.
;
	.MCALL EXIT$S
PUDADR	=	151024		;PUD ADDRESS
NAME	=	"DV		;VIRTUAL DISK NAME
C1	=	150010		;1ST CHARACTERISTIC WORD
C2	=	0		;2ND CHARACTERISTIC WORD
C3	=	0		;3RD CHARACTERISTIC WORD
C4	=	1000		;4TH CHARACTERISTIC WORD
ACP:	.RAD50	/VRT/		;ACP FOR VIRTAL DISK
START:
	MOV	#NAME,PUDADR+U.DN	;SET DV NAME
	CLRB	PUDADR+U.UN		;ZERO DEVICE NUMBER
	MOV	#C1,PUDADR+U.C1		;1ST CHARACTERISTIC WORD
	MOV	#C2,PUDADR+U.C2		;2ND
	MOV	#C3,PUDADR+U.C3		;3RD
	MOV	#C4,PUDADR+U.C4		;4TH
	MOV	ACP,PUDADR+U.DACP	;VIRTUAL DISK ACP
	CLR	PUDADR+U.ACP		;CLEAR NEXT WORD
	CLRB	PUDADR+U.FB		;CLEAR FLAG BYTES
	EXIT$S
	.END	START