STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354393
	ESBR
	SORD	2	parameters
		LITO	0	/o,0,15;Unit I.D. (0 - 15)
		LITO	0	/o,0,7;Group I.D. (0 - 7)
		LITO	1	;/e,5 bits,7bits,6 bits,8 bits;Data bits
		LITO	0	;/e,one,two;Stop bits
		LITO	2	;/e,none,odd,even;Parity
		LITO	3	/e,57600,38400,19200,9600,4800,2400,1200;Baud rate
		LITO	1	/e,RS232,RS422;Type
		LITO	0	channel ref:  0=port B, 1=port A
	ESBR
	SORD	3
		ICAL	Unused	/o,354385,354294;Ordinal Block 0
	ESBR
	SORD	4
		ICAL	Unused	/o,354385,354294;Ordinal Block 1
	ESBR
	SORD	5
		ICAL	Unused	/o,354385,354294;Ordinal Block 2
	ESBR
	SORD	6
		ICAL	Unused	/o,354385,354294;Ordinal Block 3
	ESBR
	SORD	7
		ICAL	Unused	/o,354385,354294;Ordinal Block 4
	ESBR
	SORD	8
		ICAL	Unused	/o,354385,354294;Ordinal Block 5
	ESBR
	SORD	9
		ICAL	Unused	/o,354385,354294;Ordinal Block 6
	ESBR
	SORD	10
		ICAL	Unused	/o,354385,354294;Ordinal Block 7
	ESBR
	SORD	11
		ICAL	Unused	/o,354383,354294;Analog Block 8
	ESBR
	SORD	12
		ICAL	Unused	/o,354383,354294;Analog Block 9
	ESBR
	SORD	13
		ICAL	Unused	/o,354383,354294;Analog Block 10
	ESBR
	SORD	14
		ICAL	Unused	/o,354383,354294;Analog Block 11
	ESBR
	SORD	15
		ICAL	Unused	/o,354383,354294;Analog Block 12
	ESBR
	SORD	16
		ICAL	Unused	/o,354383,354294;Analog Block 13
	ESBR
	SORD	17
		ICAL	Unused	/o,354383,354294;Analog Block 14
	ESBR
	SORD	18
		ICAL	Unused	/o,354383,354294;Analog Block 15
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	for internal class use only!!!
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		PRIM	S_tree/Entry to stack	É ¥ channel/type/baud/parity/stop/data/INO/inst/É
		PRIM	Stack/Dup to aux	É/channel ¥ channel/type/baud/parity/stop/data/INO/inst/É
		ASIO	SIO/init_channel	É/channel ¥ INO/inst/É
		PRIM	Stack/Dup from aux	É/channel ¥ channel/INO/inst/É
		ASIO	SIO/init_protocol	É/channel ¥ inst/É
		PRIM	Heap/Name of self	É/channel ¥ self/inst/É
		PRIM	Stack/Swap	É/channel ¥ inst/self/É
		LITO	2	É/channel ¥ 2/inst/self/É
		LCAL	Init	É/channel ¥ inst/self/É
		PRIM	Stack/Drop from aux	É ¥ inst/self/É
		PRIM	Stack/Swap	É ¥ self/inst/É
		PRIM	Heap/Set self	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	SIO/Trigger	for internal class use only!!!
		CMNT	 	Expects:  É ¥ inst/block/param/value/É
		LITO	1	É ¥ 1/inst/block/param/value/É
		PRIM	Stack/Rotate down	É ¥ block/1/inst/param/value/É
		PRIM	S_tree/Read	É ¥ name/inst/param/value/É
		LIST	 	É ¥ list/name/inst/param/value/É
			GSYM	SIO/Trigger
		ELST
		PRIM	List/Add	É ¥ list'/inst/param/value/É
		PRIM	Tags/Set delegate	É ¥ MSGE/inst/param/value/É
		PRIM	Stack/Swap	É ¥ inst/MSGE/param/value/É
		PRIM	Heap/Store self	É ¥ MSGE/param/value/É
		PRIM	Misc/Execute	transfer control to block
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,738,1499
	CMNT	3	0
	CMTL	7	0
		CMNT	14	460,160,0,2,1,;/u;Unit: %u
		CMNT	14	29,160,0,2,2,;/u;Group: %u
		CMNT	14	29,230,0,2,6,;/e,57600,38400,19200,9600,4800,2400,1200;Baud rate: %s
		CMNT	14	29,300,0,2,7,;/e,RS232,RS422;Type: %s
		CMNT	14	29,390,0,3,1,;/i;0: %s
		CMNT	14	29,460,0,4,1,;/i;1: %s
		CMNT	14	29,530,0,5,1,;/i;2: %s
		CMNT	14	29,600,0,6,1,;/i;3: %s
		CMNT	14	29,670,0,7,1,;/i;4: %s
		CMNT	14	29,740,0,8,1,;/i;5: %s
		CMNT	14	29,810,0,9,1,;/i;6: %s
		CMNT	14	29,880,0,10,1,;/i;7: %s
		CMNT	14	29,950,0,11,1,;/i;8: %s
		CMNT	14	29,1020,0,12,1,;/i;9: %s
		CMNT	14	29,1090,0,13,1,;/i;10: %s
		CMNT	14	29,1160,0,14,1,;/i;11: %s
		CMNT	14	29,1230,0,15,1,;/i;12: %s
		CMNT	14	29,1300,0,16,1,;/i;13: %s
		CMNT	14	29,1370,0,17,1,;/i;14: %s
		CMNT	14	29,1440,0,18,1,;/i;15: %s
	ECMT
	CMNT	8	0,0,720,1479
	CMNT	12	0,325,715,325
	CMNT	18	360,80,SLAVE PORT ASCII
ECMT
LDEF	Init
	CMNT	 	Invokes 'SIO/Initialize' on all blocks
	CMNT	 	Input:  É/channel ¥ ref/inst/É
	CMNT	 	Output:  É/channel ¥ inst/É
	PRIM	S_tree/Get next	É/channel ¥ rslt/ref/inst/É
	BRFL	 	branch if no more
		PRIM	Stack/Drop	É/channel ¥ inst/É
	BRTR
	PRIM	Stack/Dup down	É/channel ¥ ref/inst/ref/É
	LITO	1	É/channel ¥ 1/ref/inst/ref/É
	PRIM	Stack/Swap	É/channel ¥ ref/1/inst/ref/É
	PRIM	S_tree/Read	É/channel ¥ name/inst/ref/É
	LIST	 	É/channel ¥ list/name/inst/ref/É
		GSYM	SIO/Initialize
	ELST
	PRIM	List/Add	É/channel ¥ list'/inst/ref/É
	PRIM	Tags/Set delegate	É/channel ¥ MSGE/inst/ref/É
	PRIM	Stack/Xswap	É/channel ¥ MSGE/ref/inst/É
	PRIM	Misc/Execute	É/channel ¥ ref/inst/É
	LCAL	Init	É/channel ¥ inst/É
EDEF