[LOGPRINT
SETi1
0
#1A LDAi
215
OPRi2
LDAi
212
OPRi2
LDA
1
JMP 1P
LDAi
240
OPRi2
SROi
3567
JMP p-5
LDA
1
JMP 7E
JMP 1P
XSKi1
JMP 1A
HLT
HLT
JMP 20
[PRINT
#1P SET 17
0
STC p+2
LDAi
0000
ROL 3
STA
p-3
BCLi
7770
ADAi
260
OPRi2
SROi
3567
JMP 1P+3
JMP 17
[LOGBASE2
[SUBROUTINE AJH
[26 MARCH 71 VERSION
[ON ENTRY, VALUE IN ACCUM.
[ENTRY - JMP 7E
[EXITS WITH LOG BASE 2 IN ACCUM.
[   6 BITS +  6 BITS
[ MANTISSA + CHARACTERISTIC
[VALUE DIVIDED BY 8
[ALL NEG. VALUES SET TO ZERO
[ 
#7E APO
CLR       [NEG. VALUES SET TO ZERO
STC p+25  [SAVE VALUE
ADD 0
STC p+30  [SAVE RETURN JMP
ADD 17
STC p+23  [SAVE REG 17 CONTENT
SETi17
-11
CLR       [CLEAR LINK
ADD p+15  [LOAD VALUE
XSKi17
JMP p+2
JMP p+4
ROLi1
LZEi
JMP p-5
ROL 6
STC p+5   [SAVE CHARACTERISTIC
LDA
17
COM       [MANTISSA
STHi
0000      [ORIGINAL VALUE, LATER LOG BASE 2
LDAi
0000      [CONTENTS REG 17
STC 17    [RESTORED
ADD p-4
JMP 0000  [RETURN JMP
[ 
[END SUBROUTINE LOGBASE2
[LOGPRINT