STRE
	SGLB	Misc/Superclass Reference
		CLAS	350855
	ESBR
	SORD	2
		LITO	0	Current state (initially set to 0)
		STRE	 	state s-tree
			SORD	0	/e,Initialization;State
				STRE	 	event s-tree
					SORD	0	event 0
						LITO	1	/o;Initial state
						LCON	 	/*;Initialization output
					ESBR
				ESTR
			ESBR
			SORD	2	/*/O;State
				STRE	 	event s-tree
					SORD	0	/*/O;Event number
						LITO	1	/o;New state
						LCON	 	/*;Output
					ESBR
				ESTR
			ESBR
			SORD	1	/o;State
				STRE	 	event s-tree
					SORD	0	/*/O;Event number
						LITO	1	/o;New state
						LCON	 	/*;Output
					ESBR
				ESTR
			ESBR
		ESTR
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		GSYM	FSM/Reset	É ¥ method/inst/É
		CLAS	350855	delegate to FSM/State Machine
	ESBR
	SGLB	FSM/Event	/3u3;Event number
		CMNT	 	Expects:  É ¥ inst/event/É
		PRIM	Stack/Swap	É ¥ event/inst/É
		PRIM	Stack/Pop to aux	É/event ¥ inst/É
		LITO	2	É/event ¥ 2/inst/É
		PRIM	S_tree/Get exact	É/event ¥ tree/2/inst/É
		PRIM	List/Behead	É/event ¥ state/state_tree/2/inst/É
		PRIM	S_tree/Test for entry	É/event ¥ rslt/state/state_tree/2/inst/É
		BRFL	 	branch if no such state
			PRIM	Stack/Drop	É/event ¥ state_tree/2/inst/É
			PRIM	Stack/Drop from aux	É ¥ state_tree/2/inst/É
			LITO	0	É ¥ 0/state_tree/2/inst/É
			PRIM	List/Splice	É ¥ tree/2/inst/É
			PRIM	S_tree/Put	É ¥ inst/É
			GSYM	General/Initialize	É ¥ method/inst/É
			CLAS	350855	delegate to FSM/State Machine
		BRTR
		PRIM	S_tree/Get exact	É/event ¥ event_tree/state/state_tree/2/inst/É
		PRIM	S_tree/Test singleton	É/event ¥ rslt/event_tree/state/state_tree/2/inst/É
		BRFL	 	branch if not a singleton
			PRIM	Stack/Push from aux	É ¥ event/event_tree/state/state_tree/2/inst/É
			PRIM	S_tree/Test for entry	É ¥ rslt/event/event_tree/state/state_tree/2/inst/É
			BRFL	 	branch if event ignored in this state
				LCAL	Ignored
			BRTR
			PRIM	S_tree/Get exact	É ¥ entry/event/event_tree/state/state_tree/2/inst/É
			PRIM	Stack/Dup to aux	É/entry ¥ entry/event/event_tree/state/state_tree/2/inst/É
			PRIM	S_tree/Put	É/entry ¥ event_tree/state/state_tree/2/inst/É
			PRIM	S_tree/Put	É/entry ¥ state_tree/2/inst/É
			LCAL	Ending
		BRTR
		PRIM	Stack/Push from aux	É ¥ event/event_tree/state/state_tree/2/inst/É
		PRIM	S_tree/Test for entry	É ¥ rslt/event/event_tree/state/state_tree/2/inst/É
		BRFL	 	branch if event ignored in this state
			LCAL	Ignored
		BRTR
		CMNT	 	current event is same as the (single) entry
		PRIM	Stack/Drop	É ¥ event_tree/state/state_tree/2/inst/É
		PRIM	S_tree/S_tree to item	É ¥ event/entry/state/state_tree/2/inst/É
		PRIM	Stack/Over	É ¥ entry/event/entry/state/state_tree/2/inst/É
		PRIM	Stack/Pop to aux	É/entry ¥ event/entry/state/state_tree/2/inst/É
		PRIM	S_tree/Item to s_tree	É/entry ¥ event_tree/state/state_tree/2/inst/É
		PRIM	S_tree/Put	É/entry ¥ state_tree/2/inst/É
		LCAL	Ending
	ESBR
	SGLB	FSM/Get State	/2u2
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1	É ¥ 1/inst/route/É
		LITO	2	É ¥ 2/1/inst/route/É
		CALL	354086
	ESBR
	SGLB	FSM/Reset	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		PRIM	Stack/Dup down	É ¥ 0/inst/0/É
		LITO	1	É ¥ 1/0/inst/0/É
		LITO	2	É ¥ 2/1/0/inst/0/É
		PRIM	S_tree/Replace	É ¥ inst/0/É
		GSYM	FSM/Event	É ¥ method/inst/0/É
		CLAS	350855	delegate to FSM/State Machine
	ESBR
ESTR
LDEF	Ignored
	CMNT	 	Puts instance back together with no changes
	CMNT	 	Input:  É ¥ event/event_tree/state/state_tree/2/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Drop	É ¥ event_tree/state/state_tree/2/inst/É
	PRIM	Stack/Over	É ¥ state/event_tree/state/state_tree/2/inst/É
	PRIM	Stack/Pop to aux	É/state ¥ event_tree/state/state_tree/2/inst/É
	PRIM	S_tree/Put	É/state ¥ state_tree/2/inst/É
	PRIM	Stack/Push from aux	É ¥ state/state_tree/2/inst/É
	PRIM	List/Splice	É ¥ tree/2/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Ending
	CMNT	 	Puts the instance back together and sends the connectors
	CMNT	 	Input:  É/entry ¥ state_tree/2/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Push from aux	É ¥ entry/state_tree/2/inst/É
	PRIM	List/Test for leaf	É ¥ rslt/entry/state_tree/2/inst/É
	BRFL	 	branch if connectors attached
		PRIM	List/Behead	É ¥ new_state/connectors/state_tree/2/inst/É
		PRIM	Stack/Dup to aux	É/dummy_data ¥ new_state/connectors/state_tree/2/inst/É
		PRIM	Stack/Swap	É/dummy_data ¥ connectors/new_state/state_tree/2/inst/É
		PRIM	Misc/Send	É ¥ new_state/state_tree/2/inst/É
		PRIM	List/Splice	É ¥ tree/2/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		PRIM	Heap/Store self
	BRTR
	PRIM	List/List to item	É ¥ new_state/state_tree/2/inst/É
	PRIM	List/Splice	É ¥ tree/2/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
	PRIM	Heap/Store self
EDEF