STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354370
	ESBR
	SORD	2
		LITO	0	ordinal output
		LVAL	0	value input
		LITO	39999	/o;Value Scaling (0 to 65535)
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;D0 B0 Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;D0 B1 Output
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;D0 B2 Output
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;D0 B3 Output
	ESBR
	SGLB	Output/#5
		LCON	 	/*+;D1 B0 Output
	ESBR
	SGLB	Output/#6
		LCON	 	/*+;D1 B1 Output
	ESBR
	SGLB	Output/#7
		LCON	 	/*+;D1 B2 Output
	ESBR
	SGLB	Output/#8
		LCON	 	/*+;D1 B3 Output
	ESBR
	SGLB	Output/#9
		LCON	 	/*+;D2 B0 Output
	ESBR
	SGLB	Output/#10
		LCON	 	/*+;D2 B1 Output
	ESBR
	SGLB	Output/#11
		LCON	 	/*+;D2 B2 Output
	ESBR
	SGLB	Output/#12
		LCON	 	/*+;D2 B3 Output
	ESBR
	SGLB	Output/#13
		LCON	 	/*+;D3 B0 Output
	ESBR
	SGLB	Output/#14
		LCON	 	/*+;D3 B1 Output
	ESBR
	SGLB	Output/#15
		LCON	 	/*+;D3 B2 Output
	ESBR
	SGLB	Output/#16
		LCON	 	/*+;D3 B3 Output
	ESBR
	SGLB	Output/#17
		LCON	 	/*+;D4 B0 Output
	ESBR
	SGLB	Output/#18
		LCON	 	/*+;D4 B1 Output
	ESBR
	SGLB	Output/#19
		LCON	 	/*+;D4 B2 Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Logic/Ordinal Input	/3u;Enter data (0 to 65535)
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	1	É ¥ 1/inst/arg/É
		LITO	2	É ¥ 2/1/inst/arg/É
		PRIM	S_tree/Read	É ¥ old/inst/arg/É
		PRIM	Stack/Xswap	É ¥ old/arg/inst/É
		PRIM	Ordinal/Test equal	É ¥ rslt/arg/inst/É
		BRFL	 	branch if not equal
			PRIM	Stack/Dup down	É ¥ 1/arg/inst/arg/É
			LITO	1	É ¥ 1/arg/inst/arg/É
			LITO	2	É ¥ 2/1/arg/inst/arg/É
			PRIM	S_tree/Replace	É ¥ inst/arg/É
			PRIM	Stack/Swap	É ¥ arg/inst/É
			LITO	19	É ¥ 19/arg/inst/É
			LCAL	loop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Value Input	/3v8,-100,100,0,100;Enter data (0% to 100%)
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		LITO	2	É ¥ 2/arg/inst/arg/É
		LITO	2	É ¥ 2/2/arg/inst/arg/É
		PRIM	S_tree/Replace	É ¥ inst/arg/É
		LITO	3	É ¥ 3/inst/arg/É
		LITO	2	É ¥ 2/3/inst/arg/É
		PRIM	S_tree/Read	É ¥ factor/inst/arg/É
		PRIM	Stack/Xswap	É ¥ factor/arg/inst/É
		PRIM	Misc/Value to ordinal	É ¥ ordinal/inst/É
		PRIM	Stack/Swap	É ¥ inst/ordinal/É
		GSYM	Logic/Ordinal Input	É ¥ method/inst/ordinal/É
		PRIM	Heap/Delegate to self
	ESBR
	SGLB	Logic/Get Output	/2u2
		LITO	1
		CALL	354072
	ESBR
	SGLB	Logic/Get Value Input	/2v6,-100,100;%3.2f%%
		LITO	2
		CALL	354072
	ESBR
ESTR
LDEF	loop
	CMNT	 	Performs the core loop for the ordinal to BCD conversion
	CMNT	 	Input:  É ¥ index/work/inst/É
	CMNT	 	Output: É ¥ inst/É
	PRIM	Stack/Dup down	É ¥ index/work/index/inst/É
	LCAL	weight	É ¥ weight/work/index/inst/É
	LCAL	DoIt	É ¥ bit/work'/index/inst/É
	PRIM	Stack/Second to aux	É/work' ¥ bit/index/inst/É
	PRIM	Stack/Swap	É/work' ¥ index/bit/inst/É
	PRIM	Stack/Dup to aux	É/work'/index ¥ index/bit/inst/É
	LITO	15	É/work'/index ¥ 15/index/bit/inst/É
	PRIM	Ordinal/Add	É/work'/index ¥ out#/bit/inst/É
	PRIM	Misc/Send entry	É/work'/index ¥ inst/É
	PRIM	Stack/Push from aux	É/work' ¥ index/inst/É
	PRIM	Stack/Push from aux	É ¥ work'/index/inst/É
	PRIM	Stack/Swap	É ¥ index/work'/inst/É
	PRIM	Ordinal/Decrement	É ¥ index-1/work'/inst/É
	PRIM	Stack/Duplicate	É ¥ index-1/index-1/work'/inst/É
	BRFL	 	branch if done
		PRIM	Stack/Drop	É ¥ work'/inst/É
		PRIM	Stack/Drop
	BRTR
	LCAL	loop
EDEF
LDEF	weight
	CMNT	 	Given an index, returns the BCD weight
	CMNT	 	Input:  É ¥ index/É
	CMNT	 	Output:  É ¥ weight/É
	STRE
		SORD	1
			LITO	1
		ESBR
		SORD	2
			LITO	2
		ESBR
		SORD	3
			LITO	4
		ESBR
		SORD	4
			LITO	8
		ESBR
		SORD	5
			LITO	10
		ESBR
		SORD	6
			LITO	20
		ESBR
		SORD	7
			LITO	40
		ESBR
		SORD	8
			LITO	80
		ESBR
		SORD	9
			LITO	100
		ESBR
		SORD	10
			LITO	200
		ESBR
		SORD	11
			LITO	400
		ESBR
		SORD	12
			LITO	800
		ESBR
		SORD	13
			LITO	1000
		ESBR
		SORD	14
			LITO	2000
		ESBR
		SORD	15
			LITO	4000
		ESBR
		SORD	16
			LITO	8000
		ESBR
		SORD	17
			LITO	10000
		ESBR
		SORD	18
			LITO	20000
		ESBR
		SORD	19
			LITO	40000
		ESBR
	ESTR
EDEF
LDEF	DoIt
	CMNT	 	Compares the working value with the weight
	CMNT	 	updates the working value and returns the bit
	CMNT	 	Input:  É ¥ weight/work/index/É
	CMNT	 	Output:  É ¥ bit/work'/index/É
	PRIM	Stack/Dup down	É ¥ weight/work/weight/index/É
	PRIM	Ordinal/Compare	É ¥ rslt/work/weight/index/É
	BRFL	 	branch if work<weight
		PRIM	Stack/Xdrop	É ¥ work/index/É
		LITO	0	É ¥ 0/work/index/É
	BRTR
	PRIM	Ordinal/Difference	É ¥ work'/index/É
	LITO	1	É ¥ 1/work'/index/É
EDEF