STRE
	SGLB	Misc/Class Reference
		CLAS	354128
	ESBR
	SORD	2	/e,,,Main parameters;Current Demand
		PORD	1	/t,Unwind,Rewind;Mode
		PORD	1	/t,Under,Over;Overwind-Underwind?
		LITO	0	tension enable
		PVAL	0.500015	/o;Clamped Winder Speed
		LVAL	0.500015	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	/e,,,,,Inertia parameters;Current Demand
		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
		LVAL	0.100009	core diameter
	ESBR
	SORD	6	/e,,,,,,,Winder parameters;Current Demand
		PVAL	0.500015	/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	10	/e,,,,,,,,,,,Tension parameters;Current Demand
		LVAL	0.100009	diameter
		PVAL	0	/o;Trim
		PVAL	1	/o;Tension Calibration
	ESBR
	SORD	5	/e,,,,,,Main parameters;Diameter Calculator
		PVAL	0.0100101	/o,-100,100,0,100;Minimum Diameter (%)
		PVAL	0.199988	/o;Dia. Filter Delta
		PVAL	0.400006	/o;Dia. Core Delta
		LVAL	0	filter input & output
		PVAL	0.199988	/o;Filter Threshold
		LVAL	0	hold data
		PORD	0	/t,Track,Hold;Hold State
		LITO	0	web break?
		PVAL	0.100009	/o,-100,100,0,100;Diameter Preset (%)
		LITO	0	/t,Disabled,Enabled;Preset Enable
		LITO	1	inverted tension enable
		PVAL	0.0499893	/o,-120,120;Minimum Speed (%)
		LVAL	0	|line speed|
		LVAL	0	|winder speed|
		PVAL	0.0100101	/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	count
		PORD	10	/o;Web Break Delay Count
		LVAL	0.0100101	old diameter
		LITO	1	rewind?
		LITO	1	web broken?
	ESBR
	SORD	11	/e,,,,,,,,,,,,Core parameters;Diameter Calculator
		PVAL	0.100009	/o,-100,100;External Dia (% Full Roll)
		PORD	0	/t,Disabled,Enabled;External Dia Select
		PVAL	0.0499893	/o,-100,100;Core 1 (% Full Roll)
		PVAL	0.100009	/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
		PVAL	0.0199896	/o;Ramp Increment
		LVAL	0	ramp input/output
		PVAL	0	/o;Jog Speed
		LVAL	0	Line Speed
		LITO	0	/t,Off,Started;Start Signal
		PORD	0	/t,Disabled,Enabled;Jog Enable
	ESBR
	SORD	14	/e,,,,,,,,,,,,,,,Overspeed parameters;Speed Demand
		LITO	0	tension enable
		PVAL	0.100009	/o;Overspeed
		LITO	1	rewind?
	ESBR
	SORD	8	/e,,,,,,,,,Main parameters;Tension Demand
		TIME	300.000	/o;Tension Tick Time
		PVAL	0	/o;Stall Tension
		PORD	0	/e,Fixed,Proportional;Stall Select
		PORD	0	/t,Disabled,Enabled;Stall Enable
		PVAL	0	/o;Boost
		PORD	0	/e,Fixed,Proportional;Boost Select
		PORD	0	/t,Disabled,Enabled;Boost Enable
		PVAL	0	/o;Tension
		PVAL	0	/o;Taper
		LVAL	0.100009	core diameter
		LVAL	0.400006	diameter
		PORD	0	/e,Linear,Hyperbolic;Taper Select
	ESBR
	SORD	9	/e,,,,,,,,,,Output parameters;Tension Demand
		LITO	2	'In Tension?' state (2 to force initial output)
		PVAL	1	/o;calibration
		LITO	0	/t,Disabled,Enabled;Tension Enable
		PORD	0	/t,Disabled,Enabled;Other Tension Enable
		PVAL	0.0100101	/o;Ramp Delta
		LVAL	0	old ramp output
	ESBR
	SORD	12	Up to Speed
		PVAL	0.100009	/o,-120,120;Up to Speed Threshold (%)
		LVAL	0	line speed
		LVAL	0.0100101	build up
		LVAL	0.100009	dia
	ESBR
	SORD	15	Miscellaneous values
		LVAL	1	Unsigned Current Demand
		LVAL	0	up to speed
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Positive Current Limit
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Negative Current Limit
	ESBR
	SGLB	Output/#3
		LIST
			GSYM	Conns/Update[attach]
			LNOD
			MSGE
				ISYM	dummy	/i;Filled in instance name
				GSYM	Winders/Current Dia
			EMSG
		ELST
		LCON	 	/*+;Diameter
	ESBR
	SGLB	Output/#10
		LCON	 	/*+;Web Break
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;Speed Demand
	ESBR
	SGLB	Output/#5
		LCON	 	/*+;Tension Demand
	ESBR
	SGLB	Output/#6
		LCON	 	/*+;Calibated Demand
	ESBR
	SGLB	Output/#7
		LCON	 	/*+;In Tension
	ESBR
	SGLB	Output/#8
		LCON	 	/*+;Up to Speed
	ESBR
	SGLB	Output/#9
		LIST
			GSYM	Conns/Update[attach]
			LNOD
			MSGE
				ISYM	dummy	/i;Filled in instance name
				GSYM	Winders/Tension Demand
			EMSG
		ELST
	ESBR
	SGLB	Output/#11
		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
	ESBR
	SGLB	General/Initialize
		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/É
		LITO	1	unwind/rewind index
		LITO	2	main data
		PRIM	S_tree/Read	mode/inst/É
		LCAL	URSetup	inst/É
		LCAL	Core1	inst/É
		LITO	9	preset index
		LITO	5	dia. calc data
		PRIM	S_tree/Read	preset/inst/É
		PRIM	Stack/Dup to aux	É/preset ¥ preset/inst/É
		LCAL	FOut	É ¥ inst/É
		LITO	15	build up index
		LITO	5	dia. calc data
		PRIM	S_tree/Read	mode/inst/É
		LCAL	Build Up	inst/É
		LITO	2	over? index
		LITO	2	main data
		PRIM	S_tree/Read	over?/inst/É
		LITO	1	over? index
		LITO	7	speed demand structure
		PRIM	S_tree/Replace	inst/É
		LITO	3	TE? index
		LITO	9	other TE data
		PRIM	S_tree/Read	TE?/inst/É
		PRIM	Stack/Swap	inst/TE?/É
		LCAL	TEnable	inst/É
		PRIM	Timer/Get PAT	PAT/inst/É
		TIME	0.000	Æt/PAT/inst/É
		GSYM	Winders/Dia. Trigger	method/Æt/PAT/inst/É
		CALL	354057	inst/...
		PRIM	Timer/Get PAT	PAT/inst/É
		TIME	0.000	Æt/PAT/inst/É
		GSYM	Winders/Tension Trigger	method/Æt/PAT/inst/É
		CALL	354057	inst/...
		PRIM	Heap/Store self	É
	ESBR
	SGLB	Winders/Tension Trigger
		LITO	0	whole list
		LITO	8	tension demand data
		PRIM	S_tree/Read	list/inst/time/...
		PRIM	List/Remove	list/Æt/inst/time/...
		PRIM	List/Remove	list/stall/Æt/inst/time/...
		PRIM	List/Remove	list/stall sel/stall/Æt/inst/time/...
		PRIM	List/Remove	list/stall enable/stall sel/stall/Æt/É
		PRIM	List/Remove	list/boost/stall enable/stall sel/stall/É
		PRIM	List/Remove	list/boost sel/boost/stall enable/stall sel/stall/É
		PRIM	List/Remove	list/boost en/boost sel/boost/É
		PRIM	List/Remove	list/tension/boost en/boost sel/boost/É
		PRIM	List/Remove	list/taper/tension/boost en/boost sel/boost/É
		PRIM	List/Remove	list/core/taper/tension/boost en/boost sel/boost/É
		PRIM	List/Remove	list/dia/core/taper/tension/É
		PRIM	List/List to item	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	0	whole list
		LITO	9	tension output data
		PRIM	S_tree/Read	É/demand ¥ list/inst/É
		PRIM	List/Remove	É/demand ¥ list/old/inst/É
		PRIM	List/Remove	É/demand ¥ list/cal/old/inst/É
		PRIM	List/Remove	É/demand ¥ list/TE?/cal/old/inst/É
		PRIM	List/Remove	É/demand ¥ list/OTE?/TE?/cal/old/inst/É
		PRIM	List/Remove	É/demand ¥ list/incr/OTE?/TE?/cal/inst/É
		PRIM	List/List to item	É/demand ¥ old/incr/OTE?/TE?/cal/old/inst/É
		PRIM	Stack/Push from aux	É ¥ demand/old/incr/OTE?/TE?/cal/old/inst/É
		CALL	354070	demand/OTE?/TE?/cal/old/inst/É
		PRIM	Stack/Pop to aux	É/demand ¥ OTE?/TE?/cal/old/inst/É
		BRFL	 	branch if other tension enable false
			BRFL	 	branch if not in tension
				CMNT	 	not in tension, no cal. output
				PRIM	Stack/Drop	É/demand ¥ old/inst/É
				LITO	0	É/demand ¥ 0/old/inst/É
				LCAL	TDemand2
			BRTR
			CMNT	 	in tension, cal. output
			PRIM	Stack/Dup from aux	É/demand ¥ demand/cal/old/inst/É
			PRIM	Value/Multiply	É/demand ¥ cal demand/old/inst/É
			PRIM	Stack/Xswap	É/demand ¥ cal demand/inst/old/É
			GSYM	Output/#6
			CALL	354024	É/demand ¥ inst/old/É
			PRIM	Stack/Swap	É/demand ¥ old/inst/É
			LITO	1	É/demand ¥ 1/old/inst/É
			LCAL	TDemand2
		BRTR
		CMNT	 	not in tension, no cal. output
		PRIM	Stack/Drop	É/demand ¥ cal/old/inst/É
		PRIM	Stack/Drop	É/demand ¥ old/inst/É
		LITO	0	É/demand ¥ 0/old/inst/É
		LCAL	TDemand2
	ESBR
	SGLB	Winders/Dia. Trigger
		PRIM	Stack/Second to aux	É/time ¥ inst/É
		LITO	0
		LITO	5	dia main data
		PRIM	S_tree/Read	É/time ¥ list/inst/...
		PRIM	List/Remove	É/time ¥ list/min dia/inst/É
		PRIM	List/Remove	É/time ¥ list/filterÆ/min dia/inst/É
		PRIM	List/Remove	É/time ¥ list/coreÆ/filterÆ/min dia/inst/É
		PRIM	List/Remove	É/time ¥ list/filter/coreÆ/filterÆ/min dia/inst/É
		PRIM	List/Remove	É/time ¥ list/threshold/filter/coreÆ/filterÆ/É
		PRIM	List/Remove	É/time ¥ list/hold/threshold/filter/É
		PRIM	List/Remove	É/time ¥ list/hold?/hold/threshold/filter/É
		PRIM	List/Remove	É/time ¥ list/break?/hold?/hold/threshold/filter/É
		PRIM	List/Remove	É/time ¥ list/preset/break?/hold?/hold/threshold/filter/É
		PRIM	List/Remove	É/time ¥ list/preset?/preset/break?/hold?/hold/É
		PRIM	List/Remove	É/time ¥ list/!TE/preset?/preset/break?/hold?/hold/É
		PRIM	List/Remove	É/time ¥ list/min sp/!TE/preset?/preset/É
		PRIM	List/Remove	É/time ¥ list/|line sp|/min sp/!TE/É
		PRIM	List/Remove	É/time ¥ list/|winder sp|/|line sp|/min sp/!TE/É
		PRIM	List/Remove	É/time ¥ build up/|winder sp|/|line sp|/É
		PRIM	List/List to item	É/time ¥ Æt/build up/|winder sp|/|line sp|É
		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/Dup to aux	É/dia. ¥ dia./|line|/min sp/É
		PRIM	Stack/Pop to aux	É/dia/dia ¥ |line|/min sp/É
		PRIM	Value/Compare	É/dia/dia ¥ min?/min sp/!TE/preset?/preset/É
		PRIM	Stack/Xdrop	É/dia/dia ¥ min?/!TE/preset?/preset/É
		PRIM	Ordinal/Ior	É/dia/dia ¥ enabled?/preset?/preset/É
		BRFL	 	branch if not enabled (no preset)
			CMNT	 	É/dia/dia ¥ preset?/preset/hold?/É
			PRIM	Stack/Drop	É/dia/dia ¥ preset/break?/hold?/hold/threshold/filter/É
			PRIM	Stack/Drop	É/dia/dia ¥ break?/hold?/hold/threshold/filter/É
			PRIM	Ordinal/Ior	É/dia/dia ¥ held?/hold/threshold/filter/É
			BRFL	 	branch if not held, use calculated value
				PRIM	Stack/Drop	É/dia/dia ¥ threshold/filter/É
				LCAL	Filter
			BRTR
			CMNT	 	use held value
			PRIM	Stack/Drop from aux	É/dia ¥ hold/threshold/filter/É
			PRIM	Stack/Pop to aux	É/dia/hold ¥ threshold/filter/É
			LCAL	Filter
		BRTR
		CMNT	 	É/dia/dia ¥ preset?/preset/hold?/É
		BRFL	 	branch if no preset enable
			CMNT	 	held, use held value
			PRIM	Stack/Drop	É/dia/dia ¥ break?/hold?/hold/threshold/filter/É
			PRIM	Stack/Drop	É/dia/dia ¥ hold?/hold/threshold/filter/É
			PRIM	Stack/Drop	É/dia/dia ¥ hold/threshold/filter/É
			PRIM	Stack/Drop from aux	É/dia ¥ hold/threshold/filter/É
			PRIM	Stack/Pop to aux	É/dia/hold ¥ threshold/filter/É
			LCAL	Filter
		BRTR
		CMNT	 	preset enabled, use preset value
		PRIM	Stack/Drop from aux	É/dia ¥ preset/break?/hold?/hold/threshold/filter/É
		PRIM	Stack/Xdrop	É/dia ¥ preset/hold?/hold/threshold/filter/É
		PRIM	Stack/Xdrop	É/dia ¥ preset/hold/threshold/filter/É
		PRIM	Stack/Xdrop	É/dia ¥ preset/threshold/filter/É
		PRIM	Stack/Dup to aux	É/dia/preset ¥ preset/threshold/filter/É
		PRIM	Stack/Rotate up	É/dia/preset ¥ threshold/filter/preset/É
		PRIM	Stack/Xdrop	É/dia/preset ¥ threshold/preset/É
		LCAL	Filter
	ESBR
	SGLB	Winders/Current Dia
		MACR	 	Up to Speed
			PRIM	Stack/Over	É ¥ dia/inst/dia/É
			LITO	4	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	 	do diameter for Current Demand
			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	354133
		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	0	whole list
		LITO	13	web break data
		PRIM	S_tree/Read	É/dia ¥ list/inst/É
		PRIM	List/Remove	É/dia ¥ list/count/inst/É
		PRIM	List/Remove	É/dia ¥ list/max/count/inst/É
		PRIM	List/Remove	É/dia ¥ list/old dia/max/count/inst/É
		PRIM	List/Remove	É/dia ¥ list/rewind?/old dia/max/count/inst/É
		PRIM	List/List to item	É/dia ¥ broke?/rewind?/old dia/max/count/inst/É
		BRFL	 	branch if not broken already
			BRFL	 	branch if unwind (diameter should be decreasing)
				PRIM	Stack/Dup from aux	É/dia ¥ dia/old dia./max/count/É
				PRIM	Value/Compare	É/dia ¥ decreasing?/old dia/max/count/É
				PRIM	Stack/Xdrop	É/dia ¥ decreasing?/max/count/É
				BRFL	 	branch if going wrong direction (increasing)
					LCAL	WB bad
				BRTR
				CMNT	 	going the right direction (decreasing)
				LCAL	WB ok
			BRTR
			CMNT	 	rewind (diameter should be increasing)
			PRIM	Stack/Dup from aux	É/dia ¥ dia/old dia./max/count/É
			PRIM	Value/Compare	É/dia ¥ decreasing?/old dia/max/count/É
			PRIM	Stack/Xdrop	É/dia ¥ decreasing?/max/count/É
			BRFL	 	branch if going right direction (increasing)
				LCAL	WB ok
			BRTR
			CMNT	 	going wrong direction (decreasing)
			LCAL	WB bad
		BRTR
		CMNT	 	web already broken, nothing to do
		PRIM	Stack/Drop	É/dia ¥ old dia/max/count/inst/É
		PRIM	Stack/Drop	É/dia ¥ max/count/inst/É
		PRIM	Stack/Drop	É/dia ¥ count/inst/É
		PRIM	Stack/Drop	É/dia ¥ inst/É
		PRIM	Stack/Drop from aux	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Line Speed	/3v57/-120,120;Enter Line Speed (%):
		LCAL	Line Speed	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/WB Delay Count	/3u;Enter Web Break Delay Count...
		LITO	2	delay index
		CALL	354145
	ESBR
	SGLB	Winders/Calibration	/3v;Enter Calibration:
		LITO	2	cal index
		CALL	354132
	ESBR
	SGLB	Winders/Other Enable	/3t12,Disabled,Enabled;Set Other Enable as...
		LITO	4	other enable
		CALL	354132
	ESBR
	SGLB	Winders/Tension Delta	/3v;Enter Ramp Increament:
		LITO	5	ramp index
		CALL	354132
	ESBR
	SGLB	Winders/Stall Tension	/3v;Enter Stall Tension:
		LITO	2	stall index
		CALL	354085
	ESBR
	SGLB	Winders/Stall Select	/3e81,Fixed,Proportional;Stall Select:
		LITO	3	stall  select index
		CALL	354085
	ESBR
	SGLB	Winders/Stall Enable	/3t12,Disabled,Enabled;Stall Enable:
		LITO	4	stall enable index
		CALL	354085
	ESBR
	SGLB	Winders/Boost	/3v;Enter Boost:
		LITO	5	boost index
		CALL	354085
	ESBR
	SGLB	Winders/Boost Select	/3e81,Fixed,Proportional;Boost Select:
		LITO	6	boost select index
		CALL	354085
	ESBR
	SGLB	Winders/Boost Enable	/3t12,Disabled,Enabled;Boost Enable:
		LITO	7	boost enable index
		CALL	354085
	ESBR
	SGLB	Winders/Tension	/3v;Enter Tension:
		LITO	8	tension index
		CALL	354085
	ESBR
	SGLB	Winders/Taper	/3v;Enter Taper:
		LITO	9	taper index
		CALL	354085
	ESBR
	SGLB	Winders/Taper Select	/3e83,Linear,Hyperbolic;Taper Select:
		LITO	12	taper select index
		CALL	354085
	ESBR
	SGLB	Winders/UTS Threshold	/3v57/-120,120;Enter Threshold (0 - 120%):
		LITO	1	threshold index
		LITO	12	up to speed data
		PRIM	S_tree/Replace	inst/É
		PRIM	Heap/Store self	É
	ESBR
	SGLB	Winders/Rewind-Unwind	/3t73,Unwind,Rewind;Select Mode:
		PRIM	Stack/Over
		LCAL	URSetup	dir/inst/dir/É
		LITO	1	dir index
		CALL	354073
	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
	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/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/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/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/É
		PRIM	Stack/Dup down	|winder speed|/inst/|winder speed|/É
		LITO	14	|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	0	whole list
			LITO	12	up to speed data
			PRIM	S_tree/Read	É/winder speed ¥ list/inst/ws/É
			PRIM	List/Remove	É/w sp ¥ list/threshold/inst/ws/É
			PRIM	List/Remove	É/w sp ¥ list/line sp/threshold/inst/ws/É
			PRIM	List/Remove	É/w sp ¥ list/build up/line sp/threshold/inst/ws/É
			PRIM	List/List to item	É/w sp ¥ dia/build up/line sp/threshold/inst/É
			PRIM	Stack/Push from aux	É ¥ |w sp|/dia/build up/line sp/threshold/inst/É
			PRIM	Value/Multiply	w sp*dia/build up/line sp/threshold/inst/É
			LVAL	0.0100101	.01/w sp*dia/build up/line sp/threshold/inst/É
			PRIM	Value/Scale	cal. sp/line sp/threshold/inst/É
			PRIM	Value/Subtract	delta sp/threshold/inst/É
			PRIM	Value/Absolute	|delta sp|/threshold/inst/É
			PRIM	Value/Compare	up to speed/threshold/inst/É
			PRIM	Stack/Xdrop	up to speed/inst/É
			PRIM	Stack/Dup to aux	É/up to speed ¥ up to speed/inst/É
			LITO	2	up to speed index
			LITO	15	misc data structure
			PRIM	S_tree/Replace	É/up to speed ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ up to speed/inst/É
			GSYM	Output/#8
			CALL	354024	inst/|w sp|/É
		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	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
		EMAC
	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/Trim	/3v;Enter Trim:
		LITO	2	trim index
		CALL	354133
	ESBR
	SGLB	Winders/Tension Cal	/3v;Enter Tension Calibration:
		LITO	3	cal index
		CALL	354133
	ESBR
	SGLB	Winders/Minimum Diameter	/3v8,-100,100;Enter Minimum Diameter (% Full Roll)...
		LITO	1	min. dia. index
		CALL	354079
	ESBR
	SGLB	Winders/Filter Rate	/3
		LITO	2	filter rate index
		CALL	354079
	ESBR
	SGLB	Winders/Core Rate	/3
		LITO	3	core rate index
		CALL	354079
	ESBR
	SGLB	Winders/Threshold	/3
		LITO	5	threshold index
		CALL	354079
	ESBR
	SGLB	Winders/Hold	/3t89,Track,Hold;Enter Hold State...
		LITO	7	hold index
		CALL	354079
	ESBR
	SGLB	Winders/Diameter Preset	/3v8,-100,100;Enter Preset Diameter (% Full Roll)...
		LITO	9	preset dia. index
		CALL	354079
	ESBR
	SGLB	Winders/Preset Enable	/3t12,Disabled,Enabled;Set Preset as ...
		LITO	10	preset select index
		CALL	354079
	ESBR
	SGLB	Winders/Minimum Speed	/3v57,-120,120;Enter Minimum Speed (%):
		LITO	12	min. speed index
		CALL	354079
	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	15	build up index
		CALL	354079
	ESBR
	SGLB	Winders/SD Ramp Delta	/3
		LITO	5	ramp incr. index
		CALL	354083
	ESBR
	SGLB	Winders/Jog Speed	/3v57,-120,120;Enter Jog Speed (%):
		LITO	7	jog speed index
		LCAL	Jog	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Start	/3t79,Off,Started;Set Start as ...
		LITO	9	start signal index
		LCAL	Jog	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Jog	/3t12,Disabled,Enabled;Set Jog as ...
		LITO	10	jog enable index
		LCAL	Jog	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Overspeed	/3v57,-120,120;Enter Overpeed (%):
		LITO	2	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 WB Delay Count	/2u
		LITO	2	delay index
		CALL	354144
	ESBR
	SGLB	Winders/Get Web Break	/2t11,Disabled,Enabled
		LITO	5	web break index
		CALL	354144
	ESBR
	SGLB	Winders/Get Calibration	/2
		LITO	2	cal index
		CALL	354130
	ESBR
	SGLB	Winders/Get Other Enable	/2t11,Disabled,Enabled
		LITO	4	other enable
		CALL	354130
	ESBR
	SGLB	Winders/Get Tension Delta	/2
		LITO	5	ramp index
		CALL	354130
	ESBR
	SGLB	Winders/Get Tension Demand	/2
		LITO	6	demand index
		CALL	354130
	ESBR
	SGLB	Winders/Get Stall Tension	/2
		LITO	2	stall index
		CALL	354084
	ESBR
	SGLB	Winders/Get Stall Select	/2e80,Fixed,Proportional
		LITO	3	stall  select index
		CALL	354084
	ESBR
	SGLB	Winders/Get Stall Enable	/2t,Disabled,Enabled
		LITO	4	stall enable index
		CALL	354084
	ESBR
	SGLB	Winders/Get Boost	/2
		LITO	5	boost index
		CALL	354084
	ESBR
	SGLB	Winders/Get Boost Select	/2e80,Fixed,Proportional
		LITO	6	boost select index
		CALL	354084
	ESBR
	SGLB	Winders/Get Boost Enable	/2t,Disabled,Enabled
		LITO	7	boost enable index
		CALL	354084
	ESBR
	SGLB	Winders/Get Tension	/2
		LITO	8	tension index
		CALL	354084
	ESBR
	SGLB	Winders/Get Taper	/2
		LITO	9	taper index
		CALL	354084
	ESBR
	SGLB	Winders/Get Taper Select	/2e82,Linear,Hyperbolic
		LITO	12	taper select index
		CALL	354084
	ESBR
	SGLB	Winders/Get UTS Threshold	/2v58,-120,120;%1.2f%%
		LITO	1	threshold index
		CALL	354141
	ESBR
	SGLB	Winders/Get Rewind-Unwind	/2t72,Unwind,Rewind
		LITO	1	dir index
		CALL	354072
	ESBR
	SGLB	Winders/Get Over-Under	/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 Current Demand	/2v6,-100,100;%1.2f%%
		LITO	1
		CALL	354140
	ESBR
	SGLB	Winders/Get Up to Speed	/2t4,false,true
		LITO	2	up to speed index
		CALL	354140
	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%% Full Roll
		LITO	2	dia index
		CALL	354082
	ESBR
	SGLB	Winders/Get Trim	/2
		LITO	2	trim index
		CALL	354131
	ESBR
	SGLB	Winders/Get Tension Cal	/2
		LITO	3	cal index
		CALL	354131
	ESBR
	SGLB	Winders/Get Min. Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	1	minimum diameter index
		CALL	354078
	ESBR
	SGLB	Winders/Get Filter Rate	/2
		LITO	2	rate index
		CALL	354078
	ESBR
	SGLB	Winders/Get Core Rate	/2
		LITO	3	core rate index
		CALL	354078
	ESBR
	SGLB	Winders/Get Threshold	/2
		LITO	5	threshold index
		CALL	354078
	ESBR
	SGLB	Winders/Get Hold	/2t90,Tracking,Holding
		LITO	7	hold index
		CALL	354078
	ESBR
	SGLB	Winders/Get Preset	/2v6,-100,100;%1.2f%% Full Roll
		LITO	9	external diameter index
		CALL	354078
	ESBR
	SGLB	Winders/Get Preset Enable	/2t11,Disabled,Enabled;
		LITO	10	preset select index
		CALL	354078
	ESBR
	SGLB	Winders/Get Minimum Speed	/2v58,-120,120;%1.1f%%
		LITO	12	minimum speed index
		CALL	354078
	ESBR
	SGLB	Winders/Get Winder Speed	/2v58,-120,120;%1.2f%%
		LITO	14	|winder speed| index
		CALL	354078
	ESBR
	SGLB	Winders/Get Build Up	/2v9,-100,100;%1.2f
		LITO	15	build up index
		CALL	354078
	ESBR
	SGLB	Winders/Get SD Ramp Delta	/2
		LITO	5	ramp incr. index
		CALL	354082
	ESBR
	SGLB	Winders/Get Ramp Output	/2v58,-120,120;%1.2f%%
		LITO	6	index of ramp output in list
		CALL	354082
	ESBR
	SGLB	Winders/Get Jog Enable	/2t11,Disabled,Enabled
		LITO	10	jog enable index
		CALL	354082
	ESBR
	SGLB	Winders/Get Start	/2t78,Off,Started
		LITO	9	start signal index
		CALL	354082
	ESBR
	SGLB	Winders/Get Jog Speed	/2v58,-120,120;%1.2f%%
		LITO	7	jog speed index
		CALL	354082
	ESBR
	SGLB	Winders/Get Overspeed	/2v58,-120,120;%1.2f%%
		LITO	2	overspeed index
		LITO	14	trim data structure
		CALL	354086
	ESBR
	SGLB	Winders/Get Ext. Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	1	ext dia index
		CALL	354134
	ESBR
	SGLB	Winders/Get External Select	/2t11,Disabled,Enabled
		LITO	2	ext dia? index
		CALL	354134
	ESBR
	SGLB	Winders/Get Core 1	/2v6,-100,100;%1.2f%% Full Roll
		LITO	3	core 1 index
		CALL	354134
	ESBR
	SGLB	Winders/Get Core 2	/2v6,-100,100;%1.2f%% Full Roll
		LITO	4	core 2 index
		CALL	354134
	ESBR
	SGLB	Winders/Get Core Select	/2t92,Core 1,Core 2
		LITO	5	ext dia? index
		CALL	354134
	ESBR
ESTR
LDEF	Line Speed	inst/line speed/É
	MACR	 	Current Demand stuff, first item
		PRIM	Stack/Over	line sp/inst/line sp/É
		PRIM	Stack/Pop to aux	É/line sp ¥ inst/line sp/É
		LITO	0	whole list
		LITO	2	main data
		PRIM	S_tree/Read	É/line sp ¥ list/inst/line sp/É
		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/É
		LCAL	CTension	É ¥ inst/line sp/É
	EMAC
	MACR	 	Speed Demand stuff, second item
		PRIM	Stack/Xdup	inst/line sp/line sp/É
		LITO	8	line speed index
		LCAL	Jog	É ¥ inst/line sp/É
	EMAC
	MACR	 	Diameter stuff & Up to Speed, last item
		PRIM	Stack/Swap	sp/inst/É
		PRIM	Value/Absolute	|sp|/inst/É
		PRIM	Stack/Dup to aux	É/|sp| ¥ |sp|/inst/É
		LITO	13	line speed index
		LITO	5	dia data structure
		PRIM	S_tree/Replace	É/|sp| ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ |sp|/inst/É
		LITO	2	line speed index
		LITO	12	up to speed structure
		PRIM	S_tree/Replace	É ¥ inst/É
	EMAC
EDEF
LDEF	CTension	É/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	É ¥ inst/line sp/É
	BRTR
	PRIM	Stack/Dup to aux	É/line sp/demand ¥ demand/under?/neg?/inst/É
	LCAL	LSave	É ¥ inst/line sp/É
EDEF
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	15	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/É
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	4
	LITO	13	web break data
	PRIM	S_tree/Replace	inst/dir/É
	LITO	3	trim index
	LCAL	Trim	inst/É
EDEF
LDEF	Filter	É/dia/input ¥ threshold/old/c time/f time/min dia/inst/É
	PRIM	Value/Compare	É/dia/input ¥ rslt/old/c time/f time/min dia/inst/É
	BRFL	 	branch if using core
		PRIM	Stack/Xswap	É/dia/input ¥ old/f time/c time/min dia/inst/É
		LCAL	FEnd
	BRTR
	LCAL	FEnd
EDEF
LDEF	FEnd	É/dia/input ¥ old/time 1/time 2/min dia/inst/É
	PRIM	Stack/Xdrop	É/dia/input ¥ old/time/min dia/inst/É
	PRIM	Stack/Over	É/dia/input ¥ time/old/time/min dia/inst/É
	PRIM	Value/Multiply	É/dia/input ¥ scaled old/time/min dia/inst/É
	PRIM	Stack/Swap	É/dia/input ¥ time/scaled old/min dia/inst/É
	LVAL	1	É/dia/input ¥ 1/time/scaled old/min dia/inst/É
	PRIM	Value/Difference	É/dia/input ¥ 1-time/scaled old/min dia/inst/É
	PRIM	Stack/Dup from aux	É/dia/input ¥ input/1-time/scaled old/min dia/inst/É
	PRIM	Value/Multiply	É/dia/input ¥ scaled new/scaled old/min dia/inst/É
	PRIM	Value/Add	É/dia/input ¥ output/min dia/inst/É
	PRIM	Stack/Dup to aux	É/dia/input/output ¥ output/min dia/inst/É
	PRIM	Stack/Swap	É/dia/input/output ¥ min dia/output/inst/É
	PRIM	Value/Clamp low	É/dia/input/output ¥ dia./inst/É
	PRIM	Stack/Dup down	É/dia/input/output ¥ dia./inst/dia./É
	GSYM	Output/#3
	CALL	354024	É/dia/input/output ¥ inst/dia/É
	PRIM	Stack/Push from aux	É/dia/input ¥ output/inst/dia/É
	LCAL	FOut	É/dia ¥ inst/dia/É
	PRIM	Stack/Push from aux	É ¥ dia/inst/dia/É
	GSYM	Output/#11	send computed diameter to web break detector
	CALL	354024	É ¥ inst/dia/É
	LITO	2	dia index
	CALL	354083
EDEF
LDEF	FOut	É/input ¥ output/inst/É
	LITO	4	filter in/out index
	LITO	5	dia. calc. data
	PRIM	S_tree/Replace	É/input ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ input/inst/É
	LITO	6	hold data index
	LITO	5	dia. calc. data
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	TEnable	inst/tension enable/É
	MACR	 	Web Break Detection
		LCAL	WB clear	inst/TE?/É
	EMAC
	MACR	 	Speed Demand stuff
		PRIM	Stack/Xdup	inst/en/en/É
		LITO	1	tension enable index
		LCAL	Trim	inst/en/É
	EMAC
	MACR	 	Diameter stuff
		PRIM	Stack/Over	en/inst/en/É
		PRIM	Ordinal/Test zero	invert input
		LITO	11	tension enable index
		LITO	5	dia data structure
		PRIM	S_tree/Replace	inst/en/É
	EMAC
	MACR	 	Tension demand stuff
		PRIM	Stack/Over	en/inst/en/É
		LITO	3	Tension Enable index
		LITO	9	tension output structure
		PRIM	S_tree/Replace	inst/en/É
	EMAC
	MACR	 	Current Demand Stuff
		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
			LITO	10	old line speed
			LITO	2	main data
			PRIM	S_tree/Read	old/inst/É
			PRIM	Stack/Swap	inst/old/É
			LCAL	Line Speed	generate new current output
		BRTR
	EMAC
EDEF
LDEF	Build Up	build up/inst/É
	PRIM	Stack/Dup to aux	É/build up ¥ build up/inst/É
	LITO	3	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	Jog	index/inst/data/É
	CMNT	 	sets input speed from jog/line speed
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	7	speed demand structure
	PRIM	S_tree/Replace	inst/É
	LITO	0	get whole list
	LITO	7	speed demand structure
	PRIM	S_tree/Read	list/inst/É
	PRIM	List/Remove	list/overwind?/inst/É
	PRIM	List/Remove	list/dia/overwind?/inst/É
	PRIM	List/Remove	list/build up/dia/overwind?/inst/É
	PRIM	List/Remove	list/trim/build up/dia/overwind?/inst/É
	PRIM	List/Remove	list/ramp incr/trim/build up/dia/overwind?/inst/É
	PRIM	List/Remove	list/ramp/ramp incr/trim/build upÉ
	PRIM	List/Remove	list/jog/ramp/ramp incr/É
	PRIM	List/Remove	list/line sp/jog/ramp/ramp incr/É
	PRIM	List/Remove	list/start?/line sp/jog/ramp/ramp incr/É
	PRIM	List/List to item	jog?/start?/line sp/jog/ramp/ramp incr/É
	BRFL	 	branch if not jog
		BRFL	 	branch if not start
			PRIM	Stack/Drop	jog/ramp/ramp incr/trim/build up/dia/overwind?/inst/É
			PRIM	Stack/Drop	ramp/ramp incr/trim/build up/dia/overwind?/inst/É
			LVAL	0	0/ramp/ramp incr/trim/build up/dia/overwind?/inst/É
			LCAL	Demand	inst/É
		BRTR
		PRIM	Stack/Xdrop	line sp/ramp/ramp incr/trim/build up/dia/overwind?/inst/É
		LCAL	Demand	inst/É
	BRTR
	PRIM	Stack/Drop	line sp/jog/ramp/ramp incr/É
	PRIM	Stack/Drop	jog/ramp/ramp incr/trim/build up/dia/overwind?/inst/É
	LCAL	Demand	inst/É
EDEF
LDEF	Demand	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/É
	GSYM	Output/#4	É/new ¥ out #4/signed demand/inst/É
	CALL	354024	É/new ¥ inst/É
	PRIM	Stack/Push from aux	É ¥Ênew/inst/É
	LITO	6	ramp output index
	LITO	7	speed demand structure
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	Trim	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	14	direction data
	PRIM	S_tree/Replace	inst/É
	LITO	0	whole list
	LITO	14	direction data
	PRIM	S_tree/Read	list/inst/É
	PRIM	List/Behead	tension enable/list/inst/É
	BRFL	 	branch if not enabled
		PRIM	Stack/Drop	inst/É
		LVAL	0	0/inst/É
		LCAL	TSave	inst/É
	BRTR
	PRIM	List/Remove	list/overspeed/inst/É
	PRIM	List/List to item	dir/overspeed/inst/É
	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	0	whole list
	LITO	11	core data
	PRIM	S_tree/Read	list/inst/É
	PRIM	List/Remove	list/ext dia/inst/É
	PRIM	List/Remove	list/external?/ext dia/inst/É
	PRIM	List/Remove	list/core 1/external?/ext dia/inst/É
	PRIM	List/Remove	list/core 2/core 1/external?/ext dia/inst/É
	PRIM	List/List to item	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	9	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/É
	PRIM	Value/Multiply	É ¥ type*taper/tension/É
	LVAL	1	1/type*taper/tension/É
	PRIM	Value/Difference	1-type*taper/tension/É
	PRIM	Value/Multiply	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
	CALL	354024	É ¥ 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	TDemand2	É/demand ¥ In Tension?/old IT?/inst/É
	PRIM	Stack/Swap	É/demand ¥ old IT?/In Tension?/inst/É
	PRIM	Ordinal/Test equal	É/demand ¥ no change?/In Tension?/inst/É
	BRFL	 	branch if 'In Tension?' changed
		PRIM	Stack/Dup to aux	É/demand/In Tension? ¥ In Tension?/inst/É
		GSYM	Output/#7
		CALL	354024	É/demand/In Tension? ¥ inst/É
		PRIM	Stack/Push from aux	É/demand ¥ In Tension?/inst/É
		LITO	1	old 'In Tension?' index
		LITO	9	tension demand data
		PRIM	S_tree/Replace	É/demand ¥ inst/É
		LCAL	TDemand3
	BRTR
	PRIM	Stack/Drop	É/demand ¥ inst/É
	LCAL	TDemand3
EDEF
LDEF	TDemand3	É/demand ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ demand/inst/É
	PRIM	Stack/Dup down	É ¥ demand/inst/demand/É
	GSYM	Output/#5
	CALL	354024	É ¥ inst/demand/É
	MACR	 	tension demand stuff for Current Demand
		PRIM	Stack/Over	É ¥ demand/inst/demand/É
		PRIM	Stack/Pop to aux	É/tension ¥ inst/demand/É
		LITO	0	whole list
		LITO	10	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/demand/É
	EMAC
	LITO	6	old value index
	CALL	354132
EDEF
LDEF	WB ok	É/dia ¥ max/count/inst/É
	PRIM	Stack/Drop	É/dia ¥ count/inst/É
	PRIM	Stack/Duplicate	É/dia ¥ count/count/inst/É
	BRFL	 	branch if count already zero
		LCAL	WB save
	BRTR
	CMNT	 	not zero, decrement count
	PRIM	Ordinal/Decrement	É/dia ¥ count-1/inst/É
	LCAL	WB save
EDEF
LDEF	WB bad	É/dia ¥ max/count/inst/É
	PRIM	Ordinal/Compare	É/dia ¥ broke?/count/inst/É
	BRFL	 	branch if no web break detected
		PRIM	Ordinal/Increment	É/dia ¥ count+1/inst/É
		LCAL	WB save
	BRTR
	CMNT	 	web broke!
	PRIM	Stack/Drop from aux	É ¥ count/inst/É
	PRIM	Stack/Drop	É ¥ inst/É
	LITO	3	tension enable index
	LITO	2	main data
	PRIM	S_tree/Read	TE?/inst/É
	BRFL	 	branch if tension disabled
		PRIM	Heap/Store self	nothing to do if not in tension
	BRTR
	LITO	1	É ¥ broken/inst/É
	PRIM	Stack/Dup down	É ¥ broken/inst/broken/É
	GSYM	Output/#10	É ¥ out #10/broken/inst/broken/É
	CALL	354024	É ¥ inst/broken/É
	PRIM	Stack/Over	É ¥ broken/inst/broken/É
	LITO	8	web brake index
	LITO	5	dia data structure
	PRIM	S_tree/Replace	inst/broken/É
	LITO	5	broken index
	CALL	354145
EDEF
LDEF	WB save	É/dia ¥ count/inst/É
	LITO	1	count index
	LITO	13	web break data
	PRIM	S_tree/Replace	É/dia ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ dia/inst/É
	PRIM	Stack/Swap	É ¥ inst/dia/É
	LITO	3	dia index
	CALL	354145
EDEF
LDEF	WB clear	inst/TE?/É
	PRIM	Stack/Over	TE?/inst/TE?/É
	BRFL	 	branch if not in tension (reset web break)
		LITO	0	0/inst/TE?/É
		LITO	1	count index
		LITO	13	web break data
		PRIM	S_tree/Replace	inst/TE?/É
		CMNT	 	get old status of web break
		LITO	5	broken index
		LITO	13	web break data
		PRIM	S_tree/Read	broken?/inst/TE?/É
		BRFL	 	branch if not broken
			PRIM	Misc/Idle	nothing to do
		BRTR
		LITO	0	É ¥ 0/inst/TE?/É
		LITO	8	web brake index
		LITO	5	dia data structure
		PRIM	S_tree/Replace	inst/TE?/É
		LITO	0	0/inst/TE?/É
		LITO	5	broken index
		LITO	13	web break data
		PRIM	S_tree/Replace	inst/TE?/É
		LITO	0	0/inst/TE?/É
		GSYM	Output/#10	É ¥ out #10/ok/inst/TE?/É
		CALL	354024	É ¥ inst/TE?/É
	BRTR
	CMNT	 	tension enabled, nothing to do
EDEF