STRE	 	prototype instance
	SGLB	Misc/Class Reference
		CLAS	354157
	ESBR
	SORD	2
		LITO	0	/e,Simple,Tap,Redundant,Aux tap;Net 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	/oDelayed Break Level
		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
	ESBR
	SGLB	Utility/Event	For internal class use only (init hook)
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		LITO	5	É ¥ 5/2/inst/É
		PRIM	S_tree/Read	É ¥ flag/inst/É
		BRFL	 	branch if debug disabled
			LCAL	debug?	É ¥ inst/É
			CMNT	 	---------- initialize network state
			PRIM	Misc/Get RTN state	É ¥ state/inst/É
			PRIM	Stack/Swap	É ¥ inst/state/É
			LCAL	local	É ¥ É
		BRTR
		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
	ESBR
	SGLB	Utility/Get CRC Errors	/2u2
		LITO	2
		CALL	354076
	ESBR
	SGLB	Utility/Get Overruns	/2u2
		LITO	3
		CALL	354076
	ESBR
	SGLB	Utility/Get Fragments	/2u2
		LITO	4
		CALL	354076
	ESBR
	SGLB	Utility/Get State	/4u,1,3000;Enter address|e,Unknown,Halted,No Configuration,Crashed,OS 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
LDEF	error
	CMNT	 	Broadcast the error code and logs it
	CMNT	 	Input:  É ¥ code/inst/É
	CMNT	 	Output:  É ¥ É
	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	É ¥ É
EDEF
LDEF	Fail
	CMNT	 	Shuts down if enabled
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	3	É ¥ 3/inst/É
	LITO	2	É ¥ 2/3/inst/É
	PRIM	S_tree/Read	É ¥ enabled?/inst/É
	BRFL	 	branch if shutdown is enabled
		PRIM	Misc/Abort event
	BRTR
EDEF
LDEF	IncrIt
	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
	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
					LITO	7	É ¥ OK/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	1	forward fail
					LITO	7	É ¥ OK/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	2	reverse fail
					LITO	9	É ¥ NetFail/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	3	both fail
					LITO	9	É ¥ NetFail/inst/É
					LCAL	error	É ¥ É
				ESBR
			ESTR
		ESBR
		SORD	1	tap
			STRE
				SORD	0	none
					LITO	7	É ¥ OK/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	1	forward fail
					LITO	9	É ¥ NetFail/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	2	reverse fail
					LITO	9	É ¥ NetFail/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	3	both fail
					LITO	9	É ¥ NetFail/inst/É
					LCAL	error	É ¥ É
				ESBR
			ESTR
		ESBR
		SORD	2	redundant
			STRE
				SORD	0	none
					LCAL	F-stop	É ¥ inst/É
					LITO	7	É ¥ OK/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	1	forward fail
					LCAL	F-stop	É ¥ inst/É
					LITO	8	É ¥ NetWarn/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	2	reverse fail
					LCAL	F-stop	É ¥ inst/É
					LITO	8	É ¥ NetWarn/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	3	both fail
					LCAL	F-go	É ¥ inst/É
					LITO	8	É ¥ NetWarn/inst/É
					LCAL	error	É ¥ É
				ESBR
			ESTR
		ESBR
		SORD	3	temporary tap
			STRE
				SORD	0	none
					LCAL	F-stop	É ¥ inst/É
					LITO	7	É ¥ OK/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	1	forward fail
					LCAL	F-stop	É ¥ inst/É
					LITO	8	É ¥ NetWarn/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	2	reverse fail
					LCAL	F-go	É ¥ inst/É
					LITO	8	É ¥ NetWarn/inst/É
					LCAL	error	É ¥ É
				ESBR
				SORD	3	both fail
					LCAL	F-go	É ¥ inst/É
					LITO	8	É ¥ NetWarn/inst/É
					LCAL	error	É ¥ É
				ESBR
			ESTR
		ESBR
	ESTR
EDEF
LDEF	LogIt
	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	loop
	CMNT	 	Generates and posts a debug list
	CMNT	 	Input:  É ¥ count/list/É
	CMNT	 	Output:  É ¥ É
	PRIM	Ordinal/Decrement
	PRIM	Stack/Duplicate	É ¥ count/count/list/É
	BRFL	 	branch if done
		PRIM	Misc/Name of node	É ¥ node/count/list/É
		PRIM	Stack/Rotate up	É ¥ count/list/node/É
		PRIM	Stack/Drop	É ¥ list/node/É
		PRIM	Misc/Post event
	BRTR
	LIST	 	É ¥ new_list/count/list/É
		PRIM	Misc/Post event
	ELST
	PRIM	Stack/Rotate down	É ¥ list/new_list/count/É
	PRIM	List/Splice	É ¥ list2/count/É
	PRIM	Misc/Name of node	É ¥ node/list2/count/É
	PRIM	List/Splice	É ¥ list3/count/É
	PRIM	Stack/Swap	É ¥ count/list3/É
	LCAL	loop
EDEF
LDEF	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?
	CMNT	 	checks to see if the module should be restarted
	CMNT	 	Input:  É/node ¥ code/inst/É
	CMNT	 	Output:  É/node ¥ inst/code/É
	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/É
			LITO	2	É/node ¥ 2/4/inst/code/É
			PRIM	S_tree/Read	É/node ¥ flag/inst/code/É
			BRFL	 	branch if enabled
				PRIM	Misc/Abort event
			BRTR
		ESBR
		SORD	2	no config
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	3	crashed
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	4	OS error
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	5	self-test failure
			LCAL	Fail	É/node ¥ inst/code/É
		ESBR
		SORD	9	network failure
			LITO	2	É/node ¥ 2/inst/code/É
			LITO	2	É/node ¥ 2/2/inst/code/É
			PRIM	S_tree/Read	É/node ¥ flag/inst/code/É
			BRFL	 	branch if enabled
				PRIM	Misc/Abort event
			BRTR
		ESBR
	ESTR
EDEF
LDEF	debug?
	CMNT	 	Checks for debug enable
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	1	É ¥ 1/inst/É
	LITO	5	É ¥ 5/1/inst/É
	PRIM	S_tree/Read	É ¥ count/inst/É
	PRIM	Stack/Duplicate	É ¥ count/count/inst/É
	BRFL	 	branch if no debug
		PRIM	Stack/Drop	É ¥ inst/É
	BRTR
	LIST	 	É ¥ list/count/inst/É
		PRIM	Misc/Debug
	ELST
	PRIM	Stack/Swap	É ¥ count/list/inst/É
	LCAL	loop	É ¥ 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