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
		LITO	0	state of select input
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Display output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Selector 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	É ¥ new/dummy/inst/É
		LCAL	DoIt2
	ESBR
	SGLB	Recipe/Raise	/3t5,false,true;Raise input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	1	É ¥ 1/inst/arg/É
		LITO	3	É ¥ 3/1/inst/arg/É
		CALL	354236	É ¥ 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	É ¥ new/previous/inst/É
		LCAL	DoIt2
	ESBR
	SGLB	Recipe/Lower	/3t5,false,true;Lower input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	2	É ¥ 2/inst/arg/É
		LITO	3	É ¥ 3/2/inst/arg/É
		CALL	354236	É ¥ 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	É ¥ new/previous/inst/É
		LCAL	DoIt2
	ESBR
	SGLB	Recipe/Get Raise	/2t4,false,true
		LITO	1
		CALL	354074
	ESBR
	SGLB	Recipe/Get Lower	/2t4,false,true
		LITO	2
		CALL	354074
	ESBR
	SGLB	Recipe/Get Output	/2u2
		LITO	1
		CALL	354072
	ESBR
	SGLB	Recipe/Select	/3t5,false,true;Select input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	3	É ¥ 3/inst/arg/É
		LITO	3	É ¥ 3/3/inst/arg/É
		CALL	354236	É ¥ rslt/inst/É
		BRFL	 	branch if not a positive edge
			PRIM	Heap/Store self
		BRTR
		LITO	1	É ¥ 1/inst/É
		LITO	2	É ¥ 2/1/inst/É
		PRIM	S_tree/Read	É ¥ select/inst/É
		GSYM	Output/#2	É ¥ #2/select/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Recipe/Get Select	/2t4,false,true
		LITO	3
		CALL	354074
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Limits the output if required
	CMNT	 	Input:  É ¥ new/high/low/previous/inst/É
	CMNT	 	Output:  É ¥ new/previous/inst/É
	PRIM	Stack/Xover	É ¥ low/new/high/low/previous/inst/É
	PRIM	Stack/Xover	É ¥ high/low/new/high/low/previous/inst/É
	CALL	354234	É ¥ rslt/new/high/low/previous/inst/É
	STRE
		SORD	0	OK
			PRIM	Stack/Xdrop	É ¥ new/low/previous/inst/É
			PRIM	Stack/Xdrop	É ¥ new/previous/inst/É
		ESBR
		SORD	1	low limit
			PRIM	Stack/Drop	É ¥ high/low/previous/inst/É
			PRIM	Stack/Xdrop	É ¥ high/previous/inst/É
		ESBR
		SORD	2	high limit
			PRIM	Stack/Drop	É ¥ high/low/previous/inst/É
			PRIM	Stack/Drop	É ¥ low/previous/inst/É
		ESBR
	ESTR
EDEF
LDEF	DoIt2
	CMNT	 	Sends the output if required
	CMNT	 	Input:  É ¥ new/previous/inst/É
	CMNT	 	Output:  É ¥ É
	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