SECT	BITSET
	JA	#ST
#XR,	ORG	.+10
	TEXT	+BITSET+
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
L,	ORG	.+3
N,	ORG	.+3
I,	ORG	.+3
ITEST,	ORG	.+3
TWO,	F 2.0
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
POWERS,	ORG	.+0060
	#LBL=.
	COMMON	MISCOM
LINUSE,	ORG	.+0003
ITRVS,	ORG	.+0003
ICLSES,	ORG	.+0003
IOLDLC,	ORG	.+0003
LOC,	ORG	.+0003
CVAL,	ORG	.+0044
TK,	ORG	.+0074
NEWLOC,	ORG	.+0003
KEY,	ORG	.+0702
PLAC,	ORG	.+0454
FIXD,	ORG	.+0454
ACTSPK,	ORG	.+0151
COND,	ORG	.+0702
	ORG	#LBL
#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	L
	FLDA%	#BASE,1+
	FSTA	N
	STARTF
	#G0001=.
	ORG	POWERS+0000
	0002;2000;0000
	0003;2000;0000
	0004;2000;0000
	0005;2000;0000
	0006;2000;0000
	0007;2000;0000
	0010;2000;0000
	0011;2000;0000
	0012;2000;0000
	0013;2000;0000
	0014;2000;0000
	0015;2000;0000
	0016;2000;0000
	0017;2000;0000
	0020;2000;0000
	0021;2000;0000
	ORG	#G0001
	FLDA%	L
	ATX	7
	FLDA	COND-0003,7
	FSTA	ITEST
	FLDA	I
	JEQ	#10
	FLDA%	N
	ATX	7
	FLDA	ITEST
	FDIV	POWERS-0003,7
	EXTERN	#FIX
	JSA	#FIX
	FSTA	ITEST

#10,	FLDA	ITEST
	FDIV	TWO
	EXTERN	#FIX
	JSA	#FIX
	FMUL	TWO
	FSUB	ITEST
	EXTERN	#NE
	JSA	#NE
	JA	#RTN
	END