STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354374
	ESBR
	SORD	2	misc paramaeters
		LITO	5	state:  1 - Reading, 2 - Waiting, 3 - Idle, 4 - Writing, 5 - Sequencing
		LVAL	0	last data read
		LITO	0	last error
		LVAL	0	last data written
	ESBR
	SORD	3	Port parameters
		LITO	3	{/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	2	/e,57600,38400,19200,9600,4800,2400,1200;Baud rate
		LITO	0	/e,RS232,RS422;Port type
		LITO	0	/o,0,7;Group I.D. (0 - 7)
		LITO	0	/o,0,15;Unit I.D. (0 - 15)
		LITO	1	port ref:  0=port B, 1=port A
	ESBR
	SORD	4	read parameters (system)
		ISYM	dummy	/i;Filled in instance name: RID
		LITO	0	DID placeholder
		LITO	0	/o,0,127;Read Parameter No. (0-127)
		LITO	0	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Read Data Format
	ESBR
	SORD	5	read gain
		LVAL	1	/o,-30000,30000,1,30000;Read Gain (1-30000)
	ESBR
	SORD	6	write parameters (system)
		LITO	0	data placeholder
		ISYM	dummy	/i;Filled in instance name: RID
		LITO	0	DID placeholder
		LITO	0	/o,0,127;Write Parameter No. (0-127)
		LITO	0	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Write Data Format
	ESBR
	SORD	7	write gain
		LVAL	1	/o,-30000,30000,1,30000;Write Gain (1-30000)
	ESBR
	SORD	8	/e,,,,,,,,,List;Step List
		ICAL	Dummy	/*/O,354374,354376,354377,354379;Step
		ICAL	Dummy	/o,354374,354376,354377,354379;Step
	ESBR
	SORD	9	sequence pointer
		LITO	1	sequence list pointer
		LITO	0	sequence list limit
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	For internal class use only!!!
		CMNT	 	Expects:  É ¥ inst/É
		MACR	 	initialize hardware É/channel/DID ¥ inst/É
			LITO	3	É ¥ 3/inst/É
			PRIM	S_tree/Entry to stack	É ¥ channel/UID/GID/type/baud/parity/stop/data/inst/É
			PRIM	Stack/Dup to aux	É/channel ¥ channel/UID/GID/type/baud/parity/stop/data/inst/É
			PRIM	Stack/Rotate up	É/channel ¥ UID/GID/channel/type/baud/parity/stop/data/inst/É
			ASIO	SIO/prepare_did	É/channel ¥ DID/type/baud/parity/stop/data/inst/É
			PRIM	Stack/Dup from aux	É/channel ¥ channel/DID/type/baud/parity/stop/data/inst/É
			PRIM	Stack/Second to aux	É/channel/DID ¥ channel/type/baud/parity/stop/data/inst/É
			ASIO	SIO/init_channel	É/channel/DID ¥ inst/É
		EMAC
		MACR	 	setup DID's É/channel ¥ inst/É
			PRIM	Stack/Dup from aux	É/channel/DID ¥ DID/inst/É
			LITO	2	É/channel/DID ¥ 2/DID/inst/É
			LITO	4	É/channel/DID ¥ 4/2/DID/inst/É
			PRIM	S_tree/Replace	É/channel/DID ¥ inst/É
			PRIM	Stack/Push from aux	É/channel ¥ DID/inst/É
			LITO	3	É/channel ¥ 3/DID/inst/É
			LITO	6	É/channel ¥ 6/3/DID/inst/É
			PRIM	S_tree/Replace	É/channel ¥ inst/É
		EMAC
		MACR	 	Initialize sequence list É ¥ inst/É
			LITO	8	É/channel ¥ 8/inst/É
			PRIM	S_tree/Get exact	É/channel ¥ list/8/inst/É
			LCAL	loop	É/channel ¥ list/8/inst/É
			PRIM	Stack/Drop from aux	É ¥ list/8/inst/É
			CALL	354373	É ¥ length/list/8/inst/É
			PRIM	Stack/Pop to aux	É/length ¥ list/8/inst/É
			PRIM	S_tree/Put	É/length ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ length/inst/É
			LITO	2	É ¥ 2/length/inst/É
			LITO	9	É ¥ 9/2/length/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É
		EMAC
		MACR	 	post event to start cycle É ¥ inst/É
			PRIM	Heap/Name of self	É ¥ name/inst/É
			GSYM	EI Bisync/Ready	É ¥ method/name/inst/É
			CALL	354059	É ¥ inst/É
		EMAC
		PRIM	Heap/Store self
	ESBR
	SGLB	EI Bisync/Input	/3v7,-100,100,-100,100;Input (%)
		CMNT	 	Expects:  É ¥ inst/arg/É
		CALL	354063	É ¥ state/data/inst/É
		STRE	 	state s-tree
			SORD	0	bad state
				PRIM	Stack/Drop	É ¥ data/inst/É
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	3	idle
				PRIM	Stack/Dup down	É ¥ arg/inst/arg/É
				LITO	4	É ¥ 4/arg/inst/arg/É
				LITO	2	É ¥ 2/4/arg/inst/arg/É
				PRIM	S_tree/Replace	É ¥ inst/arg/É
				LITO	1	É ¥ 1/inst/arg/É
				LITO	7	É ¥ 7/1/inst/arg/É
				PRIM	S_tree/Read	É ¥ gain/inst/arg/É
				PRIM	Stack/Rotate down	É ¥ arg/gain/inst/É
				PRIM	Value/Multiply	É ¥ arg'/inst/É
				LITO	1	É ¥ 1/arg/inst/É
				LITO	6	É ¥ 6/1/arg/inst/É
				PRIM	S_tree/Replace	É ¥ inst/É
				LITO	6	É ¥ 6/inst/É
				PRIM	S_tree/Entry to stack	É ¥ format/PNO/DID/RID/data/inst/É
				ASIO	SIO/write_param	É ¥ inst/É
				LITO	4	É ¥ state/inst/É
				CALL	354065
			ESBR
		ESTR
	ESBR
	SGLB	EI Bisync/Ready	For internal class use only !!
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	2	É ¥ 2/1/inst/É
		PRIM	S_tree/Read	É ¥ state/inst/É
		STRE	 	state s-tree
			SORD	0	bad state
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	1	reading
				LITO	2	É ¥ state/inst/É
				CALL	354065
			ESBR
			SORD	4	writing
				LCAL	get pointer	É ¥ pointer/inst/É
				LITO	8	É ¥ 8/pointer/inst/É
				PRIM	S_tree/Read	É ¥ ref/inst/É
				GSYM	EI Bisync/DoIt	É ¥ method/ref/inst/É
				CALL	354059	É ¥ inst/É
				LITO	5	É ¥ state/inst/É
				CALL	354065
			ESBR
			SORD	5	sequencing
				LITO	4	É ¥ 4/inst/É
				PRIM	S_tree/Entry to stack	É ¥ format/PNO/DID/RID/inst/É
				ASIO	SIO/read_param	É ¥ inst/É
				LITO	1	É ¥ state/inst/É
				CALL	354065
			ESBR
		ESTR
	ESBR
	SGLB	EI Bisync/Receive	For internal class use only !!
		CMNT	 	Expects:  É ¥ inst/arg/É
		CALL	354063	É ¥ state/data/inst/É
		STRE	 	state s-tree
			SORD	0	bad state
				PRIM	Stack/Drop	É ¥ data/inst/É
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	2	waiting
				PRIM	Stack/Swap	É ¥ inst/arg/É
				LITO	1	É ¥ 1/inst/data/É
				LITO	5	É ¥ 5/1/inst/data/É
				PRIM	S_tree/Read	É ¥ gain/inst/data/É
				PRIM	Stack/Xswap	É ¥ gain'/data/inst/É
				PRIM	Value/Divide	É ¥ data'/inst/É
				PRIM	Stack/Dup down	É ¥ arg/inst/arg/É
				LITO	2	É ¥ 2/arg/inst/arg/É
				LITO	2	É ¥ 2/2/arg/inst/arg/É
				PRIM	S_tree/Replace	É ¥ inst/arg/É
				PRIM	Stack/Swap	É ¥ arg/inst/É
				GSYM	Output/#1	É ¥ #1/arg/inst/É
				PRIM	Misc/Send entry	É ¥ inst/É
				LITO	3	É ¥ state/inst/É
				CALL	354065
			ESBR
		ESTR
	ESBR
	SGLB	EI Bisync/Error	For internal class use only !!
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	3	É ¥ 3/arg/inst/É
		LITO	2	É ¥ 2/3/arg/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	2	É ¥ 2/1/inst/É
		PRIM	S_tree/Read	É ¥ state/inst/É
		STRE	 	state s-tree
			SORD	0	other states
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	2	waiting
				LITO	4	É ¥ 4/inst/É
				PRIM	S_tree/Entry to stack	É ¥ format/PNO/DID/RID/inst/É
				ASIO	SIO/read_param	É ¥ inst/É
				LITO	1	É ¥ state/inst/É
				CALL	354065
			ESBR
		ESTR
	ESBR
	SGLB	EI Bisync/Init	For internal class use only !!
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	EI Bisync/DoIt	For internal class use !!
		CMNT	 	Expects:  É ¥ inst/É
		GSYM	EI Bisync/Ready	É ¥ method/inst/É
		PRIM	Heap/Delegate to self
	ESBR
	SGLB	EI Bisync/Get Last Read	/2v6,-100,100;%3.2f%%
		LITO	2
		CALL	354072
	ESBR
	SGLB	EI Bisync/Get Last Write	/2v6,-100,100;%3.2f%%
		LITO	4
		CALL	354072
	ESBR
	SGLB	EI Bisync/Get Error	/2u36;0x%x
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	3	É ¥ 3/inst/route/É
		LITO	2	É ¥ 2/3/inst/route/É
		PRIM	S_tree/Read	É ¥ rslt/inst/route/É
		PRIM	Stack/Swap	É ¥ inst/rslt/route/É
		LITO	0	É ¥ 0/inst/rslt/route/É
		LITO	3	É ¥ 3/0/inst/rslt/route/É
		LITO	2	É ¥ 2/3/0/inst/rslt/route/É
		PRIM	S_tree/Replace	É ¥ inst/rslt/route/É
		PRIM	Stack/Swap	É ¥ rslt/inst/route/É
		CALL	354056
	ESBR
	SGLB	EI Bisync/Get State	/2e,Error,Reading,Waiting,Idle,Writing,Sequencing
		LITO	1
		CALL	354072
	ESBR
ESTR
LDEF	loop
	CMNT	 	Invokes the init method on all the instance in the list
	CMNT	 	Input:  É/arg ¥ list/É
	CMNT	 	Output:  É/arg ¥ list/É
	PRIM	List/Test for leaf	É/arg ¥ rslt/list/É
	BRFL	 	branch if not a leaf
		PRIM	List/Behead	É/arg ¥ head/list/É
		LCAL	SendIt	É/arg ¥ head/list/É
		PRIM	Stack/Swap	É/arg ¥ list/head/É
		LCAL	loop	É/arg ¥ list/head/É
		PRIM	List/Add	É/arg ¥ list/É
	BRTR
	PRIM	List/List to item	É/arg ¥ ref/É
	LCAL	SendIt	É/arg ¥ ref/É
	PRIM	List/Item to list	É/arg ¥ list/É
EDEF
LDEF	SendIt
	CMNT	 	Given an arg and a destination, sends the init message
	CMNT	 	Input:  É/arg ¥ ref/É
	CMNT	 	Output:  É/arg ¥ ref/É
	PRIM	Misc/Name of node	É/arg ¥ node/ref/É
	LIST	 	É/arg ¥ list/node/ref/É
		GSYM	EI Bisync/Init
	ELST
	PRIM	Stack/Xover	É/arg ¥ ref/list/node/ref/É
	PRIM	List/Splice	É/arg ¥ list'/node/ref/É
	PRIM	Tags/Set delegate	É/arg ¥ list'/node/ref/É
	PRIM	List/Item to list	É/arg ¥ MSGE/node/ref/É
	PRIM	Stack/Dup from aux	É/arg ¥ arg/MSGE/node/ref/É
	PRIM	List/Splice	É/arg ¥ message/node/ref/É
	PRIM	Misc/Post event	É/arg ¥ ref/É
EDEF
LDEF	get pointer
	CMNT	 	gets the sequence pointer and updates it, rolling it over if required
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ pointer/inst/É
	LITO	9	É ¥ 9/inst/É
	PRIM	S_tree/Entry to stack	É ¥ limit/pointer/inst/É
	PRIM	Ordinal/Reverse compare	É ¥ rslt/limit/pointer/inst/É
	PRIM	Stack/Xdrop	É ¥ rslt/pointer/inst/É
	BRFL	 	branch if limit exceeded
		PRIM	Stack/Drop	É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		LITO	1	É ¥ 1/2/inst/É
		LITO	9	É ¥ 9/1/2/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
	BRTR
	PRIM	Stack/Dup down	É ¥ pointer/inst/pointer/É
	PRIM	Ordinal/Increment	É ¥ pointer+1/inst/pointer/É
	LITO	1	É ¥ 1/pointer+1/inst/pointer/É
	LITO	9	É ¥ 9/1/pointer+1/inst/pointer/É
	PRIM	S_tree/Replace	É ¥ inst/pointer/É
	PRIM	Stack/Swap	É ¥ pointer/inst/É
EDEF