STRE
	SGLB	Misc/Class Reference
		CLAS	354167
	ESBR
	SORD	1
		CMNT	 	/oChannel 1 Function Block
	ESBR
	SORD	2
		CMNT	 	/oChannel 2 Function Block
	ESBR
	SORD	3
		CMNT	 	/oChannel 3 Function Block
	ESBR
	SORD	4
		CMNT	 	/oChannel 4 Function Block
	ESBR
	SORD	5
		CMNT	 	/oChannel 5 Function Block
	ESBR
	SORD	6
		CMNT	 	/oChannel 6 Function Block
	ESBR
	SORD	7
		CMNT	 	/oChannel 7 Function Block
	ESBR
	SORD	8
		CMNT	 	/oChannel 8 Function Block
	ESBR
	SORD	9
		CMNT	 	/oChannel 9 Function Block
	ESBR
	SORD	10
		CMNT	 	/oChannel 10 Function Block
	ESBR
	SORD	11
		CMNT	 	/oChannel 11 Function Block
	ESBR
	SORD	12
		CMNT	 	/oChannel 12 Function Block
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Test Result Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É¥ inst/É
		PRIM	Heap/Name of self	É¥ name/inst/É
		PRIM	Stack/Swap	É¥ inst/name/É
		LITO	12	É¥ 12/inst/name/É
		PRIM	Stack/Pop to aux	É/12 ¥ inst/name/É
		LCAL	init	É¥ inst/name/É
		PRIM	Stack/Swap	É¥ name/inst/É
		PRIM	Heap/Set self	É¥ inst/É
		PRIM	Heap/Store self	É¥ É
	ESBR
	SGLB	DIO/Trigger	for internal class use only !
		CMNT	 	Expects:  É ¥ inst/data/channel/É
		PRIM	Stack/Rotate down	É ¥ channel/inst/data/É
		LITO	1	É ¥ 1/channel/inst/data/É
		PRIM	Stack/Swap	É ¥ channel/1/inst/data/É
		PRIM	S_tree/Read	É ¥ i-name/inst/data/É
		LIST	 	É ¥ list/i-name/inst/data/É
			GSYM	DIO/Trigger
		ELST
		PRIM	List/Add	É ¥ list'/inst/data/É
		PRIM	Tags/Set delegate	É ¥ MSGE/inst/data/É
		PRIM	Stack/Swap	É ¥ inst/MSGE/data/É
		PRIM	Heap/Store self	É ¥ MSGE/data/É
		PRIM	Misc/Execute	transfer control to channel
	ESBR
	SGLB	DIO/Get Status	/4u,0,255;Status Register|:%.2h;
		CMNT	 	Expects:  É¥ inst/status reg./route/É
		CMNT	 	/1 notify /2 interrogate /3 update /4 xchg
		PRIM	Stack/Swap	É ¥ status reg./inst/route/É
		ASIO	DIO/DIO_status	É ¥ status data/inst/route/É
		CALL	354056	É ¥ É
	ESBR
	SGLB	DIO/Self Test	/1
		CMNT	 	Expects:  É¥ inst/É
		LITO	1	É¥ 1/inst/É
		ASIO	DIO/DIO_self_test	É¥ test result/inst/É
		LITO	4	É¥ 4/test result/inst/É
		PRIM	Ordinal/And	É¥ test result bit 2/inst/É
		BRFL	 	É¥ inst/É
			LITO	0	É¥ 0/inst/É
			GSYM	Output/#1	É¥ #1/0/inst/É
			CALL	354024	É¥ inst/É
			PRIM	Heap/Store self	É¥ É
		BRTR
		LITO	1	É¥ 1/inst/É
		GSYM	Output/#1	É¥ #1/1/inst/É
		CALL	354024	É¥ inst/É
		PRIM	Heap/Store self	É¥ É
	ESBR
ESTR
LDEF	init
	CMNT	 	Sends an initialize method to all of the channel instances
	CMNT	 	Input:  É/index ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	1	É/index ¥ 1/inst/É
	PRIM	Stack/Dup from aux	É/index ¥ index/1/inst/É
	PRIM	S_tree/Read	É/index ¥ name/inst/É
	PRIM	Stack/Dup from aux	É/index ¥ index/name/inst/É
	PRIM	Stack/Swap	É/index ¥ name/index/inst/É
	LIST	 	É/index ¥ list/name/index/inst/É
		GSYM	DIO/Initialize
	ELST
	PRIM	List/Add	É/index ¥ list'/index/inst/É
	PRIM	Tags/Set delegate	É/index ¥ MSGE/index/inst/É
	PRIM	Misc/Execute	É/index ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ index/inst/É
	PRIM	Ordinal/Decrement	É ¥ index-1/inst/É
	PRIM	Stack/Dup to aux	É/index-1 ¥ index-1/inst/É
	BRFL	 	branch if done
		PRIM	Stack/Drop from aux	É ¥ inst/É
	BRTR
	LCAL	init	É/index-1 ¥ inst/É
EDEF