STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354370
	ESBR
	SORD	2
		LITO	0	input
	ESBR
	SORD	3
		LITO	0	Output #1
		LITO	0	Output #2
		LITO	0	Output #3
		LITO	0	Output #4
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;LSB Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;3SB Output
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;2SB Output
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;MSB Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	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	5	É ¥ 5/Æ/data/inst/É
		PRIM	Stack/Pop to aux	É/5 ¥ Æ/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 LSB	/2t4,false,true
		LITO	1
		CALL	354074
	ESBR
	SGLB	Logic/Get 3SB	/2t4,false,true
		LITO	2
		CALL	354074
	ESBR
	SGLB	Logic/Get 2SB	/2t4,false,true
		LITO	3
		CALL	354074
	ESBR
	SGLB	Logic/Get MSB	/2t4,false,true
		LITO	4
		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