8 / VERSION 5A 4-27-77 PT
65 FLDA% BPEXP,1 /ADDR OF X
69 LDX -1,0 /PRESERVE SIGN.
71 FNEG /IF NEGATIVE NEGATE IT.
72 LDX 0,0 /AND REMEMBER IT,BUBBY.
73 FMUL EXP2E /MULTIPLY TO BINARY TYPE.
74 FSTA EXP1 /AND SAVE IT AWAY.
75 JAL EXPER /CAN T FIX IT, ERROR.
77 FSTA EXP33 /AND SAVE IT.
78 FNORM /NOW NORMALIZE FOR OUR COMPUTATIONS.
80 FADD EXP1 /ADD IN BEFORE NORMAL.
81 FSTA EXP1 /AND STORE BACK. NO FADDM
82 FMUL EXP1 /NOW SQUARE IT.
83 FSTA EXP2 /AND SAVE IT.
84 FADD EXPDF /START THE ITERATION.
85 FSTA EXP4 /SAVE IN ANOTHER TEMP.
86 FLDA EXPCF /NEXT CONSTANT.
87 FDIV EXP4 /AND DIVIDE INTO IT.
88 FSUB EXP1 /SUBTRACT BACK NOW.
89 FADD EXPAF /NEXT CONSTANT.
90 FSTA EXP4 /AND SAVE AGAIN. KEEP THIS UP.
98 FSTA EXPFUD /NOW FIDDLE THE EXPONENT.
101 FADDM EXPFUD-1 /EXPONENT UPDATE.
103 JXN EXPP,0 /NO INVERSION NECESSARY. RETURN.
104 FLDA F1EXP /INVERT IT
107 EXPP, FLDA EXPFUD /AN EXIT.