STRE
	SGLB	Misc/Class Reference
		CLAS	354033
	ESBR
	SORD	2	/e,,,Main parameters;Main data structure
		PORD	1	/t,Unwind,Rewind;Mode
		PORD	1	/t,Under,Over;Underwind
		PORD	0	/t,Disable,Enable;Tension Enable
		PVAL	0.500015	/o;Clamped Winder Speed
		PVAL	0.500015	/o,-100,100;1/Field Range (%)
		PVAL	0	/o;Tension Demand
		PVAL	0.100009	/o;Static & Dynamic Comp
		PVAL	1	/o;Inertia Compensation
		PVAL	1	/o;Derivative Calibration
		LVAL	0	previous line speed
	ESBR
	SORD	4	Diameter data
		LITO	1	mode
		PVAL	0.500015	/o,-100,100;Fixed Inertia (%)
		PVAL	0.500015	/o,-100,100;Variable Inertia (%)
		PVAL	0.500015	/o;Width
		LVAL	0.00100711	Core Diameter Cubed
		PVAL	0.100009	/o,-100,100;Core Diameter (% Full Roll)
	ESBR
	SORD	5	Unsigned Current Demand
		LVAL	1	Unsigned Current Demand
	ESBR
	SORD	6	Winder Speed data
		PVAL	0	/o,-100,100;1/Field Range (%)
		PORD	1	/t,Reverse,Forward;Direction
		LITO	1	mode
		PVAL	0	/o,-100,100;Static Compensation (%)
		PVAL	1	/o,-100,100;Dynamic Compensation (%)
	ESBR
	SORD	7	Tension data
		LVAL	0.100009	diameter
		PVAL	0	/o;Trim
		PVAL	1	/o;Tension Calibration
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Positive Current Limit
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Negative Current Limit
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		LITO	6	core index
		LITO	4	diameter data
		PRIM	S_tree/Read	core/inst/É
		PRIM	Stack/Duplicate	core/core/inst/É
		PRIM	Stack/Duplicate	core/core/core/inst/É
		PRIM	Value/Multiply	core^2/core/inst/É
		PRIM	Value/Multiply	core^3/inst/É
		LITO	5	cal index
		LITO	4	diameter data
		PRIM	S_tree/Replace	inst/É
		LITO	1	unwind/rewind index
		LITO	2	main data
		PRIM	S_tree/Read	mode/inst/É
		PRIM	Stack/Swap	inst/mode/É
		GSYM	Winders/Mode	method/inst/mode/É
		CLAS	354033
	ESBR
	SGLB	Winders/Line Speed	/3v57/-120,120;Enter Line Speed (%):
		PRIM	Stack/Second to aux	É/line sp ¥ inst/É
		LITO	0	whole list
		LITO	2	main data
		PRIM	S_tree/Read	É/line sp ¥ list/inst/É
		PRIM	List/Remove	É/line sp ¥ list/neg?/inst/É
		PRIM	List/Remove	É/line sp ¥ list/under?/neg?/inst/É
		PRIM	List/Remove	É/line sp ¥ list/tension enable/under?/neg?/inst/É
		PRIM	List/Remove	É/line sp ¥ list/w sp/te/under?/neg?/inst/É
		PRIM	List/Remove	É/line sp ¥ list/clamp/w sp/te/under?/neg?/inst/É
		PRIM	List/Remove	É/line sp ¥ list/tension/clamp/w sp/te/under?/neg?/inst/É
		PRIM	List/Remove	É/line sp ¥ list/S&D/tension/clamp/w sp/te/under?/neg?/inst/É
		PRIM	List/Remove	É/line sp ¥ list/inertia/S&D/É
		PRIM	List/Remove	É/line sp ¥ list/cal/inertia/S&D/É
		PRIM	List/List to item	É/line sp ¥ old/cal/inertia/S&D/É
		PRIM	Stack/Dup from aux	É/line sp ¥ line sp/old/cal/inertia/S&D/É
		PRIM	Value/Difference	É/line sp ¥ delta/cal/inertia/S&D/É
		PRIM	Value/Fraction	É/line sp ¥ dt/inertia/S&D/É
		PRIM	Value/Multiply	É/line sp ¥ i comp/S&D/tension/clamp/w sp/te/under?/neg?/inst/É
		PRIM	Value/Add	É/line sp ¥ loss/tension/clamp/w sp/te/under?/neg?/inst/É
		PRIM	Value/Add	É/line sp ¥ demand/clamp/w sp/te/under?/neg?/inst/É
		PRIM	Stack/Swap	É/line sp ¥ clamp/demand/w sp/te/under?/neg?/inst/É
		PRIM	Value/Scale	É/line sp ¥ c demand/tension enable/under?/neg?/inst/É
		PRIM	Stack/Swap	É/line sp ¥ tension enable/c demand/under?/neg?/inst/É
		BRFL	 	branch if tension not enabled
			PRIM	Stack/Pop to aux	É/line sp/c demand ¥ under?/neg?/inst/É
			LVAL	1	É/line sp/demand ¥ 1.0/under?/neg?/inst/É
			LCAL	LSave
		BRTR
		PRIM	Stack/Dup to aux	É/line sp/demand ¥ demand/under?/neg?/inst/É
		LCAL	LSave
	ESBR
	SGLB	Winders/Mode	/3t73,Unwind,Rewind;Select Mode:
		PRIM	Stack/Over	dir/inst/dir/É
		LITO	1
		LITO	4	diameter data
		PRIM	S_tree/Replace	inst/dir/É
		PRIM	Stack/Over	dir/inst/dir/É
		LITO	3
		LITO	6	winder data
		PRIM	S_tree/Replace	inst/dir/É
		LITO	1	dir index
		CALL	354073
	ESBR
	SGLB	Winders/Underwind	/3t77,Over,Under;Underwind?:
		PRIM	Stack/Swap	dir/inst/É
		PRIM	Ordinal/Test zero	!dir/inst/É
		PRIM	Stack/Swap	inst/!dir/É
		LITO	2	underwind index
		CALL	354073
	ESBR
	SGLB	Winders/Tension Enable	/3t12,Disabled,Enabled;Set Tension Enable as...
		LITO	3	tension enable index
		LITO	2	main data
		PRIM	S_tree/Read	old/inst/new/É
		PRIM	Stack/Rotate up	inst/new/old/É
		PRIM	Stack/Over	new/inst/new/old/É
		LITO	3	tension enable index
		LITO	2	main data
		PRIM	S_tree/Replace	inst/new/old/É
		PRIM	Stack/Rotate up	new/old/inst/É
		PRIM	Ordinal/Xor	same?/inst/É
		LITO	1	only care about first bit
		PRIM	Ordinal/And	same?/inst/É
		BRFL	 	branch if value has changed
			LVAL	0	0.0/inst/É
			PRIM	Stack/Swap	inst/0.0/É
			GSYM	Winders/Line Speed	method/inst/0.0/É
			CLAS	354033	generate new current demand
		BRTR
		PRIM	Heap/Store self	value hasn't changed
	ESBR
	SGLB	Winders/Clamp Speed	/3v7,-100,100;Enter Clamp Speed (%):
		PRIM	Stack/Over	clamp/inst/clamp/É
		LITO	5	1/field range index
		LITO	2	main data
		PRIM	S_tree/Replace	inst/clamp/É
		LITO	1	clamp index
		CALL	354081
	ESBR
	SGLB	Winders/S & D Comp	/3v7,-100,100;Enter S & D Comp (%):
		LITO	7
		CALL	354073
	ESBR
	SGLB	Winders/Inertia Comp	/3v7,-100,100;Enter Inertia Comp (%):
		LITO	8	inertia comp index
		CALL	354073
	ESBR
	SGLB	Winders/Derivative Cal	/3v;Enter Deriv. Calibration:
		LITO	9	cal index
		CALL	354073
	ESBR
	SGLB	Winders/Diameter	/3v7,-100,100;Enter Diameter (% Full Roll):
		PRIM	Stack/Over	dia/inst/dia/É
		PRIM	Stack/Pop to aux	É/dia ¥ inst/dia/É
		LITO	0	get all of list
		LITO	4	diameter data
		PRIM	S_tree/Read	É/dia ¥ list/inst/dia/É
		PRIM	List/Remove	É/dia ¥ list/sign/inst/É
		PRIM	List/Remove	É/dia ¥ list/fixed/sign/inst/É
		PRIM	List/Remove	É/dia ¥ list/var./fixed/sign/inst/É
		PRIM	List/Remove	É/dia ¥ list/width/var./fixed/sign/inst/É
		PRIM	List/Remove	É/dia ¥ list/cal/width/var./fixed/sign/inst/É
		PRIM	List/List to item	É/dia ¥ core/cal/width/var./fixed/sign/inst/É
		PRIM	Stack/Dup from aux	É/dia ¥ dia/core/cal/width/var./É
		PRIM	Value/Divide	É/dia ¥ rslt/cal/width/var./É
		PRIM	Stack/Dup down	É/dia ¥ rv/cal/rf/width/var./É
		PRIM	Value/Multiply	É/dia ¥ rv/rf/width/var./É
		PRIM	Stack/Push from aux	É ¥ dia/rv/rf/width/var./É
		PRIM	Stack/Duplicate	É ¥ dia/dia/rv/rf/width/var./É
		PRIM	Stack/Duplicate	É ¥ dia/dia/dia/rv/rf/width/var./É
		PRIM	Value/Multiply	É ¥ dia^2/dia/rv/rf/width/var./É
		PRIM	Value/Multiply	É ¥ dia^3/rv/rf/width/var./É
		PRIM	Value/Difference	É ¥ rv/rf/width/var./É
		PRIM	Stack/Xswap	É ¥ rv/width/rf/var./É
		PRIM	Value/Multiply	É ¥ rv/rf/var./fixed/sign/É
		PRIM	Stack/Xswap	É ¥ rv/var./rf/fixed/sign/É
		PRIM	Value/Multiply	É ¥ rv/rf/fixed/sign/É
		PRIM	Stack/Rotate up	É ¥ rf/fixed/rv/sign/É
		PRIM	Value/Multiply	É ¥ rf/rv/sign/É
		PRIM	Value/Add	É ¥ rslt/sign/É
		CALL	354104	signed rslt/inst/É
		LITO	8	inertia index
		LITO	2	main data
		PRIM	S_tree/Replace	inst/dia/É
		LITO	1	dia index
		CALL	354083
	ESBR
	SGLB	Winders/Fixed Inertia	/3v7,-100,100;Enter Fixed Inertia (%):
		LITO	2	fixed index
		CALL	354077
	ESBR
	SGLB	Winders/Variable Inertia	/3v7,-100,100;Enter Variable Inertia (%):
		LITO	3	variable inertia
		CALL	354077
	ESBR
	SGLB	Winders/Width	/3v;Enter Width:
		LITO	4	width index
		CALL	354077
	ESBR
	SGLB	Winders/Core Diameter	/3v7,-100,100;Enter Core Diameter (% Full Roll):
		PRIM	Stack/Over	core/inst/core/É
		PRIM	Stack/Duplicate	core/core/inst/core/É
		PRIM	Stack/Duplicate	core/core/core/inst/core/É
		PRIM	Value/Multiply	core^2/core/inst/core/É
		PRIM	Value/Multiply	core^3/inst/core/É
		LITO	5	cal index
		LITO	4	diameter data
		PRIM	S_tree/Replace	inst/dia/É
		LITO	6	core index
		CALL	354077
	ESBR
	SGLB	Winders/Direction	/3t75,Reverse,Forward;Select Direction:
		LITO	2	direction index
		CALL	354081
	ESBR
	SGLB	Winders/Winder Speed	/3v57/-120,120;Enter Winder Speed (%):
		PRIM	Stack/Swap	winder speed/inst/É
		PRIM	Value/Absolute	winder speed/inst/É
		LVAL	0.833338
		PRIM	Value/Divide	compensate for fact that 1.0 = 120%
		PRIM	Stack/Pop to aux	É/winder speed ¥ inst/É
		LITO	0	whole list
		LITO	6	winder speed data
		PRIM	S_tree/Read	É/winder speed ¥ list/inst/É
		PRIM	List/Remove	É/winder speed ¥ list/clamp/inst/É
		PRIM	List/Remove	É/winder speed ¥ list/dir/clamp/inst/É
		PRIM	List/Remove	É/winder speed ¥ list/sign/dir/clamp/inst/É
		PRIM	List/Remove	É/winder speed ¥ list/static/sign/dir/clamp/inst/É
		PRIM	List/List to item	É/w sp ¥ dynamic/static/sign/dir/clamp/inst/É
		PRIM	Stack/Dup from aux	É/w sp ¥ w sp/dynamic/static/sign/dir/clamp/inst/É
		PRIM	Value/Multiply	É/w sp ¥ rslt/static/sign/dir/clamp/inst/É
		PRIM	Value/Add	É/w sp ¥ rslt/sign/dir/clamp/inst/É
		CALL	354104	É/w sp ¥ signed rslt/dir/clamp/inst/É
		CALL	354104	É/w sp ¥ S & D comp/clamp/inst/É
		PRIM	Stack/Push from aux	É ¥ w sp/S & D comp/clamp/inst/É
		PRIM	Stack/Rotate down	clamp/w sp/S & D comp/inst/É
		PRIM	Value/Clamp low	clamped sp/S & D comp/inst/É
		PRIM	Stack/Rotate up	S & D comp/inst/clamped sp/É
		LITO	7	S & D index
		LITO	2	main data
		PRIM	S_tree/Replace	inst/clamped sp/É
		LITO	4	clamped winder speed index
		CALL	354073
	ESBR
	SGLB	Winders/Static Comp	/3v7,-100,100;Enter Static Comp (%):
		LITO	4	static comp index
		CALL	354081
	ESBR
	SGLB	Winders/Dynamic Comp	/3v7,-100,100;Enter Dynamic Comp (%):
		LITO	5	dynamic comp index
		CALL	354081
	ESBR
	SGLB	Winders/Tension	/3v;Enter Tension Demand:
		PRIM	Stack/Second to aux	É/tension ¥ inst/É
		LITO	0	whole list
		LITO	7	tension data
		PRIM	S_tree/Read	É/tension ¥ list/inst/É
		PRIM	List/Remove	É/tension ¥ list/dia/inst/É
		PRIM	List/Remove	É/tension ¥ list/trim/dia/inst/É
		PRIM	List/List to item	É/tension ¥ cal/trim/dia/inst/É
		PRIM	Stack/Push from aux	É ¥ tension/cal/trim/dia/inst/É
		PRIM	Value/Multiply	rslt/trim/dia/inst/É
		PRIM	Value/Add	rslt/dia/inst/É
		PRIM	Value/Multiply	rslt/inst/É
		LITO	6	tension index
		LITO	2	main data
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Trim	/3v;Enter Trim:
		LITO	2	trim index
		CALL	354083
	ESBR
	SGLB	Winders/Tension Cal	/3v;Enter Tension Calibration:
		LITO	3	cal index
		CALL	354083
	ESBR
	SGLB	Winders/Get Mode	/2t72,Unwind,Rewind
		LITO	1	dir index
		CALL	354072
	ESBR
	SGLB	Winders/Get Underwind	/2t76,Under,Over
		LITO	2	underwind index
		CALL	354072
	ESBR
	SGLB	Winders/Get Tension Enable	/2t11,Disabled,Enabled
		LITO	3	tension enable index
		CALL	354072
	ESBR
	SGLB	Winders/Get S & D Comp	/2v6/-100,100;%1.2f%%
		LITO	7
		CALL	354072
	ESBR
	SGLB	Winders/Get Inertia Comp	/2v6,-100,100;%1.2f%%
		LITO	8	inertia comp index
		CALL	354072
	ESBR
	SGLB	Winders/Get Derivative Cal	/2
		LITO	9	cal index
		CALL	354072
	ESBR
	SGLB	Winders/Get Line Speed	/2v58,-120,120;%1.2f%%
		LITO	10
		CALL	354072
	ESBR
	SGLB	Winders/Get Fixed Inertia	/2v6,-100,100;%1.2f%%
		LITO	2	fixed index
		CALL	354076
	ESBR
	SGLB	Winders/Get Var. Inertia	/2v6,-100,100;%1.2f%%
		LITO	3	var. index
		CALL	354076
	ESBR
	SGLB	Winders/Get Width	/2
		LITO	4	width index
		CALL	354076
	ESBR
	SGLB	Winders/Get Core Diameter	/2v6,-100,100;%1.2f%%
		LITO	6	core index
		CALL	354076
	ESBR
	SGLB	Winders/Get Current Demand	/2v6,-100,100;%1.2f%%
		LITO	1
		CALL	354078
	ESBR
	SGLB	Winders/Get Clamp Speed	/2v6,-100,100;%1.2f%%
		LITO	1	clamp index
		CALL	354080
	ESBR
	SGLB	Winders/Get Direction	/2t74,Reverse,Forward
		LITO	2	direction index
		CALL	354080
	ESBR
	SGLB	Winders/Get Static Comp	/2v6,-100,100;%1.2f%%
		LITO	4	static index
		CALL	354080
	ESBR
	SGLB	Winders/Get Dynamic Comp	/2v6,-100,100;%1.2f%%
		LITO	5	dynamic index
		CALL	354080
	ESBR
	SGLB	Winders/Get Diameter	/2v6,-100,100;%1.2f%%
		LITO	1	dia index
		CALL	354082
	ESBR
	SGLB	Winders/Get Trim	/2
		LITO	2	trim index
		CALL	354082
	ESBR
	SGLB	Winders/Get Tension Cal	/2
		LITO	3	cal index
		CALL	354082
	ESBR
