.PSECT	BUFFWR
BUFFWR:: TST	(R5)+
	MOV	(R5)+,	F2BYTE
	MOV	(R5)+,	F2BUFF
	MOV	(R5)+,	F2BLK
	MOV	(R5)+,	BUFFER
	MOV	@F2BYTE, R0
	ADD	F2BUFF, R0
	MOV	@(R5)+,	(R0)+
	JSR	PC,	CHKBF2
	MOV	@(R5)+,	(R0)+
	JSR	PC,	CHKBF2
	MOV	@(R5)+,	R5
	MOV	R5,	(R0)+
	JSR	PC,	CHKBF2
	MOV	BUFFER, R1
1$:	MOV	(R1)+,	(R0)+
	JSR	PC,	CHKBF2
	DEC	R5
	BNE	1$
	SUB	F2BUFF, R0
	MOV	R0,	@F2BYTE
	RTS	PC

CHKBF2:	MOV	F2BUFF,	R2
	ADD	#512.,	R2
	CMP	R0,	R2
	BLO	1$
	MOV	R5,	-(SP)
	MOV	R1,	-(SP)
	JSR	PC,	@#F2WRIT
	MOV	(SP)+,	R1
	MOV	(SP)+,	R5
	INC	@F2BLK
	MOV	F2BUFF, R0
1$:	RTS	PC
F2BYTE:	.WORD	0
F2BUFF:	.WORD	0
F2BLK:	.WORD	0
BUFFER:	.WORD	0

	.PSECT	ONUMB
ONUMB::	MOV	@2(R5),	R1
	MOV	4(R5),	R3
	MOV	@6(R5),	R2
	ADD	R2,	R3
1$:	CLR	R0
	DIV	#10.,	R0
	BIS	#60,	R1
	MOVB	R1,	-(R3)
	MOV	R0,	R1
	SOB	R2,	1$
	RTS	PC
	.END