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

[LOGHD
[AFTER FLOPLOGH
[M.L. PEPPER JR.
[LOG BASE B OF X
[HASTINGS APPROX.
[USES FLOD-1R 1A,1M,1S,1I,1X,1R,1N,1Q,1H
[JMP 1L
[ADDR X
[ADDR RESULT LN X
[
[LN 2
0000 [1L-33
2613
2206
[TEMP
0    [1L-30
0
0
[X
0    [1L-25
0
0
[A4
7773 [1L-22
4172
7125
[A3
7775
3470
2550
[A2
7776
4165
6366
[A1
0000
3772
3041
[ONE
0001 [1L-6
2000
0000
[RESULT
0    [1L-3
0
0
[BASE E
#1L CLR
ADD 0
JMP 1X-1
ADD 1Q+1 [+1
STA
1L-25
COM
ADA 2 [EXPONENT
STA   [-1
1L-1
SCR 13
STC 1L-2
ADD 1R+1
[SAVE RETURN
STC 1L+75
LDAi 2[LEFT HALF
AZE
APO
HLT
STC 1L-24
LDA i 2 [RIGHT
STC 1L-23
ADD 3
STC 1L+74
JMP 1I [FLOAT K
1L-2
1L-3
JMP 1M
1L-3
1L-33
1L-30 [K LN2
JMP 1S
1L-25
1L-6 [C-1=X
1L-25
LDA i
7   [N=4
STC 1L+67
STC 1L-3
STC 1L-2 [R=0.0
STC 1L-1
LDA i [SET POINTER
1L-22 [TO A4
STC p+2 [*+16
[LOOP
JMP 1A [R=R+A[N]
XXX [*-2,*+11
1L-3
1L-3
JMP 1M [R=R*X
1L-25
1L-3
1L-3
LDA i
3
ADD p-11
SRO i [N=N-1
7 [1L+67
JMP p-16
JMP 1A
1L-30
1L-3
ADDR RESULT [1L+74
JMP RETURN [1L+75
[BASE 10
#1C CLR
ADD 0
JMP 1X-1
LDA i
1C+24
STC 1C+21
ADD 1R+1
STC 1C+23
ADD 2
STC p+4
ADD 3
STC p+7
JMP 1L [LN X
ADDR X
1L-30
JMP 1D [LN X | LN B
1L-30
ADDR LN B
ADDR RESULT
JMP RETURN
2 [LN 10
2232
3545
[BASE 2
#1U CLR
ADD 0
JMP 1X-1
LDA i
1L-33 [ADDR LN 2
JMP 1C+5
[END LOGHD
[JAN 8|19|69
[MOD: MJM 3-11-70