STRE
	SGLB	Misc/Class Reference
		CLAS	354028
	ESBR
	SORD	2	main data
		PORD	0	/t,Voltage,Current;Output type
	ESBR
	SORD	3	/e,,,,Input #1;Setup Parameters
		LITO	65	/o,1,10000,3.072;Sample Rate (ms)
		LITO	0	/o;Destination Slot
		LITO	0	/o;Destination Node (0 if none)
	ESBR
	SORD	4	/e,,,,,Input #2;Setup Parameters
		LITO	65	/o,1,10000,3.072;Sample Rate (ms)
		LITO	0	/o;Destination Slot
		LITO	0	/o;Destination Node (0 if none)
	ESBR
	SORD	5	/e,,,,,,Input #3;Setup Parameters
		LITO	65	/o,1,10000,3.072;Sample Rate (ms)
		LITO	0	/o;Destination Slot
		LITO	0	/o;Destination Node (0 if none)
	ESBR
	SORD	6	/e,,,,,,,Input #4;Setup Parameters
		LITO	65	/o,1,10000,3.072;Sample Rate (ms)
		LITO	0	/o;Destination Slot
		LITO	0	/o;Destination Node (0 if none)
	ESBR
	SORD	7	/e,,,,,,,,Input #5;Setup Parameters
		LITO	65	/o,1,10000,3.072;Sample Rate (ms)
		LITO	0	/o;Destination Slot
		LITO	0	/o;Destination Node (0 if none)
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	/1
		LITO	6	initial count for Inputs
		LCAL	Inputs	initialize inputs
		LCAL	Output
	ESBR
	SGLB	Analog/Output	/3v/-10,10,0,10;Ouput (0 - 10 Volts) ...
		PRIM	Heap/Store self	É ¥ arg/É
		PRIM	Analog/SEND_ANLG_OUT
	ESBR
	SGLB	Analog/Set Output Type	/3t,Voltage,Current;Output type
		PRIM	Stack/Swap	data/inst/É
		LITO	1	output type index
		LITO	2	main data structure
		PRIM	S_tree/Replace	inst/É
		LCAL	Output
	ESBR
	SGLB	Analog/Set Output High Cal	/3v/-10,10,0,10;Output High Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	0	É ¥ 5/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/0/inst/É
		ASIO	Analog/SET_SLOPE	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #1 High Cal	/3v/-10,10,0,10;Input #1 High Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	1	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/1/inst/É
		ASIO	Analog/SET_SLOPE	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #2 High Cal	/3v/-10,10,0,10;Input #2 High Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	2	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/2/inst/É
		ASIO	Analog/SET_SLOPE	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #3 High Cal	/3v/-10,10,0,10;Input #3 High Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	3	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/3/inst/É
		ASIO	Analog/SET_SLOPE	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #4 High Cal	/3v/-10,10,0,10;Input #4 High Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	4	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/4/inst/É
		ASIO	Analog/SET_SLOPE	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #5 High Cal	/3v/-10,10,0,10;Input #5 High Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	5	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/5/inst/É
		ASIO	Analog/SET_SLOPE	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set Output Low Cal	/3v/-10,10,0,10;Output Low Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	0	É ¥ 5/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/0/inst/É
		ASIO	Analog/SET_INTERCEPT	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #1 Low Cal	/3v/-10,10,0,10;Input #1 Low Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	1	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/1/inst/É
		ASIO	Analog/SET_INTERCEPT	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #2 Low Cal	/3v/-10,10,0,10;Input #2 Low Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	2	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/2/inst/É
		ASIO	Analog/SET_INTERCEPT	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #3 Low Cal	/3v/-10,10,0,10;Input #3 Low Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	3	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/3/inst/É
		ASIO	Analog/SET_INTERCEPT	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #4 Low Cal	/3v/-10,10,0,10;Input #4 Low Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	4	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/4/inst/É
		ASIO	Analog/SET_INTERCEPT	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Set #5 Low Cal	/3v/-10,10,0,10;Input #5 Low Cal ...
		CMNT	 	expects:  É ¥ inst/target/É
		LITO	5	É ¥ ch#/inst/target/É
		PRIM	Stack/Rotate down	É ¥ target/5/inst/É
		ASIO	Analog/SET_INTERCEPT	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Analog/Get Input 1	/2v/-10,10;%1.4f Volts
		LITO	1
		ASIO	Analog/GET_ANLG_INPUT
		CALL	354056
	ESBR
	SGLB	Analog/Get Input 2	/2v/-10,10;%1.4f Volts
		LITO	2
		ASIO	Analog/GET_ANLG_INPUT
		CALL	354056
	ESBR
	SGLB	Analog/Get Input 3	/2v/-10,10;%1.4f Volts
		LITO	3
		ASIO	Analog/GET_ANLG_INPUT
		CALL	354056
	ESBR
	SGLB	Analog/Get Input 4	/2v/-10,10;%1.4f Volts
		LITO	4
		ASIO	Analog/GET_ANLG_INPUT
		CALL	354056
	ESBR
	SGLB	Analog/Get Input 5	/2v/-10,10;%1.4f Volts
		LITO	5
		ASIO	Analog/GET_ANLG_INPUT
		CALL	354056
	ESBR
	SGLB	Analog/Get Output	/2v/-10,10;%1.4f Volts
		CMNT	 	expects:  É ¥ inst/route/É
		LITO	0
		ASIO	Analog/GET_ANLG_INPUT	É ¥ setpoint/route/É
		CALL	354056
	ESBR
	SGLB	Analog/Get Output Type	/2t,Voltage,Current
		LITO	1	output type index
		LITO	2	main data structure
		CALL	354086
	ESBR
	SGLB	Analog/Servo ICal	/1
		CMNT	 	expects:  É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
		LVAL	0.0499893	É ¥ 0.05/É   (setpoint)
		LVAL	0.239998	É ¥ 0.24/0.05/É   (LoRef/setpoint)
		LITO	25	É ¥ 25/0.24/0.05/É   (LoopCount/LoRef/setpoint)
		LCAL	ServoLoop	É ¥ É
		LITO	0	É ¥ 0/É
		LVAL	0.0499893	É ¥ 0.05/0/É
		ASIO	Analog/SET_INTERCEPT	É ¥ É
		LVAL	0.937498	É ¥ 0.9375/É  (setpoint)
		LVAL	0.950011	É ¥ 0.95/0.9375/É  (HiRef/setpoint)
		LITO	25	É ¥ 25/0.95/0.9375/É   (LoopCount/HiRef/setpoint)
		LCAL	ServoLoop	É ¥ É
		LITO	0	É ¥ 0/É
		LVAL	0.937498	É ¥ 0.9375/0/É
		ASIO	Analog/SET_SLOPE	É ¥ É
		LVAL	0.937498	É ¥ 0.9375/É
		ASIO	Analog/SEND_ANLG_OUT	É ¥ É
	ESBR
	SGLB	Analog/Servo VCal	/1
		CMNT	 	expects:  É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
		LVAL	0.0499893	É ¥ 0.05/É   (setpoint)
		LVAL	0.0499893	É ¥ 0.05/0.05/É   (LoRef/setpoint)
		LITO	25	É ¥ 25/0.05/0.05/É   (LoopCount/LoRef/setpoint)
		LCAL	ServoLoop	É ¥ É
		LITO	0	É ¥ 0/É
		LVAL	0.0499893	É ¥ 0.05/0/É
		ASIO	Analog/SET_INTERCEPT	É ¥ É
		LVAL	0.950011	É ¥ 0.95/É  (setpoint)
		LVAL	0.950011	É ¥ 0.95/0.95/É  (HiRef/setpoint)
		LITO	25	É ¥ 25/0.95/0.95/É   (LoopCount/HiRef/setpoint)
		LCAL	ServoLoop	É ¥ É
		LITO	0	É ¥ 0/É
		LVAL	0.950011	É ¥ 0.95/0/É
		ASIO	Analog/SET_SLOPE	É ¥ É
		LVAL	0.950011	É ¥ 0.95/É
		ASIO	Analog/SEND_ANLG_OUT	É ¥ É
	ESBR
