* ufstest1
*
* open 5 files at a time and write 1000 characters each to then
*
FMS	equ	$d406
SETEXT equ	$cd33
PSTRNG equ	$cd1e
WARMS	equ	$cd03
DRIVE	equ	1

	org $0

START	ldx	#FCB1
	lda	#'A
	bsr	OPEN
	ldx	#FCB2
	lda	#'B
	bsr	OPEN
	ldx	#FCB3
	lda	#'C
	bsr	OPEN
	ldx	#FCB4
	lda	#'D
	bsr	OPEN
	ldx	#FCB5
	lda	#'E
	bsr	OPEN

	ldy	#1000
WLOOP	ldx	#FCB1
	lda	#'a
	bsr	WRITE
	ldx	#FCB2
	lda	#'b
	bsr	WRITE
	ldx	#FCB3
	lda	#'c
	bsr	WRITE
	ldx	#FCB4
	lda	#'d
	bsr	WRITE
	ldx	#FCB5
	lda	#'e
	bsr	WRITE
	leay	-1,y
	bne	WLOOP

	ldx	#FCB1
	bsr	CLOSE
	ldx	#FCB2
	bsr	CLOSE
	ldx	#FCB3
	bsr	CLOSE
	ldx	#FCB4
	bsr	CLOSE
	ldx	#FCB5
	bsr	CLOSE

	jmp	WARMS


OPEN	sta	4,x
	lda	#DRIVE
	sta	3,x
	ldb	#5
OPEN1	clr	b,x
	incb
	cmpb	#16
	bne	OPEN1
	lda	#1
	jsr	SETEXT
	clr	23,x
	clr	59,x
	lda	#2
	sta	,x
	jsr	FMS
	beq	OK
	ldx	#OERRT
	jmp	ERROR
OK	rts

WRITE	clr	,x
	jsr	FMS
	beq	OK
	ldx	#WERRT
	jmp	ERROR

CLOSE	clr	,x
	jsr	FMS
	beq	OK
	ldx	#CERRT
	bra	ERROR

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
FCB2	rmb	320
FCB3	rmb	320
FCB4	rmb	320
FCB5	rmb	320

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