STRE	 	prototype instance
	SGLB	Misc/Class Reference
		CLAS	354157	System Control
	ESBR
	SORD	2
		LTOP	 	local topology
		LITO	1	/t,Enabled,Disabled;Restart on network failure
		LITO	1	/t,Enabled,Disabled;Restart on module failure
		LITO	1	/t,Enabled,Disabled;Restart on reconfiguration
	ESBR
	SORD	3
		STRE	 	node control s-tree
			SORD	0	dummy
				LITO	0	dummy
			ESBR
		ESTR
	ESBR
	SORD	4
		LITO	0	address matches
		LITO	0	CRC errors
		LITO	0	overruns
		LITO	0	fragments
	ESBR
	SORD	5	/e,,,,,,SSD use only;Debug Options
		LITO	0	/t,Disabled,Enabled;Delayed Break
		LITO	0	/t,Disabled,Enabled;Immediate Break
	ESBR
	CMNT	 	entry 6 may be present as a flag for the fail filter
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	Object
	ESBR
	SGLB	Utility/Event	For internal class use only (init hook)
		CMNT	 	Expects:  É ¥ inst/É
		LITO	5	É ¥ 5/inst/É
		PRIM	S_tree/Entry to stack	É ¥ Imm/delayed/inst/É
		BRFL	 	branch if no immediate debug
			LCAL	debug?	É ¥ inst/É
			CMNT	 	---------- initialize network state
			PRIM	Misc/Get RTN state	É ¥ state/inst/É
			PRIM	Stack/Swap	É ¥ inst/state/É
			LCAL	local	É ¥ É
		BRTR
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
		PRIM	Misc/Debug	É ¥ É
	ESBR
	SGLB	Utility/Trigger	special method invoked from handler
		CMNT	 	Expects:  É ¥ inst/slot/node/data/É
		PRIM	Stack/Rotate up	É ¥ slot/node/inst/data/É
		PRIM	Stack/Over	É ¥ node/slot/node/inst/data/É
		BRFL	 	branch if local exception
			CMNT	 	É ¥ error_code/0/inst/state/É
			PRIM	Stack/Xdrop	É ¥ error_code/inst/state/É
			STRE	 	search on error
				SORD	4	Fragment
					LITO	4	É ¥ 4/inst/status/É
					LCAL	IncrIt	É ¥ É
				ESBR
				SORD	8	Overrun
					LITO	3	É ¥ 3/inst/status/É
					LCAL	IncrIt	É ¥ É
				ESBR
				SORD	16	CRC error
					LITO	2	É ¥ 2/inst/status/É
					LCAL	IncrIt	É ¥ É
				ESBR
				SORD	32	Address match
					LITO	1	É ¥ 1/inst/status/É
					LCAL	IncrIt	É ¥ É
				ESBR
				SORD	64	reverse link transition
					LCAL	local
				ESBR
				SORD	128	forward link transition
					LCAL	local
				ESBR
			ESTR
		BRTR
		CMNT	 	É ¥ 32/node/inst/blink_code/É
		PRIM	Stack/Drop	É ¥ node/inst/blink_code/É
		PRIM	Stack/Rotate down	É ¥ blink_code/node/inst/É
		LCAL	LogIt	É ¥ É
	ESBR
	SGLB	Utility/Get Next	For use by the NetMon class only
		CMNT	 	Expects:  É ¥ inst/key/route/É
		PRIM	Stack/Second to aux	É/key ¥ inst/route/É
		LITO	3	É/key ¥ 3/inst/route/É
		PRIM	S_tree/Get exact	É/key ¥ tree/3/inst/route/É
		PRIM	Stack/Push from aux	É ¥ key/tree/3/inst/route/É
		LCAL	next	É ¥ É
	ESBR
	SGLB	Utility/Debug	/1
		CMNT	 	Expects:  É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
		PRIM	Misc/Debug	É ¥ É
	ESBR
	SGLB	Utility/Get Address Matches	/2u2
		LITO	1
		CALL	354076	Method 4 Get
	ESBR
	SGLB	Utility/Get CRC Errors	/2u2
		LITO	2
		CALL	354076	Method 4 Get
	ESBR
	SGLB	Utility/Get Overruns	/2u2
		LITO	3
		CALL	354076	Method 4 Get
	ESBR
	SGLB	Utility/Get Fragments	/2u2
		LITO	4
		CALL	354076	Method 4 Get
	ESBR
	SGLB	Utility/Get State	/4u,1,3000;Enter address|e,Unknown,Halted,No Configuration,L Error,H Error,Selt-Test Failure,Abort,OK,Network Warning,Network Failure
		CMNT	 	Expects:  É ¥ inst/ref/route/É
		PRIM	Stack/Second to aux	É/ref ¥ inst/route/É
		LITO	3	É/ref ¥ 3/inst/route/É
		PRIM	S_tree/Get exact	É/ref ¥ tree/3/inst/route/É
		LITO	1	É/ref ¥ 1/tree/3/inst/route/É
		PRIM	Stack/Push from aux	É ¥ ref/1/tree/3/inst/route/É
		PRIM	S_tree/Test and read	É ¥ rslt/(data)/tree/3/inst/route/É
		BRFL	 	branch if no such entry
			PRIM	S_tree/Put	É ¥ inst/route/É
			LITO	0	É ¥ 0/inst/route/É
			CALL	354056	É ¥ É
		BRTR
		PRIM	Stack/Pop to aux	É/data ¥ tree/3/inst/route/É
		PRIM	S_tree/Put	É/data ¥ inst/route/É
		PRIM	Stack/Push from aux	É ¥ data/inst/route/É
		CALL	354056	É ¥ É
	ESBR
	SGLB	Utility/Filter	For internal class use only (NetFail filter)
		CMNT	 	Expects:  É ¥ inst/time/É
		PRIM	Stack/Second to aux	É/time ¥ inst/É
		LITO	6	É/time ¥ 6/inst/É
		PRIM	S_tree/Get exact	É/time ¥ list/6/inst/É
		PRIM	List/Behead	É/time ¥ flag/target/6/inst/É
		BRFL	 	branch if invalidated
			PRIM	Stack/Drop	É/time ¥ 6/inst/É
			PRIM	Stack/Drop	É/time ¥ inst/É
			PRIM	Stack/Drop from aux	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Push from aux	É ¥ time/target/6/inst/É
		PRIM	Timer/Compare	É ¥ rslt/target/6/inst/É
		BRFL	 	branch if timing finished
			PRIM	Stack/Drop	É ¥ 6/inst/É
			PRIM	Stack/Drop	É ¥ inst/É
			LITO	9	É ¥ NetFail/inst/É
			LCAL	error	É ¥ É
		BRTR
		PRIM	Stack/Duplicate	É ¥ rslt/target/target/6/inst/É
		TIME	0.003	É ¥ Æt/target/target/6/inst/É
		GSYM	Utility/Filter	É ¥ method/Æt/target/target/6/inst/É
		CALL	354057	É ¥ target/6/inst/É
		LITO	1	É ¥ 1/target/6/inst/É
		PRIM	List/Splice	É ¥ list/6/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,378,358
	CMNT	8	0,0,360,340
	CMNT	18	180,70,SYSTEM
	CMNT	18	180,140,CONTROL
	CMNT	18	182,263,^A.^X
	CMNT	16	30,180,330,300,120
	CMNT	60	16,225,46,255
	CMNT	60	308,225,338,255
	CMNT	60	75,170,105,200
	CMNT	60	165,165,195,195
	CMNT	60	255,170,285,200
	CMNT	60	75,280,105,310
	CMNT	60	165,285,195,315
	CMNT	60	255,280,285,310
