STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354577	Time Difference
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Time output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	;R&D/Time Difference
	ESBR
	SGLB	R&D/Trigger	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		PRIM	S_tree/Test for entry	É ¥ rslt/2/inst/É
		BRFL	 	branch if no such entry
			PRIM	Timer/Get PAT	É ¥ PAT/2/inst/É
			PRIM	S_tree/Put	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	S_tree/Get exact	É ¥ old PAT/2/inst/É
		PRIM	Stack/Rotate up	É ¥ 2/inst/old PAT/É
		PRIM	Timer/Get PAT	É ¥ PAT/2/inst/old PAT/É
		PRIM	Stack/Dup to aux	É/PAT ¥ PAT/2/inst/old PAT/É
		PRIM	S_tree/Put	É/PAT ¥ inst/old PAT/É
		PRIM	Stack/Push from aux	É ¥ PAT/inst/old PAT/É
		PRIM	Stack/Rotate down	É ¥ old PAT/PAT/inst/É
		PRIM	Timer/Subtract	É ¥ ÆPAT/inst/É
		PRIM	List/Behead	É ¥ PAT1/list/inst/É
		BRFL	 	branch unless time is really big
			PRIM	List/Behead	É ¥ PAT2/list'/inst/É
			BRFL	 	branch unless time is too big
				PRIM	List/List to item	É ¥ PAT3/inst/É
				PRIM	Ordinal/Right	É ¥ time/inst/É
				GSYM	Output/#1	É ¥ #1/time/inst/É
				PRIM	Misc/Send entry	É ¥ inst/É
				PRIM	Heap/Store self
			BRTR
			PRIM	Stack/Drop
			LVAL	1
			GSYM	Output/#1	É ¥ #1/max time/inst/É
			PRIM	Misc/Send entry	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Drop
		LVAL	1
		GSYM	Output/#1	É ¥ #1/max time/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR