STRE
	SGLB	Misc/Class Reference
		CLAS	354041
	ESBR
	SORD	2	variables
		LITO	0	whole part of result
		LITO	0	fractional part
	ESBR
	SORD	3	table of precomputed logs
		LITO	65535	Lg 2 = 1.0
		LITO	27199	Lg 4/3 = .41503750
		LITO	12625	Lg 8/7 = .19264508
		LITO	6102	Lg 16/15 = .09310940
		LITO	3002	Lg 32/31 = .04580369
		LITO	1489	Lg 64/63 = .02272008
		LITO	742	Lg 128/127 = .01131531
		LITO	370	Lg 256/255 = .00564656
		LITO	185	Lg 512/511 = .00282052
		LITO	92	Lg 1024/1023 = .00140957
		LITO	46	Lg 2048/2047 = .00070461
		LITO	23	Lg 4096/4095 = .00035226
		LITO	12	Lg 8192/8191 = .00017612
		LITO	6	Lg 16384/16383 = .00008806
		LITO	3	Lg 32768/32767 = .00004403
		LITO	1	Lg 65536/65535 = .00002201
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Utility/Input	/3
		CMNT	 	computes Lg(x) where x is positive
		CMNT	 	assumes that 0 < x < 1
		LITO	0	get whole list
		LITO	3	log list
		PRIM	S_tree/Read	logs/inst/x/É
		PRIM	Stack/Pop to aux	É/logs ¥ inst/x/É
		PRIM	Stack/Swap	É/logs ¥ x/inst/...
		LITO	0	É/logs ¥ 0/x/inst/...
		PRIM	Stack/Pop to aux	É/logs/0 ¥ x/inst/...
		LCAL	Normalize	É/logs ¥ normalized x/inst/...
		LITO	1	initial k
		PRIM	Stack/Pop to aux	É/logs/1 ¥ normalized x/inst/...
		LITO	0	initial result
		PRIM	Stack/Swap	É/logs/1 ¥ normalized x/0/inst/...
		PRIM	Stack/Duplicate	É/logs/1 ¥ x/x/0/inst/...
		PRIM	Ordinal/Right	É/logs/1 ¥ initial z/x/0/inst/...
		PRIM	Stack/Pop to aux	É/logs/1/initial z ¥ x/0/inst/...
		LCAL	Lg	É ¥ inst/...
		PRIM	Heap/Store self	É ¥ ...
	ESBR
	SGLB	SignalP/Get Divisor	/2u
		LITO	1	whole part index
		LITO	2	main data structure
		CALL	354086
	ESBR
	SGLB	SignalP/Get Multiplier	/2u
		LITO	2	result index
		LITO	2	main data structure
		CALL	354086
	ESBR
ESTR
LDEF	Normalize	É/0 ¥ x/inst/...
	CMNT	 	normalizes x and stores result
	LITO	32768	É/n ¥ 32768/x/inst/...
	PRIM	Ordinal/Compare	É/n ¥ x>=32768/x/inst/...
	BRFL	 	branch if not done
		PRIM	Stack/Push from aux	É ¥ n/x/inst/...
		LITO	1
		PRIM	Ordinal/Add	É ¥ n+1/x/inst/...
		PRIM	Stack/Pop to aux	É/n+1 ¥ x/inst/...
		PRIM	Ordinal/Left	É/n+1 ¥ x<<1/inst/...
		LCAL	Normalize
	BRTR
	PRIM	Stack/Swap	É/n ¥ inst/x/...
	PRIM	Stack/Push from aux	É ¥ n/inst/x/...
	LITO	1	whole part index
	LITO	2	main data
	PRIM	S_tree/Replace	É ¥ inst/x/...
	PRIM	Stack/Swap	É ¥ x/inst/...
EDEF
LDEF	Lg	É/logs/1/z ¥ x/0/inst/...
	LITO	32768	É/logs/k/z ¥ 32768/x/result/inst/...
	PRIM	Ordinal/Test equal	É/logs/k/z ¥ x=32768/x/result/inst/...
	BRFL	 	bracnh if x != 32768 (1.0)
		PRIM	Stack/Duplicate	É/logs/k/z ¥ x/x//resultinst/...
		PRIM	Stack/Dup from aux	É/logs/k/z ¥ z/x/x/result/inst/...
		PRIM	Ordinal/Subtract	É/logs/k/z ¥ x-z/x/result/inst/...
		LITO	32768	É/logs/k/z ¥ 32768/x-z/x/result/inst/...
		PRIM	Ordinal/Compare	É/logs/k/z ¥ x-z >= 32768/x-z/x/result/inst/...
		BRFL	 	branch if x-z < 32768 (1.0)
			PRIM	Stack/Drop	É/logs/k/z ¥ x/result/inst/...
			PRIM	Stack/Push from aux	É/logs/k ¥ z/x/result/inst/...
			PRIM	Stack/Push from aux	É/logs ¥ k/z/x/result/inst/...
			PRIM	Ordinal/Increment	É/logs ¥ k+1/z/x/result/inst/...
			PRIM	Stack/Pop to aux	É/logs/k+1 ¥ z/x/result/inst/...
			PRIM	Ordinal/Right	É/logs/k+1 ¥ z>>1/x/result/inst/...
			PRIM	Stack/Pop to aux	É/logs/k+1/z>>1 ¥ x/result/inst/...
			LCAL	Lg
		BRTR
		PRIM	Stack/Xdrop	É/logs/k/z ¥ x-z/result/inst/...
		PRIM	Stack/Drop from aux	É/logs/k ¥ x-z/result/inst/...
		PRIM	Stack/Push from aux	É/logs ¥ k/x-z/result/inst/...
		PRIM	Stack/Rotate down	É/logs ¥ result/k/x-z/inst/...
		PRIM	Stack/Push from aux	É ¥ logs/result/k/x-z/inst/...
		PRIM	Stack/Xover	É ¥ k/logs/result/k/x-z/inst/...
		PRIM	List/Read	É ¥ log/logs/result/k/x-z/inst/...
		PRIM	Stack/Second to aux	É/logs ¥ log/result/k/x-z/inst/...
		PRIM	Ordinal/Add	É/logs ¥ result/k/x-z/inst/...
		PRIM	Stack/Rotate up	É/logs ¥ k/x-z/result/inst/...
		PRIM	Stack/Dup to aux	É/logs/k ¥ k/x-z/result/inst/...
		PRIM	Stack/Over	É/logs/k ¥ x-z/k/x-z/result/inst/...
		LCAL	RShift	É/logs/k ¥ x-z>>k/x-z/result/inst/...
		PRIM	Stack/Pop to aux	É/logs/k/x-z>>k ¥ x-z/result/inst/...
		LCAL	Lg
	BRTR
	PRIM	Stack/Drop	É/logs/k/z ¥ result/inst/...
	PRIM	Stack/Drop from aux	É/logs/k ¥ result/inst/...
	PRIM	Stack/Drop from aux	É/logs ¥ result/inst/...
	PRIM	Stack/Drop from aux	É ¥ result/inst/...
	LITO	2	result index
	LITO	2	main data
	PRIM	S_tree/Replace	É ¥ inst/...
EDEF
LDEF	RShift	É ¥ x/k/...
	PRIM	Stack/Over	É ¥ k/x/k/...
	BRFL	 	branch if done
		PRIM	Stack/Xdrop	É ¥ x/...
	BRTR
	PRIM	Ordinal/Right	É ¥ x>>1/k/...
	PRIM	Stack/Swap	É ¥ k/x>>1/...
	PRIM	Ordinal/Decrement	É ¥ k-1/x>>1/...
	PRIM	Stack/Swap	É ¥ x>>1/k-1/...
	LCAL	RShift
EDEF