ECMT
LDEF	error
	CMNT	 	Broadcast the error code and logs it
	CMNT	 	Input:  É ¥ code/inst/É
	CMNT	 	Output:  É ¥ É
	TIME	5000.000
	PRIM	Timer/Get PAT	É ¥ PAT/5s/code/inst/É
	PRIM	Timer/Compare	É ¥ late?/5s/code/inst/É
	PRIM	Stack/Xdrop	É ¥ late?/code/inst/É
	BRFL
		CMNT	 	more than 5s since startup. do broadcasts immediately.
		PRIM	Stack/Duplicate	É ¥ code/code/inst/É
		CALL	354094	É ¥ code/inst/É
		PRIM	Misc/Name of node	É ¥ node/code/inst/É
		PRIM	Stack/Swap	É ¥ code/node/inst/É
		LCAL	LogIt	É ¥ É
	BRTR
	CMNT	 	less than 5s since startup. spread broadcasts out in time.
	PRIM	Stack/Duplicate	É ¥ code/code/inst/É
	LIST
		CMNT	 	LITO code will be here (ADDed below)
		PRIM	Stack/Xdrop	drop the trigger time
		CALL	354094	Broadcast Exception
	ELST
	PRIM	List/Add	É ¥ {code.call broadcast execption}/code/inst/É
	TIME	32767.000
	PRIM	Misc/Name of node	Æt is module address in ms.
	PRIM	Timer/Multiply
	PRIM	Timer/Get PAT
	PRIM	Timer/Add	É ¥ target time/list/code/inst/É
	PRIM	List/Splice	É ¥ list/code/inst/É
	PRIM	Timer/Post event	É ¥ code/inst/É
	CMNT	 	now handle it locally too
	PRIM	Misc/Name of node	É ¥ node/code/inst/É
	PRIM	Stack/Swap	É ¥ code/node/inst/É
	LCAL	LogIt	É ¥ É
