Directory of image this file is from
This file as a plain text file

[EXPHD
[AFTER FLOPEXPH
[M.L.PEPPER JR.
[RAISE E TO X POWER
[DOUBLE PRECISION
[HASTINGS APROX.
[USE WITH FLOD 1D,1A,1M,1X,1R,1Q,1H,1N
[JMP 1E
[ADDR X
[ADDR RESULT E"X
[
[|X|
0
0
0
[A4
7764
2137
2533
[A3
7767
2251
3545
[A2
7773
2012
3775
[A1
7775
3777
1040
[ONE
0001
2000
0000
[RESULT
0
0
0
[ENTER
#1E CLR
ADD 0
JMP 1X-1
LDA
1R+1
STC 1E+111
LDA 2
STC 1E-25
LDA i2
APO
COM
STC 1E-24
LDA 2
COM
ROL 1
STC 1E+70
LDA i2
APO
COM
STC 1E-23
ADD 3
STC 1E+77
LDA i
0017
STC p+25
[PUT 0 IN R
STC 1E-3
STC 1E-2
STC 1E-1
[SET UP POINTER
LDA i
1E-22
STC p+7
JMP p+5
[LOOP
JMP 1M
1E-3
1E-25
1E-3
JMP 1A
1E-22
1E-3
1E-3
[  LOWER POINTER
LDA i
3
ADM
p-6
SRO i
XXX
JMP p-16
JMP 1M
1E-3
1E-3
1E-3
JMP 1M
1E-3
1E-3
1E-3
[CHECK IF X IS NEG
SRO i
XXX
JMP p+5
[RECIPROCAL
JMP 1D
1E-6
1E-3
1E-3
SET i3
XXX
LDA
1E-3
STA 3
LDA
1E-2
STA i3
LDA
1E-1
STA i3
JMP p
[END EXPHD
[MLP 1|24|68