STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354317
	ESBR
	SORD	2
		LITO	0	Input #1
		LITO	0	Input #2
		LITO	0	Input #3
		LITO	0	Input #4
		LITO	0	Input #5
		LITO	0	Input #6
		LITO	0	Input #7
		LITO	0	Input #8
		LITO	0	Input #9
		LITO	0	Input #10
		LITO	0	Input #11
		LITO	0	Input #12
		LITO	0	Input #13
		LITO	0	Input #14
		LITO	0	Input #15
		LITO	0	Input #16
	ESBR
	SORD	3
		LITO	0	ordinal output
	ESBR
	SGLB	Output/#1	direct outputs
		LCON	 	/*+;Output
	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/É
		GSYM	Output/#1	É ¥ #1/0/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Logic/Input 1	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	1	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 1	/2t4,false,true
		LITO	1
		CALL	354072
	ESBR
	SGLB	Logic/Input 2	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	2	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 2	/2t4,false,true
		LITO	2
		CALL	354072
	ESBR
	SGLB	Logic/Input 3	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	3	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 3	/2t4,false,true
		LITO	3
		CALL	354072
	ESBR
	SGLB	Logic/Input 4	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	4	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 4	/2t4,false,true
		LITO	4
		CALL	354072
	ESBR
	SGLB	Logic/Input 5	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	5	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 5	/2t4,false,true
		LITO	5
		CALL	354072
	ESBR
	SGLB	Logic/Input 6	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	6	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 6	/2t4,false,true
		LITO	6
		CALL	354072
	ESBR
	SGLB	Logic/Input 7	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	7	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 7	/2t4,false,true
		LITO	7
		CALL	354072
	ESBR
	SGLB	Logic/Input 8	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	8	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 8	/2t4,false,true
		LITO	8
		CALL	354072
	ESBR
	SGLB	Logic/Input 9	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	9	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 9	/2t4,false,true
		LITO	9
		CALL	354072
	ESBR
	SGLB	Logic/Input 10	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	10	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 10	/2t4,false,true
		LITO	10
		CALL	354072
	ESBR
	SGLB	Logic/Input 11	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	11	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 11	/2t4,false,true
		LITO	11
		CALL	354072
	ESBR
	SGLB	Logic/Input 12	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	12	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 12	/2t4,false,true
		LITO	12
		CALL	354072
	ESBR
	SGLB	Logic/Input 13	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	13	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 13	/2t4,false,true
		LITO	13
		CALL	354072
	ESBR
	SGLB	Logic/Input 14	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	14	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 14	/2t4,false,true
		LITO	14
		CALL	354072
	ESBR
	SGLB	Logic/Input 15	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	15	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 15	/2t4,false,true
		LITO	15
		CALL	354072
	ESBR
	SGLB	Logic/Input 16	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	16	É ¥ ref/inst/data/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Input 16	/2t4,false,true
		LITO	16
		CALL	354072
	ESBR
	SGLB	Logic/Get Output	/2u2
		LITO	1
		CALL	354074
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Handles an input
	CMNT	 	Input:  É ¥ ref/inst/data/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Dup to aux	É/ref ¥ ref/inst/data/É
	LITO	2	É/ref ¥ 2/ref/inst/data/É
	PRIM	S_tree/Read	É/ref ¥ old/inst/data/É
	PRIM	Stack/Xswap	É/ref ¥ old/data/inst/É
	BRFL	 	branch if old=0
		BRFL	 	branch if new=0
			PRIM	Stack/Drop from aux	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		CMNT	 	old=0,  new=1
		LITO	1	É/ref ¥ 1/inst/É
		LCAL	Set&Get	É ¥ mask/output/inst/É
		PRIM	Ordinal/Add	É ¥ output'/inst/É
		LCAL	Send	É ¥ É
	BRTR
	BRFL	 	branch if new=0
		CMNT	 	old=1,  new=0
		LITO	0	É/ref ¥ 0/inst/É
		LCAL	Set&Get	É ¥ mask/output/inst/É
		PRIM	Ordinal/Subtract	É ¥ output'/inst/É
		LCAL	Send	É ¥ É
	BRTR
	PRIM	Stack/Drop from aux	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Set&Get
	CMNT	 	Sets the input data and gets the output data
	CMNT	 	Input:  É/ref ¥ data/inst/É
	CMNT	 	Output:  É ¥ mask/output/inst/É
	PRIM	Stack/Dup from aux	É/ref ¥ ref/1/inst/É
	LITO	2	É/ref ¥ 2/ref/1/inst/É
	PRIM	S_tree/Replace	É/ref ¥ inst/É
	LITO	1	É/ref ¥ 1/inst/É
	LITO	3	É/ref ¥ 3/1/inst/É
	PRIM	S_tree/Read	É/ref ¥ output/inst/É
	PRIM	Stack/Push from aux	É ¥ ref/output/inst/É
	CALL	354318	É ¥ mask/output/inst/É
EDEF
LDEF	Send
	CMNT	 	Stores the new output and sends it
	CMNT	 	Input:  É ¥ output'/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Dup down	É ¥ output'/inst/output'/É
	LITO	1	É ¥ 1/output'/inst/output'/É
	LITO	3	É ¥ 3/1/output'/inst/output'/É
	PRIM	S_tree/Replace	É ¥ inst/output'/É
	PRIM	Stack/Swap	É ¥ output'/inst/É
	GSYM	Output/#1	É ¥ #1/output'/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF