* ufstest2
*
* create 200 Files containing one line
*
FMS	equ	$d406
SETEXT equ	$cd33
PSTRNG equ	$cd1e
WARMS	equ	$cd03
WRKDRV equ	$cc0c

	org $0

START	ldx	#FCB1
	ldy	#0

OPEN	lda	#'F
	sta	4,x
	lda	#'I
	sta	5,x
	lda	#'L
	sta	6,x
	lda	#'E
	sta	7,x
	lda	#'_
	sta	8,x
	tfr	y,d
	lsrb
	lsrb
	lsrb
	lsrb
	addb #'0
	cmpb #'9
	bls	OPEN1
	addb #7
OPEN1	stb	9,x
	tfr	y,d
	andb #$f
	addb #'0
	cmpb #'9
	bls	OPEN2
	addb #7
OPEN2	stb	10,x
	clr	11,x
	clr	12,x
	clr	13,x
	clr	14,x
	clr	15,x
	lda	#1
	jsr	SETEXT
	lda	WRKDRV
	sta	3,x
	clr	23,x
	clr	59,x
	lda	#2
	sta	,x
	jsr	FMS
	beq	OK1
	ldx	#OERRT
	jmp	ERROR

OK1	lda	#'T
	clr	,x
	jsr	FMS
	bne	WERR
	lda	#'S
	clr	,x
	jsr	FMS
	bne	WERR
	lda	#'T
	clr	,x
	jsr	FMS
	bne	WERR
	lda	#$d
	clr	,x
	jsr	FMS
	bne	WERR
	bra	CLOSE

WERR	ldx	#WERRT
	jmp	ERROR

CLOSE	lda	#4
	sta	,x
	jsr	FMS
	beq	OK2
	ldx	#CERRT
	bra	ERROR
OK2	leay	1,y
	cmpy	#200
	lbne	OPEN
	jmp	WARMS

ERROR	jsr	PSTRNG
	jmp	WARMS

OERRT fcc	"file open error",$4
WERRT fcc	"file write error",$4
CERRT fcc	"file close error",$4

FCB1	rmb	320

	end	START
                                                              