EDEF
LDEF	Fail
	CMNT	 	Shuts down if enabled
	CMNT	 	Input:  É ¥ index/inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	2	É ¥ 2/index/inst/É
	PRIM	S_tree/Read	É ¥ enabled?/inst/É
	BRFL	 	branch if shutdown is enabled
		PRIM	Misc/Abort event
	BRTR
EDEF
LDEF	IncrIt	called from METHOD 'Utility/Trigger'
	CMNT	 	increments the error counter for the particular type
	CMNT	 	Input:  É ¥ ref/inst/status/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Dup down	Input:  É ¥ ref/inst/ref/status/É
	LITO	4	Input:  É ¥ 4/ref/inst/ref/status/É
	PRIM	S_tree/Read	Input:  É ¥ data/inst/ref/status/É
	PRIM	Ordinal/Increment	Input:  É ¥ data'/inst/ref/status/É
	PRIM	Stack/Rotate down	Input:  É ¥ ref/data'/inst/status/É
	LITO	4	Input:  É ¥ 4/ref/data'/inst/status/É
	PRIM	S_tree/Replace	Input:  É ¥ inst/status/É
	PRIM	Stack/Xdrop	Input:  É ¥ inst/É
	PRIM	Heap/Store self	Input:  É ¥ É
EDEF
LDEF	local	called from METHOD 'Utility/Trigger'
	CMNT	 	deals with local network errors
	CMNT	 	Input:  É ¥ inst/state/É
	CMNT	 	Output:  É ¥ É
	LITO	1	É ¥ 1/inst/state/É
	LITO	2	É ¥ 2/1/inst/state/É
	PRIM	S_tree/Read	É ¥ net_type/inst/state/É
	PRIM	Stack/Xswap	É ¥ net_type/state/inst/É
	STRE	 	network type s-tree
		SORD	0	simple
			STRE
				SORD	0	none
					LCAL	N-ok
				ESBR
				SORD	1	forward fail
					LCAL	N-ok
				ESBR
				SORD	2	reverse fail
					LCAL	N-fail
				ESBR
				SORD	3	both fail
					LCAL	N-fail
				ESBR
			ESTR
		ESBR
		SORD	1	tap
			STRE
				SORD	0	none
					LCAL	N-ok
				ESBR
				SORD	1	forward fail
					LCAL	N-fail
				ESBR
				SORD	2	reverse fail
					LCAL	N-fail
				ESBR
				SORD	3	both fail
					LCAL	N-fail
				ESBR
			ESTR
		ESBR
		SORD	2	redundant
			STRE
				SORD	0	none
					LCAL	N-ok
				ESBR
				SORD	1	forward fail
					LCAL	N-warn
				ESBR
				SORD	2	reverse fail
					LCAL	N-warn
				ESBR
				SORD	3	both fail
					LCAL	N-fail
				ESBR
			ESTR
		ESBR
		SORD	3	temporary tap
			STRE
				SORD	0	none
					LCAL	N-ok
				ESBR
				SORD	1	forward fail
					LCAL	N-warn
				ESBR
				SORD	2	reverse fail
					LCAL	N-fail
				ESBR
				SORD	3	both fail
					LCAL	N-fail
				ESBR
			ESTR
		ESBR
	ESTR
