STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354168
	ESBR
	SORD	2
		LITO	0	output
		LITO	0	input
		LITO	0	state:  0=track, 1=hold
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Non-inverted Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Inverted Output
	ESBR
ESTR
STRE
	SGLB	General/Initialize
		GSYM	Logic/Initialize	É ¥ method/inst/É
		CLAS	354031	É ¥ É
	ESBR
	SGLB	Misc/Superclass Reference
		CLAS	354031
	ESBR
	SGLB	Logic/Input	/3t5,false,true;Select ...
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	2	É ¥ 2/inst/arg/É
		LCAL	DoIt	É ¥ É
	ESBR
	SGLB	Logic/Get Input	/2t4,false,true
		LITO	2
		CALL	354072
	ESBR
	SGLB	Logic/Select	/3t89,Track,Hold;Select...
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	3	É ¥ 3/inst/arg/É
		LCAL	DoIt	É ¥ É
	ESBR
	SGLB	Logic/Get Select	/2t90,Tracking,Holding
		LITO	3
		CALL	354072
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Computes a new output and sends it
	CMNT	 	Input:  É ¥ ref/inst/arg/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Xswap	É ¥ ref/arg/inst/É
	LITO	2	É ¥ 2/ref/arg/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	LITO	2	É ¥ 2/inst/É
	PRIM	S_tree/Entry to stack	É ¥ state/input/output/inst/É
	BRFL	 	branch if in the tracking mode
		CALL	354090	É ¥ É
	BRTR
	PRIM	Stack/Drop	É ¥ output/inst/É
	PRIM	Stack/Drop	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF