STRE
	SGLB	Misc/Class Reference
		CLAS	354178
	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,-100,100;Clamped Winder Speed (%)
		LVAL	0.500015	1/Field Range
		PVAL	0	/o,-100,100;Tension Demand (%)
		PVAL	0.100009	/o,-100,100;Static & Dynamic Comp (%)
		PVAL	1	/o,-100,100;Inertia Compensation (%)
		PVAL	1	/o,-100,100;Derivative Calibration (%)
		LVAL	0	previous derivative sp
	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,-100,100;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,-100,100;Trim (%)
		PVAL	1	/o,-100,100;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,-100,100;Filter Threshold (%)
		LVAL	0	hold data
		PORD	0	/t,Track,Hold;Hold State
		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	0	direction: 1=forward, 0=reverse
		LITO	1	web broken?
		PORD	1	/t,Disabled,Enabled;Web Break Reset
	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,-100,100;Ramp Increment (%)
		LVAL	0	ramp input/output
		PVAL	0	/o,-120,120;Jog Speed (%)
		LVAL	0	Line Setpoint
		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,-120,120;Overspeed (%)
		LITO	1	rewind?
	ESBR
	SORD	8	/e,,,,,,,,,Main parameters;Tension Demand
		TIME	300.000	/o;Tension Tick Time
		PVAL	0	/o,-100,100;Stall Tension (%)
		PORD	0	/e,Fixed,Proportional;Stall Select
		PORD	0	/t,Disabled,Enabled;Stall Enable
		PVAL	0	/o,-100,100;Boost (%)
		PORD	0	/e,Fixed,Proportional;Boost Select
		PORD	0	/t,Disabled,Enabled;Boost Enable
		PVAL	0	/o,-100,100;Tension (%)
		PVAL	0	/o,-100,100;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,-100,100;calibration (%)
		LITO	0	/t,Disabled,Enabled;Tension Enable
		PORD	0	/t,Disabled,Enabled;Other Tension Enable
		PVAL	0.0100101	/o,-100,100;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 setpoint
		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
		MACR	 	set direction
			LITO	2	direction index
			LITO	6
			PRIM	S_tree/Read	dir/inst/É
			LITO	1	1/dir/inst/É
			PRIM	Ordinal/And	dir/inst/É
			LITO	5	direction index
			LITO	13	web break 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	1	unwind/rewind index
			LITO	2	main data
			PRIM	S_tree/Read	mode/inst/É
			LCAL	URSetup	inst/É
		EMAC
		LCAL	Core1	inst/É
		MACR	 	set preset
			LITO	8	preset index
			LITO	5	dia. calc data
			PRIM	S_tree/Read	preset/inst/É
			PRIM	Stack/Dup to aux	É/preset ¥ preset/inst/É
			LCAL	FOut	É ¥ inst/É
		EMAC
		MACR	 	set build up
			LITO	14	build up index
			LITO	5	dia. calc data
			PRIM	S_tree/Read	mode/inst/É
			LCAL	Build Up	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 structure
			PRIM	S_tree/Replace	inst/É
		EMAC
		MACR	 	set tension enable
			LITO	3	TE? index
			LITO	9	other TE data
			PRIM	S_tree/Read	TE?/inst/É
			PRIM	Stack/Swap	inst/TE?/É
			LCAL	TEnable	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
		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
			PRIM	Misc/Send entry	É/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/preset/hold?/hold/threshold/filter/É
		PRIM	List/Remove	É/time ¥ list/preset?/preset/hold?/hold/É
		PRIM	List/Remove	É/time ¥ list/!TE/preset?/preset/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/hold?/hold/threshold/filter/É
			PRIM	Stack/Drop	É/dia/dia ¥ hold?/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 ¥ 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/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/É
		MACR	 	read data
			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/Remove	É/dia ¥ list/dir/rewind?/old dia/max/count/inst/É
			PRIM	List/Remove	É/dia ¥ list/broke?/dir/rewind?/old dia/max/count/inst/É
			PRIM	List/List to item	É/dia ¥ reset/broke?/dir/rewind?/old dia/max/count/inst/É
		EMAC
		BRFL	 	branch if not in reset
			BRFL	 	branch if not broken already
				PRIM	Ordinal/Xor	É/dia ¥ directed rewind?/old dia/max/count/inst/É
				BRFL	 	branch if 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	 	rewind (diameter should be increasing)
				CMNT	 	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	 	web already broken, nothing to do
			PRIM	Stack/Drop	É/dia ¥ rewind?/old dia/max/count/inst/É
			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	É ¥ É
		BRTR
		PRIM	Stack/Drop	É/dia ¥ dir/rewind?/old dia/max/count/inst/É
		PRIM	Stack/Drop	É/dia ¥ rewind?/old dia/max/count/inst/É
		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/É
		LCAL	WB clear	É ¥ É
	ESBR
	SGLB	Winders/Line SP	/3v57/-120,120;Enter Line Setpoint (%)...
		MACR	 	Up to Speed
			PRIM	Stack/Over	sp/inst/sp/É
			PRIM	Value/Absolute	|sp|/inst/É
			LITO	2	line setpoint index
			LITO	12	up to speed structure
			PRIM	S_tree/Replace	É ¥ inst/sp/É
		EMAC
		MACR	 	Speed Demand stuff
			LITO	8	line setpoint index
			LCAL	Jog	É ¥ inst/É
		EMAC
		PRIM	Heap/Store self	É ¥ É
	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)...
		MACR	 	get data
			PRIM	Stack/Second to aux	É/der ¥ inst/É
			LITO	0	whole list
			LITO	2	main data
			PRIM	S_tree/Read	É/der ¥ list/inst/line sp/É
			PRIM	List/Remove	É/der ¥ list/neg?/inst/É
			PRIM	List/Remove	É/der ¥ list/under?/neg?/inst/É
			PRIM	List/Remove	É/der ¥ list/tension enable/under?/neg?/inst/É
			PRIM	List/Remove	É/der ¥ list/w sp/te/under?/neg?/inst/É
			PRIM	List/Remove	É/der ¥ list/clamp/w sp/te/under?/neg?/inst/É
			PRIM	List/Remove	É/der ¥ list/tension/clamp/w sp/te/under?/neg?/inst/É
			PRIM	List/Remove	É/der ¥ list/S&D/tension/clamp/w sp/te/under?/neg?/inst/É
			PRIM	List/Remove	É/der ¥ list/inertia/S&D/É
			PRIM	List/Remove	É/der ¥ list/cal/inertia/S&D/É
			PRIM	List/List to item	É/der ¥ line sp/cal/inertia/S&D/É
		EMAC
		MACR	 	compute current demand
			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/É
		EMAC
		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/WB Reset	/3t12,Disabled,Enabled;Set Web Break Reset as...
		LITO	7	reset index
		CALL	354145
	ESBR
	SGLB	Winders/Calibration	/3v7,-100,100;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	/3v7,-100,100;Enter Ramp Increament (%)...
		LITO	5	ramp index
		CALL	354132
	ESBR
	SGLB	Winders/Stall Tension	/3v7,-100,100;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	/3v7,-100,100;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	/3v7,-100,100;Enter Tension (%)...
		LITO	8	tension index
		CALL	354085
	ESBR
	SGLB	Winders/Taper	/3v7,-100,100;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	/3v7,-100,100;Enter Width (%)...
		LITO	4	width index
		CALL	354077
	ESBR
	SGLB	Winders/Direction	/3t75,Reverse,Forward;Select Direction...
		PRIM	Stack/Over	dir/inst/dir/É
		LITO	1	1/dir/inst/dir/É
		PRIM	Ordinal/And	dir/inst/dir/É
		LITO	5	direction index
		LITO	13	web break data
		PRIM	S_tree/Replace	inst/dir/É
		LITO	2	direction index
		CALL	354081
	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	/3v8,-100,100;Enter Trim (%)...
		LITO	2	trim index
		CALL	354133
	ESBR
	SGLB	Winders/Tension Cal	/3v7,-100,100;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	/3v8,-100,100;Enter Filter Threshold (%)...
		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	8	preset dia. index
		CALL	354079
	ESBR
	SGLB	Winders/Preset Enable	/3t12,Disabled,Enabled;Set Preset as ...
		LITO	9	preset select index
		CALL	354079
	ESBR
	SGLB	Winders/Minimum Speed	/3v57,-120,120;Enter Minimum Speed (%)...
		LITO	11	min. speed index
		CALL	354079
	ESBR
	SGLB	Winders/Line Speed	/3v57/-120,120;Enter Line Speed (%)...
		PRIM	Stack/Swap	sp/inst/É
		PRIM	Value/Absolute	|sp|/inst/É
		LITO	12	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	13	|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
			PRIM	Misc/Send entry	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/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	14	build up index
		CALL	354079
	ESBR
	SGLB	Winders/SD Ramp Delta	/3v7,-100,100;Enter Speed Demand Ramp Delta (%)...
		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	6	web break index
		CALL	354144
	ESBR
	SGLB	Winders/Get WB Reset	/2t11,Disabled,Enabled
		LITO	7	reset index
		CALL	354144
	ESBR
	SGLB	Winders/Get Calibration	/2v6,-100,100;%1.2f%%
		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 Ramp Delta	/2v6,-100,100;%1.2f%%
		LITO	5	ramp index
		CALL	354130
	ESBR
	SGLB	Winders/Get Tension Demand	/2v6,-100,100;%1.2f%%
		LITO	6	demand index
		CALL	354130
	ESBR
	SGLB	Winders/Get Stall Tension	/2v6,-100,100;%1.2f%%
		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	/2v6,-100,100;%1.2f%%
		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	/2v6,-100,100;%1.2f%%
		LITO	8	tension index
		CALL	354084
	ESBR
	SGLB	Winders/Get Taper	/2v6,-100,100;%1.2f%%
		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	/2v6,-100,100;%1.2f%%
		LITO	9	cal index
		CALL	354072
	ESBR
	SGLB	Winders/Get Derivative SP	/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	/2v6,-100,100;%1.2f%%
		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	/2v6,-100,100;%1.2f%%
		LITO	2	trim index
		CALL	354131
	ESBR
	SGLB	Winders/Get Tension Cal	/2v6,-100,100;%1.2f%%
		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	/2v6,-100,100;%1.2f%% Full Roll
		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	8	external diameter index
		CALL	354078
	ESBR
	SGLB	Winders/Get Preset Enable	/2t11,Disabled,Enabled;
		LITO	9	preset select index
		CALL	354078
	ESBR
	SGLB	Winders/Get Minimum Speed	/2v58,-120,120;%1.1f%%
		LITO	11	minimum speed index
		CALL	354078
	ESBR
	SGLB	Winders/Get Line Speed	/2v58,-120,120;%1.2f%%
		LITO	12
		CALL	354078
	ESBR
	SGLB	Winders/Get Winder Speed	/2v58,-120,120;%1.2f%%
		LITO	13	|winder speed| index
		CALL	354078
	ESBR
	SGLB	Winders/Get Build Up	/2v9,-100,100;%1.2f
		LITO	14	build up index
		CALL	354078
	ESBR
	SGLB	Winders/Get SD Ramp Delta	/2v6,-100,100;%1.2f%%
		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 Line SP	/2v58,-120,120;%1.2f%%
		LITO	8	line setpoint index
		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	Derivative SP	inst/setpoint/É
	CMNT	 	Output:  É ¥ inst/É
	MACR	 	get data
		PRIM	Stack/Second to aux	É/line sp ¥ inst/É
		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/É
	EMAC
	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	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/É
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
		PRIM	Misc/Send entry	É/line sp/demand ¥ inst/É
		LVAL	-1	É/line sp/demand ¥ -1.0/inst/É
		GSYM	Output/#2
		PRIM	Misc/Send entry	É/line sp/demand ¥ inst/É
		LCAL	Save
	BRTR
	CMNT	 	negative (unwind)
	PRIM	Value/Negate	É/line sp/demand ¥ -demand/inst/É
	GSYM	Output/#2
	PRIM	Misc/Send entry	É/line sp/demand ¥ inst/É
	LVAL	1	É/line sp/demand ¥ 1.0/inst/É
	GSYM	Output/#1
	PRIM	Misc/Send entry	É/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 derivative sp
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	URSetup	dir/inst/É
	LITO	1	1/dir/inst/É
	PRIM	Ordinal/And	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
	PRIM	Misc/Send entry	É/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
	PRIM	Misc/Send entry	É ¥ 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	 	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	10	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 down	new/old/inst/É
		BRFL	 	branch if new input not enabled
			BRFL	 	branch if old input not enabled (no change)
				PRIM	Misc/Idle	inst/É
			BRTR
			LITO	0	TE? is FALSE
			LCAL	TE Change	inst/É
		BRTR
		BRFL	 	branch if old input not enabled (change)
			LITO	1	TE? is TRUE
			LCAL	TE Change	inst/É
		BRTR
		PRIM	Misc/Idle	inst/É
	EMAC