EDEF
LDEF	LogIt	called from METHOD 'Utility/Trigger'
	CMNT	 	logs the error into the status s-tree
	CMNT	 	Input:  É ¥ code/node/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Second to aux	É/node ¥ code/inst/É
	LCAL	Restart?	É/node ¥ inst/code/É
	PRIM	Stack/Second to aux	É/node/code ¥ inst/É
	LITO	3	É/node/code ¥ 3/inst/É
	PRIM	S_tree/Get exact	É/node/code ¥ tree/3/inst/É
	PRIM	Stack/Push from aux	É/node ¥ code/tree/3/inst/É
	PRIM	List/Item to list	É/node ¥ list/tree/3/inst/É
	LITO	0	É/node ¥ 0/list/tree/3/inst/É
	PRIM	Stack/Push from aux	É ¥ node/0/list/tree/3/inst/É
	LITO	3001	É ¥ 3001/node/0/list/tree/3/inst/É
	PRIM	Ordinal/Compare	É ¥ rslt/node/0/list/tree/3/inst/É
	BRFL	 	branch if node<3000
		PRIM	S_tree/Replace	É ¥ tree/3/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	PRIM	Stack/Drop	É ¥ 0/list/tree/3/inst/É
	PRIM	Stack/Drop	É ¥ list/tree/3/inst/É
	PRIM	Stack/Drop	É ¥ tree/3/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	next	called from METHOD 'Utility/Get Next'
	CMNT	 	Finds the next entry in the status tree and returns it or zero
	CMNT	 	Input:  É ¥ key/tree/3/inst/route/É
	CMNT	 	Output:  É ¥ É
	PRIM	S_tree/Get next	É ¥ rslt/key'/tree/3/inst/route/É
	BRFL	 	branch if no more
		PRIM	Stack/Drop	É ¥ tree/3/inst/route/É
		PRIM	S_tree/Put	É ¥ inst/route/É
		LIST	 	É ¥ list/inst/route/É
			LITO	0
			LITO	7
		ELST
		CALL	354056	É ¥ É
	BRTR
	PRIM	Stack/Dup to aux	É/key' ¥ key'/tree/3/inst/route/É
	LITO	1	É/key' ¥ 1/key'/tree/3/inst/route/É
	PRIM	Stack/Swap	É/key' ¥ key'/1/tree/3/inst/route/É
	PRIM	S_tree/Read	É/key' ¥ status/tree/3/inst/route/É
	LITO	7	É/key' ¥ 7/status/tree/3/inst/route/É
	PRIM	Ordinal/Test equal	É/key' ¥ rslt/status/tree/3/inst/route/É
	BRFL	 	branch if not OK (=7)
		PRIM	Stack/Pop to aux	É/key'/status ¥ tree/3/inst/route/É
		PRIM	S_tree/Put	É/key'/status ¥ inst/route/É
		PRIM	Stack/Push from aux	É/key'/ ¥ status/inst/route/É
		PRIM	List/Item to list	É/key'/ ¥ list/inst/route/É
		PRIM	Stack/Push from aux	É ¥ key'/list/inst/route/É
		PRIM	List/Splice	É ¥ list'/inst/route/É
		CALL	354056	É ¥ É
	BRTR
	PRIM	Stack/Drop	É/key' ¥ tree/3/inst/route/É
	PRIM	Stack/Push from aux	É ¥ key'/tree/3/inst/route/É
	LCAL	next	É ¥ É
