STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354230
	ESBR
	SORD	2
		PORD	1	/o,1,255;Initial output (1-255)
		LITO	1	/o,1,255;Low limit (1-255)
		LITO	255	/o,1,255;High limit (1-255)
	ESBR
	SORD	3
		LITO	0	state of raise input
		LITO	0	state of lower input
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	for internal class use only
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		PRIM	S_tree/Entry to stack	É ¥ high/low/current/inst/É
		PRIM	Stack/Rotate down	É ¥ current/high/low/inst/É
		PRIM	Stack/Pop to aux	É/current ¥ high/low/inst/É
		LITO	65535	É/current ¥ dummy/high/low/inst/É
		PRIM	Stack/Rotate up	É/current ¥ high/low/dummy/inst/É
		PRIM	Stack/Push from aux	É ¥ current/high/low/dummy/inst/É
		LCAL	DoIt	É ¥ É
	ESBR
	SGLB	Logic/Raise	/3t5,false,true;Raise input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	1	É ¥ 1/inst/arg/É
		LCAL	Check	É ¥ rslt/inst/É
		BRFL	 	branch if not a positive edge
			PRIM	Heap/Store self
		BRTR
		LITO	2	É ¥ 2/inst/É
		PRIM	S_tree/Entry to stack	É ¥ high/low/current/inst/É
		PRIM	Stack/Xover	É ¥ current/high/low/current/inst/É
		PRIM	Ordinal/Increment	É ¥ new/high/low/current/inst/É
		LCAL	DoIt	É ¥ É
	ESBR
	SGLB	Logic/Lower	/3t5,false,true;Lower input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	2	É ¥ 2/inst/arg/É
		LCAL	Check	É ¥ rslt/inst/É
		BRFL	 	branch if not a positive edge
			PRIM	Heap/Store self
		BRTR
		LITO	2	É ¥ 2/inst/É
		PRIM	S_tree/Entry to stack	É ¥ high/low/current/inst/É
		PRIM	Stack/Xover	É ¥ current/high/low/current/inst/É
		PRIM	Ordinal/Decrement	É ¥ new/high/low/current/inst/É
		LCAL	DoIt	É ¥ É
	ESBR
	SGLB	Logic/Get Raise	/2t4,false,true
		LITO	1
		CALL	354074
	ESBR
	SGLB	Logic/Get Lower	/2t4,false,true
		LITO	2
		CALL	354074
	ESBR
	SGLB	Recipe/Get Output	/2u2
		LITO	1
		CALL	354072
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Limits and sends the output if required
	CMNT	 	Input:  É ¥ new/high/low/previous/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Rotate up	É ¥ high/low/new/previous/inst/É
	CALL	354234	É ¥ new/previous/inst/É
	PRIM	Stack/Swap	É ¥ previous/new/inst/É
	PRIM	Ordinal/Test equal	É ¥ rslt/new/inst/É
	BRFL	 	branch not equal
		PRIM	Stack/Dup down	É ¥ new/inst/new/É
		LITO	1	É ¥ 1/new/inst/new/É
		LITO	2	É ¥ 2/1/new/inst/new/É
		PRIM	S_tree/Replace	É ¥ inst/new/É
		PRIM	Stack/Swap	É ¥ new/inst/É
		GSYM	Output/#1	É ¥ #1/new/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	BRTR
	PRIM	Stack/Drop	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Check
	CMNT	 	Stores the new arg and checks for a positive edge
	CMNT	 	Input:  É ¥ index/inst/arg/É
	CMNT	 	Output:  É ¥ rslt/inst/É
	PRIM	Stack/Dup to aux	É/index ¥ index/inst/arg/É
	LITO	3	É/index ¥ 3/index/inst/arg/É
	PRIM	S_tree/Read	É/index ¥ current/inst/arg/É
	PRIM	Stack/Xswap	É/index ¥ current/arg/inst/É
	PRIM	Ordinal/Test equal	É/index ¥ rslt/arg/inst/É
	BRFL	 	branch if not equal
		PRIM	Stack/Dup down	É/index ¥ arg/inst/arg/É
		PRIM	Stack/Push from aux	É ¥ index/arg/inst/arg/É
		LITO	3	É ¥ 3/index/arg/inst/arg/É
		PRIM	S_tree/Replace	É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
	BRTR
	PRIM	Stack/Drop	É/index ¥ inst/É
	PRIM	Stack/Drop from aux	É ¥ inst/É
	LITO	0	É ¥ false/inst/É
EDEF