ESTR
LDEF	Inputs	count/inst/É
	CMNT	 	on exit É ¥ inst/É
	PRIM	Ordinal/Decrement	channel #/inst/É
	PRIM	Stack/Dup to aux	É/channel # ¥ channel #/inst/É
	BRFL	 	branch if done (channel # == 0)
		PRIM	Stack/Drop from aux	É ¥ inst/É
	BRTR
	LITO	0	get all of list
	PRIM	Stack/Dup from aux	É/channel # ¥ channel #/0/inst/É
	LITO	2
	PRIM	Ordinal/Add	É/channel # ¥ info index/0/inst/É
	PRIM	S_tree/Read	É/channel # ¥ list/inst/É
	PRIM	Stack/Dup from aux	É/channel # ¥ channel #/list/inst/É
	PRIM	Stack/Swap	É/channel # ¥ list/channel #/inst/É
	PRIM	List/Remove	É/channel # ¥ list/count/channel #/inst/É
	PRIM	List/Remove	É/channel # ¥ list/slot/count/channel #/inst/É
	PRIM	List/List to item	É/channel # ¥ node/slot/count/channel #/inst/É
	ASIO	Analog/SET_INPUT_TC	É/channel # ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ channel #/inst/É
	LCAL	Inputs
EDEF
LDEF	Output
	LITO	1	output type index
	LITO	2	main data structure
	PRIM	S_tree/Read	É ¥ output type/inst/É
	ASIO	Analog/ANLG_OP_TYPE	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	delay
	CMNT	 	waits for 0.5 seconds
	PRIM	Timer/Get PAT	É ¥ time_now/É
	TIME	500.000	É ¥ 0.5s/time_now/É
	PRIM	Timer/Add	É ¥ time_target/É
	LCAL	loop	É ¥ É
EDEF
LDEF	loop
	CMNT	 	delay loop
	PRIM	Timer/Get PAT	É ¥ time_now/time_target/É
	PRIM	Timer/Compare	É ¥ rslt/time_target/É
	BRFL	 	branch if done
		PRIM	Stack/Drop	É ¥ É
	BRTR
	LCAL	loop
EDEF
LDEF	delay2
	CMNT	 	waits for 0.1 seconds
	PRIM	Timer/Get PAT	É ¥ time_now/É
	TIME	100.000	É ¥ 0.1s/time_now/É
	PRIM	Timer/Add	É ¥ time_target/É
	LCAL	loop	É ¥ É
EDEF
LDEF	ServoLoop
	CMNT	 	expects:  É ¥ LoopCount/ref/sp/É
	PRIM	Ordinal/Decrement	É ¥ LoopCount-1/ref/sp/É
	LITO	1	É ¥ 1/LoopCount-1/ref/sp/É
	PRIM	Ordinal/Compare	É ¥ rslt/LoopCount-1/ref/sp/É
	BRFL	 	É ¥ LoopCount-1/ref/sp/É
		PRIM	Stack/Drop	É ¥ ref/sp/É
		PRIM	Stack/Drop	É ¥ sp/É
		PRIM	Stack/Drop	É ¥ É (abort ServoLoop)
	BRTR
	PRIM	Stack/Rotate up	É ¥ ref/sp/LoopCount-1/É
	PRIM	Stack/Over	É ¥ sp/ref/sp/LoopCount-1/É
	ASIO	Analog/SEND_ANLG_OUT	É ¥ ref/sp/LoopCount-1/É
	LCAL	delay2	(wait .3 seconds to get legit. sample)
	LCAL	delay2
	LCAL	delay2
	PRIM	Stack/Dup to aux	É/ref ¥ ref/sp/LoopCount-1/É
	LITO	1	É/ref ¥ 1/ref/sp/LC-1/É
	ASIO	Analog/GET_ANLG_INPUT	É/ref ¥ input/ref/sp/LC-1/É
	PRIM	Value/Difference	É/ref ¥ diff/sp/LC-1/É
	PRIM	Stack/Duplicate	É/ref ¥ diff/diff/sp/LC-1/É
	PRIM	Value/Absolute	É/ref ¥ |diff|/diff/sp/LC-1/É
	GSYM	Value/zero	É/ref ¥ zero/|diff|/diff/sp/LC-1/É
	PRIM	Value/Compare	É/ref ¥ rslt/|diff|/diff/sp/LC-1/É
	PRIM	Stack/Xdrop	É/ref ¥ rslt/diff/sp/LC-1/É
	BRFL	 	É/ref ¥ diff/sp/LC-1/É
		PRIM	Stack/Drop	É/ref ¥ sp/LC-1/É
		PRIM	Stack/Drop	É/ref ¥ LC-1/É
		PRIM	Stack/Drop	É/ref ¥ É
		PRIM	Stack/Drop from aux	É ¥ É  (convergence successful,exit from ServoLoop)
	BRTR
	LVAL	0.800012	É/ref ¥ 0.8/diff/sp/LC-1/É
	PRIM	Value/Multiply	É/ref ¥ adjustment/sp/LC-1/É
	PRIM	Value/Subtract	É/ref ¥ new sp/LC-1/É
	PRIM	Stack/Push from aux	É ¥ ref/new sp/LC-1É
	PRIM	Stack/Rotate down	É ¥ LC-1/ref/new sp/É
	LCAL	ServoLoop	(tail recursion)
EDEF