STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354319
	ESBR
	SORD	2
		LITO	65535	ordinal input
	ESBR
	SORD	3
		LITO	0	Output #1
		LITO	0	Output #2
		LITO	0	Output #3
		LITO	0	Output #4
		LITO	0	Output #5
		LITO	0	Output #6
		LITO	0	Output #7
		LITO	0	Output #8
		LITO	0	Output #9
		LITO	0	Output #10
		LITO	0	Output #11
		LITO	0	Output #12
		LITO	0	Output #13
		LITO	0	Output #14
		LITO	0	Output #15
		LITO	0	Output #16
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output 1
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Output 2
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;Output 3
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;Output 4
	ESBR
	SGLB	Output/#5
		LCON	 	/*+;Output 5
	ESBR
	SGLB	Output/#6
		LCON	 	/*+;Output 6
	ESBR
	SGLB	Output/#7
		LCON	 	/*+;Output 7
	ESBR
	SGLB	Output/#8
		LCON	 	/*+;Output 8
	ESBR
	SGLB	Output/#9
		LCON	 	/*+;Output 9
	ESBR
	SGLB	Output/#10
		LCON	 	/*+;Output 10
	ESBR
	SGLB	Output/#11
		LCON	 	/*+;Output 11
	ESBR
	SGLB	Output/#12
		LCON	 	/*+;Output 12
	ESBR
	SGLB	Output/#13
		LCON	 	/*+;Output 13
	ESBR
	SGLB	Output/#14
		LCON	 	/*+;Output 14
	ESBR
	SGLB	Output/#15
		LCON	 	/*+;Output 15
	ESBR
	SGLB	Output/#16
		LCON	 	/*+;Output 16
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	For internal class use only!!
		CMNT	 	Expects: É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		PRIM	Stack/Swap	É ¥ inst/0/É
		GSYM	Logic/Input	É ¥ method/inst/0/É
		PRIM	Heap/Delegate to self	É ¥ É
	ESBR
	SGLB	Logic/Input	/3u3
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	1	É ¥ 1/inst/data/É
		LITO	2	É ¥ 2/1/inst/data/É
		PRIM	S_tree/Read	É ¥ old/inst/data/É
		PRIM	Stack/Xover	É ¥ data/old/inst/data/É
		PRIM	Ordinal/Xor	É ¥ Æ/inst/data/É
		PRIM	Stack/Xswap	É ¥ Æ/data/inst/É
		LITO	17	É ¥ 17/Æ/data/inst/É
		PRIM	Stack/Pop to aux	É/17 ¥ Æ/data/inst/É
		LCAL	DoIt	É ¥ data/inst/É
		LITO	1	É ¥ 1/data/inst/É
		LITO	2	É ¥ 2/1/data/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input	/2u2
		LITO	1
		CALL	354072
	ESBR
	SGLB	Logic/Get Output 1	/2t4,false,true
		LITO	1
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 2	/2t4,false,true
		LITO	2
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 3	/2t4,false,true
		LITO	3
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 4	/2t4,false,true
		LITO	4
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 5	/2t4,false,true
		LITO	5
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 6	/2t4,false,true
		LITO	6
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 7	/2t4,false,true
		LITO	7
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 8	/2t4,false,true
		LITO	8
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 9	/2t4,false,true
		LITO	9
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 10	/2t4,false,true
		LITO	10
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 11	/2t4,false,true
		LITO	11
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 12	/2t4,false,true
		LITO	12
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 13	/2t4,false,true
		LITO	13
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 14	/2t4,false,true
		LITO	14
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 15	/2t4,false,true
		LITO	15
		CALL	354074
	ESBR
	SGLB	Logic/Get Output 16	/2t4,false,true
		LITO	16
		CALL	354074
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Cycles through the Æ word and updates the outputs
	CMNT	 	Input:  É/index ¥ Æ/data/inst/É
	CMNT	 	Output:  É ¥ data/inst/É
	PRIM	Stack/Push from aux	É ¥ index/Æ/data/inst/É
	PRIM	Ordinal/Decrement	É ¥ index-1/Æ/data/inst/É
	PRIM	Stack/Duplicate	É ¥ index-1/index-1/Æ/data/inst/É
	BRFL	 	branch if done
		PRIM	Stack/Drop	É ¥ Æ/data/inst/É
		PRIM	Stack/Drop	É ¥ data/inst/É
	BRTR
	PRIM	Stack/Dup to aux	É/index-1 ¥ index-1/Æ/data/inst/É
	CALL	354318	É/index-1 ¥ mask/Æ/data/inst/É
	PRIM	Stack/Over	É/index-1 ¥ Æ/mask/Æ/data/inst/É
	PRIM	Stack/Over	É/index-1 ¥ mask/Æ/mask/Æ/data/inst/É
	PRIM	Ordinal/And	É/index-1 ¥ rslt/mask/Æ/data/inst/É
	BRFL	 	branch if no change on bit
		PRIM	Stack/Drop	É/index-1 ¥ Æ/data/inst/É
		LCAL	DoIt
	BRTR
	PRIM	Stack/Xover	É/index-1 ¥ data/mask/Æ/data/inst/É
	PRIM	Ordinal/And	É/index-1 ¥ rslt/Æ/data/inst/É
	BRFL	 	branch if 0
		PRIM	Stack/Rotate down	É/index-1 ¥ inst/Æ/data/É
		LITO	0	É/index-1 ¥ 0/inst/Æ/data/É
		LCAL	Send
	BRTR
	PRIM	Stack/Rotate down	É/index-1 ¥ inst/Æ/data/É
	LITO	1	É/index-1 ¥ 1/inst/Æ/data/É
	LCAL	Send
EDEF
LDEF	Send
	CMNT	 	Updates the data structure and sends the output
	CMNT	 	Input:  É/index ¥ rslt/inst/Æ/data/É
	CMNT	 	Output:  É ¥ data/inst/É
	PRIM	Stack/Dup down	É/index ¥ rslt/inst/rslt/Æ/data/É
	PRIM	Stack/Dup from aux	É/index ¥ index/rslt/inst/rslt/Æ/data/É
	LITO	3	É/index ¥ 3/index/rslt/inst/rslt/Æ/data/É
	PRIM	S_tree/Replace	É/index ¥ inst/rslt/Æ/data/É
	PRIM	Stack/Swap	É/index ¥ rslt/inst/Æ/data/É
	PRIM	Stack/Dup from aux	É/index ¥ index/rslt/inst/Æ/data/É
	LITO	15	É/index ¥ 15/index/rslt/inst/Æ/data/É
	PRIM	Ordinal/Add	É/index ¥ output#/rslt/inst/Æ/data/É
	PRIM	Misc/Send entry	É/index ¥ inst/Æ/data/É
	PRIM	Stack/Rotate up	É/index ¥ Æ/data/inst/É
	LCAL	DoIt
EDEF