P00032=0032
P00034=0034
D00044=0044
D00045=0045
D00046=0046
P00120=0120
P00125=0125
D00146=0146

	*5000
P05000,	0
	CLA CLL CML 
	TAD D05035
	DCA D05024
	TAD D05036
	DCA D05076
	TAD D00044      / Copy argument to TEMP
	DCA D05040
	TAD D00045
	DCA D05041
	TAD D00046
	DCA D05042
	DCA D00044      / Clear result
D05015,	DCA D00045
	DCA D00046
	ISZ D00044      / Increment exponent
	RTR             / Get 2000
	DCA D00045      / Set result to 1.0
L05022,	JMS I PFPP
	DCA D05040      / FMPY TEMP
D05024,	DCA D05043      / FMPY next constant
	TAD D05073      / FADD 1.0?
	0000            / FEXT
	ISZ D05024      / Point at next constant
	ISZ D05024
	ISZ D05024
	ISZ D05076      / Done them all?
	JMP L05022      / No, again
	JMP I P05000    / Yes, return
D05035,	3243
D05036,	7767
PFPP,	FPP
D05040,	0000    / TEMP
D05041,	0000
D05042,	0000
D05043,	7775    / 0.111111
	3434
	3432
	7776    / 0.125
	2000
	0000
	7776    / 0.142857
	2222
	2215
	7776    / 0.166667
	2525
	2520
	7776    / 0.200000
	3146
	3146
	7777    / 0.25
	2000
	0000
	7777    / 0.333333
	2525
	2525
	0000    / 0.5
	2000
	0000
D05073,	0001    / 1.0
	2000
	0000
D05076=5076
FPP=5600
$