STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354127
	ESBR
	SORD	2
		LITO	0	Output
		LITO	0	Health
		LITO	0	Start
		LITO	0	Stop
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Non-inverted Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Inverted Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		CALL	354125	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Start	/3t5,false,true;Set input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	3	É ¥ 3/inst/arg/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Stop	/3t5,false,true;Set input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	4	É ¥ 4/inst/arg/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Health	/3t5,false,true;Set input
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	2	É ¥ 2/inst/arg/É
		LCAL	DoIt
	ESBR
	SGLB	Logic/Get Output	/2t4,false,true;
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1
		CALL	354072
	ESBR
	SGLB	Logic/Get Start	/2t4,false,true;
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	3
		CALL	354072
	ESBR
	SGLB	Logic/Get Stop	/2t4,false,true;
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	4
		CALL	354072
	ESBR
	SGLB	Logic/Get Health	/2t4,false,true;
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	2
		CALL	354072
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Computes the latch function
	CMNT	 	Input:  É ¥ ref/inst/arg/É
	CMNT	 	Output:  É ¥ ¥
	PRIM	Stack/Xswap	É ¥ entry/arg/inst/É
	LITO	2	É ¥ 2/entry/arg/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
	LITO	2	É ¥ 2/0/inst/É
	PRIM	S_tree/Read	É ¥ list/inst/É
	PRIM	List/Remove	É ¥ list'/old/inst/É
	PRIM	List/Remove	É ¥ list''/health/old/inst/É
	PRIM	List/Remove	É ¥ list'''/start/health/old/inst/É
	PRIM	List/List to item	É ¥ stop/start/health/old/inst/É
	BRFL	 	branch if no stop
		BRFL	 	branch if no start
			BRFL	 	branch if not healthy
				LITO	0	É ¥ new/old/inst/É
				CALL	354090	É ¥ É
			BRTR
			PRIM	Stack/Drop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Drop	É ¥ old/inst/É
		LITO	1	É ¥ new/old/inst/É
		CALL	354090	É ¥ É
	BRTR
	PRIM	Stack/Drop	É ¥ health/old/inst/É
	PRIM	Stack/Drop	É ¥ old/inst/É
	LITO	0	É ¥ new/old/inst/É
	CALL	354090	É ¥ É
EDEF