log

|Calling sequence: llr ., tra log. Returns log of AC with binary point
|between bits 5 and 6. If number is zero or negative, result is original
|AC with -0 added.

reloc
entry log

log,	ial
	add (tra-llr+2
	sto xit
	laz
	trn xit		|error return if zero or negative
	llr (-307476
	com

sh,	ial		|shift AC until bit 1 is 1
	add (13056
	ial-10
	trn sh
	cyr
	sto PRD

ml,	slr LG
	llr (160000
	ana-10
	cyl
	cyl
	cyl
	cyl
	add (llr tbm
	sto gta
	add (add tbl-llr-tbm
	sto gtb
gta,	xx		|get multiplier
	slr B
	llr prd
	stz prd

mpl,	clad b		|multiply loop
	cyl
	sto b
	trn ma
	lac
	add prd
	sto prd

ma,	lac
	shr
	llr ct
	ial-10
	sto ct
	trn mpl

gtb,	xx		|increment log
	add lg
	alo
	add prd
	trn ml

dx,	add (400000
	repeat 4, shr
	lad
	com+shr-opr
xit,	xx

ct,	373737

tbm,	-204000
	-214000
	-230000
	-240000
	-260000
	-300000
	-324000
	-354000

tbl,	0374-373737
	1336-373737
	2600-373737
	3444-373737
	5061-373737
	6372-373737
	10045-373737
	11624-373737

const

17735|	vari

start
v