STRE
	SGLB	Misc/Class Reference
		CLAS	354051
	ESBR
	SORD	2	/e,,,Main parameters;Main data structure
		PVAL	0	/o,-100,100,-100,100;Trim (%)
		PVAL	0.100009	/o;Calibration
		PVAL	0.0100101	/o;Diameter
		PVAL	0.0199896	/o;Ramp Increment
		LVAL	0	ramp input/output
		LVAL	0	speed from Jog routine
	ESBR
	SORD	3	/e,,,,PID parameters;PID data structure
		LVAL	0	PID output
		PVAL	0.500015	/oSetpoint
		LIST
			LITO	0	time
			LVAL	0	last error
			PVAL	0	/o/-100,100,-100,100;Integral preset (-100% to 100%)
		ELST
		PORD	1	/t,Disabled,Enabled;PID Enable
		PORD	0	/t,Reset,Enabled;Integral Enable
		PVAL	0.333323	/o/-30,30,0,30;Proportional Gain (0 to 30)
		PVAL	0	/o/-5,5,-5,5;Derivative Gain (-5 to 5)
		PVAL	1	/o/-100,100,0,100;PG limit (0% to 100%)
		PVAL	0.899991	/o/-100,100,-100,100;+FB limit (-100% to 100%)
		PVAL	-0.899991	/o/-100,100,-100,100;-FB limit (-100% to 100%)
		PVAL	0.333323	/o/-15,15,0.1,15;Integral TC (0.1 to 15)
	ESBR
	SORD	4	/e,,,,,Jog parameters;Jog data structure
		PORD	0	/t,Disabled,Enabled;Jog Enable
		PORD	0	/t,Off,Started;Start Signal
		PVAL	0	/o;Line Speed
		PVAL	0	/o;Jog Speed
	ESBR
	SGLB	Output/#1
		LCON	 	/*+Speed Demand
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	/1
		LITO	3
		PRIM	S_tree/Get exact	É ¥ list/3/inst/É
		PRIM	Analog/INIT_PID15	É ¥ list/3/inst/É
		PRIM	S_tree/Put
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Feedback	/3 Trigger!
		LVAL	0
		PRIM	Stack/Rotate down	feedback/0/inst/É
		PRIM	Value/Clamp low	feedback/inst/É
		PRIM	Stack/Pop to aux	É/feedback ¥Êinst/É
		LITO	3
		PRIM	S_tree/Get exact	É/feedback ¥ÊPID data/3/inst/É
		PRIM	Stack/Push from aux	feedback/PID data/3/inst/É
		ASIO	Analog/DO_PID15	PID/PID data/3/inst/É
		PRIM	Stack/Pop to aux	É/PID ¥ PID data/3/inst/É
		PRIM	S_tree/Put	É/PID ¥ inst/É
		LITO	0	get whole list
		LITO	2	s_tree index of main list
		PRIM	S_tree/Read
		PRIM	List/Remove	É/PID ¥ list/trim/inst/É
		PRIM	List/Remove	É/PID ¥ list/cal./trim/inst/É
		PRIM	List/Remove	É/PID ¥ list/dia./cal./trim/inst/É
		PRIM	List/Remove	É/PID ¥ list/ramp incr./dia./cal./trim/inst/É
		PRIM	List/Remove	É/PID ¥ list/old ramp/ramp incr./dia./cal./trim/inst/É
		PRIM	List/List to item	É/PID ¥ jog/old ramp/ramp incr./dia./cal./trim/inst/É
		LCAL	Ramp	É/PID ¥ ramped speed/dia./cal./trim/inst/É
		PRIM	Stack/Push from aux	É ¥ PID/ramped speed/dia./cal./trim/inst/É
		PRIM	Stack/Over	É ¥ ramp out/PID/ramped speed/dia./cal./trim/inst/É
		PRIM	Stack/Pop to aux	É/ramp out ¥ PID/ramped speed/dia./cal./trim/inst/É
		PRIM	Stack/Pop to aux	É/ramp out/PID ¥ ramped speed/dia./cal./trim/inst/É
		PRIM	Stack/Rotate down	É/ramp out/PID ¥ cal./ramped speed/dia./trim/inst/É
		PRIM	Value/Scale	É/ramp out/PID ¥ scaled speed/trim/inst/É
		PRIM	Stack/Swap	É/ramp out/PID ¥ trim/scaled speed/inst/É
		PRIM	Stack/Push from aux	É/ramp out ¥ PID/trim/scaled speed/inst/É
		PRIM	Value/Multiply	É/ramp out ¥ trimmed PID/scaled speed/inst/É
		PRIM	Value/Add	É/ramp out ¥ speed demand/inst/É
		PRIM	Stack/Duplicate	É/ramp out ¥ speed demand/speed demand/inst/É
		PRIM	Analog/SEND_ANLG_OUT	always send output to Analog Output
		GSYM	Output/#1	É/ramp out ¥ out #1/speed demand/inst/É
		CALL	354024	É/ramp out ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ ramp out/inst/É
		LITO	5	index of ramp output in list
		LITO	2	s_tree index of main list
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Line Speed	/3
		LVAL	0
		PRIM	Stack/Rotate down	line speed/0/inst/É
		PRIM	Value/Clamp low	line speed/inst/É
		LITO	3	line speed index
		LCAL	Jog
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Trim	/3v,-100,100,-100,100;Trim (%)
		PRIM	Stack/Swap	data/inst/...
		LITO	1	trim index
		LITO	2	main data
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Calibration	/3
		PRIM	Stack/Swap	data/inst/...
		LITO	2	calibration index
		LITO	2	main data
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Diameter	/3v,-100,100,1,100;Diameter (% full roll)
		PRIM	Stack/Swap	data/inst/...
		LITO	3	diameter index
		LITO	2	main data
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Ramp Rate	/3
		PRIM	Stack/Swap	data/inst/...
		LITO	4	ramp incr. index
		LITO	2	main data
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Start	/3t,Off,Started;Set Start as ...
		PRIM	Stack/Swap	data/inst/É
		LITO	2	start signal index
		LCAL	Jog
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Jog Speed	/3
		PRIM	Stack/Swap	data/inst/É
		LITO	4	jog speed index
		LCAL	Jog
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Jog	/3t,Disabled,Enabled;Set Jog as ...
		PRIM	Stack/Swap	data/inst/É
		LITO	1	jog enable index
		LCAL	Jog
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Setpoint	/3
		PRIM	Stack/Swap	data/inst/É
		LITO	2	setpoint index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/PID Enable	/3t,Disabled,Enabled;Set PID Enable as ...
		PRIM	Stack/Swap	data/inst/É
		LITO	4	enable index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Integral Enable	/3t,Disabled,Enabled;Set Integral Enable as ...
		PRIM	Stack/Swap	data/inst/É
		LITO	5	Integral Enable index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Proportional	/3v/-30,30,0,30;Proportional Gain (0 to 30)
		PRIM	Stack/Swap	data/inst/É
		LITO	6	P gain index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Derivative	/3v/-5,5,-5,5;Derivative Gain (-5 to 5)
		PRIM	Stack/Swap	data/inst/É
		LITO	7	D gain index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/PG Limit	/3v/-100,100,0,100;PG limit (0% to 100%)...
		PRIM	Stack/Swap	data/inst/É
		LITO	8	PG limit index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Pos FB Limit	/3v/-100,100;FB Maximum Limit (-100% to 100%)...
		PRIM	Stack/Swap
		LITO	9	+FB limit index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Neg FB Limit	/3v/-100,100;FB Minimum Limit (-100% to 100%)...
		PRIM	Stack/Swap
		LITO	10	-FB limit index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Integral	/3v/-15,15,0.1,15;Integral TC (0.1 to 15)
		PRIM	Stack/Swap
		LITO	11	Integral TC index
		LITO	3	PID data structure
		PRIM	S_tree/Replace
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Get Underwind	/2
		LITO	1	index of underwind dia.
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Trim	/2v,-100,100;%2.1f%%
		LITO	1	position gain index
		LITO	2	main data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Calibration	/2
		LITO	2	calibration index
		LITO	2	main data
		CALL	354086
	ESBR
	SGLB	Winders/Get Diameter	/2v/-100,100;%2.1f%%
		LITO	3	build up index
		LITO	2	main data
		CALL	354086
	ESBR
	SGLB	Winders/Get Ramp Rate	/2
		LITO	4	ramp incr. index
		LITO	2	main data
		CALL	354086
	ESBR
	SGLB	Winders/Get Ramp Output	/2
		LITO	5	index of ramp output in list
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Ramp Input	/2
		LITO	6	index of Jog routine output
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Jog Enable	/2t,Disabled,Enabled
		LITO	1	index of jog enable
		LITO	4	s_tree index of jog list
		CALL	354086
	ESBR
	SGLB	Winders/Get Start	/2t,Off,Started
		LITO	2	index of start
		LITO	4	s_tree index of jog list
		CALL	354086
	ESBR
	SGLB	Winders/Get Line Speed	/2
		LITO	3	index of line speed
		LITO	4	s_tree index of jog list
		CALL	354086
	ESBR
	SGLB	Winders/Get Jog Speed	/2
		LITO	4	index of jog speed
		LITO	4	s_tree index of jog list
		CALL	354086
	ESBR
	SGLB	Winders/Get PID Output	/2
		LITO	1	output index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Setpoint	/2
		LITO	2	setpoint index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get PID Enable	/2t,Disabled,Enabled
		LITO	4	Enable index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Integral Enable	/2t,Disabled,Enabled
		LITO	5	Integral Enable index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Proportional	/2v/-30,30;
		LITO	6	P gain index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Derivative	/2v/-5,5;
		LITO	7	D gain index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get PG Limit	/2v/-100,100;%3.1f%%
		LITO	8	PG limit index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Pos FB Limit	/2v/-100,100;%3.1f%%
		LITO	9	+FB limit index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Neg FB Limit	/2v/-100,100;%3.1f%%
		LITO	10	-FB limit index
		LITO	3	PID data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Integral	/2v/-15,15;
		LITO	11	Integral TC index
		LITO	3	PID data structure
		CALL	354086
	ESBR
ESTR
LDEF	Ramp	target/ramp/incr/É
	CMNT	 	this will be replaced by an ASIO
	PRIM	Stack/Xover
	PRIM	Stack/Xover
	PRIM	Stack/Xover	target/ramp/incr/target/ramp/incr/É
	PRIM	Value/Subtract
	PRIM	Value/Absolute
	PRIM	Value/Subtract	incr-abs(ramp-target)/target/ramp/incr/É
	PRIM	Value/Test negative
	BRFL	 	branch if delta less than incr.
		PRIM	Stack/Drop
		PRIM	Stack/Xdrop
		PRIM	Stack/Xdrop	return target if abs(target-ramp)<incr
	BRTR
	PRIM	Stack/Drop	target/ramp/incr/É
	PRIM	Value/Compare
	BRFL
		PRIM	Value/Add	retrun ramp+incr
	BRTR
	PRIM	Value/Difference	return ramp-incr
EDEF
LDEF	Jog	index/data/inst/É
	CMNT	 	sets input speed from jog/line speed
	LITO	4	jog data structure
	PRIM	S_tree/Replace	inst/É
	LITO	0	get whole list
	LITO	4	jog data structure
	PRIM	S_tree/Read
	PRIM	List/Behead	jog enable/list/inst/É
	BRFL	 	branch if not jog
		PRIM	List/Behead	start/list/inst/É
		BRFL	 	branch if not start
			PRIM	Stack/Drop	inst/É
			LITO	0	return 0 speed if not start
			LITO	6	new input speed index
			LITO	2	s_tree index of main list
			PRIM	S_tree/Replace	inst/É
		BRTR
		PRIM	List/Remove	list/line speed/inst/É
		PRIM	Stack/Drop	line speed/inst/É
		LITO	6	new input speed index
		LITO	2	s_tree index of main list
		PRIM	S_tree/Replace	inst/É
	BRTR
	LITO	3	current offset of jog speed
	PRIM	List/Read	jog speed/list/inst/É
	PRIM	Stack/Xdrop	get rid of list
	LITO	6	new input speed index
	LITO	2	s_tree index of main list
	PRIM	S_tree/Replace	inst/É
EDEF