STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354399
	ESBR
	SORD	2
		LITO	0	current state
		LITO	0	/t,B,A;Port
		LITO	0	/t,Disabled,Enabled;Timestamp
		LITO	1	/t,Ignore,Print;Positive Edge Action
		LITO	1	/t,Ignore,Print;Negative Edge Action
		LITO	0	/t,Ignore,Print;True Action
		LITO	0	/t,Ignore,Print;False Action
	ESBR
	SORD	4
		STRG	Positive Edge	/o;Positive Edge String
	ESBR
	SORD	5
		STRG	Negative Edge	/o;Negative Edge String
	ESBR
	SORD	6
		STRG	True	/o;True String
	ESBR
	SORD	7
		STRG	False	/o;False String
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	L5203 L/Input	/3t5,false,true;Input
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Second to aux	É/arg ¥ inst/É
		LITO	2	É/arg ¥ 2/inst/É
		PRIM	S_tree/Get exact	É/arg ¥ list/2/inst/É
		PRIM	List/Behead	É/arg ¥ cur/list'/2/inst/É
		PRIM	Stack/Dup from aux	É/arg ¥ arg/cur/list'/2/inst/É
		PRIM	Stack/Second to aux	É/arg/cur ¥ arg/list'/2/inst/É
		PRIM	List/Splice	É/arg/cur ¥ list''/2/inst/É
		PRIM	S_tree/Put	É/arg/cur ¥ inst/É
		LCAL	edge	É ¥ index/inst/É
		PRIM	Stack/Dup to aux	É/index ¥ index/inst/É
		LITO	2	É/index ¥ 2/index/inst/É
		PRIM	S_tree/Read	É/index ¥ enable/inst/É
		BRFL	 	branch if disabled
			PRIM	Stack/Drop from aux
			PRIM	Heap/Store self
		BRTR
		LITO	3	É/index ¥ 3/inst/É
		LITO	2	É/index ¥ 2/2/inst/É
		PRIM	S_tree/Read	É/index ¥ ts_en/inst/É
		PRIM	Stack/Swap	É/index ¥ inst/ts_en/É
		LITO	0	É/index ¥ 0/inst/ts_en/É
		PRIM	Stack/Push from aux	É ¥ index/0/inst/ts_en/É
		PRIM	S_tree/Read	É ¥ string/inst/ts_en/É
		PRIM	Stack/Rotate up	É ¥ inst/ts_en/string/É
		LITO	2
		LITO	2
		PRIM	S_tree/Read	É ¥ port/inst/ts_en/string/É
		PRIM	Stack/Pop to aux	É/port ¥ inst/ts_en/string/É
		PRIM	Stack/Rotate up	É/port ¥ ts_en/string/inst/É
		LCAL	Handle Time	É/port ¥ string/inst/É
		PRIM	Stack/Dup from aux	É/port ¥ port/string/inst/É
		ASIO	SIO/output_string	É/port ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ port/inst/É
		ASIO	SIO/output_crlf	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	L5203 L/Get Input	/2t4,false,true
		LITO	1	index
		CALL	354072
	ESBR
ESTR
LDEF	edge
	CMNT	 	Determines the appropriate index for the edge:  4=pos, 5=neg, 6=true, 7=false
	CMNT	 	Input:  É/new/old ¥ É
	CMNT	 	Output:  É ¥ index/É
	PRIM	Stack/Push from aux	É/new ¥ old/É
	PRIM	Stack/Push from aux	É ¥ new/old/É
	BRFL
		BRFL
			CMNT	 	both false
			LITO	7
		BRTR
		CMNT	 	Negative edge
		LITO	5
	BRTR
	BRFL
		CMNT	 	Positive edge
		LITO	4
	BRTR
	CMNT	 	both true
	LITO	6
EDEF
LDEF	Handle Time
	CMNT	 	Conditionally prints Time
	CMNT	 	Input: É/port ¥ enable/É
	CMNT	 	Output: /port ¥ É
	PRIM	Ordinal/Test zero
	BRFL
		PRIM	Timer/Get PAT	É/port ¥ time/É
		CALL	354407	É/port ¥ É
	BRTR
EDEF