STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354382
	ESBR
	SORD	13	/e,,,,,,,,,,,,,,Filter parameters;Derivative SP
		LVAL	0	output
		PVAL	0.250008	/o,-100,100,0,100;Filter Time Constant (%)
		TIME	4000.000	/o;Filter Time Range (ms)
		TIME	0.000	time store
	ESBR
	SORD	11	/e,,,,,,,,,,,,Calibration parameters;Derivative SP
		PVAL	0.100009	/o,-100,100,0,100;Cal Time Constant (%)
		TIME	100000.000	/o;Cal Time Range (ms)
		TIME	0.000	time store
	ESBR
	SORD	5	/e,,,,,,Main parameters;Diameter Calculator
		LITO	1	over/under
		LIST
			MSGE
				ICAL	System
				GSYM	Winders/Current Dia
			EMSG
		ELST
		PVAL	0.941771	/o;Diameter Filter (0 - 1.0)
		LVAL	0.0499893	filter input & output
		PORD	0	/t,Track,Hold;Diameter Hold
		PVAL	0.100009	;/o,-100,100,0,100;Preset Diameter (% Full Roll)
		PORD	0	/t,Disabled,Enabled;Preset Enable
		LITO	1	inverted tension enable
		PVAL	0.0416578	/o,-120,120,0,120;Min Speed (0 - 120%)
		LVAL	0.100009	|line speed|
		LVAL	1	|winder speed|
		PVAL	0.100009	/o,-100,100,0,100;Min. Diameter (% Full Roll)
	ESBR
	SORD	7	diameter preset
		LVAL	0.100009	;/o,-100,100,0,100;Ext. Diameter (% Full Roll)
		LVAL	0.100009	min diameter
		LITO	0	;/t,Disabled,Enabled;Ext Dia Select
	ESBR
	SORD	14	Overspeed parameters;Speed Demand
		PVAL	0.0416578	/o,-120,120;Overspeed SP (%)
		LITO	1	rewind?
		LITO	0	;/t,Disabled,Enabled;Tension Enable
	ESBR
	SORD	8	/e,,,,,,,,,Main parameters;Tension Demand
		PVAL	0.500015	/o,-100,100;Stall Tension (%)
		PORD	1	/e,Fixed,Proportional;Stall Select
		PORD	0	/t,Disabled,Enabled;Stall Enable
		PVAL	0	/o,-100,100;Boost (%)
		PORD	1	/e,Fixed,Proportional;Boost Select
		PORD	0	/t,Disabled,Enabled;Boost Enable
		PVAL	0	/o,-100,100;Tension SP (%)
		PVAL	0	/o,-100,100;Taper SP (%)
		LVAL	0.100009	min diameter
		LVAL	0.100009	dia
		PORD	1	/e,Linear,Hyperbolic;Taper Select
	ESBR
	SORD	9	/e,,,,,,,,,,Output parameters;Tension Demand
		PVAL	0.299997	;/o,-100,100,0,100;Dancer Position (%)
		PORD	1	;/t,Dancer,Loadcell;Tension Select?
		PVAL	0.299997	/o,-100,100,0,100;Tension Delta (%)
		LVAL	0	old ramp output
	ESBR
	SORD	2	/e,,,Main parameters;Current Demand
		PVAL	1	/o,-200,200,0,200;Current Clamp (0% to 200%)
		PORD	1	/t,Unwind,Rewind;Rewind-Unwind
		PORD	1	/t,Under,Over;Over-Under?
		LITO	0	tension enable
		LVAL	1	Clamped Winder Speed (%)
		PVAL	1	/o,-100,100;Base Speed (%)
		LVAL	0	Tension Demand (%)
		LVAL	0	Static & Dynamic Comp (%)
		LVAL	1	Inertia Compensation (%)
	ESBR
	SORD	4	/e,,,,,Inertia parameters;Current Demand
		LITO	1	mode
		PVAL	1	/o,-200,200;Fixed Inertia (%)
		PVAL	1	/o,-200,200;Variable Inertia (%)
		PVAL	1	/o,-100,100;Width (%)
		LVAL	0.00100711	Min. Diameter Cubed
		LVAL	0.100009	min. diameter
	ESBR
	SORD	6	/e,,,,,,,Winder parameters;Current Demand
		PORD	1	/t,Reverse,Forward;Forward-Reverse
		LITO	1	mode
		PVAL	0	/o,-200,200;Static Comp (-200% to 200%)
		PVAL	0	/o,-200,200;Dynamic Comp (-200% to 200%)
		LVAL	0	|winder sp| / .8333333
	ESBR
	SORD	10	/e,,,,,,,,,,,Tension parameters;Current Demand
		LVAL	0.100009	diameter
		PVAL	0.500015	/o,-100,100;Tension Scale (-100% to 100%)
		PVAL	0	/o,-200,200;Tension Trim (-200% to 200%)
		PVAL	0.500015	/o,-100,100;Tension Cal (%)
	ESBR
	SORD	12	Up to Speed
		LITO	0	up to speed?
		PVAL	0.0416578	/o,-120,120;UTS Threshold (%)
		LVAL	0	line setpoint
		LVAL	0.0100101	min dia
		LVAL	0.100009	|winder speed|
	ESBR
	SORD	15	Miscellaneous values
		LVAL	1	Unsigned Current Demand
		LVAL	0	scaled derivative
		LVAL	0	max time
		LITO	0	comms errors
	ESBR
	SORD	30	Port parameters
		TIME	300.000	/o;Tick Time
		LITO	3	{/e,5 bits,7bits,6 bits,8 bits;Data bits}
		LITO	0	{/e,one,two;Stop bits}
		LITO	2	{/e,none,odd,even;Parity}
		LITO	2	/e,57600,38400,19200,9600,4800,2400,1200;Baud rate
		LITO	1	/e,RS232,RS422;Port type
		LITO	0	/o,0,7;Group I.D. (0 - 7)
		LITO	0	/o,0,15;Unit I.D. (0 - 15)
		LITO	1	port ref:  0=port B, 1=port A
	ESBR
	SORD	40	state info
		LITO	3	minor state
		LITO	1	main state
		LITO	0	DID (filled in)
	ESBR
	SORD	41	current limit
		LITO	1	next state
		LITO	75	current limit PNO (neg = 74, pos = 75)
		LVAL	0.250008	current limit
		LVAL	0.333323	/o,-30000,30000,1,30000;Main Limit Gain (1-30000)
	ESBR
	SORD	42	other current limit
		LITO	74	other current limit PNO (neg = 75, pos = 74)
		LITO	2	;/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Aux Current Format
		LVAL	0.333323	/o,-30000,30000,1,30000;Aux Limit Gain (1-30000)
		LVAL	0.250008	other current limit
	ESBR
	SORD	43	signals (block 14 read)
		GSYM	Serial/Block 14
		LITO	0	DID placeholder
		LITO	14	/o;Block Number (0-15)
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Ext. Dia. Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Line Speed Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Winder Speed Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Taper SP Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Tension SP Format
		LITO	2	;/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Parameter 5 Format
		LITO	2	;/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Parameter 6 Format
		LITO	8	booleans (not used)
		LITO	1	set for full read
	ESBR
	SORD	63	block 14 scaling
		LVAL	0.333323	/o,-30000,30000,1,30000;Ext. Dia. Gain (1-30000)
		LVAL	0.399976	/o,-30000,30000,1,30000;Line Speed Gain (1-30000)
		LVAL	0.399976	/o,-30000,30000,1,30000;Winder Speed Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Taper SP Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Tension SP Gain (1-30000)
		LVAL	0.333323	;/o,-30000,30000,1,30000;Unused Gain (1-30000)
		LVAL	0.333323	;/o,-30000,30000,1,30000;Unused Gain (1-30000)
	ESBR
	SORD	44	diameter
		LITO	58	/o;diameter PNO
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Diameter Format
		LVAL	0.333323	/o,-30000,30000,1,30000;Diameter Gain (1-30000)
		LVAL	0.250008	diameter
	ESBR
	SORD	45	parameters (block 11 read)
		GSYM	Serial/Block 11
		LITO	0	DID placeholder
		LITO	11	/o;Block Number (0-15)
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Base Speed Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Derivative Cal. Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Der. Filter Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Diameter Filter Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Dynamic Comp. Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Fixed Inertia Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Min. Diameter Format
		LITO	8	booleans (overwind, Preset Enable, rewind,  Tension Enable)
		LITO	1	set for full read
	ESBR
	SORD	65	block 11 scaling
		LVAL	0.333323	/o,-30000,30000,1,30000;Base Speed Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Derivative Cal. Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Der. Filter Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Diameter Filter Gain (1-30000)
		LVAL	0.666646	/o,-30000,30000,1,30000;Dynamic Comp. Gain (1-30000)
		LVAL	0.666646	/o,-30000,30000,1,30000;Fixed Inertia (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Min. Diameter Gain (1-30000)
	ESBR
	SORD	46	ratio
		LITO	40	/o;ratio PNO
		LITO	4	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Ratio Format
		LVAL	0.333323	/o,-30000,30000,1,30000;Ratio Gain (1-30000)
		LVAL	0.250008	ratio
	ESBR
	SORD	47	parameters (block 15 read)
		GSYM	Serial/Block 15
		LITO	0	DID placeholder
		LITO	15	/o;Block Number (0-15)
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Min. Speed Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Overspeed SP Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Static Comp. Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Tension Delta Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Tension Scale Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;UTS Threshold Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Variable Inertia Format
		LITO	8	booleans (not used)
		LITO	1	set for full read
	ESBR
	SORD	67	block 15 scaling
		LVAL	0.399976	/o,-30000,30000,1,30000;Min. Speed Gain (1-30000)
		LVAL	0.399976	/o,-30000,30000,1,30000;Overspeed SP Gain (1-30000)
		LVAL	0.666646	/o,-30000,30000,1,30000;Static Comp. Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Tension Delta Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Tension Scale Gain (1-30000)
		LVAL	0.399976	/o,-30000,30000,1,30000;UTS Threshold (1-30000)
		LVAL	0.666646	/o,-30000,30000,1,30000;Variable Inertia Gain (1-30000)
	ESBR
	SORD	48	overspeed
		LITO	73	/o;Overspeed PNO
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Overspeed Format
		LVAL	0.399976	/o,-30000,30000,1,30000;Overspeed Gain (1-30000)
		LVAL	0.109989	overspeed
	ESBR
	SORD	50	up to speed
		LITO	119	/o;Up to Speed PNO
		LITO	8	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Up to Speed Format
		LVAL	1	/o,-30000,30000,1,30000;Up to Speed Gain (1-30000)
		LITO	0	up to speed
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SORD	1	UMP handler (SAM)
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ data/inst/É
		PRIM	Tags/Test complex	É ¥ rslt/data/inst/É
		BRFL	 	branch if not complex
			PRIM	List/Item to list	É ¥ data/inst/É
			LITO	0	É ¥ 0/data/inst/É
			PRIM	Stack/Swap	É ¥ data/0/inst/É
			PRIM	Misc/Post event	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		LITO	0	É ¥ 0/data/inst/É
		PRIM	Stack/Swap	É ¥ data/0/inst/É
		PRIM	Misc/Post event	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		MACR	 	initialize hardware É ¥ inst/É
			LITO	30	É ¥ 30/inst/É
			PRIM	S_tree/Entry to stack	É ¥ channel/UID/GID/type/baud/parity/stop/data/Æt/inst/É
			PRIM	Stack/Dup to aux	É/channel ¥ channel/UID/GID/type/baud/parity/stop/data/Æt/inst/É
			PRIM	Stack/Rotate up	É/channel ¥ UID/GID/channel/type/baud/parity/stop/data/Æt/inst/É
			ASIO	SIO/prepare_did	É/channel ¥ DID/type/baud/parity/stop/data/Æt/inst/É
			PRIM	Stack/Push from aux	É ¥ channel/DID/type/baud/parity/stop/data/Æt/inst/É
			PRIM	Stack/Second to aux	É/DID ¥ channel/type/baud/parity/stop/data/Æt/inst/É
			ASIO	SIO/init_channel	É/DID ¥ Æt/inst/É
			MACR	 	start timer tasks
				PRIM	Timer/Get PAT	É/DID ¥ PAT/Æt/inst/É
				GSYM	Winders/Timer	É/DID ¥ method/PAT/Æt/inst/É
				CALL	354057	É/DID ¥ inst/...
			EMAC
			PRIM	Stack/Dup from aux	É/DID ¥ DID/inst/É
			LITO	2	DID index
			LITO	43
			PRIM	S_tree/Replace	É/DID ¥ inst/É
			PRIM	Stack/Dup from aux	É/DID ¥ DID/inst/É
			LITO	2	DID index
			LITO	45
			PRIM	S_tree/Replace	É/DID ¥ inst/É
			PRIM	Stack/Dup from aux	É/DID ¥ DID/inst/É
			LITO	2	DID index
			LITO	47
			PRIM	S_tree/Replace	É/DID ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ DID/inst/É
			LITO	3	DID index
			LITO	40	É ¥ 40/3/DID/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É
		EMAC
		MACR	 	set unwind/rewind
			LITO	2
			LITO	2	current demand data
			PRIM	S_tree/Read	mode/inst/É
			LCAL	URSetup	inst/É
		EMAC
		MACR	 	set min diameter
			LITO	12	min dia. index
			LITO	5	dia. calc data
			PRIM	S_tree/Read	mode/inst/É
			LCAL	Min Dia	inst/É
		EMAC
		MACR	 	post event to start cycle É ¥ inst/É
			PRIM	Misc/Name of node	É ¥ node/inst/É
			LIST	 	É ¥ LIST/node/inst/É
				MSGE	 	tell class we're ready
					ICAL	System
					GSYM	Serial/Ready
				EMSG
			ELST
			PRIM	Misc/Post event	É ¥ inst/É
		EMAC
		MACR	 	reset max time (after a delay)
			PRIM	Timer/Get PAT	PAT/inst/É
			TIME	750.000	Æt/PAT/inst/É
			GSYM	Mini/Reset Max Time	method/Æt/PAT/inst/É
			CALL	354057	inst/...
		EMAC
		PRIM	Heap/Store self
	ESBR
	SGLB	Mini/Reset Max Time
		PRIM	Stack/Xdrop	É ¥ inst/É
		LVAL	0	É ¥ 0/inst/É
		LITO	3	max time index
		LITO	15	misc data
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Timer	diameter and tension demand timers
		PRIM	Stack/Second to aux	É/time ¥ inst/É
		LITO	1
		LITO	30
		PRIM	S_tree/Read	É/time ¥ Æt/inst/É
		PRIM	Stack/Push from aux	É ¥ time/Æt/inst/É
		GSYM	Winders/Timer	É ¥ method/PAT/Æt/inst/É
		CALL	354057	É ¥ inst/É
		MACR	 	post message to dia. trigger
			PRIM	Misc/Name of node	É ¥ node/inst/É
			LIST	 	É ¥ event/node/inst/É
				MSGE
					ICAL	System
					GSYM	Winders/Dia. Trigger
				EMSG
			ELST
			PRIM	Misc/Post event	É ¥ inst/É
		EMAC
		MACR	 	post message to tension trigger
			PRIM	Misc/Name of node	É ¥ node/inst/É
			LIST	 	É ¥ event/node/inst/É
				MSGE
					ICAL	System
					GSYM	Winders/Tension Trigger
				EMSG
			ELST
			PRIM	Misc/Post event	É ¥ inst/É
		EMAC
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Dia. Trigger
		CMNT	 	Expects:  É ¥ inst/É
		LITO	5	dia main data
		PRIM	S_tree/Entry to stack	É ¥ min dia/|winder sp|/|line sp|/min sp/!TE/É
		PRIM	Stack/Dup to aux	É/min dia ¥ min dia/|winder sp|/|line sp|/É
		PRIM	Stack/Xover	É/min dia ¥ |line sp|/min dia/|winder sp|/|line sp|/É
		PRIM	Value/Multiply	É/min dia ¥ scaled line/|winder sp|/|line sp|/É
		PRIM	Value/Fraction	É/min dia ¥ dia./|line|/min sp/É
		PRIM	Stack/Pop to aux	É/min dia/dia. ¥ |line|/min sp/É
		PRIM	Value/Compare	É/min dia/dia ¥ min?/min sp/!TE/preset?/preset/É
		PRIM	Stack/Xdrop	É/min dia/dia ¥ min?/!TE/preset?/preset/É
		PRIM	Ordinal/Ior	É/min dia/dia ¥ enabled?/preset?/preset/É
		BRFL	 	branch if not enabled (no preset)
			CMNT	 	É/min dia/dia ¥ preset?/preset/hold?/É
			PRIM	Stack/Drop	É/min dia/dia ¥ preset/hold?/old/filter/É
			PRIM	Stack/Drop	É/min dia/dia ¥ hold?/old/rate/inst/É
			BRFL	 	branch if not held, use calculated value
				PRIM	Stack/Dup from aux	É/min dia/dia ¥ new/old/rate/UR?/inst/É
				PRIM	Value/Difference	É/min dia/dia ¥ new-old/rate/UR?/inst/É
				PRIM	Value/Multiply	É/min dia/dia ¥ rate*(new-old)/UR?/inst/É
				PRIM	Stack/Push from aux	É/min dia ¥ new/rate*(new-old)/UR?/inst/É
				PRIM	Value/Difference	É/min dia ¥ new-rate*(new-old)/UR?/inst/É
				LCAL	FEnd	É ¥ É
			BRTR
			CMNT	 	held, use held value
			PRIM	Stack/Drop from aux	É/min dia ¥ old/rate/min dia/msg/UR?/inst/É
			PRIM	Stack/Xdrop	É/min dia ¥ old/min dia/msg/UR?/inst/É
			LCAL	FEnd	É ¥ É
		BRTR
		CMNT	 	É/min dia/dia ¥ preset?/preset/hold?/É
		PRIM	Stack/Drop from aux	É/min dia ¥ preset?/preset/hold?/É
		BRFL	 	branch if no preset enable
			CMNT	 	held, use held value
			PRIM	Stack/Drop	É/min dia ¥ hold?/old/filter/msg/UR?/inst/É
			PRIM	Stack/Drop	É/min dia ¥ old/filter/msg/UR?/inst/É
			PRIM	Stack/Xdrop	É/min dia ¥ old/msg/UR?/inst/É
			LCAL	FEnd	É ¥ É
		BRTR
		CMNT	 	preset enabled, use preset value
		PRIM	Stack/Xdrop	É/min dia ¥ preset/old/filter/msg/UR?/inst/É
		PRIM	Stack/Xdrop	É/min dia ¥ preset/filter/msg/UR?/inst/É
		PRIM	Stack/Xdrop	É/min dia ¥ preset/msg/UR?/inst/É
		LCAL	FEnd	É ¥ É
	ESBR
	SGLB	Winders/Current Dia
		CMNT	 	expects:  É ¥ inst/dia/É
		MACR	 	diameter output
			PRIM	Stack/Over	dia/inst/dia/É
			LITO	4	ratio index
			LITO	44
			PRIM	S_tree/Replace	É ¥ inst/dia/É
		EMAC
		MACR	 	Up to Speed
			PRIM	Misc/Name of node	É ¥ node/inst/dia/É
			PRIM	Stack/Xover	É ¥ dia/node/inst/dia/É
			LIST	 	É ¥ LIST/dia/node/inst/dia/É
				MSGE
					ICAL	System
					GSYM	Winders/UTS Dia
				EMSG
			ELST
			PRIM	List/Add	É ¥ evant/node/inst/dia/É
			PRIM	Misc/Post event	É ¥ inst/dia/É
		EMAC
		MACR	 	do diameter for Current Demand
			PRIM	Stack/Over	dia/inst/dia/É
			PRIM	Stack/Pop to aux	É/dia ¥ inst/dia/É
			LITO	4	diameter data
			PRIM	S_tree/Entry to stack	É/dia ¥ min dia/cal/width/var./fixed/sign/inst/É
			PRIM	Stack/Dup from aux	É/dia ¥ dia/min dia/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/dia/É
			LITO	9	inertia index
			LITO	2	main data
			PRIM	S_tree/Replace	inst/dia/É
		EMAC
		LITO	1	dia index
		CALL	354133
	ESBR
	SGLB	Winders/UTS Dia
		CMNT	 	expects:  É ¥ inst/dia/É
		PRIM	Stack/Over	dia/inst/dia/É
		PRIM	Stack/Pop to aux	É/dia ¥ inst/dia/É
		LITO	12	up to speed data
		PRIM	S_tree/Entry to stack	É/dia ¥ |w sp|/min dia/line sp/threshold/uts?/inst/É
		PRIM	Stack/Push from aux	É ¥ dia/|w sp|/min dia/line sp/threshold/uts?/inst/É
		PRIM	Value/Multiply	|w sp|*dia/min dia/line sp/threshold/uts?/inst/É
		PRIM	Value/Fraction	cal. sp/line sp/threshold/uts?/inst/É
		PRIM	Value/Subtract	delta sp/threshold/uts?/inst/É
		PRIM	Value/Absolute	|delta sp|/threshold/uts?/inst/É
		PRIM	Value/Compare	up to speed/threshold/uts?/inst/É
		PRIM	Stack/Xdrop	up to speed/old uts?/inst/É
		LCAL	Up to Speed	inst/dia/É
		LITO	10	dia index
		CALL	354085	É ¥ É
	ESBR
	SGLB	Winders/Tension Trigger
		LITO	8	tension demand data
		PRIM	S_tree/Entry to stack	taper sel/dia/core/taper/tension/É
		BRFL	 	branch if Linear Taper
			PRIM	Value/Difference	É ¥ dia-core/taper/tension/É
			LCAL	Taper
		BRTR
		CMNT	 	Hyperbolic Taper
		PRIM	Value/Divide	É ¥ (core/dia)/taper/tension/É
		LVAL	1	É ¥ 1/(core/dia)/taper/tension/É
		PRIM	Value/Difference	É ¥ (1-core/dia)/taper/tension/É
		LCAL	Taper
	ESBR
	SGLB	Winders/Tension Demand
		PRIM	Stack/Second to aux	É/demand ¥ inst/É
		LITO	9	tension output data
		PRIM	S_tree/Entry to stack	É/demand ¥ old ramp/incr/LC?/pos/inst/É
		PRIM	Stack/Push from aux	É ¥ demand/old ramp/incr/LC?/pos/inst/É
		CALL	354070	demand/LC?/pos/inst/É
		PRIM	Stack/Pop to aux	É/demand ¥ LC?/pos/inst/É
		BRFL	 	branch if not using loadcell (use dancer pos)
			LCAL	TDemand3
		BRTR
		PRIM	Stack/Drop	É/demand ¥ inst/É
		PRIM	Stack/Dup from aux	É/demand ¥ demand/inst/É
		LCAL	TDemand3
	ESBR
	SGLB	Winders/Tension Enable
		PRIM	Stack/Swap	TE?/inst/É
		PRIM	Ordinal/Test zero	É ¥ !TE?/inst/É
		LCAL	TEnable	inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Rewind-Unwind
		CMNT	 	expects:  É ¥ inst/rewind?/É
		LITO	2
		LITO	2	current demand data
		PRIM	S_tree/Read	old/inst/rewind?/É
		PRIM	Stack/Xswap	old/rewind?/inst/É
		PRIM	Ordinal/Test equal	old=new?/rewind?/inst/É
		BRFL	 	branch if changed, need to save
			LCAL	URSetup	inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Drop	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/Winder Speed
		CMNT	 	expects:  É ¥ inst/|winder speed|/É
		PRIM	Stack/Over	|winder speed|/inst/|winder speed|/É
		LITO	11	|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|/É
			LITO	5
			LITO	12
			PRIM	S_tree/Replace	inst/|winder speed|/É
		EMAC
		MACR	 	Current Demand, last item
			PRIM	Stack/Swap	|winder speed|/inst/É
			LVAL	0.833338
			PRIM	Value/Divide	compensate for fact that 1.0 = 120%
			LITO	5	w sp index
			LCAL	S&D Comp	É ¥ inst/É
			LCAL	Clamped W Sp	É ¥ inst/É
		EMAC
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Winders/CD TE
		PRIM	Stack/Xdrop	inst/É
		LITO	3	tension enable index
		LITO	14	over speed data structure
		PRIM	S_tree/Read	TE?/inst/É
		LCAL	TEnable4	inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	CMNT	 	serial call back method follow
	SGLB	Serial/Ready
		LITO	40	É ¥ 40/inst/É
		PRIM	S_tree/Entry to stack	É ¥ DID/main state/minor state/inst/É
		PRIM	Stack/Pop to aux	É/DID ¥ main state/minor state/inst/É
		STRE
			CMNT	 	execution order: 1,x,2,1,x',2,1,x'',2É
			CMNT	 	where x' = x+1; if x' >= 13 then x' = 3; initially x' = 3
			SORD	0
				CMNT	 	illegal search index (index will be on stack)
				PRIM	Stack/Drop	É/DID ¥ minor state/inst/É
				LCAL	Read	É ¥ É
			ESBR
			SORD	1	derivative sp read
				LCAL	Read	É ¥ É
			ESBR
			SORD	2	send current limit
				PRIM	Stack/Drop	É/DID ¥ inst/É
				LITO	41	current limit index
				PRIM	S_tree/Entry to stack	É/DID ¥ scale/data/PNO/next state/inst/É
				PRIM	Value/Multiply	É/DID ¥ scaled data/PNO/next state/inst/É
				PRIM	Stack/Swap	É/DID ¥ PNO/scaled data/next state/inst/É
				PRIM	Stack/Push from aux	É ¥ DID/PNO/data/next state/inst/É
				LITO	1	É ¥ RID/DID/PNO/data/next state/inst/É
				PRIM	Stack/Switch	É ¥ PNO/DID/RID/data/next state/inst/É
				LITO	2	É ¥ ###.##/PNO/DID/PNO/data/next state/inst/É
				ASIO	SIO/write_param	É ¥ next state/inst/É
				LCAL	Save State	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
			SORD	3	other current write
				LITO	42	É/DID ¥ key/minor state/inst/É
				LCAL	Param Write	É ¥ É
			ESBR
			SORD	4	signals (block 14)
				LITO	43
				LCAL	Block Read	É ¥ É
			ESBR
			SORD	5	diameter write
				LITO	44	É/DID ¥ key/minor state/inst/É
				LCAL	Param Write	É ¥ É
			ESBR
			SORD	6	parameters (block 11)
				LITO	45
				LCAL	Block Read	É ¥ É
			ESBR
			SORD	7	ratio write
				LITO	46	É/DID ¥ key/minor state/inst/É
				LCAL	Param Write	É ¥ É
			ESBR
			SORD	8	overspeed
				LITO	48	É/DID ¥ key/minor state/inst/É
				LCAL	Param Write	É ¥ É
			ESBR
			SORD	9	signals (block 14)
				LITO	43
				LCAL	Block Read	É ¥ É
			ESBR
			SORD	10	UTS write
				LITO	50	É/DID ¥ key/minor state/inst/É
				LCAL	Param Write	É ¥ É
			ESBR
			SORD	11	parameters (block 11)
				LITO	45
				LCAL	Block Read	É ¥ É
			ESBR
			SORD	12	parameters (block 15)
				LITO	47
				LCAL	Block Read	É ¥ É
			ESBR
		ESTR
	ESBR
	SGLB	Serial/Error
		CMNT	 	Expects:  É ¥ inst/RID/error code/É
		LITO	4	error count
		LITO	15
		PRIM	S_tree/Read
		PRIM	Ordinal/Increment	É ¥ errs+1/inst/RID/error code/É
		LITO	4	error count
		LITO	15
		PRIM	S_tree/Replace	É ¥ inst/RID/error code/É
		PRIM	Stack/Switch	É ¥ error code/RID/inst/É
		PRIM	Stack/Drop	É ¥ RID/inst/É
		CMNT	 	set block read to do a full read the next time
		LITO	1	É ¥ full read/RID/inst/É
		LITO	12	É ¥ offset/full read/RID/inst/É
		PRIM	Stack/Rotate down	É ¥ RID/offset/full read/inst/É
		STRE
			SORD	0
				CMNT	 	unknown RID, just ignore it
				PRIM	Stack/Drop	É ¥ offset/full read/inst/É
				PRIM	Stack/Drop	É ¥ full read/inst/É
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
			SGLB	Serial/Block 11
				LITO	45
				PRIM	S_tree/Replace	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
			SGLB	Serial/Block 14
				LITO	43
				PRIM	S_tree/Replace	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
			SGLB	Serial/Block 15
				LITO	47
				PRIM	S_tree/Replace	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			ESBR
		ESTR
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Serial/Block 11
		CMNT	 	Expects:  É ¥ inst/list/É
		LCAL	B11 Params	É ¥ É
	ESBR
	SGLB	Serial/Block 14
		CMNT	 	Expects:  É ¥ inst/list/É
		LCAL	B14 Params	É ¥ É
	ESBR
	SGLB	Serial/Block 15
		CMNT	 	Expects:  É ¥ inst/list/É
		LCAL	B15 Params
	ESBR
	SGLB	Winders/Derivative SP
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ data/inst/É
		LVAL	0.333323	scale input
		PRIM	Value/Divide	É ¥ scaled data/inst/É
		PRIM	Stack/Pop to aux	É/data ¥ inst/É
		LCAL	Derivative SP	É/dt ¥ inst/É
		CMNT	 	set max time
		LITO	3	max time index
		LITO	15
		PRIM	S_tree/Read	É/dt ¥ old/inst/É
		PRIM	Stack/Push from aux	É ¥ dt/old/inst/É
		PRIM	Stack/Swap	É ¥ old/dt/inst/É
		PRIM	Value/Compare	É ¥ old<dt/dt/inst/É
		BRFL	 	branch if old max is larger
			PRIM	Stack/Drop	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		CMNT	 	new time is greater, save it
		LITO	3	max time index
		LITO	15
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	CMNT	 	Set and Get methods for class follow
	CMNT	 	sord 2 items
	SGLB	Winders/Current Clamp	/3v38,-200,200,0,200;Enter Current Clamp (0% to 200%)...
		LITO	1
		CALL	354073
	ESBR
	SGLB	Winders/Get Current Clamp	/2v37,-200,200;%3.2f%%
		LITO	1
		CALL	354072
	ESBR
	SGLB	Winders/Get Rewind-Unwind	/2t72,Unwind,Rewind
		LITO	2	dir index
		CALL	354072
	ESBR
	SGLB	Winders/Get Over-Under	/2t76,Under,Over
		LITO	3	underwind index
		CALL	354072
	ESBR
	SGLB	Winders/Get Current TE	/2t11,Disabled,Enabled
		LITO	4	tension enable index
		CALL	354072
	ESBR
	SGLB	Winders/Get Base Speed	/2v6,-100,100;%1.2f%%
		LITO	6	clamp index
		CALL	354072
	ESBR
	SGLB	Winders/Get Current Tension	/2v37,-200,200;%3.2f%%
		LITO	7	demand index
		CALL	354072
	ESBR
	SGLB	Winders/Get S & D Comp	/2v37,-200,200;%3.2f%%
		LITO	8
		CALL	354072
	ESBR
	SGLB	Winders/Get Inertia Comp	/2v37,-200,200;%3.2f%%
		LITO	9	inertia comp index
		CALL	354072
	ESBR
	CMNT	 	sord 4 items
	SGLB	Winders/Width	/3v7,-100,100;Enter Width (%)...
		LITO	4	width index
		CALL	354077
	ESBR
	SGLB	Winders/Get Fixed Inertia	/2v37,-200,200;%3.2f%%
		LITO	2	fixed index
		CALL	354076
	ESBR
	SGLB	Winders/Get Variable Inertia	/2v37,-200,200;%3.2f%%
		LITO	3	var. index
		CALL	354076
	ESBR
	SGLB	Winders/Get Width	/2v6,-100,100;%1.2f%%
		LITO	4	width index
		CALL	354076
	ESBR
	CMNT	 	sord 5 items
	SGLB	Winders/Get Diameter Filter	/2v6,-100,100;%1.2f%%
		LITO	3	rate index
		CALL	354078
	ESBR
	SGLB	Winders/Get Diameter Hold	/2t90,Tracking,Holding
		LITO	5	hold index
		CALL	354078
	ESBR
	SGLB	Winders/Get Diameter Preset	/2v6,-100,100;%1.2f%% Full Roll
		LITO	6	external diameter index
		CALL	354078
	ESBR
	SGLB	Winders/Get Preset Enable	/2t11,Disabled,Enabled;
		LITO	7	preset select index
		CALL	354078
	ESBR
	SGLB	Winders/Get Min Speed	/2v58,-120,120;%1.1f%%
		LITO	9	minimum speed index
		CALL	354078
	ESBR
	SGLB	Winders/Get Line Speed	/2v58,-120,120;%1.2f%%
		LITO	10
		CALL	354078
	ESBR
	SGLB	Winders/Get Winder Speed	/2v58,-120,120;%1.2f%%
		LITO	11	|winder speed| index
		CALL	354078
	ESBR
	SGLB	Winders/Get Min Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	12	minimum diameter index
		CALL	354078
	ESBR
	CMNT	 	sord 6 items
	SGLB	Winders/Forward-Reverse	/3t75,Reverse,Forward;Select Direction...
		LITO	1	direction index
		CALL	354081
	ESBR
	SGLB	Winders/Get Forward-Reverse	/2t74,Reverse,Forward
		LITO	1	direction index
		CALL	354080
	ESBR
	SGLB	Winders/Get Static Comp	/2v37,-200,200;%3.2f%%
		LITO	3	static index
		CALL	354080
	ESBR
	SGLB	Winders/Get Dynamic Comp	/2v37,-200,200;%3.2f%%
		LITO	4	dynamic index
		CALL	354080
	ESBR
	CMNT	 	sord 7 items
	SGLB	Winders/Get Ext Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	1	external diameter index
		CALL	354082
	ESBR
	SGLB	Winders/Get Ext Dia Select	/2t11,Disabled,Enabled
		LITO	3	ext dia? index
		CALL	354082
	ESBR
	CMNT	 	sord 8 items
	SGLB	Winders/Stall Tension	/3v7,-100,100;Enter Stall Tension (%)...
		LITO	1	stall index
		CALL	354085
	ESBR
	SGLB	Winders/Stall Select	/3e81,Fixed,Proportional;Stall Select...
		LITO	2	stall  select index
		CALL	354085
	ESBR
	SGLB	Winders/Boost	/3v7,-100,100;Enter Boost (%)...
		LITO	4	boost index
		CALL	354085
	ESBR
	SGLB	Winders/Boost Select	/3e81,Fixed,Proportional;Boost Select...
		LITO	5	boost select index
		CALL	354085
	ESBR
	SGLB	Winders/Boost Enable	/3t12,Disabled,Enabled;Boost Enable...
		LITO	6	boost enable index
		CALL	354085
	ESBR
	SGLB	Winders/Get Stall Tension	/2v6,-100,100;%1.2f%%
		LITO	1	stall index
		CALL	354084
	ESBR
	SGLB	Winders/Get Stall Select	/2e80,Fixed,Proportional
		LITO	2	stall  select index
		CALL	354084
	ESBR
	SGLB	Winders/Get Stall Enable	/2t,Disabled,Enabled
		LITO	3	stall enable index
		CALL	354084
	ESBR
	SGLB	Winders/Get Boost	/2v6,-100,100;%1.2f%%
		LITO	4	boost index
		CALL	354084
	ESBR
	SGLB	Winders/Get Boost Select	/2e80,Fixed,Proportional
		LITO	5	boost select index
		CALL	354084
	ESBR
	SGLB	Winders/Get Boost Enable	/2t,Disabled,Enabled
		LITO	6	boost enable index
		CALL	354084
	ESBR
	SGLB	Winders/Get Tension SP	/2v6,-100,100;%1.2f%%
		LITO	7	tension index
		CALL	354084
	ESBR
	SGLB	Winders/Get Taper SP	/2v6,-100,100;%1.2f%%
		LITO	8	taper index
		CALL	354084
	ESBR
	SGLB	Winders/Get Diameter	/2v6,-100,100;%1.2f%% Full Roll
		LITO	10	dia index
		CALL	354084
	ESBR
	SGLB	Winders/Get Taper Select	/2e82,Linear,Hyperbolic
		LITO	11	taper select index
		CALL	354084
	ESBR
	CMTL	 	sord 9 items (open for SPW)
		SGLB	Winders/Get Dancer Pos	/2v6,-100,100;%1.2f%%
			LITO	1
			CALL	354130
		ESBR
		SGLB	Winders/Get Tension Select	/2t11,Dancer,Loadcell
			LITO	2
			CALL	354130
		ESBR
	ECMT
	SGLB	Winders/Get Tension Delta	/2v6,-100,100;%1.2f%%
		LITO	3	ramp index
		CALL	354130
	ESBR
	SGLB	Winders/Get Tension Demand	/2v6,-100,100;%1.2f%%
		LITO	4	demand index
		CALL	354130
	ESBR
	CMNT	 	sord 10 items
	SGLB	Winders/Tension Trim	/3v38,-200,200;Enter Tension Trim (-200% to 200%)...
		LITO	3	trim index
		CALL	354133
	ESBR
	SGLB	Winders/Tension Cal	/3v7,-100,100;Enter Tension Calibration (%)...
		LITO	4	cal index
		CALL	354133
	ESBR
	SGLB	Winders/Get Tension Scale	/2v6,-100,100;%1.2f%%
		LITO	2	scale index
		CALL	354131
	ESBR
	SGLB	Winders/Get Tension Trim	/2v37,-200,200;%3.2f%%
		LITO	3	trim index
		CALL	354131
	ESBR
	SGLB	Winders/Get Tension Cal	/2v6,-100,100;%1.2f%%
		LITO	4	cal index
		CALL	354131
	ESBR
	CMNT	 	sord 11 items
	SGLB	Winders/Get Derivative Cal	/2v6,-100,100;%1.2f%%
		LITO	1	cal index
		CALL	354134
	ESBR
	CMNT	 	sord 12 items
	SGLB	Winders/Get Up to Speed	/2t4,false,true
		LITO	1	up to speed index
		CALL	354141
	ESBR
	SGLB	Winders/Get UTS Threshold	/2v58,-120,120;%1.2f%%
		LITO	2	threshold index
		CALL	354141
	ESBR
	CMNT	 	sord 13 items
	SGLB	Winders/Get Derivative SP	/2v6,-100,100;%1.2f%%
		LITO	1
		CALL	354144
	ESBR
	SGLB	Winders/Get Derivative Filter	/2v6,-100,100;%1.2f%%
		LITO	2
		CALL	354144
	ESBR
	CMNT	 	sord 14 items
	SGLB	Winders/Get Overspeed SP	/2v58,-120,120;%1.2f%%
		LITO	1	overspeed index
		CALL	354149
	ESBR
	SGLB	Winders/Get Tension Enable	/2t11,Disabled,Enabled
		LITO	3
		CALL	354149
	ESBR
	CMNT	 	sord 15 items
	SGLB	Mini/Max Time	/3v7,-100,100;Enter Max Time (%)...
		LITO	3	max time index
		CALL	354146
	ESBR
	SGLB	Mini/Comms Errors	/3u;Enter Comms errors count ...
		LITO	4
		CALL	354146
	ESBR
	SGLB	Winders/Get Current Demand	/2v37,-200,200;%3.2f%%
		LITO	1
		CALL	354140
	ESBR
	SGLB	Winders/Get Scaled Derivative	/2v6,-100,100;%1.2f%%
		LITO	2
		CALL	354140
	ESBR
	SGLB	Mini/Get Max Time	/2v6,-100,100;%1.3f%% of Derivative Filter Time
		LITO	3	max time index
		CALL	354140
	ESBR
	SGLB	Mini/Get Comms Errors	/2u
		LITO	4
		CALL	354140
	ESBR
	CMNT	 	serial output data
	SGLB	Winders/Get Current Limit	/2v37,-200,200;%3.2f%%
		LITO	3
		LITO	41
		CALL	354086
	ESBR
	SGLB	Winders/Get Ratio	/2v6,-100,100;%1.2f%%
		LITO	4	ratio index
		LITO	46
		CALL	354086
	ESBR
	SGLB	Winders/Get Overspeed	/2v58,-120,120;%1.2f%%
		LITO	4	overspeed index
		LITO	48
		CALL	354086
	ESBR
ESTR
LDEF	Read	É/DID ¥ minor state/inst/É
	LCAL	Next State	É/DID/next ¥ minor state/inst/É
	LCAL	Save State	É/DID/next ¥ inst/É
	PRIM	Stack/Push from aux	É/DID ¥ next/inst/É
	LITO	1	minor state index
	LITO	40	state struct
	PRIM	S_tree/Replace	É/DID ¥ inst/É
	GSYM	Winders/Derivative SP	É/DID ¥ RID/inst/É
	PRIM	Stack/Push from aux	É ¥ DID/RID/inst/É
	LITO	45	É ¥ PNO/DID/RID/inst/É
	LITO	2	É ¥ ###.##/PNO/DID/RID/inst/É
	ASIO	SIO/read_param	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Next State	É ¥ minor state/É
	PRIM	Stack/Duplicate	É ¥ minor state/minor state/É
	PRIM	Ordinal/Increment	É ¥ next/minor state/É
	LITO	13	É ¥ max+1/next/minor state/É
	PRIM	Ordinal/Compare	É ¥ max+1<=next?/next/minor state/É
	BRFL	 	branch if next index ok
		PRIM	Stack/Pop to aux	É/next ¥ minor state/É
	BRTR
	PRIM	Stack/Drop	É ¥ minor state/É
	LITO	3	É ¥ 3/minor state/É
	PRIM	Stack/Pop to aux	É/3 ¥ minor state/É
EDEF
LDEF	Param Write	É/DID ¥ key/minor state/inst/É
	PRIM	Stack/Xdrop	É/DID ¥ key/inst/É
	PRIM	S_tree/Entry to stack	É/DID ¥ data/scale/format/PNO/inst/É
	PRIM	Value/Multiply	É/DID ¥ scaled data/format/PNO/inst/É
	PRIM	Stack/Rotate up	É/DID ¥ format/PNO/scaled data/inst/É
	LITO	1	É/DID ¥ RID/format/PNO/scaled data/inst/É
	PRIM	Stack/Switch	É/DID ¥ PNO/format/RID/scaled data/inst/É
	PRIM	Stack/Push from aux	É ¥ DID/PNO/format/RID/scaled data/inst/É
	PRIM	Stack/Switch	É ¥ format/PNO/DID/PNO/scaled data/inst/É
	ASIO	SIO/write_param	É ¥ inst/É
	LITO	2	É ¥ 2/inst/É
	LCAL	Save State	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Block Read	É/DID ¥ key/minor state/inst/É
	PRIM	Stack/Xdrop	É/DID ¥ key/inst/É
	PRIM	Stack/Drop from aux	É ¥ key/inst/É
	PRIM	Stack/Dup to aux	É/key ¥ key/inst/É
	PRIM	S_tree/Entry to stack	É/key ¥ type/f7/f6/f5/f4/f3/f2/f1/f0/block/DID/RID/inst/É
	BRFL	 	branch if short read
		ASIO	SIO/read_block	É/key ¥ inst/É
		PRIM	Stack/Drop from aux	É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		LCAL	Save State	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	ASIO	SIO/full_read_block	É/key ¥ inst/É
	LITO	0	reset to short read
	LITO	12	É/key ¥ 12/0/inst/É
	PRIM	Stack/Push from aux	É ¥ key/12/0/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	LITO	2	É ¥ 2/inst/É
	LCAL	Save State	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Save State	É ¥ state/inst/É
	CMNT	 	output: É ¥ inst/É
	LITO	2	state index
	LITO	40	state struct
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	B11 Params	É ¥ inst/list/É
	PRIM	Stack/Swap	É ¥ list/inst/É
	PRIM	List/Test for leaf	É ¥ leaf?/list/inst/É
	BRFL	 	branch if not leaf
		PRIM	List/Behead	É ¥ param/list/inst/É
		PRIM	Stack/Xswap	É ¥ param/inst/list/É
		LCAL	B11 Param	É ¥ inst/list/É
		LCAL	B11 Params	É ¥ É
	BRTR
	PRIM	List/List to item	É ¥ param/inst/É
	LCAL	B11 Param	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	B11 Param	É ¥ list/inst/É
	PRIM	List/List to stack	É ¥ RPNO/data/inst/É
	PRIM	Stack/Xswap	É ¥ RPNO/inst/data/É
	STRE
		SORD	0	unknown item (key on stack!)
			PRIM	Stack/Drop	É ¥ inst/data/É
			PRIM	Stack/Xdrop	É ¥ inst/É
		ESBR
		SORD	16	Base Speed
			LITO	1
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	6	base speed index
			LITO	2
			PRIM	S_tree/Replace	É ¥ inst/É
			LCAL	Clamped W Sp	É ¥ inst/É
		ESBR
		SORD	17	Derivative Cal
			LITO	3
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	1	der. cal. index
			LITO	11
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	18	Derivative Filter
			LITO	2
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	2
			LITO	13
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	19	Diameter Filter
			LITO	4
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	3	dia filter index
			LITO	5	dia data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	20	Dynamic Comp.
			LITO	5
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	4	dynamic comp. index
			LCAL	S&D Comp	É ¥ inst/É
		ESBR
		SORD	21	Fixed Inertia
			LITO	6
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	2	fixed inertia index
			LITO	4	inertia data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	22	Min. Diameter
			LITO	7
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LCAL	Min Dia	É ¥ inst/É
		ESBR
		SORD	23	logic bits
			PRIM	Stack/Swap	É ¥ data/inst/É
			PRIM	Stack/Dup to aux	É/data ¥ data/inst/É
			MACR	 	overwind
				LITO	1	overwind
				PRIM	Ordinal/And	É/data ¥ overwind/inst/É
				PRIM	Stack/Dup to aux	É/data/overwind ¥ overwind/inst/É
				LITO	3
				LITO	2
				PRIM	S_tree/Replace	É/data/overwind ¥ inst/É
				PRIM	Stack/Push from aux	É/data ¥ overwind/inst/É
				LITO	1
				LITO	5	diameter data
				PRIM	S_tree/Replace	É/data ¥ inst/É
			EMAC
			MACR	 	preset
				PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
				LITO	2	preset enable
				PRIM	Ordinal/And	É/data ¥ preset/inst/É
				CMNT	 	we don't really care if result is not 0 or 1, using BRFL
				LITO	7
				LITO	5
				PRIM	S_tree/Replace	É/data ¥ inst/É
			EMAC
			MACR	 	rewind
				PRIM	Misc/Name of node	É/data ¥ node/inst/É
				PRIM	Stack/Dup from aux	É/data ¥ data/node/inst/É
				LITO	4	rewind
				PRIM	Ordinal/And	É/data ¥ rewind/node/inst/É
				PRIM	Ordinal/Right	É/data ¥ rewind/node/inst/É
				PRIM	Ordinal/Right	É/data ¥ rewind/node/inst/É
				LIST	 	É/data ¥ LIST/rewind/node/inst/É
					MSGE
						ICAL	System
						GSYM	Winders/Rewind-Unwind
					EMSG
				ELST
				PRIM	List/Add	É/data ¥ event/node/inst/É
				PRIM	Misc/Post event	É/data ¥ inst/É
			EMAC
			MACR	 	tension
				PRIM	Misc/Name of node	É/data ¥ node/inst/É
				PRIM	Stack/Dup from aux	É/data ¥ data/node/inst/É
				LITO	8	tension enable
				PRIM	Ordinal/And	É/data ¥ TE?/node/inst/É
				LIST	 	É/data ¥ LIST/TE?/node/inst/É
					MSGE
						ICAL	System
						GSYM	Winders/Tension Enable
					EMSG
				ELST
				PRIM	List/Add	É/data ¥ event/node/inst/É
				PRIM	Misc/Post event	É/data ¥ inst/É
			EMAC
			MACR	 	taper
				PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
				LITO	16	taper select
				PRIM	Ordinal/And	É/data ¥ taper select/inst/É
				CMNT	 	we don't really care if result is not 0 or 1, using BRFL
				LITO	11
				LITO	8
				PRIM	S_tree/Replace	É/data ¥ inst/É
			EMAC
			MACR	 	external diameter
				PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
				LITO	32	Ext. Dia. select
				PRIM	Ordinal/And	É/data ¥ ext?/inst/É
				CMNT	 	we don't really care if result is not 0 or 1, using BRFL
				PRIM	Stack/Swap	É/data ¥ inst/ext?/É
				LITO	3	ext select? index
				LCAL	Preset	É/data ¥ inst/É
			EMAC
			MACR	 	diameter hold
				PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
				LITO	64	dia. hold
				PRIM	Ordinal/And	É/data ¥ dia. hold?/inst/É
				CMNT	 	we don't really care if result is not 0 or 1, using BRFL
				LITO	5	hold index
				LITO	5	dia. data
				PRIM	S_tree/Replace	É/data ¥ inst/É
			EMAC
			MACR	 	stall enable
				PRIM	Stack/Push from aux	É ¥ data/inst/É
				LITO	128	stall enable
				PRIM	Ordinal/And	É ¥ stall enable?/inst/É
				CMNT	 	we don't really care if result is not 0 or 1, using BRFL
				LITO	3	stall enable index
				LITO	8	tension data
				PRIM	S_tree/Replace	É ¥ inst/É
			EMAC
		ESBR
	ESTR
EDEF
LDEF	B11 Scale	É ¥ offset/inst/data/É
	LITO	65
	PRIM	S_tree/Read	É ¥ scaling/inst/data/É
	PRIM	Stack/Xswap	É ¥ scaling/data/inst/É
	PRIM	Value/Divide	É ¥ scaled data/inst/É
EDEF
LDEF	B14 Params	É ¥ inst/list/É
	PRIM	Stack/Swap	É ¥ list/inst/É
	PRIM	List/Test for leaf	É ¥ leaf?/list/inst/É
	BRFL	 	branch if not leaf
		PRIM	List/Behead	É ¥ param/list/inst/É
		PRIM	Stack/Xswap	É ¥ param/inst/list/É
		LCAL	B14 Param	É ¥ inst/list/É
		LCAL	B14 Params	É ¥ É
	BRTR
	PRIM	List/List to item	É ¥ param/inst/É
	LCAL	B14 Param	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	B14 Param	É ¥ list/inst/É
	PRIM	List/List to stack	É ¥ RPNO/data/inst/É
	PRIM	Stack/Xswap	É ¥ RPNO/inst/data/É
	STRE
		SORD	0	unknown item (key on stack!)
			PRIM	Stack/Drop	É ¥ inst/data/É
			PRIM	Stack/Xdrop	É ¥ inst/É
		ESBR
		SORD	16	External Diameter
			LITO	1
			LCAL	B14 Scale	É ¥ scaled data/inst/É
			PRIM	Stack/Swap	É ¥ inst/ext dia/É
			LITO	1	ext dia index
			LCAL	Preset	É ¥ inst/É
		ESBR
		SORD	17	Line Speed
			LITO	2
			LCAL	B14 Scale	É ¥ scaled data/inst/É
			PRIM	Value/Absolute	É ¥ |line speed|/inst/É
			PRIM	Stack/Dup to aux	É/|line speed| ¥ |line speed|/inst/É
			LITO	3
			LITO	12
			PRIM	S_tree/Replace	É/|line speed| ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ |line speed|/inst/É
			LITO	10	line speed index
			LITO	5	dia data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	18	Winder Speed
			LITO	3
			LCAL	B14 Scale	É ¥ scaled data/inst/É
			CMNT	 	current demand stuff here
			PRIM	Value/Absolute	É ¥ |winder speed|/inst/É
			PRIM	Misc/Name of node	É ¥ node/|winder speed|/inst/É
			PRIM	Stack/Swap	É ¥ |winder speed|/node/inst/É
			LIST	 	É ¥ LIST/|winder speed|/node/inst/É
				MSGE
					ICAL	System
					GSYM	Winders/Winder Speed
				EMSG
			ELST
			PRIM	List/Add	É ¥ event/node/inst/É
			PRIM	Misc/Post event	É ¥ inst/É
		ESBR
		SORD	19	Taper SP
			LITO	4
			LCAL	B14 Scale	É ¥ scaled data/inst/É
			LITO	8	taper sp index
			LITO	8	tension demand data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	20	Tension SP
			LITO	5
			LCAL	B14 Scale	É ¥ scaled data/inst/É
			LITO	7	tension sp index
			LITO	8	tension demand data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
	ESTR
EDEF
LDEF	B14 Scale	É ¥ offset/inst/data/É
	LITO	63
	PRIM	S_tree/Read	É ¥ scaling/inst/data/É
	PRIM	Stack/Xswap	É ¥ scaling/data/inst/É
	PRIM	Value/Divide	É ¥ scaled data/inst/É
EDEF
LDEF	B15 Params	É ¥ inst/list/É
	PRIM	Stack/Swap	É ¥ list/inst/É
	PRIM	List/Test for leaf	É ¥ leaf?/list/inst/É
	BRFL	 	branch if not leaf
		PRIM	List/Behead	É ¥ param/list/inst/É
		PRIM	Stack/Xswap	É ¥ param/inst/list/É
		LCAL	B15 Param	É ¥ inst/list/É
		LCAL	B15 Params	É ¥ É
	BRTR
	PRIM	List/List to item	É ¥ param/inst/É
	LCAL	B15 Param	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	B15 Param	É ¥ list/inst/É
	PRIM	List/List to stack	É ¥ RPNO/data/inst/É
	PRIM	Stack/Xswap	É ¥ RPNO/inst/data/É
	STRE
		SORD	0	unknown item (key on stack!)
			PRIM	Stack/Drop	É ¥ inst/data/É
			PRIM	Stack/Xdrop	É ¥ inst/É
		ESBR
		SORD	16	Min Speed
			LITO	1
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	9	base speed index
			LITO	5	dia data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	17	Overspeed SP
			LITO	2
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			PRIM	Stack/Swap	É ¥ inst/overspeed sp/É
			LITO	1	overspeed index
			LCAL	Trim	É ¥ inst/É
		ESBR
		SORD	18	Static Comp
			LITO	3
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	3	static comp index
			LCAL	S&D Comp	É ¥ inst/É
		ESBR
		SORD	19	Tension Delta
			LITO	4
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	3
			LITO	9
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	20	Tension Scale
			LITO	5
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	2
			LITO	10
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	21	UTS Threshold
			LITO	6
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	2	uts thres. index
			LITO	12	uts data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	22	Variable Inertia
			LITO	7
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	3	variable inertia index
			LITO	4	inertia data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
	ESTR
EDEF
LDEF	B15 Scale	É ¥ offset/inst/data/É
	LITO	67
	PRIM	S_tree/Read	É ¥ scaling/inst/data/É
	PRIM	Stack/Xswap	É ¥ scaling/data/inst/É
	PRIM	Value/Divide	É ¥ scaled data/inst/É
EDEF
LDEF	FEnd	É/min dia ¥ output/msg/UR?/inst/É
	PRIM	Stack/Dup down	É/min dia ¥ output/msg/output/UR?/inst/É
	PRIM	Stack/Dup from aux	É/min dia ¥ min dia/output/msg/output/UR?/inst/É
	PRIM	Value/Clamp low	É/min dia ¥ dia./msg/output/UR?/inst/É
	PRIM	List/Splice	É/min dia ¥ msg'/output/UR?/inst/É
	PRIM	Misc/Name of node	É/min dia ¥ node/msg'/output/UR?/inst/É
	PRIM	Stack/Swap	É/min dia ¥ msg'/node/output/UR?/inst/É
	PRIM	Misc/Post event	É/min dia ¥ output/UR?/inst/É
	PRIM	Stack/Dup down	É/min dia ¥ output/UR?/output/inst/É
	PRIM	Stack/Push from aux	É ¥ min dia/output/UR?/output/inst/É
	PRIM	Value/Fraction	É ¥ ratio/UR?/output/inst/É
	CALL	354104	É ¥ signed ratio/output/inst/É
	PRIM	Stack/Xswap	É ¥ signed ratio/inst/output/É
	LITO	4	ratio index
	LITO	46	ratio data
	PRIM	S_tree/Replace	É ¥ inst/output/É
	LITO	4	filter in/out index
	CALL	354079	É ¥ É
EDEF
LDEF	Derivative SP	É/data ¥ inst/É
	CMNT	 	Output:  É/dt ¥ inst/É
	MACR	 	É/dt/filtered dv ¥ inst/É
		LITO	13
		PRIM	S_tree/Get exact	É/data ¥ list/13/inst/É
		PRIM	List/Remove	É/data ¥ list'/out/13/inst/É
		PRIM	Stack/Xdup	É/data ¥ list'/out/old/13/inst/É
		PRIM	Timer/Timebase	É/data ¥ flag/rslt/list'/out/old/13/inst/É
		PRIM	Stack/Drop	É/data ¥ rslt/list'/out/old/13/inst/É
		PRIM	Stack/Dup to aux	É/data/dt ¥ rslt/list'/out/old/13/inst/É
		PRIM	Stack/Aux swap	É/dt/data ¥ rslt/list'/out/old/13/inst/É
		LVAL	0.898404	É/dt/data ¥ c/rslt/list'/out/old/13/inst/É
		PRIM	Value/Multiply	É/dt/data ¥ c*rslt/list'/out/old/13/inst/É
		LVAL	1	É/dt/data ¥ 1/c*rslt/list'/out/old/13/inst/É
		PRIM	Value/Difference	É/dt/data ¥ 1-c*rslt/list'/out/old/13/inst/É
		PRIM	Stack/Rotate down	É/dt/data ¥ out/1-c*rslt/list'/old/13/inst/É
		PRIM	Stack/Dup from aux	É/dt/data ¥ data/out/1-c*rslt/list'/old/13/inst/É
		PRIM	Value/Difference	É/dt/data ¥ data-out/1-c*rslt/list'/old/13/inst/É
		CALL	354244	É/dt/data ¥ Æ/1-c*rslt/list'/13/inst/É
		PRIM	Value/Multiply	É/dt/data ¥ something/list'/old/13/inst/É
		PRIM	Stack/Push from aux	É/dt ¥ data/something/list'/old/13/inst/É
		PRIM	Value/Difference	É/dt ¥ new_out/list'/old/13/inst/É
		PRIM	Stack/Dup down	É/dt ¥ new_out/list'/new_out/old/13/inst/É
		PRIM	List/Splice	É/dt ¥ list''/new_out/old/13/inst/É
		PRIM	Stack/Rotate up	É/dt ¥ new_out/old/list''/13/inst/É
		PRIM	Value/Difference	É/dt ¥ filtered dx/list''/13/inst/É
		PRIM	Stack/Pop to aux	É/dt/filtered dx ¥ list''/13/inst/É
		PRIM	S_tree/Put	É/dt/filtered dx ¥ inst/É
	EMAC
	MACR	 	É/dt/filtered dvÖdt ¥ inst/É
		LITO	11
		PRIM	S_tree/Get exact	É/dt/filtered dx ¥ list/11/inst/É
		PRIM	Timer/Timebase	É/dt/filtered dx ¥ flag/dt/list/11/inst/É
		PRIM	Stack/Drop	É/dt/filtered dx ¥ dt/list/11/inst/É
		PRIM	Stack/Push from aux	É/dt ¥ filtered dx/dt/list/11/inst/É
		PRIM	Value/Fraction	É/dt ¥ filtered dxÖdt/list/11/inst/É
		PRIM	Stack/Pop to aux	É/dt/filtered dxÖdt ¥ list/11/inst/É
		PRIM	S_tree/Put	É/dt/filtered dxÖdt ¥ inst/É
	EMAC
	CMNT	 	save filtered dv/dt
	PRIM	Stack/Dup from aux	É/dt/filtered dvÖdt ¥ filtered dvÖdt/inst/É
	LITO	2
	LITO	15
	PRIM	S_tree/Replace	É/dt/filtered dvÖdt ¥ inst/É
	CMNT	 	get data to calculate Current demand
	LITO	2	main data
	PRIM	S_tree/Entry to stack	É/dt/dvÖdt ¥ inertia/S&D/tension/clamp/w sp/te/under?/neg?/clamp/inst/É
	PRIM	Stack/Push from aux	É/dt ¥ dvÖdt/inertia/S&D/tension/clamp/w sp/te/under?/neg?/clamp/inst/É
	PRIM	Value/Multiply	É/dt ¥ i comp/S&D/tension/clamp/w sp/te/under?/neg?/clamp/inst/É
	PRIM	Value/Add	É/dt ¥ loss/tension/clamp/w sp/te/under?/neg?/clamp/inst/É
	PRIM	Value/Add	É/dt ¥ demand/clamp/w sp/te/under?/neg?/clamp/inst/É
	PRIM	Stack/Swap	É/dt ¥ clamp/demand/w sp/te/under?/neg?/clamp/inst/É
	PRIM	Value/Scale	É/dt ¥ c demand/tension enable/under?/neg?/clamp/inst/É
	PRIM	Stack/Swap	É/dt ¥ tension enable/c demand/under?/neg?/clamp/inst/É
	BRFL	 	branch if tension not enabled
		PRIM	Stack/Pop to aux	É/dt/c demand ¥ under?/neg?/clamp/inst/É
		LVAL	1	É/dt/demand ¥ 1.0/under?/neg?/clamp/inst/É
		LCAL	LSave	É/dt ¥ inst/É
	BRTR
	PRIM	Stack/Dup to aux	É/dt/demand ¥ demand/under?/neg?/clamp/inst/É
	LCAL	LSave	É/dt ¥ inst/É
EDEF
LDEF	LSave	É/demand ¥ out/under?/neg?/clamp/inst/É
	PRIM	Stack/Rotate up	É/demand ¥ under?/neg?/out/clamp/inst/É
	BRFL	 	branch if underwind (negative)
		BRFL	 	branch if unwind (neg, result pos)
			LCAL	Pos Current	inst/É
		BRTR
		LCAL	Neg Current	inst/É
	BRTR
	CMNT	 	overwind (positive so far)
	BRFL	 	branch if unwind (neg, result neg)
		LCAL	Neg Current	inst/É
	BRTR
	LCAL	Pos Current	inst/É
EDEF
LDEF	Pos Current	É/demand ¥ output/clamp/inst/É
	PRIM	Stack/Over	É/demand ¥ clamp/output/clamp/inst/É
	PRIM	Value/Clamp high	É/demand ¥ output'/clamp/inst/É
	PRIM	Stack/Swap	É/demand ¥ clamp/output'/inst/É
	PRIM	Value/Negate	É/demand ¥ -clamp/output'/inst/É
	LITO	75	main current is pos. limit
	LITO	74	aux. current is neg. limit
	LCAL	Current	inst/É
EDEF
LDEF	Neg Current	É/demand ¥ output/clamp/inst/É
	PRIM	Stack/Over	É/demand ¥ clamp/output/clamp/inst/É
	PRIM	Value/Clamp high	É/demand ¥ output'/clamp/inst/É
	PRIM	Value/Negate	É/demand ¥ -output'/clamp/inst/É
	PRIM	Stack/Swap	É/demand ¥ clamp/-output'/inst/É
	LITO	74	main current is neg. limit
	LITO	75	aux. current is pos. limit
	LCAL	Current	inst/É
EDEF
LDEF	Current	É/demand ¥ aux/main/other current/current/inst/É
	PRIM	Stack/Pop to aux	É/demand/aux ¥ main/other current/current/inst/É
	PRIM	Stack/Pop to aux	É/demand/aux/main ¥ other current/current/inst/É
	PRIM	Stack/Pop to aux	É/demand/aux/main/other current ¥ current/inst/É
	LITO	3
	LITO	41
	PRIM	S_tree/Replace	É/demand/aux/main/other current ¥ inst/É
	PRIM	Stack/Push from aux	É/demand/aux/main ¥ other current/inst/É
	LITO	4
	LITO	42
	PRIM	S_tree/Replace	É/demand/aux/main ¥ inst/É
	PRIM	Stack/Push from aux	É/demand/aux ¥ main/inst/É
	LITO	2
	LITO	41
	PRIM	S_tree/Replace	É/demand/aux ¥ inst/É
	PRIM	Stack/Push from aux	É/demand ¥ aux/inst/É
	LITO	1
	LITO	42
	PRIM	S_tree/Replace	É/demand ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ demand/inst/É
	LITO	1	demand index
	LITO	15	misc data
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	URSetup	dir/inst/É
	PRIM	Stack/Dup down	dir/inst/dir/É
	LITO	2
	LITO	2	current demand data
	PRIM	S_tree/Replace	inst/dir/É
	PRIM	Stack/Over	dir/inst/dir/É
	LITO	1
	LITO	4	CD diameter data
	PRIM	S_tree/Replace	inst/dir/É
	PRIM	Stack/Over	dir/inst/dir/É
	LITO	2	rewind index
	LCAL	S&D Comp	inst/dir/É
	LITO	2	trim index
	LCAL	Trim	inst/É
EDEF
LDEF	TEnable	!TE?/inst/É
	PRIM	Stack/Swap	inst/!TE?/É
	LITO	8	tension enable index
	LITO	5	dia data structure
	PRIM	S_tree/Read	old/inst/!TE?/É
	PRIM	Stack/Xswap	old/!TE?/inst/É
	PRIM	Ordinal/Test equal	same?/!TE?/inst/É
	BRFL	 	branch if not equal
		MACR	 	Overspeed stuff
			PRIM	Stack/Dup down	!TE?/inst/!TE?/É
			PRIM	Ordinal/Test zero	TE?/inst/!TE?/É
			PRIM	Stack/Swap	inst/TE?/!TE?/É
			LITO	3	tension enable index
			LCAL	Trim	inst/!TE?/É
		EMAC
		MACR	 	Diameter stuff
			PRIM	Stack/Over	!TE?/inst/!TE?/É
			LITO	8	tension enable index
			LITO	5	dia data structure
			PRIM	S_tree/Replace	inst/!TE?/É
		EMAC
		MACR	 	do tension enable for current demand
			PRIM	Stack/Swap	!TE?/inst/É
			BRFL	 	branch if new value is on
				LITO	1	1/inst/É
				LCAL	TEnable4	inst/É
			BRTR
			PRIM	Timer/Get PAT	PAT/inst/É
			TIME	200.000	Æt/PAT/inst/É
			GSYM	Winders/CD TE	CD TE/Æt/PAT/inst/É
			CALL	354057	inst/...
		EMAC
	BRTR
	PRIM	Stack/Drop	inst/É
EDEF
LDEF	TEnable4	new/inst/É
	PRIM	Stack/Swap	inst/new/É
	LITO	4	tension enable index
	LITO	2	main data
	PRIM	S_tree/Read	old/inst/new/É
	PRIM	Stack/Xswap	old/new/inst/É
	PRIM	Ordinal/Test equal	same?/new/inst/É
	BRFL	 	branch if not equal
		LITO	4	tension enable index
		LITO	2	main data
		PRIM	S_tree/Replace	inst/É
		LITO	1	old derivative sp
		LITO	13	der filter data
		PRIM	S_tree/Read	old/inst/É
		PRIM	Stack/Pop to aux	É/old ¥ inst/É
		LCAL	Derivative SP	É/dt ¥ inst/É
		PRIM	Stack/Drop from aux	É ¥ inst/É
	BRTR
	PRIM	Stack/Drop	inst/É
EDEF
LDEF	Min Dia	É ¥ min dia/inst/É
	PRIM	Stack/Dup down	É ¥ min dia/inst/min dia/É
	LITO	4	min dia index
	LITO	12	up to speed structure
	PRIM	S_tree/Replace	É ¥ inst/min dia/É
	PRIM	Stack/Over	É ¥ min dia/inst/min dia/É
	LITO	12	min dia. index
	LITO	5	dia. calc data
	PRIM	S_tree/Replace	É ¥ inst/min dia/É
	PRIM	Stack/Over	É ¥ min dia/inst/min dia/É
	LITO	9	min dia index
	LITO	8	tension data structure
	PRIM	S_tree/Replace	É ¥ inst/min dia/É
	PRIM	Stack/Over	É ¥ min dia/inst/min dia/É
	LITO	6	min dia index
	LITO	4	diameter data
	PRIM	S_tree/Replace	É ¥ inst/min dia/É
	PRIM	Stack/Over	É ¥ min dia/inst/min dia/É
	PRIM	Stack/Duplicate	min dia/min dia/inst/min dia/É
	PRIM	Stack/Duplicate	min dia/min dia/min dia/inst/min dia/É
	PRIM	Value/Multiply	min dia^2/min dia/inst/min dia/É
	PRIM	Value/Multiply	min dia^3/inst/min dia/É
	LITO	5	cal index
	LITO	4	diameter data
	PRIM	S_tree/Replace	inst/min dia/É
	LITO	2	min dia index/inst/min dia/É
	LCAL	Preset	inst/É
EDEF
LDEF	Trim	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	14	direction data
	PRIM	S_tree/Replace	inst/É
	LITO	14	direction data
	PRIM	S_tree/Entry to stack	te?/rewind?/overspeed/inst/É
	BRFL	 	branch if not enabled
		PRIM	Stack/Drop	overspeed/inst/É
		PRIM	Stack/Drop	inst/É
		LVAL	0	0/inst/É
		LCAL	TSave	inst/É
	BRTR
	BRFL	 	branch if unwinding (negative overspeed)
		PRIM	Value/Negate	-overspeed/inst/É
		LCAL	TSave	inst/É
	BRTR
	LCAL	TSave	inst/É
EDEF
LDEF	TSave	trim/inst/É
	LITO	4	overspeed index
	LITO	48	overspeed data
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	Taper	É ¥ type/taper/tension/É
	CMNT	 	note:  .5 is saved so that it doesn't have to be loaded multiple times
	PRIM	Value/Multiply	É ¥ type*taper/tension/É
	LVAL	0.499985	É ¥ .5/type*taper/tension/É
	PRIM	Stack/Dup to aux	É/.5 ¥ .5/type*taper/tension/É
	PRIM	Value/Multiply	É/.5 ¥ .5*type*taper/tension/É
	PRIM	Stack/Dup from aux	É/.5 ¥ .5/.5*type*taper/tension/É
	PRIM	Value/Difference	É/.5 ¥ .5-.5*type*taper/tension/É
	PRIM	Stack/Push from aux	É ¥ .5/.5-.5*type*taper/tension/É
	PRIM	Value/Scale	demand/boost enable/boost sel/boost/É
	PRIM	Stack/Dup to aux	É/demand ¥ demand/boost enable/boost sel/boost/É
	PRIM	Stack/Rotate up	É/demand ¥ boost enable/boost sel/demand/boost/É
	BRFL	 	branch if boost not enabled
		PRIM	Stack/Drop	É/demand ¥ demand/boost/É
		PRIM	Stack/Xdrop	É/demand ¥ demand/stall enable/stall sel/stall/É
		LCAL	Stall
	BRTR
	CMNT	 	boost enabled
	BRFL	 	branch if fixed boost
		PRIM	Value/Add	É/demand ¥ demand+boost/stall enable/stall sel/stall/É
		LCAL	Stall
	BRTR
	CMNT	 	proportional boost
	PRIM	Stack/Dup down	É/demand ¥ demand/boost/demand/É
	PRIM	Value/Multiply	É/demand ¥ demand*boost/demand/É
	PRIM	Value/Add	É/demand ¥ demand*boost+demand/stall enable/stall sel/stall/É
	LCAL	Stall
EDEF
LDEF	Stall	É/demand ¥ demand/stall enable/stall sel/stall/É
	PRIM	Stack/Rotate up	É/demand ¥ stall enable/stall sel/demand/stall/É
	BRFL	 	branch if not stall enable
		PRIM	Stack/Drop	É/demand ¥ demand/stall/inst/É
		PRIM	Stack/Xdrop	É/demand ¥ demand/inst/É
		PRIM	Stack/Drop from aux	É ¥ demand/inst/É
		LCAL	TDemand
	BRTR
	CMNT	 	stall enabled
	BRFL	 	branch if fixed stall
		PRIM	Stack/Drop	É/demand ¥ stall/inst/É
		PRIM	Stack/Drop from aux	É ¥ stall/inst/É
		LCAL	TDemand
	BRTR
	CMNT	 	proportional stall
	PRIM	Stack/Drop	É/demand ¥ stall/inst/É
	PRIM	Stack/Push from aux	É ¥ demand/stall/inst/É
	PRIM	Value/Multiply	demand*stall/inst/É
	LCAL	TDemand
EDEF
LDEF	TDemand	É ¥ demand/inst/É
	PRIM	Misc/Name of node	É ¥ node/demand/inst/É
	LIST	 	É ¥ LIST/node/demand/inst/É
		MSGE
			ICAL	System
			GSYM	Winders/Tension Demand
		EMSG
	ELST
	PRIM	Stack/Rotate down	É ¥ demand/LIST/node/inst/É
	PRIM	List/Splice	É ¥ event/node/inst/É
	PRIM	Misc/Post event	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	TDemand3	É/tension ¥ demand/inst/É
	CMNT	 	demand not used for CPW
	PRIM	Stack/Drop	É/tension ¥ inst/É
	LITO	10	tension data
	PRIM	S_tree/Entry to stack	É/tension ¥ cal/trim/scale/dia/inst/É
	PRIM	Stack/Dup from aux	É/tension ¥ tension/cal/trim/scale/dia/inst/É
	PRIM	Value/Multiply	É/tension ¥ rslt/trim/scale/dia/inst/É
	PRIM	Value/Add	É/tension ¥ rslt/scale/dia/inst/É
	PRIM	Stack/Swap	É/tension ¥ scale/rslt/dia/inst/É
	PRIM	Value/Scale	É/tension ¥ rslt/inst/É
	LITO	7	tension index
	LITO	2	main data
	PRIM	S_tree/Replace	É/tension ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ tension/inst/É
	LITO	4	old value index
	LITO	9
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Up to Speed	new/old/inst/É
	CMNT	 	Output:  É ¥ inst/É
	BRFL	 	branch if false now
		BRFL	 	branch if old value false (nothing to do)
			PRIM	Misc/Idle	inst/É
		BRTR
		CMNT	 	new output false
		LITO	0	new output is false
		LCAL	Set UTS	inst/É
	BRTR
	CMNT	 	new output true
	BRFL	 	branch if old value false
		LITO	1	new output is true
		LCAL	Set UTS	inst/É
	BRTR
	CMNT	 	old value true, nothing to do
EDEF
LDEF	Set UTS	new/inst/É
	PRIM	Stack/Dup down	new/inst/new/É
	LITO	1	uts? index
	LITO	12	up to speed data
	PRIM	S_tree/Replace	inst/new/É
	PRIM	Stack/Swap	new/inst/É
	LITO	4
	LITO	50
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	S&D Comp	É ¥ index/data/inst/É
	LITO	6	winder speed data
	PRIM	S_tree/Replace	É ¥ inst/É
	LITO	6	winder speed data
	PRIM	S_tree/Entry to stack	É ¥ w sp/dynamic/static/sign/dir/inst/É
	PRIM	Value/Multiply	É ¥ rslt/static/sign/dir/inst/É
	PRIM	Value/Add	É ¥ rslt/sign/dir/inst/É
	CALL	354104	É ¥ signed rslt/dir/inst/É
	CALL	354104	É ¥ S & D comp/inst/É
	LITO	8	S & D index
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	Preset	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	7	preset data
	PRIM	S_tree/Replace	inst/É
	LITO	7	preset data
	PRIM	S_tree/Entry to stack	external?/min dia/ext dia/inst/É
	BRFL	 	branch if min diameter (core)
		PRIM	Stack/Xdrop	min dia/inst/É
		LITO	6	preset index
		LITO	5	dia data
		PRIM	S_tree/Replace	inst/É
	BRTR
	PRIM	Stack/Drop	ext dia/inst/É
	LITO	6	preset index
	LITO	5	dia data
	PRIM	S_tree/Replace	inst/É
EDEF
LDEF	Clamped W Sp	É ¥ inst/É
	LITO	5	w sp index
	LITO	6	winder speed data
	PRIM	S_tree/Read	É ¥ |w sp|/inst/É
	PRIM	Stack/Pop to aux	É/|w sp| ¥ inst/É
	LITO	6	base speed index
	LITO	2	main data
	PRIM	S_tree/Read	É/w sp ¥ base sp/inst/É
	PRIM	Stack/Push from aux	É ¥ w sp/base sp/inst/É
	PRIM	Value/Clamp low	clamped sp/inst/É
	LITO	5	clamped winder speed index
	LITO	2	main data
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF