[NATLOG
[AUTHOR--
[M.D.MCDONALD
[LOG N BASE E
[ENTER JMP 1A
[ASSUMES DBLFLT
[IN Q2 ANDQ3.
[SEE DBLFLT
[WRITEUP FOR
[OPERATION
$400
#1A SET 17
0
CLR
ADD 7Z+1
AZE i
JMP 17
APO
JMP 17
XSK i 17
JMP 5N
-1F
ADD 7Z
ADD 7L
STC 1D+1
ADD 7K
STC 1F
JMP 5B
1F
-1D
JMP 5A
1F
1D
1G
JMP 5G
7Z
1G
1F
SET i 16
1J
JMP 2A
#1B JMP 2B
JMP 1C
JMP 5B
1G
1D
1G
JMP 5C
1G
-1F
JMP 5C
-7Z
JMP 1B
JMP 5A
1F
-1F
JMP 5G
7Z
1I
1I
#1C LDA i
0
STA
7Z+2
SCR 13
STC 7Z+1
JMP 5O
-7Z
JMP 5C
-1E
JMP 5A
-1I
JMP 17
#1D 1
2000
0
#1E 0
2613
4410
#1F 0
0
0
#1G 0
0
0
#1H 0
0
0
0
#1I 0
0
0
#1J 4
3600
0
#1K 2
2000
0
#2A SET 15
0
JMP 5N
16
-1G
JMP 5A
1G
-1G
JMP 5B
7Z
1D
1H
JMP 5N
1D
-1I
JMP 5B
-7Z
JMP 15
#2B SET 15
0
JMP 5G
-1I
JMP 5B
7Z
1H
1I
JMP 5B
1H
1K
1H
ADD 1H+1
APO i
XSK i 15
JMP 15
5A=1000
5B=1045
5C=1054
5G=1163
5N=1734
5O=1743
7K=1545
7L=1550
7Z=1731