SECT	A5TOA1
	JA	#ST
#XR,	ORG	.+10
	TEXT	+A5TOA1+
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
A,	ORG	.+3
B,	ORG	.+3
D,	ORG	.+3
FOUR,	F 4.0
BLANK,	TEXT +      +
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
#RTN,	BASE	#BASE
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FLDA%	#BASE,1+
	FSTA	A
	FLDA%	#BASE,1+
	FSTA	B
	FLDA%	#BASE,1+
	FSTA	D
	STARTF
	FLDA%	A
	FSUB	BLANK
	JEQ	#G0001
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	FOUR
	JA	#3
	FLDA%	A
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO
#G0001,	FLDA%	B
	FSUB	BLANK
	JEQ	#G0002
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	FOUR
	JA	#1
	FLDA%	B
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO
#G0002,	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	FOUR
	JA	#2
	FLDA%	D
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO
	JA	#RTN

#1,	5047
	5347
	5401
	6254
	4451

#2,	5047
	5347
	5401
	6251

#3,	5047
	5347
	5401
	6454
	4451

	END