.TITLE 	BAD BLOCK PROCESSOR
;
.MCALL	CALL,RETURN,DIR$
;
	.PSECT
.BLK.=.
;
;
; MODIFICATIONS:
;
;	01A	CORRECT ERROR THAT CAUSED BAD TO HANG
;		IF DEVICE DRIVER WAS NOT LOADED.
;
;
;
	.IDENT	/01A/
;
;
	.PSECT
.=.BLK.+27560
	CALL 	PAT1		;DETACH DEVICE
	BCS	40$		;FAILED - EXIT
.=.BLK.+27600
40$:
.=.BLK.
;
	.PSECT	$$PAT
;
DSKQIO=.BLK.+25146
;
PAT1:	DIR$	#DSKQIO	;DETACH DEVICE
	RETURN
;
	.END