.TITLE	FM Device Formatting Program

	.MCALL	.WRITW, .PRINT, .GTLIN, .FETCH, .LOOKUP, .EXIT

;
;	Date: 28-May-87		Authors: Evans
;
;	FMAT - This program zeroes the entire FM RAM disk to
;	clear parity errors when reading before writing.
;

START:	.GTLIN	#ANS,#WARN
	CMPB	ANS,#'Y		;OK to wipe disk?
	BEQ	WIPE
	CMPB	ANS,#'y		;OK to wipe disk?
	BEQ	WIPE
	BR	DONE
;
WIPE:	CLR	BLK
	.FETCH	#FREE,#DNAM
	BCC	10$
	.PRINT	#FERR
	BR	DONE

10$:	.LOOKUP	#AREA,#1,#DNAM
	BCC	20$
	.PRINT	#LERR
	BR	DONE

20$:	.WRITW	#AREA,#1,#BUFF,#256.,BLK
	BCS	DONE
	INC	BLK
	BR	20$

DONE:	.EXIT

WARN:	.ASCII	/FM-W-Obliterate, are you sure? /<200>
FERR:	.ASCIZ	/FM-F-Fetch failure./
LERR:	.ASCIZ	/FM-F-Lookup failure./
ANS:	.BLKB	80.

	.EVEN
BLK:	.WORD	0
AREA:	.BLKW	10.
DNAM:	.RAD50	/FM          /
BUFF:	.REPT	256.
	.WORD	0
	.ENDR

FREE:

	.END	START