ESTR
LDEF	LSave	É/line sp/demand ¥ out/under?/neg?/inst/É
	PRIM	Stack/Rotate up	É/line sp/demand ¥ under?/neg?/demand/inst/É
	PRIM	Ordinal/Xor	É/line sp/demand ¥ sign change?/demand/inst/É
	LITO	1	É/line sp/demand ¥ 1/sign change?/demand/inst/É
	PRIM	Ordinal/And	É/line sp/demand ¥ sign change?/demand/inst/É
	BRFL	 	branch if positive (rewind)
		GSYM	Output/#1
		CALL	354024	É/line sp/demand ¥ inst/É
		LVAL	-1	É/line sp/demand ¥ -1.0/inst/É
		GSYM	Output/#2
		CALL	354024	É/line sp/demand ¥ inst/É
		LCAL	Save
	BRTR
	CMNT	 	negative (unwind)
	PRIM	Value/Negate	É/line sp/demand ¥ -demand/inst/É
	GSYM	Output/#2
	CALL	354024	É/line sp/demand ¥ inst/É
	LVAL	1	É/line sp/demand ¥ 1.0/inst/É
	GSYM	Output/#1
	CALL	354024	É/line sp/demand ¥ inst/É
	LCAL	Save
EDEF
LDEF	Save	É/line sp/demand ¥ inst/É
	PRIM	Stack/Push from aux	É/line sp ¥ demand/inst/É
	LITO	1	demand index
	LITO	5	demand data
	PRIM	S_tree/Replace	É/line sp ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ line sp/inst/É
	LITO	10	old line speed
	LITO	2	main data
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF