STRE
	SGLB	Misc/Class Reference
		CLAS	354693	SuperAnnun
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354694	SuperOpStn
	ESBR
	SGLB	General/Initialize
		CMNT	 	------ sends output
		LITO	2
		PRIM	S_tree/Test for entry
		BRFL	 	branch if class being initalized
			PRIM	Stack/Drop	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		LITO	0	É ¥ new/old/inst/É
		CALL	354090	É ¥ É
	ESBR
	SGLB	OpStn/Init	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/video_ref/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		CMNT	 	------ initializes legend
		LITO	4	legend offset
		LITO	2	state info
		PRIM	S_tree/Read	É ¥ legend/inst/É
		PRIM	Stack/Pop to aux	É/legend ¥ inst/É
		PRIM	Heap/Name of self	É/legend ¥ name/inst/É
		GSYM	OpStn/Legend	É/legend ¥ method/name/inst/É
		CALL	354060	É ¥ inst/É
		CMNT	 	------ initializes highlight
		LITO	3	highlight offset
		LITO	2	state info
		PRIM	S_tree/Read	É ¥ state/inst/É
		LCAL	set state	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	OpStn/Legend	/3u19,1,255;Select Legend (1-255)
		CMNT	 	NOTE that this method can accept arguments greater than 255
		CMNT	 	The 'high-order' byte is then interpreted as a highlight modifier
		CMNT	 	where 0 = no modifier, 256 = lowlight, 512 = highlight, 768 = blink
		CMNT	 	This feature is for use by the alarms block
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		LITO	4	legend offset
		LITO	2	state info
		PRIM	S_tree/Replace	É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		LITO	255	É ¥ 255/arg/inst/arg/É
		PRIM	Ordinal/And	É ¥ legend/inst/arg/É
		CALL	354136	É ¥ rslt/inst/arg/É
		BRFL	 	branch if failed
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	768	É ¥ 768/arg/inst/É
		PRIM	Ordinal/And	É ¥ mod/inst/É
		STRE	 	modifier s-tree
			SORD	0	no modifiers
				PRIM	Heap/Store self
			ESBR
			SORD	256	lowlight
				LITO	0	É ¥ hilite/inst/É
				LCAL	send
			ESBR
			SORD	512	highlight
				LITO	1	É ¥ hilite/inst/É
				LCAL	send
			ESBR
			SORD	768	blink
				LITO	2	É ¥ hilite/inst/É
				LCAL	send
			ESBR
		ESTR
	ESBR
	SGLB	OpStn/Touch Screen	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		LITO	1	É ¥ index/inst/É
		LITO	2	É ¥ key/index/inst/É
		PRIM	S_tree/Read	É ¥ state/inst/É
		LITO	1	É ¥ 1/state/inst/É
		CALL	354090	Logic send outputs
	ESBR
	SGLB	OpStn/Touch Release	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1	É ¥ index/inst/É
		LITO	2	É ¥ key/index/inst/É
		PRIM	S_tree/Read	É ¥ state/inst/É
		LITO	0	É ¥ 0/state/inst/É
		CALL	354090	Logic send outputs
	ESBR
ESTR
LDEF	set highlight	É ¥ mode/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Pop to aux	É/mode ¥ inst/É
	PRIM	Heap/Name of self	É/mode ¥ name/inst/É
	GSYM	OpStn/Highlight	É/mode ¥ method/name/inst/É
	CALL	354060	É ¥ inst/É
EDEF
LDEF	send
	CMNT	 	Sends a message to the highlight method of self
	CMNT	 	Input:  É ¥ data/inst/É
	CMNT	 	Output:  É ¥ É
	LCAL	set highlight	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	set state	É ¥ state/inst/É
	CMNT	 	Output:  É ¥ inst/É
	STRE
		SORD	0	error (or lowlight), just set lowlight
			PRIM	Stack/Drop	É ¥ inst/É
		ESBR
		SORD	2
			LITO	1	É ¥ lowlight/inst/É
			LITO	3	highlight offset
			LITO	2	state info
			PRIM	S_tree/Replace	É ¥ inst/É
			LITO	1	É ¥ highlight/inst/É
			LCAL	set highlight	É ¥ inst/É
		ESBR
		SORD	3
			LITO	2	É ¥ blink/inst/É
			LCAL	set highlight	É ¥ inst/É
		ESBR
		SORD	4
			LITO	2	É ¥ blink/inst/É
			LCAL	set highlight	É ¥ inst/É
		ESBR
	ESTR
EDEF