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

[LOGTD
[LOGARITHMS TO BASE 2,E,10
[BY POLYNOMIAL APPROXIMATION
[USES XR 1,2,3,4
[CALL:
[JMP 1L FOR LN, 1C FOR LOG10, 1U FOR LOG2
[ADDR X
[ADDR RESULT
[
[CONSTANTS FOR APPROXIMATION
 2
5530
6111
4
3755
1254
6
5003
4640
7
2507
537
7
4774
5635
7
2244
2533
6
5377
4122
5
2023
3253
3
5623
4275
[CONSTANT ONE
 1
2000
0000
[LN 2
 -0
2613
2206
[LOG10 2
 -1
2321
0046
[X STORE
 0
0
0
[RESULT ACCUMULATOR
 0
0
0
[EXPONENT STORE
 0
0
[ENTER LOG2
#1U LDA i
p-22
STC p+70
ADD 0
JMP 1X-1
ADD 1R+1
STC p+66
[MOVE X TO STORE
LDA 2
STA
p-13+1
[INSURE BOTH EXPONENTS WORDS HAVE SAME SIGN
SCR 13
STC p-15
[CLEAR FRACTION EXPONENT
STC  p-24
[MOVE FRACTION
[TAKE ABSOLUTE VALUE
LDA i2
APO
COM
STC p-30+1
LDA i2
APO
COM
STC p-34+2
ADD 3
STC p+45
[CLEAR ACCUMULATOR
STC p-34
STC p-35+1
STC p-36+2
[SET TABLE START ADDR
LDA i
p-107
STC p+5
SET i4
-10
[LOOP
[RESULT=RESULT+TERM
 JMP 1A
p-45
 0 [TERM
p-47
[RESULT=RESULT*X
JMP 1M
p-51
p-55
p-53
[INCREMENT TABLE ADDR
LDA i
3
ADM
p-11
[DONE?
XSK i4
JMP p-15 [LOOP
[ADD LAST TERM
JMP 1A
p-63
p-100-3
p-65
[FLOAT EXPONENT
JMP 1I
p-64
p-73
[ADD EXPONENT TO RESULT
JMP 1A
p-75
p-73
p-74
[MULTIPLY BY FACTOR AND MOVE TO RESULT
JMP 1M
p-76
 0 [ADDR FACTOR
 0 [ADDR FACTOR
 JMP [RETURN
[ENTER LN X
#1L LDA i
p-114 [ADDR LN 2
STC p-5
ADD 0
JMP 1U+4
[ENTER LOG10 X
#1C LDA i
p-116 [ADDR LOG10 2
STC p-12
ADD 0
JMP 1U+4
[END LOGTD
[MJM 4-17-70
[MJM 4-15-71