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	 	/*+0,160,72,45;Non-inverted Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+0,196,144,9;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
CMTL	5	graphic info
	CMNT	4	-18,0,178,288
	CMTL	3	0
		CMNT	24	16,0,72,45,2,3,S;Logic/Start
		CMNT	24	16,-36,144,9,2,2,R;Logic/Health
		CMNT	24	16,0,216,45,2,4,R;Logic/Stop
	ECMT
	CMTL	7	0
		CMNT	22	-10,64,1,2,3,Logic/Get Start;/t,F,T
		CMNT	22	-30,136,1,2,2,Logic/Get Health;/t,F,T
		CMNT	22	-30,208,1,2,4,Logic/Get Stop;/t,F,T
		CMNT	14	170,64,1,2,1,Logic/Get Output;/t,F,T
	ECMT
	CMNT	8	0,18,160,270
	CMNT	44	-36,126,0,162
	CMNT	44	160,126,196,162
ECMT
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