STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354301
	ESBR
	SORD	2
		LITO	1	output
		TIME	0.000	target time
		TIME	200.000	/o;Normal timeout (ms)
		TIME	5000.000	/o;Init. timeout (ms)
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Non-inverted Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Inverted Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354031
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LITO	4	É ¥ 4/inst/É
		LITO	2	É ¥ 2/4/inst/É
		PRIM	S_tree/Read	É ¥ Æt/inst/É
		LCAL	send	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		CALL	354125
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Input	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	2	É ¥ 2/1/inst/É
		PRIM	S_tree/Read	É ¥ state/inst/É
		BRFL	 	branch if none pending
			LITO	3	É ¥ 3/inst/É
			LITO	2	É ¥ 2/3/inst/É
			PRIM	S_tree/Read	É ¥ Æt/inst/É
			LCAL	send	É ¥ inst/É
			LITO	1	É ¥ 1/inst/É
			CALL	354125
			PRIM	Heap/Store self
		BRTR
		LITO	3	É ¥ 3/inst/É
		LITO	2	É ¥ 2/3/inst/É
		PRIM	S_tree/Read	É ¥ Æt/inst/É
		PRIM	Timer/Get PAT	É ¥ time/Æt/inst/É
		PRIM	Timer/Add	É ¥ target time/inst/É
		LITO	2	É ¥ 2/target/inst/É
		LITO	2	É ¥ 2/2/target/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Trigger	for internal use by class only !
		CMNT	 	Expects:  É ¥ inst/time/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		LITO	2	É ¥ 2/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/É
			LITO	0	É ¥ 0/inst/É
			CALL	354125
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Pop to aux	É/target time ¥ inst/É
		LCAL	Send2	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
LDEF	send
	CMNT	 	Sends a timer message
	CMNT	 	Input:  É ¥ Æt/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Timer/Get PAT	É ¥ time/Æt/inst/É
	PRIM	Timer/Add	É ¥ target/inst/É
	PRIM	Stack/Dup to aux	É/target ¥ target/inst/É
	LITO	2	É/target ¥ 2/target/inst/É
	LITO	2	É/target ¥ 2/2/target/inst/É
	PRIM	S_tree/Replace	É/target ¥ inst/É
	LCAL	Send2
EDEF
LDEF	Send2
	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