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

[EXPHS
[AFTER FLOPEXPH
[M.L.PEPPER JR.
[RAISE E TO X POWER
[HASTINGS APPROX.
[SINGLE PRECISION
[USE WITH FLOS 1D,1A,1M,1X,1R,1Q,1H,1N
[JMP 1E
[ADDR X
[ADDR RESULT E"X
[
[|X|  1E-16
0
0
[A4  1E-14
7764
2137
[A3
7767
2251
[A2
7773
2012
[A1
7775
3777
[ONE  1E-4
1 
2000
[RESULT 1E-2
0
0
#1E CLR
ADD 0
JMP 1X-1
ADD 1R+1
STC 1E+77
LDA 2 [EXP
STC 1E-16
LDA i2
APO
COM
STC 1E-15
LDA 2
COM
ROL 1
STC 1E+61
ADD 3
STC 1E+70
ADD p-5 [COM,17
STC 1E+46
[PUT 0 IN R
STC 1E-2
STC 1E-1
[SETUP POINTER
LDA i
1E-14 [ADDR A4
STC p+7
JMP p+5
[LOOP
JMP 1M
1E-2
1E-16
1E-2
JMP 1A
1E-14 [ADDR OF AS
1E-2
1E-2
[LOWER POINTER
LDA i
2
ADM
p-6
SROi
17 [1E+44
JMP p-16
JMP 1M
1E-2
1E-2
1E-2
JMP 1M
1E-2
1E-2
1E-2
[CHECK IF X IS NEG
SRO i
SIGN [1E+57
JMP p+5
[RECIPROCAL
JMP 1D
1E-4
1E-2
1E-2
SET i3
ADDR RESULT [1E+66
LDA
1E-2
STA 3
LDA
1E-1
STA i3
JMP RETURN
[END EXPHS
[JAN 8|16|69