STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354927	Super Writer
	ESBR
	SORD	1
		LITO	0	/t,No Load,Load;Tag Load Setup
	ESBR
	SORD	2
		LITO	0	state
		LITO	1	/o,1,999;Tag number
		LITO	0	/:,none,300,250,200,150,120,100;Host scaling
		LITO	0	already timing?
		LITO	0	direct writer flag
	ESBR
	SORD	4
		LITO	0	initial value
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354779	Super Parameter
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É/TBI instance name ¥ inst/É
		LITO	1
		LITO	1
		PRIM	S_tree/Test and read	make sure instance/get load flag
		BRFL	 	branch if not instance
			PRIM	Heap/Store self
		BRTR
		LCAL	Writer Type	É/name ¥ <mehtod list>/local address/inst/É
		PRIM	Stack/Dup from aux	É/name ¥ name/<mehtod list>/local address/inst/É
		PRIM	List/Splice	É/name ¥ msg/local address/inst/É
		PRIM	Tags/Set delegate	É/name ¥ <reg. msg>/local address/inst/É
		PRIM	List/Item to list	É/name ¥ <<reg. msg>>/local address/inst/É
		PRIM	Heap/Name of self	É/name ¥ inst key/<<reg. msg>>/local address/inst/É
		PRIM	List/Splice	É/name ¥ <inst key/<reg. msg>>/local address/inst/É
		PRIM	Misc/Post event	É/name ¥ inst/É
		PRIM	Heap/Store self	É/name ¥ É
	ESBR
	SGLB	Utility/Trigger
		CMNT	 	Expects:  É ¥ inst/<PAT>/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		LITO	0
		LITO	4	note that we are now NOT timing
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/no init?/É
		LITO	1
		LITO	4
		PRIM	S_tree/Read
		PRIM	Stack/Swap	É ¥ inst/data/É
		GSYM	SignalP/Input
		PRIM	Heap/Delegate to self
	ESBR
	SGLB	SignalP/Input
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ data/inst/É
		PRIM	Stack/Dup to aux	É/data ¥ data/inst/É
		LITO	1
		LITO	4
		PRIM	S_tree/Replace	É/data ¥ inst/É
		CMNT	 	is our state operating?
		LITO	1
		LITO	2
		PRIM	S_tree/Read	É/data ¥ state/inst/É
		LITO	1
		PRIM	Ordinal/Reverse compare
		PRIM	Stack/Xdrop
		PRIM	Stack/Xdrop	É/data ¥ oper?/inst/É
		BRFL
			CMNT	 	state > 1 (operating)
			LITO	3	É/data ¥ scaling key/inst/É
			ASIO	TB/Scale to Host
			PRIM	Stack/Swap	É ¥ inst/hdata/É
			LITO	2
			LITO	2
			PRIM	S_tree/Read	É ¥ tag#/inst/hdata/É
			PRIM	Stack/Xswap	É ¥ tag#/hdata/inst/É
			GSYM	TB_Services/Write	É ¥ header/tag#/hdata/inst/É
			ASIO	CX/Send Message	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		CMNT	 	state <= 1. not operating.
		PRIM	Stack/Drop from aux	É ¥ inst/É
		LITO	4
		LITO	2
		PRIM	S_tree/Read	É ¥ timing/inst/É
		BRFL
			CMNT	 	not already timing. start timing.
			LITO	1
			LITO	4	note that we are now timing
			LITO	2
			PRIM	S_tree/Replace	É ¥ inst/É
			TIME	200.000
			PRIM	Timer/Get PAT
			GSYM	Utility/Trigger	É ¥ method/time/Æt/inst/É
			CALL	354057	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		CMNT	 	already timing. do nothing.
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	SignalP/Get Input
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1
		CALL	354076	Method 4 Get
	ESBR
	SGLB	TB_Methods/Load
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2
		LITO	2
		PRIM	S_tree/Read	É ¥ tag#/inst/É
		GSYM	TB_Services/Short Read
		LIST	 	set from host
			GSYM	TB_Methods/Set From Host
		ELST
		PRIM	Heap/Name of self
		PRIM	List/Splice
		PRIM	Tags/Set delegate	É ¥ <reply msg>/header/tag#/inst/É
		PRIM	List/Item to list	É ¥ <<reply msg>>/header/tag#/inst/É
		ASIO	CX/Send Message	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	TB_Methods/Set From Host
		CMNT	 	Expects:  É ¥ inst/read data/É
		PRIM	Stack/Second to aux
		LITO	3	É/read data ¥ scaling key/inst/É
		ASIO	TB/Scale to VM	É ¥ data/inst/É
		PRIM	Stack/Swap	É ¥ inst/data/É
		LITO	1	É ¥ 1/inst/data/É
		CALL	354077	É ¥ É
	ESBR
ESTR
LDEF	Writer Type
	BRFL	 	branch if not loading
		PRIM	Misc/Name of node
		LIST
			GSYM	TB_Methods/Register
		ELST
	BRTR
	PRIM	Misc/Name of node
	LIST
		GSYM	TB_Methods/W Register
	ELST
EDEF