STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354237
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354031
	ESBR
	SGLB	Logic/Input	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/data/É
		CALL	354063	É ¥ state/data/inst/É
		STRE	 	state s-tree
			SORD	1	low
				BRFL	 	branch if input is low
					PRIM	Heap/Store self
				BRTR
				LCAL	Timer	É ¥ inst/É
				LITO	3	É ¥ 3/inst/É
				CALL	354065
			ESBR
			SORD	2	high
				BRFL	 	branch if input is low
					LITO	0	É ¥ 0/inst/É
					CALL	354064	É ¥ inst/É
					LITO	1	É ¥ 1/inst/É
					CALL	354065
				BRTR
				PRIM	Heap/Store self
			ESBR
			SORD	3	timing
				BRFL	 	branch if input=0
					LITO	1	É ¥ 1/inst/É
					CALL	354065
				BRTR
				PRIM	Heap/Store self
			ESBR
		ESTR
	ESBR
	SGLB	Logic/Trigger	for internal use by class only !
		CMNT	 	Expects:  É ¥ inst/time/É
		CALL	354063	É ¥ state/time/inst/É
		PRIM	Stack/Xdrop	É ¥ state/inst/É
		STRE	 	state s-tree
			SORD	0	either low or high
				PRIM	Stack/Drop	É ¥ inst/É
				LCAL	reset	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	3	timing
				LITO	2	É ¥ 2/inst/É
				LITO	3	É ¥ 3/2/inst/É
				PRIM	S_tree/Read	É ¥ target time/inst/É
				PRIM	Timer/Get PAT	É ¥ time now/target time/inst/É
				PRIM	Timer/Compare	É ¥ rslt/target time/inst/É
				BRFL	 	branch if timeout complete
					PRIM	Stack/Drop	É ¥ inst/É
					LCAL	reset	É ¥ inst/É
					LITO	1	É ¥ 1/inst/É
					CALL	354064	É ¥ inst/É
					LITO	2	É ¥ 2/inst/É
					CALL	354065
				BRTR
				PRIM	Stack/Pop to aux	É/target time ¥ inst/É
				LCAL	send	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
		ESTR
	ESBR
	SGLB	Logic/Delay Time	/3v8,-100,100,0,100;Delay time (% of Time Range)
		LITO	3
		CALL	354073
	ESBR
	SGLB	Logic/Get Delay Time	/2v6,-100,100;%3.2f%%
		LITO	3
		CALL	354072
	ESBR
	SGLB	Logic/Get Output	/2e17,error,false,true,timing (false)
		LITO	1
		CALL	354072
	ESBR
ESTR
LDEF	Timer
	CMNT	 	Sends a timer message
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	2	É ¥ 2/inst/É
	PRIM	S_tree/Entry to stack	É ¥ time%/range/state/inst/É
	PRIM	Timer/Multiply	É ¥ Æt/state/inst/É
	PRIM	Stack/Xdrop	É ¥ Æt/inst/É
	PRIM	Timer/Get PAT	É ¥ time/Æt/inst/É
	PRIM	Timer/Add	É ¥ target time/inst/É
	PRIM	Stack/Pop to aux	É/target time ¥ inst/É
	LITO	3	É/target time ¥ 3/inst/É
	PRIM	S_tree/Get exact	É/target time ¥ list/3/inst/É
	PRIM	List/Behead	É/target time ¥ state/list'/3/inst/É
	PRIM	Stack/Xdrop	É/target time ¥ state/3/inst/É
	BRFL	 	branch if no pending timer
		PRIM	Stack/Dup from aux	É/target time ¥ target time/3/inst/É
		LCAL	pback	É/target time ¥ inst/É
		LCAL	send	É ¥ inst/É
	BRTR
	PRIM	Stack/Push from aux	É ¥ target time/3/inst/É
	LCAL	pback	É ¥ inst/É
EDEF
LDEF	pback
	CMNT	 	re-assembles the timer control entry (3)
	CMNT	 	Input:  É ¥ target time/3/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	List/Item to list	É ¥ list/3/inst/É
	LITO	1	É ¥ state/list/3/inst/É
	PRIM	List/Splice	É ¥ list'/3/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
EDEF
LDEF	send
	CMNT	 	Sends a timer message
	CMNT	 	Input:  É/time ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LIST	 	É/target time ¥ list/inst/É
		GSYM	Logic/Trigger
	ELST
	PRIM	Heap/Name of self	É/target time ¥ self/list/inst/É
	PRIM	List/Splice	É/target time ¥ list'/inst/É
	PRIM	Tags/Set delegate	É/target time ¥ list''/inst/É
	PRIM	List/Item to list	É/target time ¥ MSGE/inst/É
	PRIM	Stack/Push from aux	É ¥ target time/MSGE/inst/É
	PRIM	List/Splice	É ¥ message/inst/É
	PRIM	Timer/Post event	É ¥ inst/É
EDEF
LDEF	reset
	CMNT	 	Resets the timing state
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ É
	LITO	0	É ¥ 0/inst/É
	LITO	1	É ¥ 1/0/inst/É
	LITO	3	É ¥ 3/1/0/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF