STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354304
	ESBR
	SORD	2
		LITO	1	state
		TIME	1000.000	/o;A-to-B underlap (ms)
		TIME	1000.000	/o;B-to-A underlap (ms)
	ESBR
	CMNT	 	Key 3 is used by A-to-B timer
	CMNT	 	Key 4 is used by B-to-A timer
	SGLB	Output/#1
		LCON	 	/*+;Output A Non-inverted
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Output A Inverted
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;Output B Non-inverted
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;Output B Inverted
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	for internal class use only!!
		CMNT	 	Expects:  ÉÊ¥ inst/É
		LITO	3	É ¥ 3/inst/É
		CALL	354305	É ¥ inst/É
		LITO	4	É ¥ 4/inst/É
		CALL	354305	É ¥ inst/É
		MACR	 	set the A output false
			LITO	0	É ¥ 0/inst/É
			CALL	354064
		EMAC
		MACR	 	set the B output false
			LITO	0	É ¥ 0/inst/É
			GSYM	Output/#3	É ¥ #3/0/inst/É
			PRIM	Misc/Send entry	É ¥ inst/É
			LITO	1	É ¥ 1/inst/É
			GSYM	Output/#4	É ¥ #4/1/inst/É
			PRIM	Misc/Send entry	É ¥ inst/É
		EMAC
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Input	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		CALL	354063	É ¥ state/data/inst/É
		STRE	 	state s-tree
			SORD	1	stopped
				BRFL	 	branch if input is low
					PRIM	Heap/Store self
				BRTR
				MACR	 	start timer 3
					LITO	2	É ¥ 2/inst/É
					LITO	2	É ¥ 2/2/inst/É
					PRIM	S_tree/Read	É ¥ Æt/inst/É
					LITO	3	É ¥ 3/Æt/inst/É
					CALL	354285	É ¥ inst/É
				EMAC
				MACR	 	set the A output true
					LITO	1	É ¥ 1/inst/É
					CALL	354064
				EMAC
				LITO	2	É ¥ 2/inst/É
				CALL	354065
			ESBR
			SORD	2	starting
				BRFL	 	branch if input is low
					MACR	 	set the A output false
						LITO	0	É ¥ 0/inst/É
						CALL	354064
					EMAC
					LITO	1	É ¥ 1/inst/É
					CALL	354065
				BRTR
				PRIM	Heap/Store self
			ESBR
			SORD	3	running
				BRFL	 	branch if input=0
					MACR	 	start timer 4
						LITO	3	É ¥ 3/inst/É
						LITO	2	É ¥ 2/3/inst/É
						PRIM	S_tree/Read	É ¥ Æt/inst/É
						LITO	4	É ¥ 4/Æt/inst/É
						CALL	354285	É ¥ inst/É
					EMAC
					MACR	 	set the B output false
						LITO	0	É ¥ 0/inst/É
						GSYM	Output/#3	É ¥ #3/0/inst/É
						PRIM	Misc/Send entry	É ¥ inst/É
						LITO	1	É ¥ 1/inst/É
						GSYM	Output/#4	É ¥ #4/1/inst/É
						PRIM	Misc/Send entry	É ¥ inst/É
					EMAC
					LITO	4	É ¥ 4/inst/É
					CALL	354065
				BRTR
				PRIM	Heap/Store self
			ESBR
			SORD	4	stopping
				BRFL	 	branch if input is low
					PRIM	Heap/Store self
				BRTR
				MACR	 	set the B output true
					LITO	1	É ¥ 1/inst/É
					GSYM	Output/#3	É ¥ #3/1/inst/É
					PRIM	Misc/Send entry	É ¥ inst/É
					LITO	0	É ¥ 0/inst/É
					GSYM	Output/#4	É ¥ #4/0/inst/É
					PRIM	Misc/Send entry	É ¥ inst/É
				EMAC
				LITO	3	É ¥ 3/inst/É
				CALL	354065
			ESBR
		ESTR
	ESBR
	SGLB	Logic/Get Output	/2e116,error,stopped,starting,running,stopping
		LITO	1
		CALL	354072
	ESBR
	SGLB	Timer/Timeout	for internal class use only
		CMNT	 	Expects:  (handled by 'Timer/Receiver')
		CALL	354308	É/(time) ¥ ref/inst/É
		STRE	 	timer s-tree
			SORD	0	not significant
				PRIM	Heap/Store self
			ESBR
			SORD	3	timer 3 timeout
				LITO	2	É/time ¥ 2/inst/É
				LCAL	chk1	É ¥ rslt/inst/É
				BRFL	 	branch if not significant
					PRIM	Heap/Store self
				BRTR
				MACR	 	set the B output true
					LITO	1	É ¥ 1/inst/É
					GSYM	Output/#3	É ¥ #3/1/inst/É
					PRIM	Misc/Send entry	É ¥ inst/É
					LITO	0	É ¥ 0/inst/É
					GSYM	Output/#4	É ¥ #4/0/inst/É
					PRIM	Misc/Send entry	É ¥ inst/É
				EMAC
				LITO	3	É ¥ 3/inst/É
				CALL	354065
			ESBR
			SORD	4	B-to-A timeout
				LITO	4	É/time ¥ 4/inst/É
				LCAL	chk1	É ¥ rslt/inst/É
				BRFL	 	branch if not significant
					PRIM	Heap/Store self
				BRTR
				MACR	 	set the A output false
					LITO	0	É ¥ 0/inst/É
					CALL	354064
				EMAC
				LITO	1	É ¥ 1/inst/É
				CALL	354065
			ESBR
		ESTR
	ESBR
ESTR
LDEF	chk1
	CMNT	 	Handles the timeouts
	CMNT	 	Input:  É/time ¥ ref_state/inst/É
	CMNT	 	Output:  É ¥ rslt/inst/É
	PRIM	Stack/Drop from aux	É ¥ ref_state/inst/É
	PRIM	Stack/Swap	É ¥ inst/ref_state/É
	CALL	354063	É ¥ state/ref_state/inst/É
	PRIM	Ordinal/Test equal	É ¥ rslt/ref_state/inst/É
	PRIM	Stack/Xdrop	É ¥ rslt/inst/É
EDEF