STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354135
	ESBR
	SORD	2
		LITO	0	seconds
		LITO	0	minutes
		LITO	1	hours
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Seconds Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Minutes Output
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;Hours Output
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;Tick Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LCAL	Show	É ¥ inst/É
		PRIM	Timer/Get PAT	É ¥ PAT/inst/É
		PRIM	Stack/Swap	É ¥ inst/PAT/É
		GSYM	Logic/Toggle	É ¥ method/inst/PAT/É
		CLAS	354135	delegate to self
	ESBR
	SGLB	Logic/Trigger
		CMNT	 	Expects:  É ¥ inst/time/É
		CMNT	 	-------- Requeues the trigger
		PRIM	Stack/Swap	É ¥ time_ref/inst/É
		TIME	500.000	É ¥ Æt/time_ref/inst/É
		GSYM	Logic/Toggle	É ¥ method/Æt/time_ref/inst/É
		CALL	354057	É ¥ inst/É
		CMNT	 	-------- Sends the tock
		LITO	0	É ¥ 0/inst/É
		GSYM	Output/#4	É ¥ #4/1/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		CMNT	 	-------- Do the clock bit
		LCAL	clock	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Toggle
		CMNT	 	Expects:  É ¥ inst/time/É
		CMNT	 	-------- Requeues the trigger
		PRIM	Stack/Swap	É ¥ time_ref/inst/É
		TIME	500.000	É ¥ Æt/time_ref/inst/É
		GSYM	Logic/Trigger	É ¥ method/Æt/time_ref/inst/É
		CALL	354057	É ¥ inst/É
		CMNT	 	-------- Sends the tick
		LITO	1	É ¥ 1/inst/É
		GSYM	Output/#4	É ¥ #4/1/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Seconds	/3u,0,59;Enter seconds
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	1	É ¥ 1/arg/inst/É
		LITO	2	É ¥ 2/1/arg/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Show	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Minutes	/3u,0,59;Enter minutes
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	2	É ¥ 2/arg/inst/É
		LITO	2	É ¥ 2/2/arg/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Show	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Hours	/3u,1,12;Enter hours
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	3	É ¥ 3/arg/inst/É
		LITO	2	É ¥ 2/3/arg/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Show	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Stores data and sends it
	CMNT	 	Input:  É ¥ out#/ref/data/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Pop to aux	É/out# ¥ ref/data/inst/É
	PRIM	Stack/Over	É/out# ¥ data/ref/data/inst/É
	PRIM	Stack/Pop to aux	É/out#/data ¥ ref/data/inst/É
	LITO	2	É/out#/data ¥ 2/ref/data/inst/É
	PRIM	S_tree/Replace	É/out#/data ¥ inst/É
	PRIM	Stack/Push from aux	É/out# ¥ data/inst/É
	PRIM	Stack/Push from aux	É ¥ out#/data/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
EDEF
LDEF	Show
	CMNT	 	Sends all outputs
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
	LITO	2	É ¥ 2/0/inst/É
	PRIM	S_tree/Read	É ¥ list/inst/É
	PRIM	List/Remove	É ¥ list'/secs/inst/É
	PRIM	List/Remove	É ¥ list''/mins/secs/inst/É
	PRIM	List/List to item	É ¥ hrs/mins/secs/inst/É
	PRIM	Stack/Pop to aux	É/hrs ¥ mins/secs/inst/É
	PRIM	Stack/Pop to aux	É/hrs/mins ¥ secs/inst/É
	GSYM	Output/#1	É/hrs/mins ¥ #1/secs/inst/É
	PRIM	Misc/Send entry	É/hrs/mins ¥ inst/É
	PRIM	Stack/Push from aux	É/hrs ¥ mins/inst/É
	GSYM	Output/#2	É/hrs ¥ #2/mins/inst/É
	PRIM	Misc/Send entry	É/hrs ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ hrs/inst/É
	GSYM	Output/#3	É ¥ #3/hrs/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
EDEF
LDEF	clock
	CMNT	 	does the clock bit
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	CMNT	 	-------- Count seconds
	LITO	1	É ¥ 1/inst/É
	LITO	2	É ¥ 2/1/inst/É
	PRIM	S_tree/Read	É ¥ secs/inst/É
	PRIM	Ordinal/Increment	É ¥ secs'/inst/É
	LITO	60	É ¥ 60/secs'/inst/É
	PRIM	Ordinal/Compare	É ¥ rslt/secs'/inst/É
	BRFL	 	branch if no rollover
		LITO	1	É ¥ 1/secs'/inst/É
		GSYM	Output/#1	É ¥ #1/1/secs'/inst/É
		LCAL	DoIt	É ¥ inst/É
	BRTR
	PRIM	Stack/Drop	É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
	LITO	1	É ¥ 1/0/inst/É
	GSYM	Output/#1	É ¥ #1/1/0/inst/É
	LCAL	DoIt	É ¥ inst/É
	CMNT	 	-------- Count minutes
	LITO	2	É ¥ 2/inst/É
	LITO	2	É ¥ 2/2/inst/É
	PRIM	S_tree/Read	É ¥ mins/inst/É
	PRIM	Ordinal/Increment	É ¥ mins'/inst/É
	LITO	60	É ¥ 60/mins'/inst/É
	PRIM	Ordinal/Compare	É ¥ rslt/mins'/inst/É
	BRFL	 	branch if no rollover
		LITO	2	É ¥ 2/mins'/inst/É
		GSYM	Output/#2	É ¥ #2/2/mins'/inst/É
		LCAL	DoIt	É ¥ inst/É
	BRTR
	PRIM	Stack/Drop	É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
	LITO	2	É ¥ 2/0/inst/É
	GSYM	Output/#2	É ¥ #2/2/0/inst/É
	LCAL	DoIt	É ¥ inst/É
	CMNT	 	-------- Count hours
	LITO	3	É ¥ 3/inst/É
	LITO	2	É ¥ 2/3/inst/É
	PRIM	S_tree/Read	É ¥ hrs/inst/É
	PRIM	Ordinal/Increment	É ¥ hrs'/inst/É
	LITO	13	É ¥ 13/hrs'/inst/É
	PRIM	Ordinal/Compare	É ¥ rslt/hrs'/inst/É
	BRFL	 	branch if no rollover
		LITO	3	É ¥ 3/hrs'/inst/É
		GSYM	Output/#3	É ¥ #3/3/hrs'/inst/É
		LCAL	DoIt	É ¥ inst/É
	BRTR
	PRIM	Stack/Drop	É ¥ inst/É
	LITO	1	É ¥ 1/inst/É
	LITO	3	É ¥ 3/1/inst/É
	GSYM	Output/#3	É ¥ #3/3/1/inst/É
	LCAL	DoIt	É ¥ inst/É
EDEF