EDEF
LDEF	TE Change	TE?/inst/É
	CMNT	 	Output:  É ¥ inst/É
	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/É
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 setpoint
	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/É
	PRIM	Misc/Send entry	É/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	8	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
	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	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
		PRIM	Misc/Send entry	É/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
	PRIM	Misc/Send entry	É ¥ 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
		LCAL	WB clear	É ¥ É
	BRTR
	LITO	1	É ¥ broken/inst/É
	PRIM	Stack/Dup down	É ¥ broken/inst/broken/É
	GSYM	Output/#10	É ¥ out #10/broken/inst/broken/É
	PRIM	Misc/Send entry	É ¥ inst/broken/É
	LITO	6	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/É
	CMNT	 	Output:  É
	LITO	0	0/inst/É
	LITO	1	count index
	LITO	13	web break data
	PRIM	S_tree/Replace	inst/É
	CMNT	 	get old status of web break
	LITO	6	broken index
	LITO	13	web break data
	PRIM	S_tree/Read	broken?/inst/É
	BRFL	 	branch if not broken
		PRIM	Heap/Store self	É ¥ É
	BRTR
	LITO	0	0/inst/É
	PRIM	Stack/Dup down	0/inst/0/É
	GSYM	Output/#10	É ¥ out #10/ok/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	LITO	6	broken index
	CALL	354145	É ¥ É
EDEF