STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354493
	ESBR
	SORD	2	ordinal input
		LITO	65535	ordinal input
	ESBR
	SORD	3	ordinal output
		LITO	0	ordinal output
	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
	SGLB	Output/#17	ordinal out conns
		LCON	 	/*+;Ordinal 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/É
		PRIM	Stack/Swap	É ¥ inst/0/É
		GSYM	Logic/Ordinal Input	É ¥ method/inst/0/É
		PRIM	Heap/Delegate to self	É ¥ É
	ESBR
	SGLB	Logic/Ordinal 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	DoOrdIn	É ¥ 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 Ordinal Input	/2u2
		LITO	1
		CALL	354072
	ESBR
	SGLB	Logic/Get Ordinal Output	/2u2
		LITO	1
		CALL	354074
	ESBR
	SGLB	Logic/Get Output  1	/2t4,false,true
		LITO	1
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  2	/2t4,false,true
		LITO	2
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  3	/2t4,false,true
		LITO	3
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  4	/2t4,false,true
		LITO	4
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  5	/2t4,false,true
		LITO	5
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  6	/2t4,false,true
		LITO	6
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  7	/2t4,false,true
		LITO	7
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  8	/2t4,false,true
		LITO	8
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output  9	/2t4,false,true
		LITO	9
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output 10	/2t4,false,true
		LITO	10
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output 11	/2t4,false,true
		LITO	11
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output 12	/2t4,false,true
		LITO	12
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output 13	/2t4,false,true
		LITO	13
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output 14	/2t4,false,true
		LITO	14
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output 15	/2t4,false,true
		LITO	15
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Get Output 16	/2t4,false,true
		LITO	16
		LCAL	GetOutBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  1	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	1	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  1	/2t4,false,true
		LITO	1
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  2	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	2	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  2	/2t4,false,true
		LITO	2
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  3	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	3	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  3	/2t4,false,true
		LITO	3
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  4	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	4	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  4	/2t4,false,true
		LITO	4
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  5	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	5	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  5	/2t4,false,true
		LITO	5
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  6	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	6	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  6	/2t4,false,true
		LITO	6
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  7	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	7	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  7	/2t4,false,true
		LITO	7
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  8	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	8	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  8	/2t4,false,true
		LITO	8
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit  9	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	9	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit  9	/2t4,false,true
		LITO	9
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit 10	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	10	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit 10	/2t4,false,true
		LITO	10
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit 11	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	11	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit 11	/2t4,false,true
		LITO	11
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit 12	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	12	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit 12	/2t4,false,true
		LITO	12
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit 13	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	13	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit 13	/2t4,false,true
		LITO	13
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit 14	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	14	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit 14	/2t4,false,true
		LITO	14
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit 15	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	15	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit 15	/2t4,false,true
		LITO	15
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
	SGLB	Logic/Input Bit 16	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	16	É ¥ ref/inst/data/É
		LCAL	DoInBit
	ESBR
	SGLB	Logic/Get Input Bit 16	/2t4,false,true
		LITO	16
		LCAL	GetInBit	É ¥ logic/inst/É
		CALL	354056
	ESBR
ESTR
LDEF	DoOrdIn
	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	DoOrdIn
	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	SendBitOut
	BRTR
	PRIM	Stack/Rotate down	É/index-1 ¥ inst/Æ/data/É
	LITO	1	É/index-1 ¥ 1/inst/Æ/data/É
	LCAL	SendBitOut
EDEF
LDEF	SendBitOut
	CMNT	 	Updates the data structure and sends the output
	CMNT	 	Input:  É/index ¥ rslt/inst/Æ/data/É
	CMNT	 	Output:  É ¥ data/inst/É
	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	DoOrdIn
EDEF
LDEF	DoInBit
	CMNT	 	Handles an input
	CMNT	 	Input:  É ¥ ref/inst/data/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Dup to aux	É/ref ¥ ref/inst/data/É
	LCAL	GetInBit	É/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
		LCAL	GetMask&Outord	É ¥ mask/output/inst/É
		PRIM	Ordinal/Add	É ¥ output'/inst/É
		LCAL	SendNewOutord	É ¥ É
	BRTR
	BRFL	 	branch if new=0
		CMNT	 	old=1,  new=0
		LCAL	GetMask&Outord	É ¥ mask/output/inst/É
		PRIM	Ordinal/Subtract	É ¥ output'/inst/É
		LCAL	SendNewOutord	É ¥ É
	BRTR
	PRIM	Stack/Drop from aux	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	GetMask&Outord
	CMNT	 	Sets the input data and gets the output data
	CMNT	 	Input:  É/ref ¥ inst/É
	CMNT	 	Output:  É ¥ mask/output/inst/É
	LITO	1	É/ref ¥ 1/inst/É
	LITO	3	É/ref ¥ key/1/inst/É
	PRIM	S_tree/Read	É/ref ¥ output/inst/É
	PRIM	Stack/Push from aux	É ¥ ref/output/inst/É
	CALL	354318	É ¥ mask/output/inst/É
EDEF
LDEF	SendNewOutord
	CMNT	 	Stores the new output ordinal 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/#17
	PRIM	Misc/Send entry	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	GetInBit
	CMNT	 	Extracts an in bit from the current out ordinal
	CMNT	 	Input:  É ¥ ref/inst/É
	CMNT	 	Output:  É ¥ logic/inst/É
	PRIM	Stack/Pop to aux	É/ref ¥ inst/É
	LITO	1	É/ref ¥ 1/inst/É
	LITO	3	É/ref ¥ 3/1/inst/É
	LCAL	IKToLogic	É ¥ logic/inst/É
EDEF
LDEF	GetOutBit
	CMNT	 	Extracts an out bit from the current in ordinal
	CMNT	 	Input:  É ¥ ref/inst/É
	CMNT	 	Output:  É ¥ logic/inst/É
	PRIM	Stack/Pop to aux	É/ref ¥ inst/É
	LITO	1	É/ref ¥ 1/inst/É
	LITO	2	É/ref ¥ 2/1/inst/É
	LCAL	IKToLogic	É ¥ logic/inst/É
EDEF
LDEF	IKToLogic
	CMNT	 	Extracts an in bit from the current out ordinal
	CMNT	 	Input:  É/ref ¥ index/key/inst/É
	CMNT	 	Output:  É ¥ logic/inst/É
	PRIM	S_tree/Read	É/ref ¥ outord/inst/É
	PRIM	Stack/Push from aux	É ¥ ref/outord/inst/É
	CALL	354318	É ¥ mask/outord/inst/É
	PRIM	Ordinal/And	É ¥ bit/inst/É
	PRIM	Ordinal/Test zero	É ¥ logic'/inst/É
	PRIM	Ordinal/Test zero	É ¥ logic/inst/É
EDEF