STRE
	SGLB	Misc/Class Reference
		CLAS	350867
	ESBR
	SORD	2
		LITO	0	failure mode
		LITO	0	failed node
	ESBR
	SGLB	Output/#1	Network warning
		LCON	 	/*;Network Warning output
	ESBR
	SGLB	Output/#2	Network failure
		LCON	 	/*;Network failure output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Utility/Trigger	special method invoked from handler
		CMNT	 	Expects:  É ¥ inst/data/node/slot/É
		PRIM	Stack/Rotate up	É ¥ data/node/inst/slot/É
		PRIM	Stack/Over	É ¥ node/data/node/inst/slot/É
		BRFL	 	branch if local exception
			CMNT	 	É ¥ data/node/inst/slot/É
			PRIM	Stack/Xdrop	É ¥ data/inst/slot/É
			STRE	 	search on error
				SORD	0	"dont care"
					PRIM	Stack/Drop	É ¥ inst/slot/É
					PRIM	Stack/Xdrop	É ¥ inst/É
					PRIM	Heap/Store self	É ¥ É
				ESBR
				SORD	128	forward link transition
					LCAL	local
				ESBR
				SORD	64	reverse link transition
					LCAL	local
				ESBR
			ESTR
		BRTR
		CMNT	 	É ¥ data/node/inst/slot/É
		PRIM	Stack/Drop	É ¥ node/inst/slot/É
		PRIM	Stack/Rotate down	É ¥ slot/node/inst/É
		LCAL	DoIt
	ESBR
	SGLB	Utility/Get Address	/2u
		LITO	2
		LITO	2
		CALL	354086
	ESBR
	SGLB	Utility/Get Exception	/2u
		LITO	1
		LITO	2
		CALL	354086
	ESBR
ESTR
LDEF	DoIt
	CMNT	 	Input:  É ¥ code/node/inst/É
	CMNT	 	Output: É ¥ É
	STRE
		SORD	0	fatal error
			CMNT	 	expects:  É ¥ code/node/inst/É
			PRIM	Stack/Swap	É ¥ node/code/inst/É
			PRIM	List/Item to list	É ¥ list/code/inst/É
			PRIM	List/Add	É ¥ list'/inst/É
			LITO	0	É ¥ 0/list'/inst/É
			LITO	2	É ¥ 2/0/list'/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É
			GSYM	Output/#2	É ¥ #2/inst/É
			CALL	354058	É ¥ inst/É
			PRIM	Heap/Store self
		ESBR
		SORD	8	network warning
			PRIM	List/Item to list	É ¥ list/inst/É
			LITO	8	É ¥ net_warn/list/inst/É
			PRIM	List/Splice	É ¥ list'/inst/É
			LITO	0	É ¥ 0/list'/inst/É
			LITO	2	É ¥ 2/0/list'/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É
			GSYM	Output/#1	É ¥ #1/inst/É
			CALL	354058	É ¥ inst/É
			PRIM	Heap/Store self
		ESBR
	ESTR
EDEF
LDEF	local
	CMNT	 	Input:  É ¥ inst/slot/É
	CMNT	 	Output: É ¥ É
	PRIM	Stack/Swap	É ¥ slot/inst/É
	STRE
		SORD	0	no failures
			PRIM	Heap/Store self
		ESBR
		SORD	1	forward failure
			LITO	8	É ¥ net_warn/inst/É
			LCAL	error
		ESBR
		SORD	2	reverse failure
			LITO	8	É ¥ net_warn/inst/É
			LCAL	error
		ESBR
		SORD	3	both failure
			LITO	9	É ¥ net_fail/inst/É
			LCAL	error
		ESBR
	ESTR
EDEF
LDEF	error
	CMNT	 	Input:  É ¥ error/inst/É
	CMNT	 	Output: É ¥ É
	PRIM	Stack/Duplicate	É ¥ error/error/inst/É
	CALL	354094	É ¥ error/inst/É
	PRIM	Misc/Name of node	É ¥ node/error/inst/É
	PRIM	Stack/Swap	É ¥ error/node/inst/É
	LCAL	DoIt
EDEF