5 / VERSION 5A 4-26-77 MH
13 /AND M+N+R=M+F=X*LOG2(E)
15 /(2^M)*(2^N)*(2^R)=E^X
17 /2^M IS CALCULATED BY SUCCESSIVE MULTIPLIES
18 /2^N IS CALCULATED BY LOOK UP
19 /2^R=1+<A4/((B4/R)-C4+(D4*R)+(H4/(R+(B4/R))))>
24 /X>88.028 IMPLIES E^X=3377/3377/3777/7777/777/7777
26 /X<-88.028 IMPLIES E^X=0
38 /BEGINNING OF BASE PAGE
63 LOG2E, 0001 /1.4426950408889634
122 DEXA4, 0006 /60.593191717336463
128 DEXB4, 0007 /87.417497202235527
134 DEXC4, 0005 /30.296595858668232
146 DEXH4, 0010 /214.17286814547704
166 LDX 73,2 /FOR ALIGNING
168 FLDA% BPDEXP,1 /ADDRESS OF X
182 JA DEXRTN /RETURN 0 FOR TOO SMALL
184 /SET UP M+N+R=X*LOG2(E)
194 JNE DEX50 /0 IS SPECIAL CASE
203 FSTA R /IF < .125 ALREADY
204 DEX5, FSUB DFP125 /-.125
205 JLT DEX6 /DONE IF .LT.
206 FSTA R /STORE REMAINDER
207 ADDX 1,1 /NEXT POWER OF 2
219 JA DEX20 /NO CALCULATION
261 JXN DEX31,0 /WAS X MINUS
263 DEX31, FLDA DEXFP1 /.1/X IF -X