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

[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