STRE
	SGLB	Misc/Class Reference
		CLAS	354039
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	OpStn/Init	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/video_ref/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		CMNT	 	------ initializes legend
		LITO	1	É ¥ 1/inst/É
		PRIM	Stack/Pop to aux	É/1 ¥ inst/É
		PRIM	Heap/Name of self	É/1 ¥ name/inst/É
		GSYM	OpStn/Legend	É/1 ¥ method/name/inst/É
		CALL	354060	É ¥ inst/É
		CMNT	 	------ sends output
		LITO	1	É ¥ 1/inst/É
		LITO	0	É ¥ 0/1/inst/É
		CALL	354090
	ESBR
	SGLB	OpStn/Legend	/3u,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	 	Other modifiers will crash the class!!!
		CMNT	 	This feature is for use by the alarms block
		CMNT	 	Expects:  É ¥ inst/arg/É
		CALL	354093	É ¥ ref/inst/arg/É
		PRIM	Stack/Pop to aux	É/ref ¥ inst/arg/É
		PRIM	Stack/Over	É/ref ¥ arg/inst/arg/É
		LITO	255	É/ref ¥ 255/arg/inst/arg/É
		PRIM	Ordinal/And	É/ref ¥ legend/inst/arg/É
		PRIM	Stack/Dup down	É/ref ¥ legend/inst/legend/arg/É
		PRIM	Stack/Duplicate	É/ref ¥ legend/legend/inst/legend/arg/É
		BRFL	 	branch if legend selected is 0
			PRIM	Stack/Drop	É/ref ¥ inst/legend/arg/É
			PRIM	Stack/Drop from aux	É ¥ inst/legend/arg/É
			PRIM	Stack/Xdrop	É ¥ inst/arg/É
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		LITO	3	É/ref ¥ 3/legend/inst/legend/arg/É
		PRIM	S_tree/Test and read	É/ref ¥ rslt/(string)/inst/legend/arg/É
		BRFL	 	branch if no such entry
			PRIM	Stack/Drop from aux	É ¥ inst/legend/arg/É
			PRIM	Stack/Xdrop	É ¥ inst/arg/É
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		CALL	354068	É/ref ¥ stringÉ/inst/legend/arg/É
		PRIM	Stack/Push from aux	É ¥ ref/stringÉ/inst/legend/arg/É
		ASIO	OpStn/DRAW_TEXT	É ¥ inst/legend/arg/É
		PRIM	Stack/Rotate up	É ¥ legend/arg/inst/É
		PRIM	Ordinal/Subtract	É ¥ mod'/inst/É
		CMNT	 	Note that the modifier s-tree has no provision for illegal modifiers
		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/String	special!
		CMNT	 	Expects:  É ¥ inst/string/É
		CALL	354093	É ¥ ref/inst/string/É
		PRIM	Stack/Second to aux	É/inst ¥ ref/string/É
		ASIO	OpStn/DRAW_TEXT	É/inst ¥ É
		PRIM	Stack/Push from aux	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Highlight	/3e,Off,On,Blink;Highlighting
		CMNT	 	Expects:  É ¥ inst/data/É
		LCAL	state	É ¥ blink/inst/data/É
		PRIM	Stack/Rotate down	É ¥ data/blink/inst/É
		STRE	 	request s-tree
			SORD	0	lowlight request
				STRE	 	blink state s-tree
					SORD	0	else
						PRIM	Stack/Drop	É ¥ inst/É
						CALL	354093	É ¥ ref/inst/É
						ASIO	OpStn/LOWLIGHT	É ¥ inst/É
						LITO	1	É ¥ 1/inst/É
						LCAL	set
					ESBR
					SORD	1	lowlight
						PRIM	Heap/Store self
					ESBR
				ESTR
			ESBR
			SORD	1	highlight request
				STRE	 	blink state s-tree
					SORD	0	else
						PRIM	Stack/Drop	É ¥ inst/É
						CALL	354093	É ¥ ref/inst/É
						ASIO	OpStn/HIGHLIGHT	É ¥ inst/É
						LITO	2	É ¥ 2/inst/É
						LCAL	set
					ESBR
					SORD	2	highlight
						PRIM	Heap/Store self
					ESBR
				ESTR
			ESBR
			SORD	2	blink request
				STRE	 	blink state s-tree
					SORD	0	else
						PRIM	Stack/Drop	É ¥ inst/É
						PRIM	Heap/Store self
					ESBR
					SORD	1	lowlight
						PRIM	Timer/Get PAT	É ¥ time/inst/É
						LITO	3	É ¥ 3/time/inst/É
						PRIM	Stack/Xswap	É ¥ 3/inst/time/É
						LCAL	s&rq
					ESBR
					SORD	2	highlight
						PRIM	Timer/Get PAT	É ¥ time/inst/É
						LITO	4	É ¥ 4/time/inst/É
						PRIM	Stack/Xswap	É ¥ 4/inst/time/É
						LCAL	s&rq
					ESBR
				ESTR
				CMNT	 	É ¥ ref/inst/É
			ESBR
		ESTR
	ESBR
	SGLB	OpStn/Trigger	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/time/É
		LCAL	state	É ¥ blink/inst/time/É
		STRE	 	blink state s-tree
			SORD	0	else
				PRIM	Stack/Drop	É ¥ inst/time/É
				PRIM	Stack/Xdrop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	3	blink low
				CALL	354093	É ¥ ref/inst/time/É
				ASIO	OpStn/HIGHLIGHT	É ¥ inst/time/É
				LITO	4	É ¥ 4/inst/time/É
				LCAL	s&rq
			ESBR
			SORD	4	blink high
				CALL	354093	É ¥ ref/inst/time/É
				ASIO	OpStn/LOWLIGHT	É ¥ inst/time/É
				LITO	3	É ¥ 3/inst/time/É
				LCAL	s&rq
			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
	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
	ESBR
ESTR
LDEF	state
	CMNT	 	Gets the current blink state
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ state/inst/É
	LITO	3	É ¥ 3/inst/time/É
	LITO	2	É ¥ 2/3/inst/time/É
	PRIM	S_tree/Read	É ¥ blink/inst/time/É
EDEF
LDEF	s&rq
	CMNT	 	Sets the new blink state and resends the trigger
	CMNT	 	Input:  É ¥ state/inst/time/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Switch	É ¥ time/inst/state/É
	TIME	650.000	É ¥ Æt/time/inst/state/É
	GSYM	OpStn/Trigger	É ¥ method/Æt/time/inst/state/É
	CALL	354057	É ¥ inst/state/É
	PRIM	Stack/Swap	É ¥ state/inst/É
	LCAL	set
EDEF
LDEF	set
	CMNT	 	Sets the new blink state
	CMNT	 	Input:  É ¥ state/inst/É
	CMNT	 	Output:  É ¥ É
	LITO	3	É ¥ 3/state/inst/É
	LITO	2	É ¥ 2/3/state/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	send
	CMNT	 	Sends a message to the highlight method of self
	CMNT	 	Input:  É ¥ data/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Pop to aux	É/data ¥ inst/É
	PRIM	Heap/Name of self	É/data ¥ name/inst/É
	GSYM	OpStn/Highlight	É/data ¥ method/name/inst/É
	CALL	354060	É ¥ inst/É
	PRIM	Heap/Store self
EDEF