EDEF
LDEF	Restart?	called from LOCAL 'LogIt'
	CMNT	 	checks to see if the module should be restarted
	CMNT	 	Input:  É/node ¥ code/inst/É
	CMNT	 	Output:  É/node ¥ inst/code/É
	PRIM	Stack/Duplicate	É/node ¥ code/code/inst/É
	BRFL	 	branch if code=0
		PRIM	Stack/Swap	É/node ¥ inst/code/É
	BRTR
	PRIM	Stack/Dup down	É/node ¥ code/inst/code/É
	STRE	 	exception code s-tree
		SORD	0	other
			PRIM	Stack/Drop	É/node ¥ inst/code/É
		ESBR
		SORD	1	halted
			LITO	4	É/node ¥ 4/inst/code/É
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	2	no config
			LITO	4	É/node ¥ 4/inst/code/É
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	3	crashed
			LITO	3	É/node ¥ 3/inst/code/É
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	4	OS error
			LITO	3	É/node ¥ 3/inst/code/É
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	9	network failure
			LITO	2	É/node ¥ 2/inst/code/É
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
	ESTR
EDEF
LDEF	debug?	called from METHOD 'Utility/Event'
	CMNT	 	Checks for delayed debug enable
	CMNT	 	Input:  É ¥ enable/inst/É
	CMNT	 	Output:  É ¥ inst/É
	BRFL	 	branch if no delayed debug
		PRIM	Misc/Idle	É ¥ inst/É
	BRTR
	LIST	 	É ¥ list/inst/É
		PRIM	Misc/Debug
	ELST
	PRIM	Misc/Name of node	É ¥ node/list/inst/É
	PRIM	Stack/Swap	É ¥ list/node/inst/É
	PRIM	Misc/Post event	É ¥ inst/É
EDEF
LDEF	F-go
	CMNT	 	starts or requeues the filter timer
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Timer/Get PAT	É ¥ time/inst/É
	TIME	1000.000	É ¥ Æt/time/inst/É
	PRIM	Timer/Add	É ¥ time'/inst/É
	PRIM	Stack/Pop to aux	É/time' ¥ inst/É
	LITO	6	É/time' ¥ 6/inst/É
	PRIM	S_tree/Test for entry	É/time' ¥ rslt/6/inst/É
	BRFL	 	branch if no such entry
		PRIM	Stack/Dup from aux	É/time' ¥ time'/6/inst/É
		LITO	1	É/time' ¥ 1/time'/6/inst/É
		PRIM	List/Splice	É/time' ¥ list/6/inst/É
		PRIM	S_tree/Put	É/time' ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ time'/inst/É
		TIME	0.003	É ¥ Æt/time'/inst/É
		GSYM	Utility/Filter	É ¥ method/Æt/time/inst/É
		CALL	354057	É ¥ inst/É
	BRTR
	PRIM	Stack/Push from aux	É ¥ time'/6/inst/É
	LITO	1	É ¥ 1/time'/6/inst/É
	PRIM	List/Splice	É ¥ list/6/inst/É
	LITO	0	É ¥ 0/list/6/inst/É
	PRIM	Stack/Rotate down	É ¥ 6/0/list/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	F-stop
	CMNT	 	clears the filter timer
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	6	É ¥ 6/inst/É
	PRIM	S_tree/Test for entry	É ¥ rslt/6/inst/É
	BRFL	 	branch if no such entry
		PRIM	Stack/Drop	É ¥ inst/É
	BRTR
	LITO	0	É ¥ 0/6/inst/É
	LITO	1	É ¥ 1/0/6/inst/É
	PRIM	Stack/Rotate down	É ¥ 6/1/0/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	N-warn	called from LOCAL 'local'
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LCAL	F-stop	É ¥ inst/É
	LITO	8	É ¥ NetWarn/inst/É
	LCAL	error	É ¥ É
EDEF
LDEF	N-fail	called from LOCAL 'local'
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LCAL	F-go	É ¥ inst/É
	LITO	8	É ¥ NetWarn/inst/É
	LCAL	error	É ¥ É
EDEF
LDEF	N-ok	called from LOCAL 'local'
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LCAL	F-stop	É ¥ inst/É
	LITO	7	É ¥ OK/inst/É
	LCAL	error	É ¥ É
EDEF