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

[EXPTD
[EXPONENTIAL OF X
[CHEBYSCHEV SERIES OF FIXED TERMS
[POLYNOMIAL EVALUATION
[CALL:
[JMP 1E
[ADDR X
[ADDR RESULT
[
[CONSTANTS FOR APPROXIMATION
 7762
3452
3015
7766
-2471
-2356
7771
2347
2531
7773
-3432
-1243
7775
3657
3530
-0
-2613
-2205
[CONSTANT ONE
 1
2000
0000
[2**N STORE
 1
2000
0000
[X STORE
 0
0
0
[TEMPORARY STORE
 0
0
0
[LOG2 E
 1
2705
1217
[ENTER E**X
#1E LDA
0
[GET RETURN LINKAGE
JMP 1X-1
ADD 1R+1
STC p+76
[SET TABLE START
LDA i
p-47
STC p+46
ADD 3
STC p+70
ADD 2
STC p+2
[X*LOG2 E
JMP 1M
ADDR X
p-21 [LOG2 E
p-30
[MOD ROUTINE TO GET
[N S.T. X=N-T
JMP 1J
p-32
p-30
LDA
p-32
AZE
JMP 1H [OVERFLOW
ADD p-35+1
APO i
ADD 1Q+1 [=1
OVF i
JMP 1H [OVERFLOW
STA
p-43+1
ADD 1Q+1 [=1
STC p-53 [EXP FOR 2**N
[FLOAT N
JMP 1I
p-47
p-50
[N-X=-T
JMP 1S
p-52
p-56
p-57
[CLEAR ACCUMULATOR
CLR
STC p-56
STC p-57+1
STC p-60+2
[LOOP
[RESULT=RESULT+TERM
JMP 1A
p-62
 TERM
p-64
[INCREMENT TABLE ADDR
LDA i
3
ADM
p-5
[RESULT=RESULT*X
JMP 1M
p-72
p-76
p-74
[DONE???
SRO i
3737
JMP p-14-2
[ADD LAST TERM
JMP 1A
p-101
p-113
p-103
[RESULT=2**N*2**-T
JMP 1M
p-105
p-114
 ADDR RESULT
 RETURN
[END EXPTD
[MJM 4-18-70