.PSECT	FASTWR
FASTWR:: TST	(R5)+
	MOV	(R5)+,	F1BYTE
	MOV	(R5)+,	F1BUFF
	MOV	(R5)+,	F1BLK
	MOV	@F1BYTE, R0
	ADD	F1BUFF, R0
	MOV	@(R5)+,	(R0)+
	JSR	PC,	CHKBUF
	MOV	@(R5)+,	(R0)+
	JSR	PC,	CHKBUF
	MOV	@R5,	R5
1$:	MOVB	(R5)+,	(R0)+
	BEQ	2$
	MOVB	(R5)+,	(R0)+
	BEQ	3$
	JSR	PC,	CHKBUF
	BR	1$
2$:	CLRB	(R0)+
3$:	JSR	PC,	CHKBUF
	SUB	F1BUFF, R0
	MOV	R0,	@F1BYTE
	RTS	PC
CHKBUF:	MOV	F1BUFF,	R1
	ADD	#512.,	R1
	CMP	R0,	R1
	BLO	1$
	MOV	R5,	-(SP)
	JSR	PC,	@#F1WRIT
	MOV	(SP)+,	R5
	INC	@F1BLK
	MOV	F1BUFF, R0
1$:	RTS	PC
F1BUFF:	.WORD	0
F1BYTE:	.WORD	0
F1BLK:	.WORD	0
	.END