STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354538
	ESBR
	SORD	2	Input list
		LITO	100	Tag
		LITO	10	Slot
	ESBR
	SORD	3	Output list
		LITO	100	Tag
		LITO	10	Slot
		LITO	19	Address
		LITO	5	n 0:200 (each is TIME * 2048)
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354044
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LCAL	Init Inputs	Library requires all fast inputs be inited before fast outputs.
		LCAL	Init Outputs	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Vector/Read Tag	exchange: ordinal in, simple out
		CMNT	 	Expects:  É ¥ inst/tagnum/route/É
		PRIM	Stack/Swap	É ¥ tag/inst/route/É
		ASIO	Vector/GET_TEMPREF	É ¥ ref/inst/route/É
		ASIO	Vector/TAG_READ	É ¥ data/inst/route/É
		CALL	354056	É ¥ É
	ESBR
	SGLB	Vector/Write Tag	exchange: two ordinals in, one out
		CMNT	 	Expects:  É ¥ inst/tag number/data/É
		PRIM	Stack/Rotate up	É ¥ tag number/data/inst/É
		ASIO	Vector/GET_TEMPREF	É ¥ ref/data/inst/É
		ASIO	Vector/TAG_WRITE	É ¥ err_code/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Vector/Get Tag Info	/4u,0,1023;Enter Tag Number|l
		CMNT	 	Expects:  É ¥ inst/tagnum/route/É
		PRIM	Stack/Swap	É ¥ tagnum/inst/route/É
		ASIO	Vector/GET_TAG_INFO	É ¥ OK/É/inst/route/É
		BRFL
			CMNT	 	É ¥ n/Én ordinalsÉ/inst/route/É
			PRIM	List/Stack to list	É ¥ result/inst/route/É
			CALL	354056	É ¥ É
		BRTR
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	0	É ¥ dummy/inst/route/É
		CALL	354056	É ¥ É
	ESBR
ESTR
LDEF	Init Inputs
	CMNT	 	Inits the library with SORD 2 data if present.
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	2
	PRIM	S_tree/Test for entry
	PRIM	Ordinal/Test zero	logical not
	PRIM	Stack/Xdrop	drop key
	BRFL
		LITO	2
		PRIM	S_tree/Get exact	É ¥ input list/2/inst/É
		ASIO	Vector/INIT_INS	É ¥ input list/2/inst/É
		PRIM	Stack/Drop	É ¥ 2/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
	BRTR
EDEF
LDEF	Init Outputs
	CMNT	 	Inits the library with SORD 3 data if present.
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	3
	PRIM	S_tree/Test for entry
	PRIM	Ordinal/Test zero	logical not
	PRIM	Stack/Xdrop	drop key
	BRFL
		LITO	3
		PRIM	S_tree/Get exact	É ¥ output list/3/inst/É
		ASIO	Vector/INIT_OUTS	É ¥ output list/3/inst/É
		PRIM	Stack/Drop	É ¥ 3/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
	BRTR
EDEF