.TITLE	DP0DCF
	.IDENT	/JAN80/
;
; PROGRAM TO CLEAR THE DCF BIT IN THE VOLUME CHARACTERISTIC BYTE
; OF THE PUD FOR DP0: .   DOING THIS PERMITS DEVICE CONTROL FUNCTIONS!
;
; ORIG PROG:	DR DICKEY 2/4/80
;
; MODIFICATIONS:
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
	.MCALL	EXIT$,DIR$
;
START:
	MOV	.PUDBA,R0		;GET PUD START ADDRESS
10$:
	CMP	R0,.PUDEA		;MADE OUR WAY THROUGH PUD YET?
	BGT	99$			; .. J IF SO.
	CMP	#"DP,U.DN(R0)		;THIS A "DP" DEVICE?
	BNE	50$			; .. J IF NOT.
	TSTB	U.UN(R0)		;IS THIS SPECIFICALLY DP0?
	BNE	50$			; .. J IF NOT.
	BICB	#10,U.CH(R0)		;CLEAR DCF BIT.
	BR	99$			;AND THAT'S ALL FOLKS!
50$:	ADD	#U.SZ,R0		;GO TO NEXT PUD.
	BR	10$			; "
99$:	DIR$	#EXIT
EXIT:	EXIT$
	.END	START