STRE
	SGLB	Misc/Class Reference
		CLAS	354686	Display Handler MP
	ESBR
	SORD	2	Pages
		ICAL	Page	/*/O,354687;Page
	ESBR
	SORD	3	Current Page
		LITO	1	/o;Current Page
	ESBR
	SORD	4	Prev & Next Input State
		LITO	0	prev state
		LITO	0	next state
	ESBR
	SORD	7	State & touch mode
		ICAL	Page	/i
		LITO	0	last band
		LITO	1	/t,Disabled,Enabled;Touch Screen
	ESBR
	SORD	8	INIT_TOUCH parameters
		PERS	1
		PERS	2
		PERS	3
		PERS	4
		PERS	5
		PERS	6
	ESBR
	SORD	9	screen saver data
		LITO	0	timeout counter
		LITO	3000	/s,30,30001,0.00333333;%.1f min;Screen Saver Delay (mins)
		LITO	0	/t,Disabled,Enabled;Screen Saver
		TIME	200.000	touch timer rate
	ESBR
	SGLB	Output/#1
		LCON	 	/*+0,0,144,45,PAGE;Page
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	Object
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LCAL	Set Page	É ¥ inst/É
		CMNT	 	---- Initialize the touch screen
		LITO	8	key
		PRIM	S_tree/Get exact	É ¥ list/8/inst/É
		ASIO	OpStn/INIT_TOUCH	É ¥ list/8/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		CMNT	 	---- initialize the timers
		MACR	 	start timer
			PRIM	Timer/Get PAT	PAT/inst/É
			TIME	1000.000	Æt/PAT/inst/É
			GSYM	Timer/Timeout	method/Æt/PAT/inst/É
			CALL	354057	inst/...
		EMAC
		PRIM	Heap/Store self
	ESBR
	SGLB	Timer/Timeout	For internal class use only!
		PRIM	Stack/Xdrop	É ¥ inst/É
		LITO	9	timer data
		PRIM	S_tree/Entry to stack	É ¥ Æt/enabled?/max/count/inst/É
		PRIM	Timer/Get PAT	É ¥ PAT/Æt/enabled?/max/count/inst/É
		GSYM	Timer/Timeout	É ¥ method/PAT/Æt/enabled?/max/count/inst/É
		CALL	354057	É ¥ enabled?/max/count/inst/...
		LCAL	SScount	É ¥ SSoff?/inst/É
		PRIM	Stack/Pop to aux	É/SSoff? ¥ inst/É
		ASIO	OpStn/READ_SCREEN	É/SSoff? ¥ touch?/inst/É
		ASIO	OpStn/GET_TOUCH	É/SSoff? ¥ touch?/y/x/inst/É
		ASIO	OpStn/SCREEN_SPRITE	É/SSoff? ¥ touch?/y/x/inst/É
		BRFL	 	branch if no touch
			PRIM	Stack/Drop from aux	É ¥ y/x/inst/É
			PRIM	Stack/Drop	É ¥ x/inst/É
			PRIM	Stack/Drop	É ¥ inst/É
			LITO	7
			PRIM	S_tree/Entry to stack	É ¥ enabled?/band/page/inst/É
			PRIM	Stack/Drop	É ¥ band/page/inst/É
			LCAL	NoTouch	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		CMNT	 	É/SSoff? ¥ y/x/inst/É
		PRIM	Stack/Switch	É/SSoff? ¥ inst/x/y/É
		CMNT	 	turn off screen save and reset count
		LCAL	Show	É/SSoff? ¥ inst/x/y/É
		PRIM	Stack/Push from aux	É ¥ SSoff?/inst/x/y/É
		BRFL	 	branch if screen saver was ON
			CMNT	 	Do not execute the button press
			PRIM	Stack/Xdrop	É ¥ inst/y/É
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		CMNT
		CMNT	 	---- process touch
		PRIM	Stack/Second to aux	É/x ¥ inst/y/É
		PRIM	Stack/Second to aux	É/x/y ¥ inst/É
		LITO	7
		PRIM	S_tree/Entry to stack	É/x/y ¥ enabled?/band/page/inst/É
		BRFL	 	branch if touch screen disabled
			PRIM	Stack/Drop from aux	É/x ¥ band/page/inst/É
			PRIM	Stack/Drop from aux	É ¥ band/page/inst/É
			LCAL	NoTouch	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Dup down	É/x/y ¥ band/page/band/inst/É
		BRFL	 	branch if new touch
			PRIM	Stack/Drop	É/x/y ¥ band/inst/É
			PRIM	Stack/Drop	É/x/y ¥ inst/É
			PRIM	Stack/Push from aux	É/x ¥ y/inst/É
			PRIM	Ordinal/Right
			PRIM	Ordinal/Right
			PRIM	Ordinal/Right
			PRIM	Ordinal/Right
			PRIM	Ordinal/Right
			PRIM	Ordinal/Increment	É/x ¥ band/inst/É
			PRIM	Stack/Dup down	É/x ¥ band/inst/band/É
			LITO	2	É/x ¥ band index/band/inst/band/É
			LITO	7	É/x ¥ touch data/band index/band/inst/band/É
			PRIM	S_tree/Replace	É/x ¥ inst/band/É
			LCAL	Get Page	É/x ¥ page/inst/band/É
			PRIM	Stack/Dup down	É/x ¥ page/inst/page/band/É
			LITO	1	É/x ¥ page index/page/inst/page/band/É
			LITO	7	É/x ¥ touch data/page index/page/inst/page/band/É
			PRIM	S_tree/Replace	É/x ¥ inst/page/band/É
			PRIM	Stack/Rotate up	É/x ¥ page/band/inst/É
			LCAL	Touch Page	É ¥ É
		BRTR
		PRIM	Stack/Drop from aux	É/x ¥ page/band/inst/É
		LCAL	Touch Page	É ¥ É
	ESBR
	SGLB	OpStn/Touch mode	/3t12,Disabled,Enabled;Set Mode ...
		LITO	3
		CALL	354083	Method 7 Set
	ESBR
	SGLB	OpStn/Get Touch Mode	/2t11,Disabled,Enabled
		LITO	3
		CALL	354082	Method 7 Get
	ESBR
	SGLB	OpStn/Screen Saver	/3t12,Disabled,Enabled;Set Mode...
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		BRFL	 	branch if disabled
			LCAL	Show	É ¥ inst/arg/É
			LITO	3	enable index
			CALL	354132	É ¥ É
		BRTR
		LITO	3	enable index
		CALL	354132	É ¥ É
	ESBR
	SGLB	OpStn/Get Screen Saver	/2t11,Disabled,Enabled
		LITO	3
		CALL	354130	Method 9 Get
	ESBR
	SGLB	OpStn/Prev	/3t12,Disabled,Enabled;Set Prev...
		LITO	1	prev state index
		LCAL	Get State	É ¥ process?/inst/É
		BRFL	 	only process true inputs
			PRIM	Heap/Store self
		BRTR
		LCAL	Clear Page
		LITO	1
		LITO	3
		PRIM	S_tree/Read	É ¥ page #/inst/É
		PRIM	Ordinal/Decrement	É ¥ new page #/inst/É
		PRIM	Stack/Duplicate	É ¥ new page #/new page #/inst/É
		BRFL	 	branch if wrapping
			PRIM	Stack/Drop	É ¥ inst/É
			LITO	1	É ¥ 1/inst/É
			PRIM	Stack/Pop to aux	É/1 ¥ inst/É
			LCAL	Last Page	É ¥ É
		BRTR
		LCAL	New Page	É ¥ É
	ESBR
	SGLB	OpStn/Next	/3t12,Disabled,Enabled;Set Next...
		LITO	2	next state index
		LCAL	Get State	É ¥ process?/inst/É
		BRFL	 	only process true inputs
			PRIM	Heap/Store self
		BRTR
		LCAL	Clear Page
		LITO	1
		LITO	3
		PRIM	S_tree/Read	É ¥ page #/inst/É
		PRIM	Ordinal/Increment	É ¥ new page #/inst/É
		LCAL	New Page
	ESBR
	SGLB	OpStn/Page	/3u
		PRIM	Stack/Over	É ¥ new page #/inst/new page #/É
		BRFL	 	zero is not a valid page #, ignore it
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		LITO	1
		LITO	3
		PRIM	S_tree/Read	É ¥ old/inst/new/É
		PRIM	Stack/Xswap	É ¥ old/new/inst/É
		PRIM	Ordinal/Test equal	É ¥ old==new?/new/inst/É
		BRFL	 	branch if old != new
			PRIM	Stack/Swap	É ¥ inst/new/É
			LCAL	Clear Page	É ¥ inst/new/É
			PRIM	Stack/Swap	É ¥ new/inst/É
			LCAL	New Page	É ¥ É
		BRTR
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Get Page	/2u
		LITO	1
		CALL	354074	É ¥ É
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,878,522
	CMTL	3	0
		CMNT	24	16,0,144,45,3,1,SET PAGE;OpStn/Page
		CMNT	24	16,0,216,45,0,1,PREV PAGE;OpStn/Prev
		CMNT	24	16,0,288,45,0,2,NEXT PAGE;OpStn/Next
		CMNT	24	16,0,360,45,7,3,TOUCH SCREEN;OpStn/Touch mode
		CMNT	24	16,0,432,45,9,3, ;OpStn/Screen Saver
	ECMT
	CMTL	7	0
		CMNT	14	870,140,1,3,1,OpStn/Get Page;/u
		CMNT	22	-10,356,0,7,3,OpStn/Get Touch Mode;/t,DIS,EN
		CMNT	22	-10,428,0,9,3,OpStn/Get Screen Saver;/t,DIS,EN
		CMNT	14	15,458,0,9,2,;/w,30,30001,0.00333333;SCREEN SAVER:  %3.1f mins
	ECMT
	CMNT	8	0,0,860,504
	CMNT	18	430,70,MP  DISPLAY  HANDLER
ECMT
CMTL	 	FB Exclusions
	CLAS	350765	/~
	CLAS	350766	/~
	CLAS	350763	/~
	CLAS	354037	/~
	CLAS	354466	/~
	CLAS	354249	/~
	CLAS	354542	/~
	CLAS	354515	/~
	CLAS	350840	/~
	CLAS	354424	/~
	CLAS	354541	/~
	CLAS	354103	/~
	CLAS	354495	/~
	CLAS	350841	/~
	CLAS	350842	/~
ECMT
LDEF	SScount	É ¥ enabled?/max/count/inst/...
	CMNT	 	Output:  É ¥ SSoff?/inst/É
	BRFL	 	branch if not enabled
		PRIM	Stack/Drop	É ¥ count/inst/...
		PRIM	Stack/Drop	É ¥ inst/...
		LITO	1	É ¥ SSoff?(yes)/inst/...
	BRTR
	PRIM	Ordinal/Compare	É ¥ max<=count?/count/inst/...
	BRFL	 	branch if still counting
		PRIM	Ordinal/Increment	É ¥ count+1/inst/...
		LITO	1	screen saver count index
		LITO	9	screen saver data
		PRIM	S_tree/Replace	É ¥ inst/...
		LITO	1	É ¥ SSoff?(yes)/inst/...
	BRTR
	CMNT	 	turn on screen saver
	PRIM	Stack/Drop	É ¥ inst/...
	ASIO	OpStn/VID_DISABLE	É ¥ inst/...
	LITO	0	É ¥ SSoff?(no)/inst/...
EDEF
LDEF	NoTouch	É ¥ band/page/inst/É
	CMNT	 	Cleans up state if there is no current touch
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Dup down	É ¥ band/page/band/inst/É
	BRFL	 	branch if no previous touch
		PRIM	Stack/Drop	É ¥ page/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
	BRTR
	GSYM	OpStn/Touch Release	É ¥ method/page/band/inst/É
	CALL	354769	É ¥ inst/É
	LITO	0	É ¥ no band/inst/É
	LITO	2	É ¥ band index/no band/inst/É
	LITO	7	É ¥ touch data/band index/no band/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	Touch Page	É/x ¥ page/band/inst/É
	CMNT	 	on exit: É ¥ É
	PRIM	Stack/Push from aux	É ¥ x/page/band/inst/É
	PRIM	Stack/Rotate up	É ¥ page/band/x/inst/É
	GSYM	OpStn/Touch Screen	É ¥ method/page/band/x/inst/É
	CALL	354769	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Get Page	É ¥ inst/É
	LITO	1
	LITO	3
	PRIM	S_tree/Read	É ¥ page #/inst/É
	LITO	2
	PRIM	S_tree/Test and read
	BRFL	 	branch if page doesn't exits
		LITO	1	default to first page
		LITO	1
		LITO	3
		PRIM	S_tree/Replace
		LCAL	Get Page
	BRTR
EDEF
LDEF	Clear Page	É ¥ inst/É
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	CMNT	 	calling NoTouch here sounds good, but doesn't work
	LCAL	Get Page	É ¥ name/inst/É
	GSYM	OpStn/Clear	É ¥ method/name/inst/É
	CALL	354769	É ¥ inst/É
EDEF
LDEF	Set Page	É ¥ inst/É
	CMNT	 	invokes OpStn/Init method on attached instances
	CMNT	 	Output: É ¥ inst/É
	LCAL	Get Page	É ¥ name/inst/É
	GSYM	OpStn/Init	É ¥ method/name/inst/É
	CALL	354769	É ¥ inst/É
	LITO	1
	LITO	3
	PRIM	S_tree/Read	É ¥ page #/inst/É
	GSYM	Output/#1
	PRIM	Misc/Send entry	É ¥ inst/É
EDEF
LDEF	New Page	É ¥ page #/inst/É
	CMNT	 	set new page #
	CMNT	 	Output:  É ¥ É
	LITO	1
	LITO	3
	PRIM	S_tree/Replace	É ¥ inst/É
	LCAL	Set Page	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Show	É ¥ inst/É
	CMNT	 	turn off screen save and reset count
	CMNT	 	on exit: É ¥ inst/É
	ASIO	OpStn/VID_ENABLE	É ¥ inst/É
	LITO	0	É ¥ reset/inst/É
	LITO	1	screen saver count index
	LITO	9	screen saver data
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	Get State	É ¥ item/inst/new/É
	CMNT	 	Output: É ¥ process?/inst/É
	PRIM	Stack/Dup to aux	É/item ¥ item/inst/new/É
	LITO	4	state data
	PRIM	S_tree/Read	É/item ¥ old/inst/new/É
	PRIM	Stack/Xswap	É/item ¥ old/new/inst/É
	BRFL	 	branch if old state was false
		BRFL	 	branch if new state is false
			PRIM	Stack/Drop from aux	É ¥ inst/É
			LITO	0	É ¥ 0/inst/É
		BRTR
		CMNT	 	state change to True
		LITO	1	É/item ¥ 1/inst/É
		PRIM	Stack/Push from aux	É ¥ item/1/inst/É
		LITO	4	state data
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
	BRTR
	BRFL	 	branch if new state is false, need to save transition
		LITO	0	É/item ¥ 0/inst/É
		PRIM	Stack/Push from aux	É ¥ item/1/inst/É
		LITO	4	state data
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
	BRTR
	PRIM	Stack/Drop from aux	É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
EDEF
LDEF	Last Page	É/page ¥ inst/É
	CMNT	 	sets page to last page
	PRIM	Stack/Push from aux	É ¥ page/inst/É
	PRIM	Ordinal/Increment	É ¥ page+1/inst/É
	PRIM	Stack/Dup to aux	É/page+1 ¥ page+1/inst/É
	LITO	2	É/page+1 ¥ 2/page+1/inst/É
	PRIM	S_tree/Test and read	É/page+1 ¥ exists?/(data)/inst/É
	BRFL	 	branch if page doesn't exits
		PRIM	Stack/Push from aux	É ¥ page+1/inst/É
		PRIM	Ordinal/Decrement	É ¥ page/inst/É
		LCAL	New Page	É ¥ É
	BRTR
	PRIM	Stack/Drop	É/page+1 ¥ inst/É
	LCAL	Last Page
EDEF