/
/ VERSION 5A 4-27-77  PT
/
	SECT	DIM
	ENTRY	IDIM
	JA	#ST
#XR,	ORG	.+10
#BASE,	ORG	.+3
A,	ORG	.+3
B,	ORG	.+3
	BASE	#BASE
IDIM,
#ST,	STARTD
	0210
	FSTA	#RTN,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FLDA%	#BASE,1+
	FSTA	A
	FLDA%	#BASE,1+
	FSTA	B
	STARTF
	FLDA%	A
	FSUB%	B
	JGE	#RTN
	FCLA
#RTN,	JA	.
	END