STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354681	Bit Register
	ESBR
	SORD	2
		LITO	0	/o,0,65535;Block Address
	ESBR
	SORD	3
		LITO	0	/t,false,true;Bit 1
		LITO	0	/t,false,true;Bit 2
		LITO	0	/t,false,true;Bit 3
		LITO	0	/t,false,true;Bit 4
		LITO	0	/t,false,true;Bit 5
		LITO	0	/t,false,true;Bit 6
		LITO	0	/t,false,true;Bit 7
		LITO	0	/t,false,true;Bit 8
		LITO	0	/t,false,true;Bit 9
		LITO	0	/t,false,true;Bit 10
		LITO	0	/t,false,true;Bit 11
		LITO	0	/t,false,true;Bit 12
		LITO	0	/t,false,true;Bit 13
		LITO	0	/t,false,true;Bit 14
		LITO	0	/t,false,true;Bit 15
		LITO	0	/t,false,true;Bit 16
	ESBR
	SORD	4
		GSYM	DeviceNet/Input 16
		GSYM	DeviceNet/Input 15
		GSYM	DeviceNet/Input 14
		GSYM	DeviceNet/Input 13
		GSYM	DeviceNet/Input 12
		GSYM	DeviceNet/Input 11
		GSYM	DeviceNet/Input 10
		GSYM	DeviceNet/Input 9
		GSYM	DeviceNet/Input 8
		GSYM	DeviceNet/Input 7
		GSYM	DeviceNet/Input 6
		GSYM	DeviceNet/Input 5
		GSYM	DeviceNet/Input 4
		GSYM	DeviceNet/Input 3
		GSYM	DeviceNet/Input 2
		GSYM	DeviceNet/Input 1
	ESBR
	CMNT	 	Note SORD 10 is used created & used by RegInit & BitHelper
	SGLB	Output/#1
		LCON	 	/*+0,0,144,0,OUTPUT 1;Output 1
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Output 2
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;Output 3
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;Output 4
	ESBR
	SGLB	Output/#5
		LCON	 	/*+;Output 5
	ESBR
	SGLB	Output/#6
		LCON	 	/*+;Output 6
	ESBR
	SGLB	Output/#7
		LCON	 	/*+;Output 7
	ESBR
	SGLB	Output/#8
		LCON	 	/*+;Output 8
	ESBR
	SGLB	Output/#9
		LCON	 	/*+;Output 9
	ESBR
	SGLB	Output/#10
		LCON	 	/*+;Output 10
	ESBR
	SGLB	Output/#11
		LCON	 	/*+;Output 11
	ESBR
	SGLB	Output/#12
		LCON	 	/*+;Output 12
	ESBR
	SGLB	Output/#13
		LCON	 	/*+;Output 13
	ESBR
	SGLB	Output/#14
		LCON	 	/*+;Output 14
	ESBR
	SGLB	Output/#15
		LCON	 	/*+;Output 15
	ESBR
	SGLB	Output/#16
		LCON	 	/*+;Output 16
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354710	SuperSmartFinger
	ESBR
	SGLB	DeviceNet/RegInit
		CMNT	 	Expects:  É ¥ inst/LIST(DNET key + site)/É
		PRIM	Stack/Swap	É ¥ LIST(DNET key + site)/inst/É
		PRIM	Stack/Dup to aux	É/LIST(DNET key + site) ¥ LIST(DNET key + site)/inst/É
		CMNT
		CMNT	 	save Dnet inst key, needed later by BitHelper, also site
		CMNT
		LITO	0	É/LIST(DNET key + site) ¥ 0/LIST(site+DNet inst key)/inst/É
		LITO	10	É/LIST(DNET key + site) ¥ 10/0/LIST(site+DNet inst key)/inst/É
		PRIM	S_tree/Replace	É/LIST(DNET key + site) ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ LIST(DNET key + site)/inst/É
		CMNT
		PRIM	List/List to stack	É ¥ DNET key/site/inst/É
		PRIM	Stack/Drop	É ¥ site/inst/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/É
		CMNT
		LITO	1
		LITO	2	É/site ¥ 2/1/inst/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/É
		LITO	16	É/site ¥ 16/block address/inst/É
		PRIM	Stack/Swap	É/site ¥ block address/16/inst/É
		PRIM	Stack/Rotate down	É/site ¥ inst/block address/16/É
		PRIM	Stack/Push from aux	É ¥ site/inst/block address/16/É
		PRIM	Stack/Swap	É ¥ inst/site/block address/16/É
		GSYM	DeviceNet/BitNit	É ¥ method/inst/site/block address/16/É
		PRIM	Heap/Delegate to self
	ESBR
	SGLB	Logic/Input 1	/3t5,false,true;Input 1
		CMNT	1	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	1
		LITO	3	É ¥ 3/1/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	0	É/site/block address ¥ offset = 0/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 0/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 0/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (0)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 0/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 0/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 1	/2t4,F,T
		LITO	1
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 2	/3t5,false,true;Input 2
		CMNT	2	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	2
		LITO	3	É ¥ 3/2/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	1	É/site/block address ¥ offset = 1/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 1/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 1/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (1)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 1/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 1/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 2	/2t4,F,T
		LITO	2
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 3	/3t5,false,true;Input 3
		CMNT	3	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	3
		LITO	3	É ¥ 3/3/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	2	É/site/block address ¥ offset = 2/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 2/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 2/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (2)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 2/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 2/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 3	/2t4,F,T
		LITO	3
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 4	/3t5,false,true;Input 4
		CMNT	4	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	4
		LITO	3	É ¥ 3/4/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	3	É/site/block address ¥ offset = 3/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 3/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 3/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (3)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 3/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 3/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 4	/2t4,F,T
		LITO	4
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 5	/3t5,false,true;Input 5
		CMNT	5	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	5
		LITO	3	É ¥ 3/5/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	4	É/site/block address ¥ offset = 4/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 4/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 4/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (4)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 4/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 4/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 5	/2t4,F,T
		LITO	5
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 6	/3t5,false,true;Input 6
		CMNT	6	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	6
		LITO	3	É ¥ 3/6/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	5	É/site/block address ¥ offset = 5/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 5/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 5/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (5)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 5/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 5/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 6	/2t4,F,T
		LITO	6
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 7	/3t5,false,true;Input 7
		CMNT	7	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	7
		LITO	3	É ¥ 3/7/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	6	É/site/block address ¥ offset = 6/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 6/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 6/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (6)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 6/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 6/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 7	/2t4,F,T
		LITO	7
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 8	/3t5,false,true;Input 8
		CMNT	8	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	8
		LITO	3	É ¥ 3/8/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	7	É/site/block address ¥ offset = 7/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 7/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 7/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (7)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 7/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 7/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 8	/2t4,F,T
		LITO	8
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 9	/3t5,false,true;Input 9
		CMNT	9	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	9
		LITO	3	É ¥ 3/9/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	8	É/site/block address ¥ offset = 8/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 8/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 8/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (8)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 8/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 8/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 9	/2t4,F,T
		LITO	9
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 10	/3t5,false,true;Input 10
		CMNT	10	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	10
		LITO	3	É ¥ 3/10/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	9	É/site/block address ¥ offset = 9/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 9/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 1/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (9)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 9/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 9/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 10	/2t4,F,T
		LITO	10
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 11	/3t5,false,true;Input 11
		CMNT	11	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	11
		LITO	3	É ¥ 3/11/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	10	É/site/block address ¥ offset = 10/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 10/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 10/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (10)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 10/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 10/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 11	/2t4,F,T
		LITO	11
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 12	/3t5,false,true;Input 12
		CMNT	12	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	12
		LITO	3	É ¥ 3/12/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	11	É/site/block address ¥ offset = 11/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 11/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 11/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (11)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 11/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 11/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 12	/2t4,F,T
		LITO	12
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 13	/3t5,false,true;Input 13
		CMNT	13	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	13
		LITO	3	É ¥ 3/13/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	12	É/site/block address ¥ offset = 12/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 12/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 12/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (12)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 12/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 12/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 13	/2t4,F,T
		LITO	13
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 14	/3t5,false,true;Input 14
		CMNT	14	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	14
		LITO	3	É ¥ 3/14/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	13	É/site/block address ¥ offset = 13/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 13/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 13/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (13)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 13/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 13/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 14	/2t4,F,T
		LITO	14
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 15	/3t5,false,true;Input 15
		CMNT	15	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	15
		LITO	3	É ¥ 3/15/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	14	É/site/block address ¥ offset = 14/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 14/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 14/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (14)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 14/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 14/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 15	/2t4,F,T
		LITO	15
		CALL	354074	Method 3 Get
	ESBR
	SGLB	Logic/Input 16	/3t5,false,true;Input 16
		CMNT	16	Expects:  É ¥ inst/input/É
		PRIM	Stack/Over	É ¥ input/inst/input/É
		LITO	16
		LITO	3	É ¥ 3/16/input/inst/input/É
		CMNT	 	keep a local copy of the new data for SAMAGE
		PRIM	S_tree/Replace	É ¥ inst/input/É
		LITO	1
		LITO	10
		PRIM	S_tree/Test and read	É ¥ rslt/(site)/inst/input/É
		BRFL
			CMNT	 	then not initialized yet, throw away the data
			CMNT	 	É ¥ inst/input/É
			PRIM	Stack/Xdrop
			PRIM	Heap/Store self
		BRTR
		CMNT	 	É ¥ site/inst/input/É
		PRIM	Stack/Pop to aux	É/site ¥ inst/input/É
		LITO	1
		LITO	2	É/site ¥ 1/2/inst/input/É
		PRIM	S_tree/Read	É/site ¥ block address/inst/input/É
		PRIM	Stack/Pop to aux	É/site/block address ¥ inst/input/É
		PRIM	Stack/Swap	É/site/block address ¥ input/inst/É
		CMNT
		LITO	15	É/site/block address ¥ offset 15/input/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/offset = 15/input/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/offset = 0/input/inst/É
		LITO	1	É/site ¥ bit type (1)/block hi/block lo/offset = 15/input/inst/É
		LITO	4	É/site ¥ Write cmd (4)/bit type (1)/block hi/block lo/register offset (15)/input/inst/É
		LITO	1538	É/site ¥ countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 15/input/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/Write cmd (4)/bit type (1)/block hi/block lo/offset = 15/input/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input 16	/2t4,F,T
		LITO	16
		CALL	354074	Method 3 Get
	ESBR
	SGLB	DNetUint/Get Output 1	/2t4,false,true
		CMNT	1	Expects:É ¥ inst/route/É
		LITO	0	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 2	/2t4,false,true
		CMNT	2	Expects:É ¥ inst/route/É
		LITO	1	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 3	/2t4,false,true
		CMNT	3	Expects:É ¥ inst/route/É
		LITO	2	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 4	/2t4,false,true
		CMNT	4	Expects:É ¥ inst/route/É
		LITO	3	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 5	/2t4,false,true
		CMNT	5	Expects:É ¥ inst/route/É
		LITO	4	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 6	/2t4,false,true
		CMNT	6	Expects:É ¥ inst/route/É
		LITO	5	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 7	/2t4,false,true
		CMNT	7	Expects:É ¥ inst/route/É
		LITO	6	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 8	/2t4,false,true
		CMNT	8	Expects:É ¥ inst/route/É
		LITO	7	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 9	/2t4,false,true
		CMNT	9	Expects:É ¥ inst/route/É
		LITO	8	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 10	/2t4,false,true
		CMNT	10	Expects:É ¥ inst/route/É
		LITO	9	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 11	/2t4,false,true
		CMNT	11	Expects:É ¥ inst/route/É
		LITO	10	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 12	/2t4,false,true
		CMNT	12	Expects:É ¥ inst/route/É
		LITO	11	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 13	/2t4,false,true
		CMNT	13	Expects:É ¥ inst/route/É
		LITO	12	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 14	/2t4,false,true
		CMNT	14	Expects:É ¥ inst/route/É
		LITO	13	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 15	/2t4,false,true
		CMNT	15	Expects:É ¥ inst/route/É
		LITO	14	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DNetUint/Get Output 16	/2t4,false,true
		CMNT	16	Expects:É ¥ inst/route/É
		LITO	15	É ¥ offset/inst/route/É
		LCAL	Start SAM Get
	ESBR
	SGLB	DeviceNet/Input 1
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		GSYM	Output/#1
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 2
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#2
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 3
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#3
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 4
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#4
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 5
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#5
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 6
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#6
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 7
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#7
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 8
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#8
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 9
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#9
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 10
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#10
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 11
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#11
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 12
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#12
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 13
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#13
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 14
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#14
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 15
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#15
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/Input 16
		CMNT	 	Expects:  É ¥ inst/input/É
		PRIM	Stack/Swap	¥ input list/inst/É
		PRIM	List/List to item	¥ input/inst/É
		CMNT	 	2 ?z's convert an ordinal to a logic
		PRIM	Ordinal/Test zero
		PRIM	Ordinal/Test zero
		GSYM	Output/#16
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	DeviceNet/BitHelper
		CMNT	 	sets up the stack on messages coming from finger module
		CMNT	 	on entry É ¥ inst/data list/É
		CMNT	 	on exit É ¥ inst/site/block address/reg count/inst/É
		PRIM	Stack/Pop to aux	É/inst ¥ data list/É
		PRIM	List/List to stack	É/inst ¥ reg count/block lo/block hi/site/É
		PRIM	Stack/Pop to aux	É/inst/reg count ¥ block lo/block hi/site/É
		PRIM	Stack/Swap	É/inst/reg count ¥ block hi/block lo/site/É
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Add	É/inst/reg count ¥ block address/site/É
		PRIM	Stack/Push from aux	É/inst ¥ reg count/block address/site/É
		PRIM	Stack/Duplicate	É/inst ¥ reg count/reg count/block address/site/É
		PRIM	Ordinal/Test zero	É/inst ¥ rslt/reg count/block address/site/É
		BRFL
			PRIM	Stack/Switch	É/inst ¥ site/block address/reg count/É
			PRIM	Stack/Push from aux	É ¥ inst/site/block address/reg count/É
			GSYM	DeviceNet/BitNit	É ¥ method/inst/site/block address/reg count/É
			PRIM	Heap/Delegate to self
			CMNT
		BRTR
		PRIM	Stack/Drop
		PRIM	Stack/Drop
		PRIM	Stack/Drop	É/inst ¥ É
		PRIM	Stack/Push from aux	É ¥ inst/É
		CMNT	 	retrieve DNet inst key
		LITO	2
		LITO	10	É ¥ 10/2/inst/É
		PRIM	S_tree/Read	É ¥ DNet inst key/inst/É
		PRIM	Stack/Swap	É ¥ inst/DNet inst key/É
		PRIM	Heap/Store self	É ¥ DNet inst key/É
		GSYM	DeviceNet/StartInit	É ¥ method/DNet inst key/É
		CALL	354059	Send Notify
	ESBR
	SGLB	DeviceNet/BitNit
		CMNT	 	on entry É ¥  inst/site/block address/reg count/É
		CMNT	 	on exit É ¥ inst/É
		PRIM	Stack/Second to aux	É/site ¥  inst/block address/reg count/É
		PRIM	Stack/Rotate up	É/site ¥  block address/reg count/inst/É
		PRIM	Stack/Pop to aux	É/site/block address ¥  reg count/inst/É
		PRIM	Stack/Dup to aux	É/site/block address/reg count ¥  reg count/inst/É
		LITO	3	É/site/block address/reg count ¥ 3/reg count/inst/É
		PRIM	S_tree/Read	É/site/block address/reg count ¥ the number/inst/É
		LITO	0	É/site/block address/reg count ¥ scale 0/the number/inst/É
		PRIM	Stack/Swap	É/site/block address/reg count ¥ the number/scale 0/inst/É
		CMNT
		PRIM	Stack/Rotate down	É/site/block address/reg count ¥ inst/the number/scale 0/É
		LCAL	GetRtnMeth	É/site/block address/reg count/rtn method ¥ inst/the number/scale 0/É
		PRIM	Stack/Rotate up	É/site/block address/reg count/rtn method ¥ the number/scale 0/inst/É
		PRIM	Stack/Push from aux	É/site/block address/reg count ¥ rtn method/the number/scale 0/inst/É
		CMNT
		PRIM	Stack/Push from aux	É/site/block address ¥ reg count/rtn meth/the number/scale 0/inst/É
		PRIM	Stack/Push from aux	É/site ¥ block address/reg count/rtn meth/the number/scale 0/inst/É
		LCAL	WordToBytes	É/site ¥ block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		PRIM	Stack/Dup from aux	É/site ¥ site/block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		GSYM	DeviceNet/BitHelper	É/site ¥ init meth/site/block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		CMNT
		PRIM	Heap/Name of self	É/site ¥ rtn inst/init meth/site/block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		CMNT
		LITO	1	É/site ¥ 1/rtn inst/init meth/site/block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		LITO	3	É/site ¥ 3/1/rtn inst/init meth/site/block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		LITO	2818	É/site ¥ countH:flagsL/3/1/rtn inst/init meth/site/block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/3/1/rtn inst/init meth/site/block hi/block lo/reg count/rtn meth/the number/scale 0/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,743,1368
	CMTL	3	0
		CMNT	24	33,0,144,45,3,1,INPUT 1;Logic/Input 1
		CMNT	24	33,0,216,45,3,2,INPUT 2;Logic/Input 2
		CMNT	24	33,0,288,45,3,3,INPUT 3;Logic/Input 3
		CMNT	24	33,0,360,45,3,4,INPUT 4;Logic/Input 4
		CMNT	24	33,0,432,45,3,5,INPUT 5;Logic/Input 5
		CMNT	24	33,0,504,45,3,6,INPUT 6;Logic/Input 6
		CMNT	24	33,0,576,45,3,7,INPUT 7;Logic/Input 7
		CMNT	24	33,0,648,45,3,8,INPUT 8;Logic/Input 8
		CMNT	24	33,0,720,45,3,9,INPUT 9;Logic/Input 9
		CMNT	24	33,0,792,45,3,10,INPUT 10;Logic/Input 10
		CMNT	24	33,0,864,45,3,11,INPUT 11;Logic/Input 11
		CMNT	24	33,0,936,45,3,12,INPUT 12;Logic/Input 12
		CMNT	24	33,0,1008,45,3,13,INPUT 13;Logic/Input 13
		CMNT	24	33,0,1080,45,3,14,INPUT 14;Logic/Input 14
		CMNT	24	33,0,1152,45,3,15,INPUT 15;Logic/Input 15
		CMNT	24	33,0,1224,45,3,16,INPUT 16;Logic/Input 16
	ECMT
	CMTL	7	0
		CMNT	14	735,140,0,0,1,DNetUint/Get Output 1;/t,F,T
		CMNT	14	735,212,0,0,2,DNetUint/Get Output 2;/t,F,T
		CMNT	14	735,284,0,0,3,DNetUint/Get Output 3;/t,F,T
		CMNT	14	735,356,0,0,4,DNetUint/Get Output 4;/t,F,T
		CMNT	14	735,428,0,0,5,DNetUint/Get Output 5;/t,F,T
		CMNT	14	735,500,0,0,6,DNetUint/Get Output 6;/t,F,T
		CMNT	14	735,572,0,0,7,DNetUint/Get Output 7;/t,F,T
		CMNT	14	735,644,0,0,8,DNetUint/Get Output 8;/t,F,T
		CMNT	14	735,716,0,0,9,DNetUint/Get Output 9;/t,F,T
		CMNT	14	735,788,0,0,10,DNetUint/Get Output 10;/t,F,T
		CMNT	14	735,860,0,0,11,DNetUint/Get Output 11;/t,F,T
		CMNT	14	735,932,0,0,12,DNetUint/Get Output 12;/t,F,T
		CMNT	14	735,1004,0,0,13,DNetUint/Get Output 13;/t,F,T
		CMNT	14	735,1076,0,0,14,DNetUint/Get Output 14;/t,F,T
		CMNT	14	735,1148,0,0,15,DNetUint/Get Output 15;/t,F,T
		CMNT	14	735,1220,0,0,16,DNetUint/Get Output 16;/t,F,T
		CMNT	14	530,1330,0,2,1;/u;%1d
		CMNT	22	-10,140,0,3,1,Logic/Get Input 1;/t,F,T
		CMNT	22	-10,212,0,3,2,Logic/Get Input 2;/t,F,T
		CMNT	22	-10,284,0,3,3,Logic/Get Input 3;/t,F,T
		CMNT	22	-10,356,0,3,4,Logic/Get Input 4;/t,F,T
		CMNT	22	-10,428,0,3,5,Logic/Get Input 5;/t,F,T
		CMNT	22	-10,500,0,3,6,Logic/Get Input 6;/t,F,T
		CMNT	22	-10,572,0,3,7,Logic/Get Input 7;/t,F,T
		CMNT	22	-10,644,0,3,8,Logic/Get Input 8;/t,F,T
		CMNT	22	-10,716,0,3,9,Logic/Get Input 9;/t,F,T
		CMNT	22	-10,788,0,3,10,Logic/Get Input 10;/t,F,T
		CMNT	22	-10,860,0,3,11,Logic/Get Input 11;/t,F,T
		CMNT	22	-10,932,0,3,12,Logic/Get Input 12;/t,F,T
		CMNT	22	-10,1004,0,3,13,Logic/Get Input 13;/t,F,T
		CMNT	22	-10,1076,0,3,14,Logic/Get Input 14;/t,F,T
		CMNT	22	-10,1148,0,3,15,Logic/Get Input 15;/t,F,T
		CMNT	22	-10,1220,0,3,16,Logic/Get Input 16;/t,F,T
	ECMT
	CMNT	8	0,0,725,1350
	CMNT	18	362,70,DNET BIT REGISTER
	CMNT	14	33,1330,DNET INSTANCE:
ECMT
LDEF	GetRtnMeth
	CMNT	 	Expects: É ¥ inst/É
	CMNT	 	Exit: É/rtn method ¥ inst/É
	LITO	4	¥ 4/inst/É
	PRIM	S_tree/Get exact	¥ rtn meth list/4/inst/É
	PRIM	Stack/Xdrop	¥ rtn meth list/inst/É
	PRIM	List/Test for leaf	¥ rslt/rtn meth list/inst/É
	BRFL
		PRIM	List/Behead	¥ rtn meth/rtn meth list/inst/É
		PRIM	Stack/Pop to aux	/rtn meth ¥ rtn meth list/inst/É
		LITO	4	É/rtn meth ¥ 4/rtn meth list/inst/É
		PRIM	Stack/Swap	É/rtn meth ¥ rtn meth list/4/inst/É
		PRIM	S_tree/Put	É/rtn meth ¥ inst/É
	BRTR
	PRIM	List/List to item	¥ rtn meth/inst/É
	PRIM	Stack/Pop to aux	É/rtn meth ¥ inst/É
EDEF
LDEF	WordToBytes
	CMNT	 	Expects: É ¥ integer/É
	CMNT	 	Returns: É ¥ hi byte/lo byte/É
	PRIM	Stack/Dup to aux	É/integer ¥ integer/É
	LITO	255	É/integer ¥ 255/integer/É
	PRIM	Ordinal/And	É/integer ¥ lo byte/É
	PRIM	Stack/Push from aux	É ¥ integer/lo byte/É
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right
	PRIM	Ordinal/Right	É ¥ hi byte/lo byte/É
EDEF
LDEF	Start SAM Get
	CMNT	 	on entry É ¥ offset/inst/route/É
	CMNT	 	on exit É ¥ É
	PRIM	Stack/Swap	on entry É ¥ inst/offset/route/É
	LITO	1
	LITO	10
	PRIM	S_tree/Read	É ¥ site/inst/offset/route/É
	PRIM	Stack/Pop to aux	É/site ¥ inst/offset/route/É
	PRIM	Stack/Second to aux	É/site/offset ¥ inst/route/É
	LITO	1
	LITO	2
	PRIM	S_tree/Read	É/site/offset ¥ block address/inst/route/É
	PRIM	Stack/Pop to aux	É/site/offset/block address ¥ inst/route/É
	PRIM	Stack/Swap	É/site/offset/block address ¥ route/inst/É
	GSYM	CX/SAM Responder
	PRIM	Heap/Name of self	É/site/offset/block address ¥ ret inst/ret meth/route/inst/É
	PRIM	Stack/Push from aux	É/site/offset ¥ block address/ret inst/ret meth/route/inst/É
	PRIM	Stack/Push from aux	É/site ¥ offset/block address/ret inst/ret meth/route/inst/É
	PRIM	Stack/Swap	É/site ¥ block address/offset/ret inst/ret meth/route/inst/É
	LITO	1
	LITO	5	É/site ¥ read cmd/bit type/block address/offset/ret inst/ret meth/route/inst/É
	LITO	1795	countH:flagsL = 0703h
	PRIM	Stack/Push from aux	É ¥ site/countH:flagsL/read cmd/bit type/block address/offset/ret inst/ret meth/route/inst/É
	CMNT	 	The route is sent to the finger as an ordinal heap address.
	ASIO	CX/Send Message	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF