STRE
	SGLB	Misc/Class Reference
		CLAS	354264
	ESBR
	SORD	2
		LITO	0	current state
	ESBR
	SORD	3
		LITO	0	/t,Ignore,Indicate;Indicate on Initialization
		LITO	0	/t,Ignore,Indicate;Indicate on Halted
		LITO	0	/t,Ignore,Indicate;Indicate on Bad Configuration
		LITO	0	/t,Ignore,Indicate;Indicate on L Error
		LITO	0	/t,Ignore,Indicate;Indicate on H Error
		LITO	0	/t,Ignore,Indicate;Indicate on Self-Test Failure
		LITO	0	/t,Ignore,Indicate;Indicate on Shutdown
		LITO	0	{/t,Ignore,Indicate;Indicate on OK
		LITO	0	/t,Ignore,Indicate;Indicate on Network Warning
		LITO	1	/t,Ignore,Indicate;Indicate on Network Failure
		LITO	0	/t,Ignore,Indicate;Indicate on Checking Network
		LITO	0	/t,Ignore,Indicate;Indicate on Peer Halted
		LITO	0	/t,Ignore,Indicate;Indicate on Duplicate Address
	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
	SGLB	Output/#1
		LCON	 	/*+;Non-inverted Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Inverted Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	For internal class use only!
		CMNT	 	Expects:  É ¥ inst/É
		LIST	 	É ¥ list/inst/É
			GSYM	Utility/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/É
		PRIM	Timer/Get PAT	É ¥ time/inst/É
		PRIM	Stack/Swap	É ¥ inst/time/É
		GSYM	Utility/Sequence	É ¥ method/inst/time/É
		CLAS	354264
	ESBR
	SGLB	Utility/Sequence	internal class use only
		CMNT	 	Expects:  É ¥ inst/time/É
		CMNT	 	---------- Requeue
		PRIM	Stack/Swap	É ¥ time/inst/É
		TIME	1000.000	É ¥ Æt/time/inst/É
		GSYM	Utility/Sequence	É ¥ method/Æt/time/inst/É
		CALL	354057	É ¥ inst/É
		CMNT	 	---------- Send exchange message
		LITO	0	É ¥ 0/inst/É
		LCAL	Send	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Utility/Return	internal class use only
		CMNT	 	Expects:  É ¥ inst/list/É
		CMNT	 	list contains:  -->ADDR-->CODE--X
		PRIM	Stack/Swap	É ¥ list/inst/É
		PRIM	List/Behead	É ¥ addr/list'/inst/É
		PRIM	Stack/Dup to aux	É/addr ¥ addr/list'/inst/É
		BRFL	 	branch if complete
			PRIM	Stack/Drop from aux	É ¥ list'/inst/É
			PRIM	Stack/Drop	É ¥ inst/É
			LITO	0	É ¥ 0/inst/É
			CALL	354125	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	List/List to item	É/addr ¥ type/inst/É
		PRIM	Ordinal/Increment	É/addr ¥ ref/inst/É
		LITO	3	É/addr ¥ 3/ref/inst/É
		PRIM	S_tree/Read	É/addr ¥ enabled?/inst/É
		BRFL	 	branch if not enabled to indicate
			PRIM	Stack/Push from aux	É ¥ addr/inst/É
			LCAL	Send	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Drop from aux	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		CALL	354125	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Output	/2t4,false,true
		LITO	1	index
		LITO	2	key
		CALL	354086
	ESBR
ESTR
LDEF	Send
	CMNT	 	Sends an exchange message to System Control
	CMNT	 	Input:  É ¥ addr/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Pop to aux	Input:  É/addr ¥ inst/É
	LITO	0	É/addr ¥ 0/inst/É
	LITO	4	É/addr ¥ 4/0/inst/É
	PRIM	S_tree/Read	É/addr ¥ list/inst/É
	PRIM	Stack/Push from aux	É ¥ addr/list/inst/É
	LITO	2	É ¥ 2/addr/list/inst/É
	PRIM	List/Replace	É ¥ list/inst/É
	PRIM	Misc/Name of node	É ¥ node/list/inst/É
	PRIM	Stack/Swap	É ¥ list/node/inst/É
	PRIM	Misc/Post event	É ¥ inst/É
EDEF