STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354321
	ESBR
	SORD	2
		LITO	0	target port (0 = B; 1 = A)
		LITO	0	pass boolean
		LITO	0	Master error bits
		LITO	0	DUT error bits
		LITO	0	num (active test index)
	ESBR
	SGLB	Output/#1	.Do setup Outputs
		LCON	 	/*+;Next setup Outputs
	ESBR
	SGLB	Output/#2	.Do send outputs
		LCON	 	/*+;Next send Output
	ESBR
	SGLB	Output/#3	.Done Outputs
		LCON	 	/*+;Done Output
	ESBR
	SGLB	Output/#4	.Trigger Outputs
		LCON	 	/*+;Trigger Output
	ESBR
	SGLB	Output/#5	Testnum+1 Outputs
		LCON	 	/*+;Testnum+1 Output
	ESBR
	SGLB	Output/#6	Operation Outputs
		LCON	 	/*+;Operation Output
	ESBR
	SGLB	Output/#7	MasterError Outputs
		LCON	 	/*+;MasterError Output
	ESBR
	SGLB	Output/#8	DUTError Outputs
		LCON	 	/*+;DUTError Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		LITO	1
		GSYM	Output/#6
		PRIM	Misc/Send entry	send operation outputs
		LITO	8	init timer 1
		CALL	354305	É ¥ inst/É
		LITO	9	init timer 2
		CALL	354305	É ¥ inst/É
		LITO	10	init timer 3
		CALL	354305	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Serial/Mas.Begin	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1
		LITO	2
		LITO	2
		PRIM	S_tree/Replace	set pass to true
		LITO	0
		LITO	3
		LITO	2
		PRIM	S_tree/Replace	clear master error bits
		LITO	0
		LITO	4
		LITO	2
		PRIM	S_tree/Replace	clear DUT error bits
		LITO	0
		GSYM	Output/#7
		PRIM	Misc/Send entry	clear Master errorcode outputs
		LITO	0
		GSYM	Output/#8
		PRIM	Misc/Send entry	clear DUT errorcode outputs
		LITO	1
		PRIM	Stack/Pop to aux	É/start index ¥ inst/É
		PRIM	Heap/Name of self	É/start index ¥ self/inst/É
		GSYM	Serial/Mas.Do	É/start index ¥ next/self/inst/É
		CALL	354060	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Serial/Mas.Do	/3u3;Test Index (1-99)
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ index/inst/É
		PRIM	Stack/Dup to aux	É/index ¥ index/inst/É
		GSYM	Output/#1
		PRIM	Misc/Send entry	send setup outputs
		PRIM	Stack/Dup from aux	É/index ¥ index/inst/É
		CALL	354323	É/index ¥ ok?/[inits for comms/]instÉ
		BRFL
			PRIM	Stack/Drop from aux	É ¥ inst/É
			LITO	2
			LITO	2
			PRIM	S_tree/Read	É ¥ pass?/inst/É
			GSYM	Output/#3
			PRIM	Misc/Send entry	send done outputs
			LITO	1
			GSYM	Output/#5
			PRIM	Misc/Send entry	send testname outputs
			LITO	1
			GSYM	Output/#6
			PRIM	Misc/Send entry	send operation outputs
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Dup to aux	É/index/port ¥ port/type/baud/parity/stop/data/div/inst/É
		ASIO	SIO/init_channel	É/index/port ¥ div/inst/É
		PRIM	Stack/Dup from aux	É/index/port ¥ port/div/inst/É
		ASIO	SIO/init_clock	É/index/port ¥ inst/É
		PRIM	Stack/Push from aux	É/index ¥ port/inst/É
		LITO	1
		LITO	2
		PRIM	S_tree/Replace	save target port number
		PRIM	Stack/Dup from aux	É/index ¥ index/inst/É
		LITO	1
		PRIM	Ordinal/Add	É/index ¥ index+1/inst/É
		GSYM	Output/#5
		PRIM	Misc/Send entry	send testname outputs
		LITO	2
		GSYM	Output/#6
		PRIM	Misc/Send entry	send transmit operation outputs
		PRIM	Stack/Dup from aux	É/index ¥ index/inst/É
		LITO	5
		LITO	2
		PRIM	S_tree/Replace	save index
		PRIM	Stack/Push from aux	É ¥ index/inst/É
		LITO	140
		PRIM	Ordinal/Add	É ¥ start char/inst/É
		GSYM	Output/#2
		PRIM	Misc/Send entry	send send outputs
		TIME	200.000
		LITO	8	timer 1
		CALL	354285	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Timer/Timeout
		CMNT	 	Expects:  É ¥ inst/time/key/É
		CALL	354308	É[/time] ¥ key/instÉ
		PRIM	Stack/Dup to aux	É[/time]/key ¥ key/instÉ
		BRFL
			PRIM	Stack/Drop from aux	É ¥ instÉ
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Push from aux	É/time ¥ key/instÉ
		PRIM	Stack/Drop from aux	É ¥ key/instÉ
		STRE
			SORD	8	timer 1
				LITO	5
				LITO	2
				PRIM	S_tree/Read	É ¥ test num/inst/É
				PRIM	Stack/Pop to aux	É/test num ¥ inst/É
				LITO	1
				LITO	2
				PRIM	S_tree/Read	É/test num ¥ port/inst/É
				PRIM	Stack/Dup from aux	É/test num ¥ test num/port/inst/É
				PRIM	Stack/Over	É/test num ¥ port/test num/port/inst/É
				PRIM	Stack/Pop to aux	É/test num/port ¥ test num/port/inst/É
				LITO	140
				PRIM	Ordinal/Add	É/test num/port ¥ test char/port/inst/É
				ASIO	SIO/SIO_test_rcv	É/test num/port ¥ errs/inst/É
				LCAL	master errors	É/test num/port ¥ inst/É
				LITO	2
				LITO	2
				PRIM	S_tree/Read	É ¥ pass?/inst/É
				BRFL
					PRIM	Stack/Drop from aux
					PRIM	Stack/Drop from aux
					PRIM	Heap/Store self	É ¥ É
				BRTR
				PRIM	Stack/Push from aux	É/test num ¥ port/inst/É
				PRIM	Stack/Push from aux	É ¥ test num/port/inst/É
				LITO	135
				PRIM	Ordinal/Add	É ¥ test char/port/inst/É
				ASIO	SIO/SIO_test_send	É ¥ inst/É
				LITO	3
				GSYM	Output/#6
				PRIM	Misc/Send entry	send receive operation outputs
				TIME	200.000
				LITO	9	timer 2
				CALL	354285	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
			SORD	9	timer 2
				LITO	5
				LITO	2
				PRIM	S_tree/Read	É ¥ test num/inst/É
				LITO	135
				PRIM	Ordinal/Add	É ¥ test char/inst/É
				GSYM	Output/#4
				PRIM	Misc/Send entry	send trigger outputs
				TIME	200.000
				LITO	10	timer 3
				CALL	354285	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
			SORD	10	timer 3
				LITO	8	É ¥ "missing char" error code/inst/É
				LCAL	DUT errors	É ¥ inst/É
				PRIM	Heap/Name of self	É ¥ self/inst/É
				GSYM	Serial/Mas.Next	É ¥ method/self/inst/É
				CALL	354059	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
		ESTR
	ESBR
	SGLB	Serial/Mas.Rsp	/3u3
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Second to aux	É/DUT errs ¥ inst/É
		LITO	10	É/DUT errs ¥ timer 3/inst/É
		CALL	354286	É/DUT errs ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ DUT errs/inst/É
		LCAL	DUT errors	É ¥ inst/É
		PRIM	Heap/Name of self	É ¥ self/inst/É
		GSYM	Serial/Mas.Next	É ¥ method/self/inst/É
		CALL	354059	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Serial/Mas.Next	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2
		LITO	2
		PRIM	S_tree/Read	É ¥ pass?/inst/É
		BRFL
			PRIM	Heap/Store self	É ¥ É
		BRTR
		LITO	5
		LITO	2
		PRIM	S_tree/Read	É ¥ test num/inst/É
		LITO	1
		PRIM	Ordinal/Add	É ¥ test num + 1/inst/É
		PRIM	Stack/Pop to aux	É/test num + 1 ¥ inst/É
		PRIM	Heap/Name of self	É/test num + 1 ¥ self/inst/É
		GSYM	Serial/Mas.Do	É/test num + 1 ¥ method/self/inst/É
		CALL	354060	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Serial/Get port	/2e,B,A;
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1
		CALL	354072
	ESBR
	SGLB	Serial/Get Pass	/2t4,false,true;
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	2
		CALL	354072
	ESBR
	SGLB	Serial/Get Master Errors	/2u3
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	3
		CALL	354072
	ESBR
	SGLB	Serial/Get DUT Errors	/2u3
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	4
		CALL	354072
	ESBR
	SGLB	Serial/Get test number	/2u3
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	5
		CALL	354072
	ESBR
ESTR
LDEF	master errors
	CMNT	 	Sets state according to error bits from ASIO
	CMNT	 	Input:  É ¥ errs/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Dup to aux	É/errs ¥ errs/inst/É
	PRIM	Ordinal/Test zero	É/errs ¥ pass?/inst/É
	BRFL
		LITO	3
		LITO	2
		PRIM	S_tree/Read	É/errs ¥ cumm. errs/inst/É
		PRIM	Stack/Push from aux	É ¥ errs/cumm. errs/inst/É
		PRIM	Ordinal/Ior	É ¥ new cumm. errs/inst/É
		PRIM	Stack/Dup to aux	É/new cumm. errs ¥ new cumm. errs/inst/É
		GSYM	Output/#7
		PRIM	Misc/Send entry	send Master errorcode outputs
		PRIM	Stack/Push from aux	É ¥ new cumm. errs/inst/É
		LITO	3
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	0
		LITO	2
		LITO	2
		PRIM	S_tree/Replace	set pass to false
	BRTR
	PRIM	Stack/Drop from aux	É ¥ inst/É
EDEF
LDEF	DUT errors
	CMNT	 	Sets state according to error bits from ASIO
	CMNT	 	Input:  É ¥ errs/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Dup to aux	É/errs ¥ errs/inst/É
	PRIM	Ordinal/Test zero	É/errs ¥ pass?/inst/É
	BRFL
		LITO	4
		LITO	2
		PRIM	S_tree/Read	É/errs ¥ cumm. errs/inst/É
		PRIM	Stack/Push from aux	É ¥ errs/cumm. errs/inst/É
		PRIM	Ordinal/Ior	É ¥ new cumm. errs/inst/É
		PRIM	Stack/Dup to aux	É/new cumm. errs ¥ new cumm. errs/inst/É
		GSYM	Output/#8
		PRIM	Misc/Send entry	send DUT errorcode outputs
		PRIM	Stack/Push from aux	É ¥ new cumm. errs/inst/É
		LITO	4
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	0
		LITO	2
		LITO	2
		PRIM	S_tree/Replace	set pass to false
	BRTR
	PRIM	Stack/Drop from aux	É ¥ inst/É
EDEF