STRE
	SGLB	Misc/Class Reference
		CLAS	354161
	ESBR
	SORD	2
		LITO	0	state
		LITO	0	video ref
		LITO	1	blink state:  1-low, 2-high, 3-blink low, 4-blink high
	ESBR
	SORD	3	strings
		LIST	 	Legend 1 (Halted)
			STRG	Module Halted
		ELST
		LIST	 	Legend 2 (No Configuration)
			STRG	No Config.
		ELST
		LIST	 	Legend 3 (Crashed)
			STRG	Module Crashed
		ELST
		LIST	 	Legend 4 (OS Error)
			STRG	OS Error
		ELST
		LIST	 	Legend 5 (Failed Self-Test)
			STRG	Self-test Fail
		ELST
		LIST	 	Legend 6 (Shutdown)
			STRG	Shutdown
		ELST
		LIST	 	Legend 7 (OK [used internally])
			STRG	Default Legend	/o;Default Legend
		ELST
		LIST	 	Legend 8 (Network Warning)
			STRG	Network Warning
		ELST
		LIST	 	Legend 9 (Network Failure)
			STRG	Network Failure
		ELST
	ESBR
	SORD	4
		LITO	0	placeholder for ack route
		LITO	0	last address
		MSGE	 	message fragment to access ' System'
			ICAL	 System
			GSYM	Utility/Get Next
		EMSG
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354039
	ESBR
	SGLB	OpStn/Init	For internal class use only!
		CMNT	 	Expects:  É ¥ inst/index/base/É
		CALL	354089	É ¥ inst/video ref/É
		MACR	 	initializes video object
			PRIM	Stack/Second to aux	É/video ref ¥ inst/É
			LITO	9	É/video ref ¥ 0/inst/É
			LITO	32768	É/video ref ¥ 0/0/inst/É
			LITO	3	É/video ref ¥ 0/0/0/inst/É
			LITO	0	É/video ref ¥ 0/0/0/0/inst/É
			LITO	3	É/video ref ¥ 0/0/0/0/0/inst/É
			LITO	0	É/video ref ¥ 0/0/0/0/0/0/inst/É
			LITO	5	É/video ref ¥ 5/0/0/0/0/0/0/inst/É
			PRIM	Stack/Dup from aux	É/video ref ¥ video ref/5/0/3/0/3/32768/9/inst/É
			ASIO	OpStn/INIT_VIDOBJ	É/video ref ¥ inst/É
		EMAC
		MACR	 	install format string
			LIST	 	É/video ref ¥ string/inst/É
				STRG	Address: ####	format string
			ELST
			PRIM	List/List to stack	É/video ref ¥ stringÉ/inst/É
			PRIM	Stack/Push from aux	É ¥ video ref/stringÉ/inst/É
			ASIO	OpStn/INSTALL_STRING	É ¥ inst/É
		EMAC
		MACR	 	set up ack route
			LIST	 	É ¥ list/inst/É
				GSYM	OpStn/Return
			ELST
			PRIM	Heap/Name of self	É ¥ name/list/inst/É
			PRIM	List/Splice	É ¥ list'/inst/É
			PRIM	Tags/Set delegate	É ¥ MSGE/inst/É
			PRIM	List/Item to list	É ¥ list''/inst/É
			PRIM	Misc/Name of node	É ¥ node/list''/inst/É
			PRIM	List/Splice	É ¥ list'''/inst/É
			LITO	1	É ¥ 1/list'''/inst/É
			LITO	4	É ¥ 4/1/list'''/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É
		EMAC
		PRIM	Timer/Get PAT	É ¥ time/inst/É
		PRIM	Stack/Swap	É ¥ inst/time/É
		GSYM	OpStn/Sequence	É ¥ method/inst/time/É
		CLAS	354161	delegate to self
	ESBR
	SGLB	OpStn/Legend	override
	ESBR
	SGLB	OpStn/Sequence	internal class use only
		CMNT	 	Expects:  É ¥ inst/time/É
		CMNT	 	---------- Requeue
		PRIM	Stack/Swap	É ¥ time/inst/É
		TIME	1500.000	É ¥ Æt/time/inst/É
		GSYM	OpStn/Sequence	É ¥ method/Æt/time/inst/É
		CALL	354057	É ¥ inst/É
		CMNT	 	---------- Send exchange message
		LITO	0	É ¥ 0/inst/É
		LITO	4	É ¥ 4/0/inst/É
		PRIM	S_tree/Read	É ¥ list/inst/É
		PRIM	Misc/Name of node	É ¥ node/list/inst/É
		PRIM	Stack/Swap	É ¥ list/node/inst/É
		PRIM	Misc/Post event	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	OpStn/Return	internal class use only
		CMNT	 	Expects:  É ¥ inst/list/É
		CMNT	 	list contains:  -->ADDR-->CODE--X
		CALL	354093	É ¥ ref/inst/list/É
		PRIM	Stack/Rotate down	É ¥ list/ref/inst/É
		PRIM	List/Remove	É ¥ list'/addr/ref/inst/É
		PRIM	Stack/Second to aux	É/addr ¥ list'/ref/inst/É
		PRIM	List/List to item	É/addr ¥ code/ref/inst/É
		PRIM	Stack/Second to aux	É/addr/ref ¥ code/inst/É
		LITO	3	É/addr/ref ¥ 3/code/inst/É
		PRIM	S_tree/Read	É/addr/ref ¥ string/inst/É
		PRIM	List/List to stack	É/addr/ref ¥ stringÉ/inst/É
		PRIM	Stack/Dup from aux	É/addr/ref ¥ ref/stringÉ/inst/É
		PRIM	Ordinal/Increment	É/addr/ref ¥ ref'/stringÉ/inst/É
		ASIO	OpStn/DRAW_TEXT	É/addr/ref ¥ inst/É
		LCAL	DrawAddr	É/addr ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ addr/inst/É
		LITO	2	É ¥ 2/addr/inst/É
		LITO	4	É ¥ 4/2/addr/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
ESTR
LDEF	DrawAddr
	CMNT	 	Draws the address or nothing
	CMNT	 	Input:  É/addr/ref ¥ inst/É
	CMNT	 	Output:  É/addr ¥ inst/É
	PRIM	Stack/Push from aux	É/addr ¥ ref/inst/É
	PRIM	Stack/Dup from aux	É/addr ¥ addr/ref/inst/É
	BRFL	 	branch if address is zero
		LITO	132	É/addr ¥ 132/ref/inst/É
		PRIM	Stack/Swap	É/addr ¥ ref/32/inst/É
		ASIO	OpStn/DRAW_TEXT	É/addr ¥ inst/É
	BRTR
	PRIM	Stack/Dup from aux	É/addr ¥ addr/ref/inst/É
	ASIO	OpStn/WRITE_VAL	É/addr ¥ inst/É
EDEF