STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354677
	ESBR
	SORD	2
		LITO	0	state last sent
	ESBR
	SORD	3	indicate flags
		LITO	1	/t,Ignore,Indicate;Indicate on Initialization
		LITO	1	/t,Ignore,Indicate;Indicate on Halted
		LITO	1	/t,Ignore,Indicate;Indicate on Bad Configuration
		LITO	1	/t,Ignore,Indicate;Indicate on L Error
		LITO	1	/t,Ignore,Indicate;Indicate on H Error
		LITO	1	/t,Ignore,Indicate;Indicate on Self-Test Failure
		LITO	1	/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	1	/t,Ignore,Indicate;Indicate on Checking Network
		LITO	1	/t,Ignore,Indicate;Indicate on Peer Halted
		LITO	1	/t,Ignore,Indicate;Indicate on Duplicate Address
	ESBR
	SORD	4	connector to be installed in System Control L2
		LIST	 	connector to install connector in system control L2
			GSYM	Conns/Update[ignore]
			LIST	 	data to be sent to System Control L2 (output # and connector)
				GSYM	Output/#1
				LIST	 	connector
					GSYM	Conns/Update[attach]
					LNOD
					MSGE
						ICAL	 System	/i
						GSYM	Utility/Report
					EMSG
				ELST
			ELST
			LNOD
			MSGE
				ICAL	 System
				GSYM	Hierarchy/Attach Conn
			EMSG
		ELST
	ESBR
	SORD	5	node states
		STRE	 	node control s-tree
			SORD	0	dummy
				LITO	0	dummy
			ESBR
		ESTR
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Non-inverted Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Inverted Output
	ESBR
	SGLB	Output/#9	message template for self
		LIST
			GSYM	Conns/Update[attach]
			LNOD
			MSGE
				ISYM	dummy	/i;Filled in instance name
				GSYM	Utility/Do Next
			EMSG
		ELST
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	For internal class use only!
		CMNT	 	Expects:  É ¥ inst/É
		MACR	 	install System Control L2 connector
			LITO	4	É ¥ 4/inst/É
			PRIM	Stack/Dup to aux	É/dummy ¥ 4/inst/É
			PRIM	S_tree/Get exact	É/dummy ¥ list/4/inst/É
			PRIM	Misc/Send	É ¥ 4/inst/É
			PRIM	Stack/Drop	É ¥ inst/É
		EMAC
		MACR	 	set initial timer
			LCAL	NextTime	É ¥ É
		EMAC
	ESBR
	SGLB	Utility/Report	internal class use only (from System Control L2)
		CMNT	 	Expects:  É ¥ inst/data/É
		CMNT	 	data is : -->addr-->code--X
		PRIM	Stack/Swap	É ¥ data/inst/É
		PRIM	List/List to stack	É ¥ code/addr/inst/É
		LCAL	LogIt	É ¥ É
	ESBR
	SGLB	Utility/Sequence	internal class use only - timer tic
		CMNT	 	Expects:  É ¥ inst/time/É
		PRIM	Stack/Xdrop	Expects:  É ¥ inst/É
		LITO	0	É ¥ start key/inst/É
		GSYM	Output/#9
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Utility/Do Next	private self-invoked method for breaking up one scan
		CMNT	 	Expects:  É ¥ inst/adrs/É
		PRIM	Stack/Second to aux	É/adrs ¥ inst/É
		LCAL	DoNext
	ESBR
ESTR
CMTL	 	FB Exclusions
	CLAS	354157	/~
	CLAS	354312	/~
ECMT
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/É
	PRIM	Stack/Pop to aux	É/node/code ¥ inst/É
	LITO	5	É/node/code ¥ statekey/inst/É
	PRIM	S_tree/Get exact	É/node/code ¥ tree/statekey/inst/É
	PRIM	Stack/Push from aux	É/node ¥ code/tree/statekey/inst/É
	PRIM	List/Item to list	É/node ¥ list/tree/statekey/inst/É
	LITO	0	É/node ¥ 0/list/tree/statekey/inst/É
	PRIM	Stack/Push from aux	É ¥ node/0/list/tree/statekey/inst/É
	LITO	3001	É ¥ 3001/node/0/list/tree/statekey/inst/É
	PRIM	Ordinal/Compare	É ¥ rslt/node/0/list/tree/statekey/inst/É
	BRFL	 	branch if node<3000
		PRIM	S_tree/Replace	É ¥ tree/statekey/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	PRIM	Stack/Drop	É ¥ 0/list/tree/statekey/inst/É
	PRIM	Stack/Drop	É ¥ list/tree/statekey/inst/É
	PRIM	Stack/Drop	É ¥ tree/statekey/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	DoNext
	CMNT	 	Processes next address & resets timer when no more
	CMNT	 	Input:  É/adrs ¥ inst/É
	CMNT	 	Output:  É ¥ É
	LITO	5	É/adrs ¥ statekey/inst/É
	PRIM	S_tree/Get exact	É/adrs ¥ tree/statekey/inst/É
	PRIM	Stack/Push from aux	É ¥ adrs/tree/statekey/inst/É
	PRIM	S_tree/Get next	É ¥ rslt/nxtadrs/tree/statekey/inst/É
	BRFL	 	branch if no more
		CMNT	 	found none to indicate in whole tree. result false.
		PRIM	Stack/Drop	É ¥ tree/treekey/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		LITO	0	É ¥ false/inst/É
		CALL	354125	É ¥ inst/É
		LCAL	NextTime	É ¥ É
	BRTR
	PRIM	Stack/Dup to aux	É/nxtadrs ¥ nxtadrs/tree/statekey/inst/É
	LITO	1	É/nxtadrs ¥ 1/nxtadrs/tree/statekey/inst/É
	PRIM	Stack/Swap	É/nxtadrs ¥ nxtadrs/1/tree/statekey/inst/É
	PRIM	S_tree/Read	É/nxtadrs ¥ status/tree/statekey/inst/É
	PRIM	Stack/Pop to aux	É/nxtadrs/status ¥ tree/statekey/inst/É
	PRIM	S_tree/Put	É/nxtadrs/status ¥ inst/É
	PRIM	Stack/Push from aux	É/nxtadrs ¥ status/inst/É
	PRIM	Ordinal/Increment	É/nxtadrs ¥ statref/inst/É
	LITO	3	É/nxtadrs ¥ 3/statref/inst/É
	PRIM	S_tree/Read	É/nxtadrs ¥ ind flag/inst/É
	BRFL	 	branch if not enabled to indicate that state
		PRIM	Stack/Push from aux	É ¥ nxtadrs/inst/É
		GSYM	Output/#9
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	CMNT	 	found one to indicate. stop looking. result true.
	PRIM	Stack/Drop from aux	É ¥ inst/É
	LITO	1	É ¥ true/inst/É
	CALL	354125	É ¥ inst/É
	LCAL	NextTime	É ¥ É
EDEF
LDEF	NextTime
	CMNT	 	Queues next timer invocation
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ É
	CMNT	 	----- Requeue Timer
	PRIM	Timer/Get PAT	É ¥ time/inst/É
	TIME	1000.000	É ¥ Æt/time/inst/É
	GSYM	Utility/Sequence	É ¥ method/Æt/time/inst/É
	CALL	354057	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF