STRE
	SGLB	Misc/Class Reference
		CLAS	354465	CPW
	ESBR
	SORD	5	/e,,,,,,Main parameters;Diameter Calculator
		PVAL	0.100009	/o,-100,100,0,100;Min. Diameter (% Full Roll)
		PVAL	0.941771	/o;Diameter Filter (0 - 1.0)
		LVAL	0	filter input & output
		PORD	0	/t,Track,Hold;Diameter Hold
		LVAL	0.100009	diameter preset
		PORD	0	/t,Disabled,Enabled;Preset Enable
		LITO	1	inverted tension enable
		PVAL	0.0416578	/o,-120,120,0,120;Min Speed (0 - 120%)
		LVAL	0	|line speed|
		LVAL	0	|winder speed|
		PVAL	0.100009	/o/-100,100,1,20;Build Up (1 - 20)
		TIME	300.000	/o;Diameter Tick Time
	ESBR
	SORD	13	/e,,,,,,,,,,,,,,Web Break parameters;Diameter Calculator
		LITO	0	web broken?
		PVAL	0.100009	/o,-100,100;WB Threshold (% Full Roll)
		LVAL	0	sum
		LVAL	0.0100101	old diameter
		PORD	1	/t,Unwind,Rewind;Rewind-Unwind
		PORD	1	/t,Reverse,Forward;Forward-Reverse
		PORD	0	/t,Disabled,Enabled;WB Reset
		PORD	0	/t,Disabled,Enabled;Tension Enable
	ESBR
	SORD	11	/e,,,,,,,,,,,,Core parameters;Diameter Calculator
		PVAL	1	/o,-100,100;Ext Diameter (% Full Roll)
		PORD	0	/t,Disabled,Enabled;Ext Dia Select
		PVAL	0.100009	/o,-100,100;Core 1 (% Full Roll)
		PVAL	0.199988	/o,-100,100;Core 2 (% Full Roll)
		PORD	0	/t,Core 1, Core 2;Core Select
	ESBR
	SORD	7	/e,,,,,,,,Main parameters;Speed Demand
		LITO	1	overwind? (see SORD 2)
		LVAL	1	diameter
		LVAL	0.0100101	build up (see SORD 5)
		LVAL	0	overspeed trim
		LVAL	0	ramp input/output
		PVAL	0.0199896	/o,-100,100,0,100;Run Delta (%)
		PVAL	0.0199896	/o,-100,100,0,100;Stop Delta (%)
		PVAL	0.0416578	/o,-120,120;Jog Speed (%)
		LITO	0	/t,Disabled,Enabled;Start
		PORD	0	/t,Disabled,Enabled;Jog
	ESBR
	SORD	14	Overspeed parameters;Speed Demand
		PVAL	0.0416578	/o,-120,120;Overspeed (%)
		LITO	1	rewind?
		LITO	0	tension enable
	ESBR
	SORD	8	/e,,,,,,,,,Main parameters;Tension Demand
		TIME	300.000	/o;Tension Tick Time
		PVAL	0.500015	/o,-100,100;Stall Tension (%)
		PORD	1	/e,Fixed,Proportional;Stall Select
		PORD	0	/t,Disabled,Enabled;Stall Enable
		PVAL	0	/o,-100,100;Boost (%)
		PORD	1	/e,Fixed,Proportional;Boost Select
		PORD	0	/t,Disabled,Enabled;Boost Enable
		PVAL	0	/o,-100,100;Tension SP (%)
		PVAL	0	/o,-100,100;Taper SP (%)
		LVAL	0.100009	core diameter
		LVAL	0.400006	diameter
		PORD	0	/e,Linear,Hyperbolic;Taper Select
	ESBR
	SORD	9	/e,,,,,,,,,,Output parameters;Tension Demand
		PVAL	1	/o,-100,100;Dancer Cal (%)
		LITO	0	'In Tension?' state
		PVAL	0.299997	/o,-100,100,0,100;Tension Delta (%)
		LVAL	0	old ramp output
	ESBR
	SORD	2	/e,,,Main parameters;Current Demand
		LITO	1	rewind-unwind
		PORD	1	/t,Under,Over;Over-Under?
		LITO	0	tension enable
		LVAL	0.500015	Clamped Winder Speed (%)
		LVAL	0.500015	Base Speed
		LVAL	0	Tension Demand (%)
		LVAL	0.100009	Static & Dynamic Comp (%)
		LVAL	1	Inertia Compensation (%)
		PVAL	1	/o,-100,100;Derivative Cal (%)
		LVAL	0	previous derivative sp
	ESBR
	SORD	4	/e,,,,,Inertia parameters;Current Demand
		LITO	1	mode
		PVAL	0	/o,-100,100;Fixed Inertia (%)
		PVAL	0	/o,-100,100;Variable Inertia (%)
		PVAL	1	/o,-100,100;Width (%)
		LVAL	0.00100711	Core Diameter Cubed
		LVAL	0.100009	core diameter
	ESBR
	SORD	6	/e,,,,,,,Winder parameters;Current Demand
		PVAL	1	/o,-100,100;Base Speed (%)
		LITO	1	Forward-Reverse
		LITO	1	mode
		PVAL	0	/o,-200,200;Static Comp (-200% to 200%)
		PVAL	0	/o,-200,200;Dynamic Comp (-200% to 200%)
	ESBR
	SORD	10	/e,,,,,,,,,,,Tension parameters;Current Demand
		LVAL	0.100009	diameter
		PVAL	1	/o,-100,100;Tension Scale (-100% to 100%)
		PVAL	0	/o,-200,200;Tension Trim (-200% to 200%)
		PVAL	0.500015	/o,-100,100;Tension Cal (%)
	ESBR
	SORD	12	Up to Speed
		LITO	0	up to speed?
		PVAL	0.0416578	/o,-120,120;UTS Threshold (%)
		LVAL	0	line setpoint
		LVAL	0.0100101	build up
		LVAL	0.100009	dia
	ESBR
	SORD	15	Miscellaneous values
		LVAL	1	Unsigned Current Demand
		LVAL	0	scaled derivative
		LVAL	0	speed demand
		PORD	0	/t,Disabled,Enabled;Other Enable
		LVAL	0	pos current output
		LVAL	0	neg current output
	ESBR
	SGLB	Output/#1	pos current limit
		LCON	 	/*+2504,2520,1764,405,POS CURRENT LIMIT;Positive Current Limit
	ESBR
	SGLB	Output/#2	neg current limit
		LCON	 	/*+2504,2520,1836,405,NEG CURRENT LIMIT;Negative Current Limit
	ESBR
	SGLB	Output/#3	diameter
		LIST
			GSYM	Conns/Update[attach]
			LNOD
			MSGE
				ISYM	dummy	/i;Filled in instance name
				GSYM	Winders/Current Dia
			EMSG
		ELST
		LCON	 	/*+2504,2520,324,405,DIAMETER;Diameter
	ESBR
	SGLB	Output/#10	web break
		LCON	 	/*+2504,2744,684,181,WEB BREAK;Web Break
	ESBR
	SGLB	Output/#4	speed demand
		LCON	 	/*+2504,2520,900,405,SPEED DEMAND;Speed Demand
	ESBR
	SGLB	Output/#5	tension demand
		LCON	 	/*+2504,2520,1404,405,TENSION DEMAND;Tension Demand
	ESBR
	SGLB	Output/#6	dancer loading
		LCON	 	/*+2504,2520,1476,405,DANCER LOADING;Dancer Loading
	ESBR
	SGLB	Output/#7	in tension
		LCON	 	/*+2504,2744,1548,181,IN TENSION;In Tension
	ESBR
	SGLB	Output/#8	up to speed
		LCON	 	/*+2504,2744,1188,181,UP TO SPEED;Up To Speed
	ESBR
	SGLB	Output/#9	internal tension demand
		LIST
			GSYM	Conns/Update[attach]
			LNOD
			MSGE
				ISYM	dummy	/i;Filled in instance name
				GSYM	Winders/Tension Demand
			EMSG
		ELST
	ESBR
	SGLB	Output/#11	web break diameter
		LIST
			GSYM	Conns/Update[attach]
			LNOD
			MSGE
				ISYM	dummy	/i;Filled in instance name
				GSYM	Winders/Web Break Dia
			EMSG
		ELST
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	Object
	ESBR
	SGLB	General/Initialize
		MACR	 	set direction
			LITO	6	direction index
			LITO	13	web break data
			PRIM	S_tree/Read	dir/inst/É
			LITO	2	direction index
			LITO	6
			PRIM	S_tree/Replace	inst/É
		EMAC
		MACR	 	set over/under
			LITO	2	over? index
			LITO	2	main data
			PRIM	S_tree/Read	over?/inst/É
			LITO	1	over? index
			LITO	7	speed demand data
			PRIM	S_tree/Replace	inst/É
		EMAC
		MACR	 	set field range
			LITO	1	1/Field Range index
			LITO	6	winder data
			PRIM	S_tree/Read	fr/inst/É
			LITO	5	1/Field Range index
			LITO	2	main data
			PRIM	S_tree/Replace	inst/É
		EMAC
		MACR	 	set unwind/rewind
			LITO	5	unwind/rewind index
			LITO	13	web break data
			PRIM	S_tree/Read	mode/inst/É
			LCAL	URSetup	inst/É
		EMAC
		MACR	 	set preset
			LCAL	Core1	inst/É
			LITO	5	preset index
			LITO	5	dia. calc data
			PRIM	S_tree/Read	preset/inst/É
			LCAL	FOut	É ¥ inst/É
		EMAC
		MACR	 	set build up
			LITO	11	build up index
			LITO	5	dia. calc data
			PRIM	S_tree/Read	mode/inst/É
			LCAL	Build Up	inst/É
		EMAC
		MACR	 	start dia. calc.
			PRIM	Timer/Get PAT	PAT/inst/É
			TIME	0.000	Æt/PAT/inst/É
			GSYM	Winders/Dia. Trigger	method/Æt/PAT/inst/É
			CALL	354057	inst/...
		EMAC
		MACR	 	start tension demand
			PRIM	Timer/Get PAT	PAT/inst/É
			TIME	0.000	Æt/PAT/inst/É
			GSYM	Winders/Tension Trigger	method/Æt/PAT/inst/É
			CALL	354057	inst/...
		EMAC
		MACR	 	start sender timer
			PRIM	Timer/Get PAT	PAT/inst/É
			TIME	2000.000	Æt/PAT/inst/É
			GSYM	Winders/Senders	method/Æt/PAT/inst/É
			CALL	354057	inst/...
		EMAC
		MACR	 	set tension enable
			LITO	0
			GSYM	Output/#7	#7/0/inst/É
			PRIM	Misc/Send entry	inst/É
			LITO	8	TE? index
			LITO	13	web break data
			PRIM	S_tree/Read	TE?/inst/É
			PRIM	Stack/Swap	inst/TE?/É
			LCAL	TEnable	inst/É
		EMAC
		PRIM	Heap/Store self	É
	ESBR
	SGLB	Winders/Tension Trigger
		LITO	8	tension demand data
		PRIM	S_tree/Entry to stack	taper sel/dia/core/taper/tension/É
		BRFL	 	branch if Linear Taper
			PRIM	Value/Difference	É ¥ dia-core/taper/tension/É
			LCAL	Taper
		BRTR
		CMNT	 	Hyperbolic Taper
		PRIM	Value/Divide	É ¥ (core/dia)/taper/tension/É
		LVAL	1	É ¥ 1/(core/dia)/taper/tension/É
		PRIM	Value/Difference	É ¥ (1-core/dia)/taper/tension/É
		LCAL	Taper
	ESBR
	SGLB	Winders/Tension Demand
		PRIM	Stack/Second to aux	É/demand ¥ inst/É
		LITO	9	tension output data
		PRIM	S_tree/Entry to stack	É/demand ¥ old ramp/incr/old/cal/inst/É
		PRIM	Stack/Push from aux	É ¥ demand/old ramp/incr/old/cal/inst/É
		CALL	354070	demand/old/cal/inst/É
		PRIM	Stack/Pop to aux	É/demand ¥ old/cal/inst/É
		BRFL	 	branch if not in tension
			CMNT	 	not in tension, no cal. output
			PRIM	Stack/Drop	É/demand ¥ inst/É
			LCAL	TDemand3
		BRTR
		CMNT	 	in tension, cal. output
		PRIM	Stack/Dup from aux	É/demand ¥ demand/cal/inst/É
		PRIM	Value/Multiply	É/demand ¥ cal demand/inst/É
		GSYM	Output/#6
		PRIM	Misc/Send entry	É/demand ¥ inst/É
		LCAL	TDemand3
	ESBR
	SGLB	Winders/Dia. Trigger
		PRIM	Stack/Second to aux	É/time ¥ inst/É
		LITO	5	dia main data
		PRIM	S_tree/Entry to stack	É/time ¥ Æt/build up/|winder sp|/|line sp|/min sp/!TE/É
		PRIM	Stack/Push from aux	É ¥ time/Æt/build up/|winder sp|/|line sp|É
		GSYM	Winders/Dia. Trigger	É ¥ method/time/Æt/build up/|winder sp|/|line sp|É
		CALL	354057	build up/|winder sp|/|line sp|É
		PRIM	Stack/Xover	|line|/build up/|winder|/|line|/É
		LVAL	0.0100101	.01/|line|/build up/|winder|/|line|/É
		PRIM	Stack/Rotate down	build up/.01/|line|/|winder|/|line|/É
		PRIM	Value/Scale	scaled line/|winder|/|line|/min sp/É
		PRIM	Value/Fraction	dia./|line|/min sp/É
		PRIM	Stack/Pop to aux	É/dia. ¥ |line|/min sp/É
		PRIM	Value/Compare	É/dia ¥ min?/min sp/!TE/preset?/preset/É
		PRIM	Stack/Xdrop	É/dia ¥ min?/!TE/preset?/preset/É
		PRIM	Ordinal/Ior	É/dia ¥ enabled?/preset?/preset/É
		BRFL	 	branch if not enabled (no preset)
			CMNT	 	É/dia ¥ preset?/preset/hold?/É
			PRIM	Stack/Drop	É/dia ¥ preset/hold?/hold/filter/É
			LCAL	FHold	É ¥ É
		BRTR
		CMNT	 	É/dia ¥ preset?/preset/hold?/É
		BRFL	 	branch if no preset enable
			CMNT	 	held, use held value
			PRIM	Stack/Drop	É/dia ¥ hold?/hold/filter/min dia/inst/É
			PRIM	Stack/Drop	É/dia ¥ hold/filter/min dia/inst/É
			PRIM	Stack/Xdrop	É/dia ¥ hold/min dia/inst/É
			LCAL	FEnd	É ¥ É
		BRTR
		CMNT	 	preset enabled, use preset value
		PRIM	Stack/Xdrop	É/dia ¥ preset/hold/filter/min dia/inst/É
		PRIM	Stack/Xdrop	É/dia ¥ preset/filter/min dia/inst/É
		PRIM	Stack/Xdrop	É/dia ¥ preset/min dia/inst/É
		LCAL	FEnd	É ¥ É
	ESBR
	SGLB	Winders/Current Dia
		MACR	 	Up to Speed
			PRIM	Stack/Over	É ¥ dia/inst/dia/É
			LITO	5	dia index
			LITO	12	up to speed structure
			PRIM	S_tree/Replace	É ¥ inst/dia/É
		EMAC
		MACR	 	tension enable dia
			PRIM	Stack/Over	É ¥ dia/inst/dia/É
			LITO	11	dia index
			LITO	8	tension data structure
			PRIM	S_tree/Replace	É ¥ inst/dia/É
		EMAC
		MACR	 	speed demand dia
			PRIM	Stack/Over	É ¥ dia/inst/dia/É
			LITO	2	dia index
			LITO	7	speed demand data
			PRIM	S_tree/Replace	É ¥ inst/dia/É
		EMAC
		MACR	 	do diameter for Current Demand
			PRIM	Stack/Over	dia/inst/dia/É
			PRIM	Stack/Pop to aux	É/dia ¥ inst/dia/É
			LITO	4	diameter data
			PRIM	S_tree/Entry to stack	É/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	354133	Method 10 Set
		EMAC
	ESBR
	SGLB	Winders/Web Break Dia
		CMNT	 	web break is reset when tension is disabled (see TEnable)
		PRIM	Stack/Second to aux	É/dia ¥ inst/É
		LITO	13	web break data
		PRIM	S_tree/Entry to stack	É/dia ¥ TE?/reset/dir/rewind?/old dia/sum/max/broke?/inst/É
		PRIM	Ordinal/Test zero	É/dia ¥ !TE?/reset/dir/rewind?/old dia/sum/max/broke?/inst/É
		PRIM	Ordinal/Ior	É/dia ¥ reset?/dir/rewind?/old dia/sum/max/broke?/inst/É
		BRFL	 	branch if not in reset
			PRIM	Ordinal/Xor	É/dia ¥ directed rewind?/old dia/sum/max/broke?/inst/É
			BRFL	 	branch if rewind (diameter should be increasing)
				PRIM	Stack/Dup from aux	É/dia ¥ dia/old dia./sum/max/broke?/É
				LCAL	WB test	É ¥ É
			BRTR
			CMNT	 	unwind (diameter should be decreasing)
			PRIM	Stack/Dup from aux	É/dia ¥ dia/old dia./sum/max/broke?/É
			PRIM	Stack/Swap	É/dia ¥ old dia./dia/sum/max/broke?/É
			LCAL	WB test	É ¥ É
		BRTR
		PRIM	Stack/Drop	É/dia ¥ rewind?/old dia/sum/max/broke?/inst/É
		PRIM	Stack/Drop	É/dia ¥ old dia/sum/max/broke?/inst/É
		PRIM	Stack/Drop	É/dia ¥ sum/max/broke?/inst/É
		PRIM	Stack/Drop	É/dia ¥ max/broke?/inst/É
		PRIM	Stack/Drop	É/dia ¥ broke?/inst/É
		LVAL	0	É/dia ¥ 0.0/broke?/inst/É
		PRIM	Stack/Rotate up	É/dia ¥ broke?/inst/0.0/É
		BRFL	 	branch if not broken
			LCAL	WB save	É ¥ É
		BRTR
		LITO	0	É/dia ¥ 0/inst/0.0/É
		LCAL	WB set	É ¥ É
	ESBR
	SGLB	Winders/Senders
		PRIM	Stack/Swap	É ¥ PAT/inst/É
		TIME	2000.000	Æt/PAT/inst/É
		GSYM	Winders/Senders	method/Æt/PAT/inst/É
		CALL	354057	É ¥ inst/É
		MACR	 	web break
			LITO	1
			LITO	13
			PRIM	S_tree/Read	web break?/inst/É
			GSYM	Output/#10	#10/web break?/inst/É
			PRIM	Misc/Send entry	inst/É
		EMAC
		MACR	 	in tension
			LITO	2
			LITO	9
			PRIM	S_tree/Read	É ¥ in tension/inst/É
			GSYM	Output/#7	É ¥ #7/in tension/inst/É
			PRIM	Misc/Send entry	inst/É
		EMAC
		MACR	 	up to speed
			LITO	1
			LITO	12
			PRIM	S_tree/Read	É ¥ up to speed/inst/É
			GSYM	Output/#8	É ¥ #8/up to speed/inst/É
			PRIM	Misc/Send entry	inst/É
		EMAC
		PRIM	Heap/Store self	É
	ESBR
	SGLB	Winders/CD TE
		PRIM	Stack/Xdrop	inst/É
		LITO	8	TE? index
		LITO	13	web break data
		PRIM	S_tree/Read	TE?/inst/É
		LCAL	TEnable4	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Line Speed SP	/3v57/-120,120;Enter Line Speed Setpoint (%)...
		MACR	 	Up to Speed
			PRIM	Stack/Over	sp/inst/sp/É
			PRIM	Value/Absolute	|sp|/inst/É
			LITO	3	line setpoint index
			LITO	12	up to speed structure
			PRIM	S_tree/Replace	É ¥ inst/sp/É
		EMAC
		CMNT	 	sets input speed from jog/line setpoint
		PRIM	Stack/Second to aux	É/line sp ¥ inst/É
		LITO	7	speed demand structure
		PRIM	S_tree/Entry to stack	É/line sp ¥ jog?/start?/jog/stopÆ/runÆ/ramp/overspeed/build up/É
		BRFL	 	branch if not jog
			BRFL	 	branch if not start
				PRIM	Stack/Drop	É/line sp ¥ stopÆ/runÆ/ramp/overspeed/build up/É
				PRIM	Stack/Drop from aux	É ¥ stopÆ/runÆ/ramp/overspeed/build up/É
				PRIM	Stack/Xdrop	É ¥ stopÆ/ramp/overspeed/build up/É
				LVAL	0	É ¥ 0/stopÆ/ramp/overspeed/build up/dia/overwind?/inst/É
				LCAL	Demand	É ¥ É
			BRTR
			PRIM	Stack/Drop	É/line sp ¥ stopÆ/runÆ/ramp/overspeed/build up/É
			PRIM	Stack/Drop	É/line sp ¥ runÆ/ramp/overspeed/build up/É
			PRIM	Stack/Push from aux	É ¥ line sp/runÆ/ramp/overspeed/build up/É
			LCAL	Demand	É ¥ É
		BRTR
		PRIM	Stack/Drop	É/line sp ¥ jog/stopÆ/runÆ/ramp/overspeed/build up/É
		PRIM	Stack/Drop from aux	É ¥ jog/stopÆ/runÆ/ramp/overspeed/build up/É
		PRIM	Stack/Xdrop	É ¥ jog/runÆ/ramp/overspeed/build up/dia/overwind?/inst/É
		LCAL	Demand	É ¥ É
	ESBR
	SGLB	Winders/Derivative SP	/3v57/-120,120;Enter Derivative SP (%)...
		LCAL	Derivative SP	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Derivative	/3v;Enter Derivative (-1.0 to 1.0)...
		PRIM	Stack/Second to aux	É/der ¥ inst/É
		LITO	2	main data
		PRIM	S_tree/Entry to stack	É/der ¥ line sp/cal/inertia/S&D/É
		PRIM	Stack/Push from aux	É ¥ der/line sp/cal/inertia/S&D/É
		PRIM	Stack/Second to aux	É/line sp ¥ der/cal/inertia/S&D/É
		LCAL	Derivative	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/WB Threshold	/3v8,-100,100,0,100;Enter Web Break Threshold (% Full Roll)...
		LITO	2	delay index
		CALL	354145	Method 13 Set
	ESBR
	SGLB	Winders/Rewind-Unwind	/3t73,Unwind,Rewind;Select Mode...
		PRIM	Stack/Over
		LCAL	URSetup	dir/inst/dir/É
		LITO	5	dir index
		CALL	354145	Method 13 Set
	ESBR
	SGLB	Winders/Forward-Reverse	/3t75,Reverse,Forward;Select Direction...
		PRIM	Stack/Over	dir/inst/dir/É
		LITO	2	direction index
		LITO	6
		PRIM	S_tree/Replace	inst/dir/É
		LITO	6	direction index
		CALL	354145	Method 13 Set
	ESBR
	SGLB	Winders/WB Reset	/3t12,Disabled,Enabled;Set Web Break Reset as...
		LITO	7	reset index
		CALL	354145	Method 13 Set
	ESBR
	SGLB	Winders/Dancer Cal	/3v7,-100,100;Enter Calibration (%)...
		LITO	1	cal index
		CALL	354132	Method 9 Set
	ESBR
	SGLB	Winders/Tension Delta	/3v7,-100,100;Enter Ramp Increament (%)...
		LITO	3	ramp index
		CALL	354132	Method 9 Set
	ESBR
	SGLB	Winders/Other Enable	/3t12,Disabled,Enabled;Set Other Enable as...
		PRIM	Stack/Swap	OE?/inst/É
		LITO	4	Other Enable index
		LITO	15	misc. data
		PRIM	S_tree/Replace	inst/É
		LCAL	TEnable2	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Stall Tension	/3v7,-100,100;Enter Stall Tension (%)...
		LITO	2	stall index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Stall Select	/3e81,Fixed,Proportional;Stall Select...
		LITO	3	stall  select index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Stall Enable	/3t12,Disabled,Enabled;Stall Enable...
		LITO	4	stall enable index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Boost	/3v7,-100,100;Enter Boost (%)...
		LITO	5	boost index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Boost Select	/3e81,Fixed,Proportional;Boost Select...
		LITO	6	boost select index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Boost Enable	/3t12,Disabled,Enabled;Boost Enable...
		LITO	7	boost enable index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Tension SP	/3v7,-100,100;Enter Tension Setpoint (%)...
		LITO	8	tension index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Taper SP	/3v7,-100,100;Enter Taper Setpoint (%)...
		LITO	9	taper index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/Taper Select	/3e83,Linear,Hyperbolic;Taper Select...
		LITO	12	taper select index
		CALL	354085	Method 8 Set
	ESBR
	SGLB	Winders/UTS Threshold	/3v57/-120,120;Enter Threshold (0 - 120%)...
		PRIM	Stack/Swap	uts threshold/inst/É
		LITO	2	threshold index
		LITO	12	up to speed data
		PRIM	S_tree/Replace	inst/É
		PRIM	Heap/Store self	É
	ESBR
	SGLB	Winders/Over-Under	/3t77,Under,Over;Set Overwind/Underwind as ...
		PRIM	Stack/Over	over?/inst/over?/É
		LITO	1	over? index
		LITO	7	speed demand structure
		PRIM	S_tree/Replace	inst/É
		LITO	2	over? index
		CALL	354073	Method 2 Set
	ESBR
	SGLB	Winders/Tension Enable	/3t12,Disabled,Enabled;Set Tension Enable as...
		LCAL	TEnable	inst/É
		PRIM	Heap/Store self	value hasn't changed
	ESBR
	SGLB	Winders/Base Speed	/3v7,-100,100;Enter Base Speed (%)...
		PRIM	Stack/Over	clamp/inst/clamp/É
		LITO	5	base speed index
		LITO	2	main data
		PRIM	S_tree/Replace	inst/clamp/É
		LITO	1	clamp index
		CALL	354081	Method 6 Set
	ESBR
	SGLB	Winders/Derivative Cal	/3v7,-100,100;Enter Derivative Calibration (%)...
		LITO	9	cal index
		CALL	354073	Method 2 Set
	ESBR
	SGLB	Winders/Fixed Inertia	/3v7,-100,100;Enter Fixed Inertia (%)...
		LITO	2	fixed index
		CALL	354077	Method 4 Set
	ESBR
	SGLB	Winders/Variable Inertia	/3v7,-100,100;Enter Variable Inertia (%)...
		LITO	3	variable inertia
		CALL	354077	Method 4 Set
	ESBR
	SGLB	Winders/Width	/3v7,-100,100;Enter Width (%)...
		LITO	4	width index
		CALL	354077	Method 4 Set
	ESBR
	SGLB	Winders/Static Comp	/3v38,-200,200;Enter Static Comp (-200% to 200%)...
		LITO	4	static comp index
		CALL	354081	Method 6 Set
	ESBR
	SGLB	Winders/Dynamic Comp	/3v38,-200,200;Enter Dynamic Comp (-200% to 200%)...
		LITO	5	dynamic comp index
		CALL	354081	Method 6 Set
	ESBR
	SGLB	Winders/Tension Scale	/3v7,-100,100;Enter Tension Scale (%)...
		LITO	2	scale index
		CALL	354133	Method 10 Set
	ESBR
	SGLB	Winders/Tension Trim	/3v38,-200,200;Enter Tension Trim (-200% to 200%)...
		LITO	3	trim index
		CALL	354133	Method 10 Set
	ESBR
	SGLB	Winders/Tension Cal	/3v7,-100,100;Enter Tension Calibration (%)...
		LITO	4	cal index
		CALL	354133	Method 10 Set
	ESBR
	SGLB	Winders/Min Diameter	/3v8,-100,100;Enter Minimum Diameter (% Full Roll)...
		LITO	1	min. dia. index
		CALL	354079	Method 5 Set
	ESBR
	SGLB	Winders/Diameter Filter	/3v;Enter Diameter Filter (0 - 1.0)...
		LITO	2	filter rate index
		CALL	354079	Method 5 Set
	ESBR
	SGLB	Winders/Diameter Hold	/3t89,Track,Hold;Enter Diameter Hold state...
		LITO	4	hold index
		CALL	354079	Method 5 Set
	ESBR
	SGLB	Winders/Preset Enable	/3t12,Disabled,Enabled;Set Preset as ...
		LITO	6	preset select index
		CALL	354079	Method 5 Set
	ESBR
	SGLB	Winders/Min Speed	/3v57,-120,120;Enter Minimum Speed (%)...
		LITO	8	min. speed index
		CALL	354079	Method 5 Set
	ESBR
	SGLB	Winders/Line Speed	/3v57/-120,120;Enter Line Speed (%)...
		PRIM	Stack/Swap	sp/inst/É
		PRIM	Value/Absolute	|sp|/inst/É
		LITO	9	line speed index
		LITO	5	dia data structure
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Winder Speed	/3v57/-120,120;Enter Winder Speed (%):
		PRIM	Stack/Swap	winder speed/inst/É
		PRIM	Value/Absolute	|winder speed|/inst/É
		PRIM	Stack/Dup down	|winder speed|/inst/|winder speed|/É
		LITO	10	|winder speed| index
		LITO	5	dia. calc data
		PRIM	S_tree/Replace	inst/|winder speed|/É
		MACR	 	Up to Speed
			PRIM	Stack/Over	|winder speed|/inst/|winder speed|/É
			PRIM	Stack/Pop to aux	É/|winder speed| ¥ inst/|winder speed|/É
			LITO	12	up to speed data
			PRIM	S_tree/Entry to stack	É/w sp ¥ dia/build up/line sp/threshold/uts?/inst/É
			PRIM	Stack/Push from aux	É ¥ |w sp|/dia/build up/line sp/threshold/uts?/inst/É
			PRIM	Value/Multiply	w sp*dia/build up/line sp/threshold/uts?/inst/É
			LVAL	0.0100101	.01/w sp*dia/build up/line sp/threshold/uts?/inst/É
			PRIM	Value/Scale	cal. sp/line sp/threshold/uts?/inst/É
			PRIM	Value/Subtract	delta sp/threshold/uts?/inst/É
			PRIM	Value/Absolute	|delta sp|/threshold/uts?/inst/É
			PRIM	Value/Compare	up to speed/threshold/uts?/inst/É
			PRIM	Stack/Xdrop	up to speed/old uts?/inst/É
			LCAL	Up to Speed
		EMAC
		MACR	 	Current Demand, last item
			PRIM	Stack/Swap	|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	6	winder speed data
			PRIM	S_tree/Entry to stack	É/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	Method 2 Set
		EMAC
	ESBR
	SGLB	Winders/Build Up	/3v41,-100,100,1,20;Build Up (1 - 20)...
		PRIM	Stack/Over	build up/inst/build up/É
		LCAL	Build Up	inst/build up/É
		LITO	11	build up index
		CALL	354079	Method 5 Set
	ESBR
	SGLB	Winders/Run Delta	/3v8,-100,100,0,100;Enter Speed Demand Run Delta (%)...
		LITO	6
		CALL	354083	Method 7 Set
	ESBR
	SGLB	Winders/Stop Delta	/3v8,-100,100,0,100;Enter Speed Demand Stop Delta (%)...
		LITO	7
		CALL	354083	Method 7 Set
	ESBR
	SGLB	Winders/Jog Speed	/3v57,-120,120;Enter Jog Speed (%)...
		LITO	8	jog speed index
		CALL	354083	Method 7 Set
	ESBR
	SGLB	Winders/Start	/3t12,Disabled,Enabled;Set Start as ...
		LITO	9	start signal index
		CALL	354083	Method 7 Set
	ESBR
	SGLB	Winders/Jog	/3t12,Disabled,Enabled;Set Jog as ...
		LITO	10	jog enable index
		CALL	354083	Method 7 Set
	ESBR
	SGLB	Winders/Overspeed	/3v57,-120,120;Enter Overpeed (%)...
		LITO	1	overspeed index
		LCAL	Trim	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Ext Diameter	/3v7,-100,100;Enter Ext. Diameter (% Full Roll)...
		LITO	1	ext dia index
		LCAL	Core
	ESBR
	SGLB	Winders/Ext Dia Select	/3t12,Core,External;Set Diameter Select as...
		LITO	2	ext dia? index
		LCAL	Core
	ESBR
	SGLB	Winders/Core 1	/3v7,-100,100;Enter Core 1 (% Full Roll)...
		LITO	3	core 1 index
		LCAL	Core
	ESBR
	SGLB	Winders/Core 2	/3v7,-100,100;Enter Core 2 (% Full Roll)...
		LITO	4	core 2 index
		LCAL	Core
	ESBR
	SGLB	Winders/Core Select	/3t92,Core 1,Core 2;Select Core...
		LITO	5	ext dia? index
		LCAL	Core
	ESBR
	SGLB	Winders/Get Web Break	/2t11,Disabled,Enabled
		LITO	1	web break index
		CALL	354144	Method 13 Get
	ESBR
	SGLB	Winders/Get WB Threshold	/2v6,-100,100;%1.2f%% Full Roll
		LITO	2	delay index
		CALL	354144	Method 13 Get
	ESBR
	SGLB	Winders/Get Rewind-Unwind	/2t72,Unwind,Rewind
		LITO	5	dir index
		CALL	354144	Method 13 Get
	ESBR
	SGLB	Winders/Get Forward-Reverse	/2t74,Reverse,Forward
		LITO	6	direction index
		CALL	354144	Method 13 Get
	ESBR
	SGLB	Winders/Get WB Reset	/2t11,Disabled,Enabled
		LITO	7	reset index
		CALL	354144	Method 13 Get
	ESBR
	SGLB	Winders/Get Tension Enable	/2t11,Disabled,Enabled
		LITO	8	tension enable index
		CALL	354144	Method 13 Get
	ESBR
	SGLB	Winders/Get Dancer Cal	/2v6,-100,100;%1.2f%%
		LITO	1	cal index
		CALL	354130	Method 9 Get
	ESBR
	SGLB	Winders/Get In Tension	/2t11,Disabled,Enabled
		LITO	2
		CALL	354130	Method 9 Get
	ESBR
	SGLB	Winders/Get Tension Delta	/2v6,-100,100;%1.2f%%
		LITO	3	ramp index
		CALL	354130	Method 9 Get
	ESBR
	SGLB	Winders/Get Tension Demand	/2v6,-100,100;%1.2f%%
		LITO	4	demand index
		CALL	354130	Method 9 Get
	ESBR
	SGLB	Winders/Get Stall Tension	/2v6,-100,100;%1.2f%%
		LITO	2	stall index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Stall Select	/2e80,Fixed,Proportional
		LITO	3	stall  select index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Stall Enable	/2t,Disabled,Enabled
		LITO	4	stall enable index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Boost	/2v6,-100,100;%1.2f%%
		LITO	5	boost index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Boost Select	/2e80,Fixed,Proportional
		LITO	6	boost select index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Boost Enable	/2t,Disabled,Enabled
		LITO	7	boost enable index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Tension SP	/2v6,-100,100;%1.2f%%
		LITO	8	tension index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Taper SP	/2v6,-100,100;%1.2f%%
		LITO	9	taper index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Taper Select	/2e82,Linear,Hyperbolic
		LITO	12	taper select index
		CALL	354084	Method 8 Get
	ESBR
	SGLB	Winders/Get Up to Speed	/2t4,false,true
		LITO	1	up to speed index
		CALL	354141	Method 12 Get
	ESBR
	SGLB	Winders/Get UTS Threshold	/2v58,-120,120;%1.2f%%
		LITO	2	threshold index
		CALL	354141	Method 12 Get
	ESBR
	SGLB	Winders/Get Line Speed SP	/2v58,-120,120;%1.2f%%
		LITO	3	line setpoint index
		CALL	354141	Method 12 Get
	ESBR
	SGLB	Winders/Get Over-Under	/2t76,Under,Over
		LITO	2	underwind index
		CALL	354072	Method 2 Get
	ESBR
	SGLB	Winders/Get S & D Comp	/2v37,-200,200;%3.2f%%
		LITO	7
		CALL	354072	Method 2 Get
	ESBR
	SGLB	Winders/Get Inertia Comp	/2v37,-200,200;%3.2f%%
		LITO	8	inertia comp index
		CALL	354072	Method 2 Get
	ESBR
	SGLB	Winders/Get Derivative Cal	/2v6,-100,100;%1.2f%%
		LITO	9	cal index
		CALL	354072	Method 2 Get
	ESBR
	SGLB	Winders/Get Derivative SP	/2v58,-120,120;%1.2f%%
		LITO	10
		CALL	354072	Method 2 Get
	ESBR
	SGLB	Winders/Get Fixed Inertia	/2v6,-100,100;%1.2f%%
		LITO	2	fixed index
		CALL	354076	Method 4 Get
	ESBR
	SGLB	Winders/Get Variable Inertia	/2v6,-100,100;%1.2f%%
		LITO	3	var. index
		CALL	354076	Method 4 Get
	ESBR
	SGLB	Winders/Get Width	/2v6,-100,100;%1.2f%%
		LITO	4	width index
		CALL	354076	Method 4 Get
	ESBR
	SGLB	Winders/Get Current Demand	/2v37,-200,200;%3.2f%%
		LITO	1
		CALL	354140	Method 15 Get
	ESBR
	SGLB	Winders/Get Scaled Derivative	/2v6,-100,100;%1.2f%%
		LITO	2
		CALL	354140	Method 15 Get
	ESBR
	SGLB	Winders/Get Speed Demand	/2v58,-120,120;%1.1f%%
		LITO	3
		CALL	354140	Method 15 Get
	ESBR
	SGLB	Winders/Get Other Enable	/2t11,Disabled,Enabled
		LITO	4	other enable
		CALL	354140	Method 15 Get
	ESBR
	SGLB	Winders/Get Pos Current	/2v37,-200,200;%3.2f%%
		LITO	5	pos current index
		CALL	354140	Method 15 Get
	ESBR
	SGLB	Winders/Get Neg Current	/2v37,-200,200;%3.2f%%
		LITO	6	neg current index
		CALL	354140	Method 15 Get
	ESBR
	SGLB	Winders/Get Base Speed	/2v6,-100,100;%1.2f%%
		LITO	1	clamp index
		CALL	354080	Method 6 Get
	ESBR
	SGLB	Winders/Get Static Comp	/2v37,-200,200;%3.2f%%
		LITO	4	static index
		CALL	354080	Method 6 Get
	ESBR
	SGLB	Winders/Get Dynamic Comp	/2v37,-200,200;%3.2f%%
		LITO	5	dynamic index
		CALL	354080	Method 6 Get
	ESBR
	SGLB	Winders/Get Tension Scale	/2v6,-100,100;%1.2f%%
		LITO	2	scale index
		CALL	354131	Method 10 Get
	ESBR
	SGLB	Winders/Get Tension Trim	/2v37,-200,200;%3.2f%%
		LITO	3	trim index
		CALL	354131	Method 10 Get
	ESBR
	SGLB	Winders/Get Tension Cal	/2v6,-100,100;%1.2f%%
		LITO	4	cal index
		CALL	354131	Method 10 Get
	ESBR
	SGLB	Winders/Get Min Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	1	minimum diameter index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Diameter Filter	/2v6,-100,100;%1.2f%%
		LITO	2	rate index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Diameter Hold	/2t90,Tracking,Holding
		LITO	4	hold index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Diameter Preset	/2v6,-100,100;%1.2f%% Full Roll
		LITO	5	external diameter index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Preset Enable	/2t11,Disabled,Enabled;
		LITO	6	preset select index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Min Speed	/2v58,-120,120;%1.1f%%
		LITO	8	minimum speed index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Line Speed	/2v58,-120,120;%1.2f%%
		LITO	9
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Winder Speed	/2v58,-120,120;%1.2f%%
		LITO	10	|winder speed| index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Build Up	/2v9,-100,100;%1.2f
		LITO	11	build up index
		CALL	354078	Method 5 Get
	ESBR
	SGLB	Winders/Get Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	2	dia index
		CALL	354082	Method 7 Get
	ESBR
	SGLB	Winders/Get Ramped Speed	/2v58,-120,120;%1.2f%%
		LITO	5
		CALL	354082	Method 7 Get
	ESBR
	SGLB	Winders/Get Run Delta	/2v6,-100,100;%1.2f%%
		LITO	6	run delta index
		CALL	354082	Method 7 Get
	ESBR
	SGLB	Winders/Get Stop Delta	/2v6,-100,100;%1.2f%%
		LITO	7
		CALL	354082	Method 7 Get
	ESBR
	SGLB	Winders/Get Jog Speed	/2v58,-120,120;%1.2f%%
		LITO	8	jog speed index
		CALL	354082	Method 7 Get
	ESBR
	SGLB	Winders/Get Start	/2t11,Disabled,Enabled
		LITO	9	start signal index
		CALL	354082	Method 7 Get
	ESBR
	SGLB	Winders/Get Jog	/2t11,Disabled,Enabled
		LITO	10	jog enable index
		CALL	354082	Method 7 Get
	ESBR
	SGLB	Winders/Get Overspeed	/2v58,-120,120;%1.2f%%
		LITO	1	overspeed index
		LITO	14	trim data structure
		CALL	354086	Method Get
	ESBR
	SGLB	Winders/Get Ext Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	1	ext dia index
		CALL	354134	Method 11 Get
	ESBR
	SGLB	Winders/Get Ext Dia Select	/2t11,Disabled,Enabled
		LITO	2	ext dia? index
		CALL	354134	Method 11 Get
	ESBR
	SGLB	Winders/Get Core 1	/2v6,-100,100;%1.2f%% Full Roll
		LITO	3	core 1 index
		CALL	354134	Method 11 Get
	ESBR
	SGLB	Winders/Get Core 2	/2v6,-100,100;%1.2f%% Full Roll
		LITO	4	core 2 index
		CALL	354134	Method 11 Get
	ESBR
	SGLB	Winders/Get Core Select	/2t92,Core 1,Core 2
		LITO	5	ext dia? index
		CALL	354134	Method 11 Get
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,2898,2988
	CMTL	3	0
		CMNT	24	16,0,108,45,6,1,BASE SPEED;Winders/Base Speed
		CMNT	24	16,0,180,45,8,5,BOOST;Winders/Boost
		CMNT	24	16,0,252,45,8,7,BOOST ENABLE;Winders/Boost Enable
		CMNT	24	16,0,324,45,8,6,BOOST SELECT;Winders/Boost Select
		CMNT	24	16,0,396,45,5,11,BUILD UP;Winders/Build Up
		CMNT	24	16,0,468,45,11,3,CORE 1;Winders/Core 1
		CMNT	24	16,0,540,45,11,4,CORE 2;Winders/Core 2
		CMNT	24	16,0,612,45,11,5,CORE SELECT;Winders/Core Select
		CMNT	24	16,0,684,45,0,0,DERIVATIVE;Winders/Derivative
		CMNT	24	16,0,756,45,2,10,DERIVATIVE SP;Winders/Derivative SP
		CMNT	24	16,0,828,45,5,4,DIAMETER HOLD;Winders/Diameter Hold
		CMNT	24	16,0,900,45,6,5,DYNAMIC COMP;Winders/Dynamic Comp
		CMNT	24	16,0,972,45,11,2,EXT DIA SELECT;Winders/Ext Dia Select
		CMNT	24	16,0,1044,45,11,1,EXT DIAMETER;Winders/Ext Diameter
		CMNT	24	16,0,1116,45,4,2,FIXED INERTIA;Winders/Fixed Inertia
		CMNT	24	16,0,1188,45,13,6,FORWARD-REVERSE;Winders/Forward-Reverse
		CMNT	24	16,0,1260,45,7,10,JOG;Winders/Jog
		CMNT	24	16,0,1332,45,7,8,JOG SPEED;Winders/Jog Speed
		CMNT	24	16,0,1404,45,5,9,LINE SPEED;Winders/Line Speed
		CMNT	24	16,0,1476,45,12,3,LINE SPEED SP;Winders/Line Speed SP
		CMNT	24	16,0,1548,45,5,1,MIN DIAMETER;Winders/Min Diameter
		CMNT	24	16,0,1620,45,5,8,MIN SPEED;Winders/Min Speed
		CMNT	24	16,0,1692,45,15,4,OTHER ENABLE;Winders/Other Enable
		CMNT	24	16,0,1764,45,2,2,OVER-UNDER;Winders/Over-Under
		CMNT	24	16,0,1836,45,14,1,OVERSPEED;Winders/Overspeed
		CMNT	24	16,0,1908,45,5,6,PRESET ENABLE;Winders/Preset Enable
		CMNT	24	16,0,1980,45,13,5,REWIND-UNWIND;Winders/Rewind-Unwind
		CMNT	24	16,0,2052,45,8,4,STALL ENABLE;Winders/Stall Enable
		CMNT	24	16,0,2124,45,8,3,STALL SELECT;Winders/Stall Select
		CMNT	24	16,0,2196,45,8,2,STALL TENSION;Winders/Stall Tension
		CMNT	24	16,0,2268,45,7,9,START;Winders/Start
		CMNT	24	16,0,2340,45,6,4,STATIC COMP;Winders/Static Comp
		CMNT	24	16,0,2412,45,8,12,TAPER SELECT;Winders/Taper Select
		CMNT	24	16,0,2484,45,8,9,TAPER SP;Winders/Taper SP
		CMNT	24	16,0,2556,45,13,8,TENSION ENABLE;Winders/Tension Enable
		CMNT	24	16,0,2628,45,8,8,TENSION SP;Winders/Tension SP
		CMNT	24	16,0,2700,45,10,3,TENSION TRIM;Winders/Tension Trim
		CMNT	24	16,0,2772,45,4,3,VARIABLE INERTIA;Winders/Variable Inertia
		CMNT	24	16,0,2844,45,13,7,WB RESET;Winders/WB Reset
		CMNT	24	16,0,2916,45,5,10,WINDER SPEED;Winders/Winder Speed
		CMNT	24	1096,1080,324,45,5,2,DIAMETER FILTER;Winders/Diameter Filter
		CMNT	24	1096,1080,684,45,13,2,WB THRESHOLD;Winders/WB Threshold
		CMNT	24	1096,1080,900,45,7,6,RUN DELTA;Winders/Run Delta
		CMNT	24	1096,1080,972,45,7,7,STOP DELTA;Winders/Stop Delta
		CMNT	24	1096,1080,1188,45,12,2,UTS THRESHOLD;Winders/UTS Threshold
		CMNT	24	1096,1080,1404,45,9,1,DANCER CAL;Winders/Dancer Cal
		CMNT	24	1096,1080,1476,45,9,3,TENSION DELTA;Winders/Tension Delta
		CMNT	24	1096,1080,1764,45,2,9,DERIVATIVE CAL;Winders/Derivative Cal
		CMNT	24	1096,1080,1836,45,10,4,TENSION CAL;Winders/Tension Cal
		CMNT	24	1096,1080,1908,45,10,2,TENSION SCALE;Winders/Tension Scale
		CMNT	24	1096,1080,1980,45,4,4,WIDTH;Winders/Width
	ECMT
	CMTL	7	0
		CMNT	18	1800,270,0,5,12,;/p;DIAMETER CALCULATOR  (%1.0f ms)
		CMNT	18	1800,1344,0,8,1,;/p;TENSION DEMAND  (%1.0f ms)
		CMNT	22	-10,100,0,6,1,Winders/Get Base Speed;/v,-100,100;%1.0f%%
		CMNT	22	-10,172,0,8,5,Winders/Get Boost;/v,-100,100;%1.0f%%
		CMNT	22	-10,244,0,8,7,Winders/Get Boost Enable;/t,D,E
		CMNT	22	-10,316,0,8,6,Winders/Get Boost Select;/t,F,P
		CMNT	22	-10,388,0,5,11,Winders/Get Build Up;/v,-100,100;%1.1f
		CMNT	22	-10,460,0,11,3,Winders/Get Core 1;/v,-100,100;%1.0f%%
		CMNT	22	-10,532,0,11,4,Winders/Get Core 2;/v,-100,100;%1.0f%%
		CMNT	22	-10,604,0,11,5,Winders/Get Core Select;/t,1,2
		CMNT	22	-10,748,0,2,10,Winders/Get Derivative SP;/v,-120,120;%1.0f%%
		CMNT	22	-10,820,0,5,4,Winders/Get Diameter Hold;/t,T,H
		CMNT	22	-10,892,0,6,5,Winders/Get Dynamic Comp;/v,-200,200;%1.0f%%
		CMNT	22	-10,964,0,11,2,Winders/Get Ext Dia Select;/t,C,E
		CMNT	22	-10,1036,0,11,1,Winders/Get Ext Diameter;/v,-100,100;%1.0f%%
		CMNT	22	-10,1108,0,4,2,Winders/Get Fixed Inertia;/v,-100,100;%1.0f%%
		CMNT	22	-10,1180,0,13,6,Winders/Get Forward-Reverse;/t,R,F
		CMNT	22	-10,1252,0,7,10,Winders/Get Jog;/t,D,E
		CMNT	22	-10,1324,0,7,8,Winders/Get Jog Speed;/v,-120,120;%1.0f%%
		CMNT	22	-10,1396,1,5,9,Winders/Get Line Speed;/v,-120,120;%1.0f%%
		CMNT	22	-10,1468,1,12,3,Winders/Get Line Speed SP;/v,-120,120;%1.0f%%
		CMNT	22	-10,1540,0,5,1,Winders/Get Min Diameter;/v,-100,100;%1.0f%%
		CMNT	22	-10,1612,0,5,8,Winders/Get Min Speed;/v,-120,120;%1.0f%%
		CMNT	22	-10,1684,0,15,4,Winders/Get Other Enable;/t,D,E
		CMNT	22	-10,1756,0,2,2,Winders/Get Over-Under;/t,U,O
		CMNT	22	-10,1828,0,14,1,Winders/Get Overspeed;/v,-120,120;%1.0f%%
		CMNT	22	-10,1900,0,5,6,Winders/Get Preset Enable;/t,D,E
		CMNT	22	-10,1972,0,13,5,Winders/Get Rewind-Unwind;/t,U,R
		CMNT	22	-10,2044,0,8,4,Winders/Get Stall Enable;/t,D,E
		CMNT	22	-10,2116,0,8,3,Winders/Get Stall Select;/t,F,P
		CMNT	22	-10,2188,0,8,2,Winders/Get Stall Tension;/v,-100,100;%1.0f%%
		CMNT	22	-10,2260,0,7,9,Winders/Get Start;/t,D,E
		CMNT	22	-10,2332,0,6,4,Winders/Get Static Comp;/v,-200,200;%1.0f%%
		CMNT	22	-10,2404,0,8,12,Winders/Get Taper Select;/t,L,H
		CMNT	22	-10,2476,0,8,9,Winders/Get Taper SP;/v,-100,100;%1.0f%%
		CMNT	22	-10,2548,0,13,8,Winders/Get Tension Enable;/t,D,E
		CMNT	22	-10,2620,0,8,8,Winders/Get Tension SP;/v,-100,100;%1.0f%%
		CMNT	22	-10,2692,0,10,3,Winders/Get Tension Trim;/v,-200,200;%1.0f%%
		CMNT	22	-10,2764,0,4,3,Winders/Get Variable Inertia;/v,-100,100;%1.0f%%
		CMNT	22	-10,2836,0,13,7,Winders/Get WB Reset;/t,D,E
		CMNT	22	-10,2908,1,5,10,Winders/Get Winder Speed;/v,-120,120;%1.0f%%
		CMNT	22	1070,316,0,5,2,Winders/Get Diameter Filter;/v,-1,1;%1.2f
		CMNT	22	1070,676,0,13,2,Winders/Get WB Threshold;/v,-100,100;%1.0f%%
		CMNT	22	1070,892,0,7,6,Winders/Get Run Delta;/v,-100,100;%1.0f%%
		CMNT	22	1070,964,0,7,7,Winders/Get Stop Delta;/v,-100,100;%1.0f%%
		CMNT	22	1070,1180,0,12,2,Winders/Get UTS Threshold;/v,-120,120;%1.0f%%
		CMNT	22	1070,1396,0,9,1,Winders/Get Dancer Cal;/v,-100,100;%1.0f%%
		CMNT	22	1070,1468,0,9,3,Winders/Get Tension Delta;/v,-100,100;%1.0f%%
		CMNT	22	1070,1756,0,2,9,Winders/Get Derivative Cal;/v,-100,100;%1.0f%%
		CMNT	22	1070,1828,0,10,4,Winders/Get Tension Cal;/v,-100,100;%1.0f%%
		CMNT	22	1070,1900,0,10,2,Winders/Get Tension Scale;/v,-100,100;%1.0f%%
		CMNT	22	1070,1972,0,4,4,Winders/Get Width;/v,-100,100;%1.0f%%
		CMNT	14	2536,316,1,7,2,Winders/Get Diameter;/v,-100,100;%1.0f%%
		CMNT	14	2536,418,3,5,5,Winders/Get Diameter Preset;/v,-100,100;%1.0f%%
		CMNT	14	2536,490,3,8,10,Winders/Get Core;/v,-100,100;%1.0f%%
		CMNT	14	2536,676,1,13,1,Winders/Get Web Break;/t,D,E
		CMNT	14	2536,892,1,15,3,Winders/Get Speed Demand;/v,-120,120;%1.0f%%
		CMNT	14	2536,996,3,7,3,Winders/Get Ramped Speed;/v,-120,120;%1.0f%%
		CMNT	14	2536,1180,1,12,1,Winders/Get Up to Speed;/t,F,T
		CMNT	14	2536,1396,1,9,4,Winders/Get Tension Demand;/v,-100,100;%1.0f%%
		CMNT	14	2536,1540,1,9,2,Winders/Get In Tension;/t,D,E
		CMNT	14	2536,1756,1,15,5,Winders/Get Pos Current;/v,-200,200;%1.0f%%
		CMNT	14	2536,1828,1,15,6,Winders/Get Neg Current;/v,-200,200;%1.0f%%
		CMNT	14	2536,1932,3,15,1,Winders/Get Current Demand;/v,-200,200;%1.0f%%
	ECMT
	CMTL	64	0
		CMNT	22	2504,418,DIAMETER PRESET
		CMNT	22	2504,490,CORE
		CMNT	22	2504,996,RAMPED SPEED
		CMNT	22	2504,1932,CURRENT DEMAND
	ECMT
	CMNT	8	0,0,2880,2970
	CMNT	18	1440,70,CPW
	CMNT	8	1080,198,2520,512
	CMNT	8	1080,548,2520,728
	CMNT	18	1800,618,WEB BREAK DETECTOR
	CMNT	12	2690,666,2690,702
	CMNT	10	2744,684
	CMNT	10	2690,666
	CMNT	12	2520,684,2690,684
	CMNT	8	1080,764,2520,1022
	CMNT	18	1800,834,SPEED DEMAND
	CMNT	8	1080,1058,2520,1238
	CMNT	18	1800,1128,UP TO SPEED DETECTOR
	CMNT	12	2690,1170,2690,1206
	CMNT	10	2744,1188
	CMNT	10	2690,1170
	CMNT	12	2520,1188,2690,1188
	CMNT	8	1080,1274,2520,1598
	CMNT	12	2690,1530,2690,1566
	CMNT	10	2744,1548
	CMNT	10	2690,1530
	CMNT	12	2520,1548,2690,1548
	CMNT	8	1080,1634,2520,2024
	CMNT	18	1800,1704,CURRENT DEMAND
ECMT
LDEF	FHold	É/dia ¥ preset/hold?/old/rate/min dia/inst/É
	PRIM	Stack/Drop	É/dia ¥ hold?/old/rate/min dia/inst/É
	BRFL	 	branch if not held, use calculated value
		PRIM	Stack/Dup from aux	É/dia ¥ new/old/rate/min dia/inst/É
		PRIM	Value/Difference	É/dia ¥ new-old/rate/min dia/inst/É
		PRIM	Value/Multiply	É/dia ¥ rate*(new-old)/min dia/inst/É
		PRIM	Stack/Dup from aux	É/dia ¥ new/rate*(new-old)/min dia/inst/É
		PRIM	Value/Difference	É/dia ¥ new-rate*(new-old)/min dia/inst/É
		LCAL	FEnd	É ¥ É
	BRTR
	CMNT	 	held, use held value
	PRIM	Stack/Xdrop	É/dia ¥ old/min dia/inst/É
	LCAL	FEnd	É ¥ É
EDEF
LDEF	FEnd	É/dia ¥ output/min dia/inst/É
	PRIM	Stack/Dup to aux	É/dia/output ¥ output/min dia/inst/É
	PRIM	Stack/Swap	É/dia/output ¥ min dia/output/inst/É
	PRIM	Value/Clamp low	É/dia/output ¥ dia./inst/É
	GSYM	Output/#3
	PRIM	Misc/Send entry	É/dia/output ¥ inst/É
	PRIM	Stack/Push from aux	É/dia ¥ output/inst/É
	LCAL	FOut	É/dia ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ dia/inst/É
	GSYM	Output/#11	send computed diameter to web break detector
	PRIM	Misc/Send entry	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	FOut	É ¥ output/inst/É
	LITO	3	filter in/out index
	LITO	5	dia. calc. data
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	Derivative SP	inst/setpoint/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Stack/Second to aux	É/line sp ¥ inst/É
	LITO	2	main data
	PRIM	S_tree/Entry to stack	É/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/É
	LCAL	Derivative	É ¥ inst/É
EDEF
LDEF	Derivative	É/line sp ¥ delta/cal/inertia/S&D/tension/clamp/w sp/te/under?/neg?/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	Value/Fraction	É/line sp ¥ dt/inertia/S&D/É
	PRIM	Stack/Dup to aux	É/line sp/dt ¥ dt/inertia/S&D/É
	PRIM	Value/Multiply	É/line sp/dt ¥ i comp/S&D/tension/clamp/w sp/te/under?/neg?/inst/É
	PRIM	Value/Add	É/line sp/dt ¥ loss/tension/clamp/w sp/te/under?/neg?/inst/É
	PRIM	Value/Add	É/line sp/dt ¥ demand/clamp/w sp/te/under?/neg?/inst/É
	PRIM	Stack/Swap	É/line sp/dt ¥ clamp/demand/w sp/te/under?/neg?/inst/É
	PRIM	Value/Scale	É/line sp/dt ¥ c demand/tension enable/under?/neg?/inst/É
	PRIM	Stack/Swap	É/line sp/dt ¥ tension enable/c demand/under?/neg?/inst/É
	BRFL	 	branch if tension not enabled
		PRIM	Stack/Pop to aux	É/line sp/dt/c demand ¥ under?/neg?/inst/É
		LVAL	1	É/line sp/dt/demand ¥ 1.0/under?/neg?/inst/É
		LCAL	LSave	É ¥ inst/line sp/É
	BRTR
	PRIM	Stack/Dup to aux	É/line sp/dt/demand ¥ demand/under?/neg?/inst/É
	LCAL	LSave	É ¥ inst/line sp/É
EDEF
LDEF	LSave	É/line sp/dt/demand ¥ out/under?/neg?/inst/É
	PRIM	Stack/Rotate up	É/line sp/dt/demand ¥ under?/neg?/out/inst/É
	BRFL	 	branch if underwind (negative)
		BRFL	 	branch if unwind (neg, result pos)
			LCAL	Pos Current	inst/É
		BRTR
		LCAL	Neg Current	inst/É
	BRTR
	CMNT	 	overwind (positive so far)
	BRFL	 	branch if unwind (neg, result neg)
		LCAL	Neg Current	inst/É
	BRTR
	LCAL	Pos Current	inst/É
EDEF
LDEF	Pos Current	É/line sp/dt/demand ¥ output/inst/É
	LVAL	-1	É/line sp/dt/demand ¥ -1/output/inst/É
	PRIM	Stack/Swap	É/line sp/dt/demand ¥ output/-1/inst/É
	LCAL	Current
EDEF
LDEF	Neg Current	É/line sp/dt/demand ¥ output/inst/É
	PRIM	Value/Negate	É/line sp/demand ¥ -output/inst/É
	LVAL	1	É/line sp/demand ¥ 1/-output/inst/É
	LCAL	Current
EDEF
LDEF	Current	É/line sp/dt/demand ¥ pos/neg/inst/É
	PRIM	Stack/Xswap	É/line sp/dt/demand ¥ pos/inst/neg/É
	GSYM	Output/#1	É/line sp/dt/demand ¥ #1/pos/inst/neg/É
	LCAL	DupSend	É/line sp/dt/demand ¥ inst/pos/neg/É
	PRIM	Stack/Swap	É/line sp/dt/demand ¥ pos/inst/neg/É
	LITO	5	pos current index
	LITO	15	misc data
	PRIM	S_tree/Replace	É/line sp/dt/demand ¥ inst/neg/É
	PRIM	Stack/Over	É/line sp/dt/demand ¥ neg/inst/neg/É
	GSYM	Output/#2	É/line sp/dt/demand ¥ #2/neg/inst/neg/É
	PRIM	Misc/Send entry	É/line sp/dt/demand ¥ inst/neg/É
	PRIM	Stack/Swap	É/line sp/dt/demand ¥ neg/inst/É
	LITO	6	neg current index
	LITO	15	misc data
	PRIM	S_tree/Replace	É/line sp/dt/demand ¥ inst/É
	PRIM	Stack/Push from aux	É/line sp/dt ¥ demand/inst/É
	LITO	1	demand index
	LITO	15	misc data
	PRIM	S_tree/Replace	É/line sp/dt ¥ inst/É
	PRIM	Stack/Push from aux	É/line sp ¥ dt/inst/É
	LITO	2	derivative index
	LITO	15	misc data
	PRIM	S_tree/Replace	É/line sp ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ line sp/inst/É
	LITO	10	old derivative sp
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	URSetup	dir/inst/É
	PRIM	Stack/Dup down	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/É
	PRIM	Stack/Over	dir/inst/dir/É
	LITO	1
	LITO	2	current demand data
	PRIM	S_tree/Replace	inst/dir/É
	LITO	2	trim index
	LCAL	Trim	inst/É
EDEF
LDEF	TEnable	inst/tension enable/É
	MACR	 	Speed Demand stuff
		PRIM	Stack/Xdup	inst/en/en/É
		LITO	3	tension enable index
		LCAL	Trim	inst/en/É
	EMAC
	MACR	 	Diameter stuff
		PRIM	Stack/Over	en/inst/en/É
		PRIM	Ordinal/Test zero	invert input
		LITO	7	tension enable index
		LITO	5	dia data structure
		PRIM	S_tree/Replace	inst/en/É
	EMAC
	MACR	 	web break stuff
		PRIM	Stack/Over	en/inst/en/É
		LITO	8	Tension Enable index
		LITO	13	web break data
		PRIM	S_tree/Replace	inst/en/É
	EMAC
	LCAL	TEnable2	inst/en/É
	MACR	 	do tension enable for current demand
		PRIM	Stack/Swap	new/inst/É
		BRFL	 	branch if new value is off
			PRIM	Timer/Get PAT	PAT/inst/É
			TIME	200.000	Æt/PAT/inst/É
			GSYM	Winders/CD TE	method/Æt/PAT/inst/É
			CALL	354057	inst/...
		BRTR
		LITO	1	1/inst/É
		LCAL	TEnable4	inst/É
	EMAC
EDEF
LDEF	TEnable2	É ¥ inst/É
	LITO	4	other enable
	LITO	15	misc. data
	PRIM	S_tree/Read	OE?/inst/É
	BRFL	 	branch if other enable false (test Tension enable)
		LITO	7	tension enable index
		LITO	5	dia data structure
		PRIM	S_tree/Read	!TE?/inst/É
		BRFL	 	branch if Tension enabled
			LITO	1	in tension/inst/É
			LCAL	TEnable3	inst/É
		BRTR
		CMNT	 	tension not enabled, nothing to do
	BRTR
	LITO	0	not in tension
	LCAL	TEnable3	inst/É
EDEF
LDEF	TEnable3	É ¥ new/inst/É
	CMNT	 	set 'In Tension' if it has changed
	PRIM	Stack/Swap	inst/new/É
	LITO	2	in tension index
	LITO	9	other tension data
	PRIM	S_tree/Read	old/inst/new/É
	PRIM	Stack/Xswap	old/new/inst/É
	PRIM	Ordinal/Test equal	no change?/new/inst/É
	BRFL	 	branch if changed
		GSYM	Output/#7	É ¥ #7/new/inst/É
		LCAL	DupSend	inst/new/É
		PRIM	Stack/Swap	new/inst/É
		LITO	2	in tension index
		LITO	9	other tension data
		PRIM	S_tree/Replace	inst/É
	BRTR
	CMNT	 	no change, nothing to do
	PRIM	Stack/Drop	inst/É
EDEF
LDEF	TEnable4	new/inst/É
	PRIM	Stack/Swap	inst/new/É
	LITO	3	tension enable index
	LITO	2	main data
	PRIM	S_tree/Read	old/inst/new/É
	PRIM	Stack/Xswap	old/new/inst/É
	PRIM	Ordinal/Test equal	same?/new/inst/É
	BRFL	 	branch if not equal
		LITO	3	tension enable index
		LITO	2	main data
		PRIM	S_tree/Replace	inst/É
		LITO	10	old derivative sp
		LITO	2	main data
		PRIM	S_tree/Read	old/inst/É
		PRIM	Stack/Swap	inst/old/É
		LCAL	Derivative SP	É ¥ inst/É
	BRTR
	PRIM	Stack/Drop	inst/É
EDEF
LDEF	Build Up	build up/inst/É
	PRIM	Stack/Dup to aux	É/build up ¥ build up/inst/É
	LITO	4	build up index
	LITO	12	up to speed structure
	PRIM	S_tree/Replace	É/build up ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ build up/inst/É
	LITO	3	build up index
	LITO	7	speed demand structure
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	Demand	speed/ramp incr/ramp/trim/build up/dia/overwind?/inst/É
	PRIM	Stack/Xswap	speed/ramp/ramp incr/trim/build up/dia/overwind?/inst/É
	CALL	354070	new/trim/build up/dia/overwind?/inst/É
	PRIM	Stack/Dup to aux	É/new ¥ new/trim/build up/dia/overwind?/inst/É
	PRIM	Value/Add	É/new ¥ demand/build up/dia/overwind?/inst/É
	LVAL	0.0100101	É/new ¥ .01/demand/build up/dia/overwind?/inst/É
	PRIM	Stack/Rotate down	É/new ¥ build up/.01/demand/dia/overwind?/inst/É
	PRIM	Value/Scale	É/new ¥ demand/dia/overwind?/inst/É
	PRIM	Value/Fraction	É/new ¥ demand/overwind?/inst/É
	LVAL	0.833338	É/new ¥ .83333/demand/overwind?/inst/É
	PRIM	Value/Clamp high	É/new ¥ +clamped demand/overwind?/inst/É
	LVAL	-0.833338	É/new ¥ -.83333/+clamped demand/overwind?/inst/É
	PRIM	Value/Clamp low	É/new ¥ clamped demand/overwind?/inst/É
	CALL	354104	É/new ¥ signed demand/inst/É
	PRIM	Stack/Dup to aux	É/new/signed demand ¥ signed demand/inst/É
	LITO	3	speed demand index
	LITO	15	misc data
	PRIM	S_tree/Replace	É/new/signed demand ¥ inst/É
	PRIM	Stack/Push from aux	É/new ¥ signed demand/inst/É
	GSYM	Output/#4	É/new ¥ out #4/signed demand/inst/É
	PRIM	Misc/Send entry	É/new ¥ inst/É
	PRIM	Stack/Push from aux	É ¥Ênew/inst/É
	PRIM	Stack/Swap	É ¥Êinst/new/É
	LITO	5	ramp output index
	CALL	354083	É ¥ÊÉ
EDEF
LDEF	Trim	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	14	direction data
	PRIM	S_tree/Replace	inst/É
	LITO	14	direction data
	PRIM	S_tree/Entry to stack	te?/rewind?/overspeed/inst/É
	BRFL	 	branch if not enabled
		PRIM	Stack/Drop	overspeed/inst/É
		PRIM	Stack/Drop	inst/É
		LVAL	0	0/inst/É
		LCAL	TSave	inst/É
	BRTR
	BRFL	 	branch if unwinding (negative overspeed)
		PRIM	Value/Negate	-overspeed/inst/É
		LCAL	TSave	inst/É
	BRTR
	LCAL	TSave	inst/É
EDEF
LDEF	TSave	trim/inst/É
	LITO	4	trim index
	LITO	7	speed demand structure
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	Core	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	11	core data
	PRIM	S_tree/Replace	inst/É
	LCAL	Core1	inst/É
	PRIM	Heap/Store self	É
EDEF
LDEF	Core1	inst/É
	LITO	11	core data
	PRIM	S_tree/Entry to stack	core?/core2/core1/external?/ext dia./inst/É
	BRFL	 	branch if core 1 selected
		PRIM	Stack/Drop	core1/external?/ext dia./inst/É
		LCAL	Core2	inst/É
	BRTR
	PRIM	Stack/Xdrop	core2/external?/ext dia./inst/É
	LCAL	Core2	inst/É
EDEF
LDEF	Core2	core/external?/ext dia./inst/É
	PRIM	Stack/Pop to aux	É/core ¥ external?/ext dia./inst/É
	BRFL	 	branch if using core (not external diameter)
		PRIM	Stack/Drop	É/core ¥ inst/É
		PRIM	Stack/Dup from aux	É/core ¥ core/inst/É
		LCAL	Preset	inst/É
	BRTR
	CMNT	 	É/core ¥ ext dia./inst/É
	LCAL	Preset	inst/É
EDEF
LDEF	Preset	É/core ¥ preset/inst/É
	LITO	5	preset index
	LITO	5	dia calc data
	PRIM	S_tree/Replace	É/core ¥ inst/É
	PRIM	Stack/Dup from aux	É/core ¥ core/inst/É
	LITO	10	core index
	LITO	8	tension data structure
	PRIM	S_tree/Replace	É/core ¥ inst/É
	PRIM	Stack/Dup from aux	É/core ¥ core/inst/É
	LITO	6	core index
	LITO	4	diameter data
	PRIM	S_tree/Replace	É/core ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ 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/É
EDEF
LDEF	Taper	É ¥ type/taper/tension/É
	CMNT	 	note:  .5 is saved so that it doesn't have to be loaded multiple times
	PRIM	Value/Multiply	É ¥ type*taper/tension/É
	LVAL	0.499985	É ¥ .5/type*taper/tension/É
	PRIM	Stack/Dup to aux	É/.5 ¥ .5/type*taper/tension/É
	PRIM	Value/Multiply	É/.5 ¥ .5*type*taper/tension/É
	PRIM	Stack/Dup from aux	É/.5 ¥ .5/.5*type*taper/tension/É
	PRIM	Value/Difference	É/.5 ¥ .5-.5*type*taper/tension/É
	PRIM	Stack/Push from aux	É ¥ .5/.5-.5*type*taper/tension/É
	PRIM	Value/Scale	demand/boost enable/boost sel/boost/É
	PRIM	Stack/Dup to aux	É/demand ¥ demand/boost enable/boost sel/boost/É
	PRIM	Stack/Rotate up	É/demand ¥ boost enable/boost sel/demand/boost/É
	BRFL	 	branch if boost not enabled
		PRIM	Stack/Drop	É/demand ¥ demand/boost/É
		PRIM	Stack/Xdrop	É/demand ¥ demand/stall enable/stall sel/stall/É
		LCAL	Stall
	BRTR
	CMNT	 	boost enabled
	BRFL	 	branch if fixed boost
		PRIM	Value/Add	É/demand ¥ demand+boost/stall enable/stall sel/stall/É
		LCAL	Stall
	BRTR
	CMNT	 	proportional boost
	PRIM	Stack/Dup down	É/demand ¥ demand/boost/demand/É
	PRIM	Value/Multiply	É/demand ¥ demand*boost/demand/É
	PRIM	Value/Add	É/demand ¥ demand*boost+demand/stall enable/stall sel/stall/É
	LCAL	Stall
EDEF
LDEF	Stall	É/demand ¥ demand/stall enable/stall sel/stall/É
	PRIM	Stack/Rotate up	É/demand ¥ stall enable/stall sel/demand/stall/É
	BRFL	 	branch if not stall enable
		PRIM	Stack/Drop	É/demand ¥ demand/stall/Æt/inst/time/É
		PRIM	Stack/Xdrop	É/demand ¥ demand/Æt/inst/time/É
		PRIM	Stack/Drop from aux	É ¥ demand/Æt/inst/time/É
		LCAL	TDemand
	BRTR
	CMNT	 	stall enabled
	BRFL	 	branch if fixed stall
		PRIM	Stack/Drop	É/demand ¥ stall/Æt/inst/time/É
		PRIM	Stack/Drop from aux	É ¥ stall/Æt/inst/time/É
		LCAL	TDemand
	BRTR
	CMNT	 	proportional stall
	PRIM	Stack/Drop	É/demand ¥ stall/Æt/inst/time/É
	PRIM	Stack/Push from aux	É ¥ demand/stall/Æt/inst/time/É
	PRIM	Value/Multiply	demand*stall/Æt/inst/time/É
	LCAL	TDemand
EDEF
LDEF	TDemand	É ¥ demand/Æt/inst/time/É
	PRIM	Stack/Xswap	É ¥ demand/inst/Æt/time/É
	GSYM	Output/#9
	PRIM	Misc/Send entry	É ¥ inst/Æt/time/É
	PRIM	Stack/Rotate up	É ¥ Æt/time/inst/É
	GSYM	Winders/Tension Trigger	É ¥ method/Æt/time/inst/...
	CALL	354057	É ¥ inst/...
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	TDemand3	É/demand ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ demand/inst/É
	GSYM	Output/#5
	LCAL	DupSend	É ¥ inst/demand/É
	MACR	 	tension demand stuff for Current Demand
		PRIM	Stack/Over	É ¥ demand/inst/demand/É
		PRIM	Stack/Pop to aux	É/tension ¥ inst/demand/É
		LITO	10	tension data
		PRIM	S_tree/Entry to stack	É/tension ¥ cal/trim/scale/dia/inst/É
		PRIM	Stack/Push from aux	É ¥ tension/cal/trim/scale/dia/inst/É
		PRIM	Value/Multiply	rslt/trim/scale/dia/inst/É
		PRIM	Value/Add	rslt/scale/dia/inst/É
		PRIM	Stack/Swap	scale/rslt/dia/inst/É
		PRIM	Value/Scale	rslt/inst/É
		LITO	6	tension index
		LITO	2	main data
		PRIM	S_tree/Replace	É ¥ inst/demand/É
	EMAC
	LITO	4	old value index
	CALL	354132	Method 9 Set
EDEF
LDEF	WB test	É/dia ¥ dia/old dia./sum/max/broke?/É
	PRIM	Value/Difference	É/dia ¥ dia-old dia./sum/max/broke?/É
	PRIM	Value/Test negative	É/dia ¥ decreasing?/Ædia/sum/max/broke?/É
	BRFL	 	branch if going right direction (increasing)
		PRIM	Value/Subtract	É/dia ¥ sum-Ædia/max/broke?/É
		LVAL	0	É/dia ¥ 0/sum-Ædia/max/broke?/É
		PRIM	Value/Maximum	É/dia ¥ sum/max/broke?/É
		LCAL	WB sum	É ¥ É
	BRTR
	PRIM	Stack/Xover	É/dia ¥ max/Ædia/sum/max/broke?/É
	LVAL	-0.250008	É/dia ¥ -.25/max/Ædia/sum/max/broke?/É
	PRIM	Value/Multiply	É/dia ¥ -.25*max/Ædia/sum/max/broke?/É
	PRIM	Value/Maximum	É/dia ¥ Æ/sum/max/broke?/É
	PRIM	Value/Subtract	É/dia ¥ sum-Æ/max/broke?/É
	LCAL	WB sum	É ¥ É
EDEF
LDEF	WB sum	É/dia ¥ sum/max/broken?/inst/É
	PRIM	Stack/Switch	É/dia ¥ broken?/max/sum/inst/É
	BRFL	 	branch if web not broken
		PRIM	Value/Compare	É/dia ¥ broke?/sum/inst/É
		PRIM	Stack/Xswap	É/dia ¥ broke?/inst/sum/É
		BRFL	 	branch if still not broken
			LCAL	WB save	É ¥ É
		BRTR
		CMNT	 	web just broke!
		LITO	1	É/dia ¥ broke/inst/sum/É
		LCAL	WB set
	BRTR
	CMNT	 	web is currently broken
	PRIM	Value/Compare	É/dia ¥ broke?/sum/inst/É
	PRIM	Stack/Xswap	É/dia ¥ broke?/inst/sum/É
	BRFL	 	branch if now not broken
		LITO	0	É/dia ¥ not broke/inst/sum/É
		LCAL	WB set	É ¥ É
	BRTR
	CMNT	 	still broken
	LCAL	WB save	É ¥ É
EDEF
LDEF	WB save	É/dia ¥ inst/sum/É
	PRIM	Stack/Push from aux	É ¥ dia/inst/sum/É
	LITO	4	dia index
	LITO	13	web break data
	PRIM	S_tree/Replace	É ¥ inst/sum/É
	LITO	3	sum index
	CALL	354145	É ¥ É
EDEF
LDEF	WB set	É/dia ¥ broke/inst/sum/É
	GSYM	Output/#10	É/dia ¥ out #10/broke?/inst/broke?/sum/É
	LCAL	DupSend	É/dia ¥ inst/broke?/sum/É
	PRIM	Stack/Swap	É/dia ¥ broke?/inst/sum/É
	LITO	1	broken index
	LITO	13	web break data
	PRIM	S_tree/Replace	É/dia ¥ inst/sum/É
	LCAL	WB save	É ¥ É
EDEF
LDEF	Up to Speed	new/old/inst/É
	CMNT	 	Output:  É ¥ inst/É
	BRFL	 	branch if false now
		BRFL	 	branch if old value false (nothing to do)
			PRIM	Misc/Idle	inst/É
		BRTR
		CMNT	 	new output false
		LITO	0	new output is false
		LITO	1	uts? index
		LITO	12	up to speed data
		PRIM	S_tree/Replace	inst/É
		LITO	0	new output is false
		GSYM	Output/#8
		PRIM	Misc/Send entry	inst/É
	BRTR
	CMNT	 	new output true
	BRFL	 	branch if old value false
		LITO	1	new output is true
		LITO	1	uts? index
		LITO	12	up to speed data
		PRIM	S_tree/Replace	inst/É
		LITO	1	new output is true
		GSYM	Output/#8
		PRIM	Misc/Send entry	inst/É
	BRTR
	CMNT	 	old value true, nothing to do
EDEF
LDEF	DupSend	É ¥ out #/data/inst/É
	CMNT	 	output:  É ¥ inst/data/É
	PRIM	Stack/Xswap	É ¥ out #/inst/data/É
	PRIM	Stack/Xover	É ¥ data/out #/inst/data/É
	PRIM	Stack/Swap	É ¥ out #/data/inst/data/É
	PRIM	Misc/Send entry	É ¥ inst/data/É
EDEF