STRE	 	prototype instance
	SGLB	Misc/Class Reference
		CLAS	354312	System Control II
	ESBR
	SORD	2	Config stuff
		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
		LITO	0	Error Count
	ESBR
	CMNT	 	entry 3 is used for the NetFail filter
	CMNT	 	output #1 is used for NEP attachment
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	Object
	ESBR
	SGLB	Utility/Event	For internal class use only (init hook)
		CMNT	 	Expects:  É ¥ inst/É
		LITO	3	É ¥ 3/inst/É
		CALL	354305	É ¥ inst/É
		CMNT	 	---------- initialize network state
		PRIM	Misc/Get RTN state	É ¥ state/inst/É
		PRIM	Stack/Swap	É ¥ inst/state/É
		LCAL	local	É ¥ É
	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	0	Fragment, CRC Error, Overrun or Address Match
					PRIM	Stack/Drop	É ¥ inst/state/É
					PRIM	Stack/Xdrop	É ¥ inst/É
					LITO	5	É ¥ 5/inst/É
					LITO	2	É ¥ 2/5/inst/É
					PRIM	S_tree/Read	É ¥ count/inst/É
					PRIM	Ordinal/Increment	É ¥ count+1/inst/É
					LITO	5	É ¥ 5/count+1/inst/É
					LITO	2	É ¥ 2/5/count+1/inst/É
					PRIM	S_tree/Replace	É ¥ inst/É
					PRIM	Heap/Store self
				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/Debug	/1
		CMNT	 	Expects:  É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
		PRIM	Misc/Debug	É ¥ É
	ESBR
	SGLB	Utility/Get Errors	/2u2
		LITO	5
		CALL	354072	Method 2 Get
	ESBR
	SGLB	Timer/Timeout	For internal class use only (NetFail filter)
		CMNT	 	Expects:  (handled by 'Timer/Receiver')
		CALL	354308	É/(time) ¥ ref/inst/É
		BRFL	 	branch if no timeout
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Drop from aux	É ¥ inst/É
		LITO	9	É ¥ NetFail/inst/É
		LCAL	error	É ¥ É
	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	SendIt
	LITO	0	É ¥ 0/key/inst/É
	PRIM	Stack/Swap	É ¥ key/0/inst/É
	PRIM	S_tree/Read	É ¥ list/inst/É
	PRIM	Misc/Name of node	É ¥ node/list/inst/É
	PRIM	Stack/Swap	É ¥ list/node/inst/É
	PRIM	Misc/Post event	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Fail	called from LOCAL 'Restart'
	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	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	 	sends the NEP report to output #4
	CMNT	 	Input:  É ¥ code/node/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Dup down	É ¥ code/node/code/inst/É
	PRIM	List/Item to list	É ¥ leaf/node/code/inst/É
	PRIM	List/Add	É ¥ list/code/inst/É
	PRIM	Stack/Rotate up	É ¥ code/inst/list/É
	LCAL	Restart?	É ¥ inst/list/É
	PRIM	Stack/Swap	É ¥ list/inst/É
	GSYM	Output/#1	É ¥ #1/list/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Restart?	called from LOCAL 'LogIt'
	CMNT	 	checks to see if the module should be restarted
	CMNT	 	Input:  É ¥ code/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Duplicate	É ¥ code/code/inst/É
	BRFL	 	branch if code=0
		PRIM	Stack/Drop	É ¥ inst/É
	BRTR
	STRE	 	exception code s-tree
		SORD	0	other
			PRIM	Stack/Drop	É ¥ inst/É
		ESBR
		SORD	1	halted
			LITO	4	É ¥ 4/inst/É
			LCAL	Fail	É ¥ inst/É
		ESBR
		SORD	2	no config
			LITO	4	É ¥ 4/inst/É
			LCAL	Fail	É ¥ inst/É
		ESBR
		SORD	3	crashed
			LITO	3	É ¥ 3/inst/É
			LCAL	Fail	É ¥ inst/É
		ESBR
		SORD	4	OS error
			LITO	3	É ¥ 3/inst/É
			LCAL	Fail	É ¥ inst/É
		ESBR
		SORD	9	network failure
			LITO	2	É ¥ 2/inst/É
			LCAL	Fail	É ¥ inst/É
		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	N-warn	called from LOCAL 'local'
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	3	É ¥ 3/inst/É
	CALL	354286	É ¥ inst/É
	LITO	8	É ¥ NetWarn/inst/É
	LCAL	error	É ¥ É
EDEF
LDEF	N-fail	called from LOCAL 'local'
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	TIME	1000.000	É ¥ Æt/inst/É
	LITO	3	É ¥ 3/Æt/inst/É
	CALL	354285	É ¥ inst/É
	LITO	8	É ¥ NetWarn/inst/É
	LCAL	error	É ¥ É
EDEF
LDEF	N-ok	called from LOCAL 'local'
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	3	É ¥ 3/inst/É
	CALL	354286	É ¥ inst/É
	LITO	7	É ¥ OK/inst/É
	LCAL	error	É ¥ É
EDEF