STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354408
	ESBR
	SORD	5	;/e,,,,,,Main parameters;Diameter Calculator
		LITO	1	over/under
		LIST
			MSGE
				ICAL	System
				GSYM	Winders/Current Dia
			EMSG
		ELST
		LVAL	0.941771	;/o;Diameter Filter (0 - 1.0)
		LVAL	0.0499893	filter input & output
		PORD	0	/t,Track,Hold;Diameter Hold
		LVAL	0.100009	;/o,-100,100,0,100;Preset Diameter (% Full Roll)
		LITO	0	;/t,Disabled,Enabled;Preset Enable
		LITO	1	inverted tension enable
		LVAL	0.0416578	;/o,-120,120,0,120;Min Speed (0 - 120%)
		LVAL	0.100009	|line speed|
		LVAL	1	|winder speed|
		LVAL	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	8	/e,,,,,,,,,Main parameters;Tension Demand
		PVAL	0.500015	/o,-100,100;Stall Tension (%)
		PORD	1	/e,Fixed,Proportional;Stall Select
		LITO	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
		LVAL	0	;/o,-100,100;Tension SP (%)
		LVAL	0	;/o,-100,100;Taper SP (%)
		LVAL	0.100009	min diameter
		LVAL	0.100009	dia
		LITO	1	;/e,Linear,Hyperbolic;Taper Select
	ESBR
	SORD	9	;/e,,,,,,,,,,Output parameters;Tension Demand
		LITO	1	;/t,Dancer,Loadcell;Tension Select?
		LVAL	0.299997	;/o,-100,100,0,100;Tension Delta (%)
		LVAL	0	old ramp output (Tension Demand)
	ESBR
	SORD	6	;/e,,,,,,,Profile parameters;Speed Demand
		LVAL	0	;/o,-5,5,0,5;D Max Gain (0 to 5)
		LVAL	1	;/o,-100,100,0,100;D Min Gain (% of Max)
		LITO	1	;/o,1,10;D Exponent
		LVAL	0.0666829	;/o,-30,30,0,30;P Max Gain (0 to 30)
		LVAL	1	;/o,-100,100,0,100;P Min Gain (% of Max)
		LITO	1	;/o,1,10;P Exponent
	ESBR
	SORD	3	/e,,,,PID parameters;Speed Demand
		LVAL	0	PID output
		LVAL	0	;/o,-100,100,-100,100;Setpoint (%)
		LIST
			LITO	0	time
			LVAL	0	last error
			LVAL	0	;/o/-100,100,-100,100;Integral preset (-100% to 100%)
		ELST
		LITO	0	;/t,Disabled,Enabled;PID Enable
		LITO	0	;/t,Disabled,Enabled;Integral Enable
		LVAL	0.166662	Proportional Gain (0 to 30)
		LVAL	0	Derivative Time (0s to 5s)
		PVAL	1	/o/-100,100,0,100;PG limit (0% to 100%)
		PVAL	1	/o/-100,100,-100,100;Pos FB Limit (-100% to 100%)
		PVAL	-1	/o/-100,100,-100,100;Neg FB Limit (-100% to 100%)
		LVAL	0.666677	;/o,-15,15,0.1,15;Integral (0.1 to 15)
	ESBR
	SORD	12	Up to Speed
		LITO	0	up to speed?
		LVAL	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	0	feedback
		LVAL	1	trim range
		LVAL	0	max time
		LITO	0	comms errors
		LVAL	0.299997	;/o,-100,100,0,100;Dancer Position (%)
	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	trim
		LITO	1	next state
		LITO	73	/o;Trim PNO
		LVAL	0	trim
		LVAL	0.333323	/o,-30000,30000,1,30000;Trim Gain (1-30000)
	ESBR
	SORD	42	dancer loading
		LITO	59	/o;Dancer Loading PNO
		LITO	2	;/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Dancer Loading Format
		LVAL	0.333323	/o,-30000,30000,1,30000;Dancer Loading Gain (1-30000)
		LVAL	0	dancer loading
	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.####;Dancer Position Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Diameter Filter Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Min. Diameter Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Min. Speed Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;UTS Threshold Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Tension Delta Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Trim Range Format
		LITO	8	booleans (overwind, preset, rewind, tension, tension sel, ext. dia., loadcell, stall enable)
		LITO	1	set for full read
	ESBR
	SORD	65	block 11 scaling
		LVAL	0.333323	/o,-30000,30000,1,30000;Dancer Position Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Diameter Filter Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Min. Diameter Gain (1-30000)
		LVAL	0.399976	/o,-30000,30000,1,30000;Min. Speed Gain (1-30000)
		LVAL	0.399976	/o,-30000,30000,1,30000;UTS Threshold (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Tension Delta Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Trim Range 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.####;P Max Gain Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;P Min Gain Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;P Exponent Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;D Max Gain Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;D Min Gain Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;D Exponent Format
		LITO	2	/e,#####,####.#,###.##,##.###,#.####,,,,<ordinal>,,EEEEE,EEEE.#,EEE.##,EE.###,E.####;Integral Format
		LITO	8	booleans (not used)
		LITO	1	set for full read
	ESBR
	SORD	67	block 15 scaling
		LVAL	0.333323	/o,-30000,30000,1,30000;P Max Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;P Min Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;P Exponent (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;D Max Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;D Min Gain (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;D Exponent (1-30000)
		LVAL	0.333323	/o,-30000,30000,1,30000;Integral (1-30000)
	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	354100
	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 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	Mini/Logic	process logic bits from block 11
		PRIM	Stack/Swap	É ¥ data/inst/É
		PRIM	Stack/Dup to aux	É/data ¥ data/inst/É
		MACR	 	overwind
			LITO	1	overwind
			PRIM	Ordinal/And	É/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	 	loadcell enable
			PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
			LITO	4	LC enable
			PRIM	Ordinal/And	É/data ¥ LC enable/inst/É
			CMNT	 	we don't really care if result is not 0 or 1, using BRFL
			LITO	1	loadcell enable index
			LITO	9	TD output data
			PRIM	S_tree/Replace	É/data ¥ inst/É
			LCAL	Setpoint	É/data ¥ inst/É
		EMAC
		CMTL	 	integral enable (not used)
			MACR	 	integral enable
				PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
				LITO	4	integral
				PRIM	Ordinal/And	É/data ¥ integral/inst/É
				PRIM	Ordinal/Right	É/data ¥ integral/inst/É
				PRIM	Ordinal/Right	É/data ¥ integral/inst/É
				LITO	5	integral index
				LITO	3	PID
				PRIM	S_tree/Replace	É/data ¥ inst/É
			EMAC
		ECMT
		MACR	 	tension
			PRIM	Stack/Dup from aux	É/data ¥ data/node/inst/É
			LITO	8	tension enable
			PRIM	Ordinal/And	É/data ¥ TE?/inst/É
			PRIM	Ordinal/Test zero	É/data ¥ !TE?/inst/É
			PRIM	Stack/Dup down	É/data ¥ !TE?/inst/!TE?/É
			PRIM	Ordinal/Test zero	É/data ¥ TE?/inst/!TE?/É
			LITO	4	PID enable
			LITO	3	PID data
			PRIM	S_tree/Replace	É/data ¥ inst/!TE?/É
			PRIM	Stack/Swap	É/data ¥ !TE?/inst/É
			LITO	8	tension enable index
			LITO	5	dia data structure
			PRIM	S_tree/Replace	É/data ¥ inst/É
		EMAC
		MACR	 	taper
			PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
			LITO	16	taper select
			PRIM	Ordinal/And	É/data ¥ taper select/inst/É
			PRIM	Ordinal/Test zero	É/data ¥ !taper select/inst/É
			PRIM	Ordinal/Test zero	É/data ¥ taper select/inst/É
			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	 	integral defeat
			PRIM	Stack/Dup from aux	É/data ¥ data/inst/É
			LITO	64	dia. hold
			PRIM	Ordinal/And	É/data ¥ I defeat/inst/É
			PRIM	Ordinal/Test zero	convert from integral defeat to enable
			LITO	5	I enable index
			LITO	3	PID data
			PRIM	S_tree/Replace	É/data ¥ inst/É
		EMAC
		MACR	 	stall enable, last item
			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	TD data
			PRIM	S_tree/Replace	É ¥ inst/É
		EMAC
		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	 	profiles
			PRIM	Stack/Second to aux	É/dia ¥ inst/É
			LITO	6	profile data
			PRIM	S_tree/Entry to stack	É/dia ¥ Pexp/Pmin/Pmax/Dexp/Dmin/Dmax/inst/É
			PRIM	Stack/Push from aux	É ¥ dia/Pexp/Pmin/Pmax/Dexp/Dmin/Dmax/É
			LCAL	Profile	É/prop ¥ dia/Dexp/Dmin/Dmax/inst/É
			LCAL	Profile	É/prop/der ¥ dia/inst/É
			PRIM	Stack/Drop	É/prop/der ¥ inst/É
			PRIM	Stack/Push from aux	É/prop ¥ der/inst/É
			LITO	7	dir index
			LITO	3	PID data
			PRIM	S_tree/Replace	É/prop ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ prop/inst/É
			LITO	6	prop index
			LITO	3	PID data
			PRIM	S_tree/Replace	É ¥ inst/É
		EMAC
		PRIM	Heap/Store self
	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?/inst/É
		PRIM	Stack/Push from aux	É ¥ demand/old ramp/incr/LC?/inst/É
		CALL	354070	demand/LC?/inst/É
		PRIM	Stack/Rotate up	LC?/inst/demand/É
		BRFL	 	branch if not using loadcell (using dancer pos)
			LCAL	TD Output	É ¥ É
		BRTR
		PRIM	Stack/Over	demand/inst/demand/É
		LITO	2	setpoint index
		LITO	3	PID data
		PRIM	S_tree/Replace	inst/demand/É
		LCAL	TD Output	É ¥ É
	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/Swap	|winder speed|/inst/É
			LITO	5	|winder speed| index
			LITO	12
			PRIM	S_tree/Replace	inst/É
		EMAC
		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' >= 11 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	feedback read
				LCAL	Read	É ¥ É
			ESBR
			SORD	2	send trim
				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	dancer loading
				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	signals (block 14)
				LITO	43
				LCAL	Block Read	É ¥ É
			ESBR
			SORD	9	UTS write
				LITO	50	É/DID ¥ key/minor state/inst/É
				LCAL	Param Write	É ¥ É
			ESBR
			SORD	10	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/Feedback
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ data/inst/É
		LVAL	0.0333262	scale input
		PRIM	Value/Divide	É ¥ scaled data/inst/É
		PRIM	Stack/Dup to aux	É/feedback ¥Êfeedback/inst/É
		LITO	1	feedback index
		LITO	15	misc data
		PRIM	S_tree/Replace	É/feedback ¥ inst/É
		LITO	3
		PRIM	S_tree/Get exact	É/feedback ¥ÊPID data/3/inst/É
		PRIM	Stack/Push from aux	feedback/PID data/3/inst/É
		ASIO	Analog/DO_PID15	PID/PID data/3/inst/É
		PRIM	Stack/Pop to aux	É/PID ¥ PID data/3/inst/É
		PRIM	S_tree/Put	É/PID ¥ inst/É
		LITO	2	trim range index
		LITO	15	misc data
		PRIM	S_tree/Read	É/PID ¥ trim/inst/É
		PRIM	Stack/Push from aux	É ¥ PID/trim range/inst/É
		PRIM	Value/Multiply	É ¥ trim/inst/É
		LITO	3
		LITO	41
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	CMNT	 	Set and Get methods for class follow
	CMNT	 	sord 3 items (PID)
	SGLB	SignalP/Setpoint	override
		CMNT	 	override, no code
	ESBR
	SGLB	SignalP/PID Enable	override
		CMNT	 	override, no code
	ESBR
	SGLB	SignalP/Integral Enable	override
		CMNT	 	override, no code
	ESBR
	SGLB	SignalP/Proportional	override
		CMNT	 	override, no code
	ESBR
	SGLB	SignalP/Derivative	override
		CMNT	 	override, no code
	ESBR
	SGLB	SignalP/Get Integral Enable	override
		CMNT	 	override, no code
	ESBR
	SGLB	Winders/Get Integral Defeat	/2t123,Enabled,Disabled
		LITO	5
		CALL	354074
	ESBR
	CMNT	 	sord 5 items
	SGLB	Winders/Diameter Hold	/3t89,Track,Hold;Enter Hold State...
		LITO	5	hold index
		CALL	354079
	ESBR
	SGLB	Winders/Get Over-Under	/2t76,Under,Over
		LITO	1	underwind index
		CALL	354078
	ESBR
	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.2f%%
		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/Get D Max Gain	/2v30,-5,5;%1.2f
		LITO	1	der max index
		CALL	354080
	ESBR
	SGLB	Winders/Get D Min Gain	/2v6,-100,100;%3.2f%%
		LITO	2	der min index
		CALL	354080
	ESBR
	SGLB	Winders/Get D Exponent	/2u2
		LITO	3	der exp index
		CALL	354080
	ESBR
	SGLB	Winders/Get P Max Gain	/2v29,-30,30;%1.2f
		LITO	4	prop max index
		CALL	354080
	ESBR
	SGLB	Winders/Get P Min Gain	/2v6,-100,100;%3.2f%%
		LITO	5	prop min index
		CALL	354080
	ESBR
	SGLB	Winders/Get P Exponent	/2u2
		LITO	6	prop exp 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
	CMNT	 	sord 9 items
	SGLB	Winders/Get Tension Select	/2t11,Dancer,Loadcell
		LITO	1
		CALL	354130
	ESBR
	SGLB	Winders/Get Tension Delta	/2v6,-100,100;%1.2f%%
		LITO	2	ramp index
		CALL	354130
	ESBR
	SGLB	Winders/Get Dancer Loading	/2v6,-100,100;%1.2f%%
		LITO	3	demand index
		CALL	354130
	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 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 Feedback	/2v6,-100,100;%1.2f%%
		LITO	1
		CALL	354140
	ESBR
	SGLB	Winders/Get Trim Range	/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
	SGLB	Winders/Get Dancer Pos	/2v6,-100,100;%1.2f%%
		LITO	5
		CALL	354140
	ESBR
	CMNT	 	serial output data
	SGLB	Winders/Get Trim	/2v6,-100,100;%1.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
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/Feedback	É/DID ¥ RID/inst/É
	PRIM	Stack/Push from aux	É ¥ DID/RID/inst/É
	LITO	17	É ¥ 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	11	É ¥ 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	Dancer Position
			LITO	1
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			PRIM	Stack/Dup down	É ¥ d pos/inst/d pos/É
			LITO	5	dancer position index
			LITO	15
			PRIM	S_tree/Replace	É ¥ inst/d pos/É
			LITO	1	loadcell enable index
			LITO	9	TD output data
			PRIM	S_tree/Read	LC?/inst/d pos/É
			BRFL	 	branch if using Dancer position
				PRIM	Stack/Swap	d pos/inst/É
				LITO	2	setpoint index
				LITO	3	PID data
				PRIM	S_tree/Replace	inst/É
			BRTR
			PRIM	Stack/Xdrop	inst/É
		ESBR
		SORD	17	Diameter Filter
			LITO	2
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	3	dia filter index
			LITO	5	dia data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	18	Min. Diameter
			LITO	3
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LCAL	Min Dia	É ¥ inst/É
		ESBR
		SORD	19	Min Speed
			LITO	4
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	9	base speed index
			LITO	5	dia data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	20	UTS Threshold
			LITO	5
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	2	uts thres. index
			LITO	12	uts data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	21	Tension Delta
			LITO	6
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	2
			LITO	9
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	22	Trim Range
			LITO	7
			LCAL	B11 Scale	É ¥ scaled data/inst/É
			LITO	2	trim range index
			LITO	15
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	23	logic bits
			PRIM	Misc/Name of node	É ¥ node/inst/data/É
			PRIM	Stack/Rotate down	É ¥ data/node/inst/É
			LIST	 	É ¥ LIST/data/node/inst/É
				MSGE
					ICAL	System
					GSYM	Mini/Logic
				EMSG
			ELST
			PRIM	List/Add	É ¥ event/node/inst/É
			PRIM	Misc/Post event	É ¥ inst/É
		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	P Max Gain
			LITO	1
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LVAL	0	É ¥ min/scaled data/inst/É
			PRIM	Value/Clamp low	É ¥ p max/inst/É
			LITO	4	É ¥ index/p max/inst/É
			LITO	6	profile data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	17	P Min Gain
			LITO	2
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LVAL	0	É ¥ min/scaled data/inst/É
			PRIM	Value/Clamp low	É ¥ p min/inst/É
			LITO	5	É ¥ index/p min/inst/É
			LITO	6	profile data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	18	P Exponent
			LITO	3
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	10	É ¥ range/scaled data/inst/É
			CMNT	 	note: Misc/Value to ordinal doesn't round properly! So not used
			PRIM	Value/Multiply	É ¥ p exp/inst/É
			LITO	1	É ¥ min/p exp/inst/É
			PRIM	Value/Clamp low	É ¥ p exp/inst/É
			LITO	6	É ¥ index/p exp/inst/É
			LITO	6	profile data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	19	D Max Gain
			LITO	4
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LVAL	0	É ¥ min/scaled data/inst/É
			PRIM	Value/Clamp low	É ¥ d max/inst/É
			LITO	1	É ¥ index/d max/inst/É
			LITO	6	profile data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	20	D Min Gain
			LITO	5
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LVAL	0	É ¥ min/scaled data/inst/É
			PRIM	Value/Clamp low	É ¥ d min/inst/É
			LITO	2	É ¥ index/d min/inst/É
			LITO	6	profile data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	21	D Exponent
			LITO	6
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LITO	10	É ¥ range/scaled data/inst/É
			CMNT	 	note: Misc/Value to ordinal doesn't round properly! So not used
			PRIM	Value/Multiply	É ¥ d exp/inst/É
			LITO	1	É ¥ min/d exp/inst/É
			PRIM	Value/Clamp low	É ¥ d exp/inst/É
			LITO	3	É ¥ index/d exp/inst/É
			LITO	6	profile data
			PRIM	S_tree/Replace	É ¥ inst/É
		ESBR
		SORD	22	Integral
			LITO	7
			LCAL	B15 Scale	É ¥ scaled data/inst/É
			LVAL	0.00668355	É ¥ min/scaled data/inst/É
			PRIM	Value/Clamp low	É ¥ integral/inst/É
			LITO	11	integral TC
			LITO	3	PID 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	Profile	É ¥ arg/N/Gmin/Gmax/É
	CMNT	 	Output:  É/result ¥ arg/É
	PRIM	Stack/Dup to aux	É/arg ¥ arg/N/Gmin/Gmax/É
	LCAL	exp	É/arg ¥ exp/Gmin/Gmax/É
	LVAL	1	É/arg ¥ 1/exp/Gmin/Gmax/É
	PRIM	Stack/Xover	É/arg ¥ Gmin/1/exp/Gmin/Gmax/É
	PRIM	Value/Subtract	É/arg ¥ 1-Gmin/exp/Gmin/Gmax/É
	PRIM	Value/Multiply	É/arg ¥ exp*(1-Gmin)/Gmin/Gmax/É
	PRIM	Value/Add	É/arg ¥ exp*(1-Gmin)+Gmin/Gmax/É
	PRIM	Value/Multiply	É/arg ¥ Gmax*(exp*(1-Gmin)+Gmin)/É
	PRIM	Stack/Push from aux	É ¥ arg/Gmax*(exp*(1-Gmin)+Gmin)/É
	PRIM	Stack/Second to aux	É/Gmax*(exp*(1-Gmin)+Gmin) ¥ arg/É
EDEF
LDEF	exp	É/arg ¥ exp/N/É
	CMNT	 	Output:  É/arg ¥ exp/É
	PRIM	Stack/Swap	É/arg ¥ N/exp/É
	PRIM	Ordinal/Decrement	É/arg ¥ N-1/exp/É
	PRIM	Stack/Dup down	É/arg ¥ N-1/exp/N-1/É
	BRFL	 	branch if done
		PRIM	Stack/Xdrop	É/arg ¥ exp/É
	BRTR
	PRIM	Stack/Dup from aux	É/arg ¥ arg/exp/N-1/É
	PRIM	Value/Multiply	É/arg ¥ exp'/N-1/É
	LCAL	exp
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/É
	LITO	2	min dia index/inst/min dia/É
	LCAL	Preset	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	TD Output	É ¥ inst/demand/É
	PRIM	Stack/Over	demand/inst/demand/É
	LITO	4	dancer loading index
	LITO	42	dancer loading data
	PRIM	S_tree/Replace	inst/demand/É
	LITO	3	old ramp (tension demand) index
	CALL	354132	É ¥ É
EDEF
LDEF	Setpoint	inst/É
	LITO	1	loadcell enable index
	LITO	9	TD output data
	PRIM	S_tree/Read	LC?/inst/É
	BRFL	 	branch if using Dancer position
		LITO	5	dancer position index
		LITO	15	misc data
		PRIM	S_tree/Read	dancer position/inst/É
		LITO	2	setpoint index
		LITO	3	PID data
		PRIM	S_tree/Replace	inst/É
	BRTR
	LITO	3	Tension demand index
	LITO	9	TD output data
	PRIM	S_tree/Read	tension demand/inst/É
	LITO	2	setpoint index
	LITO	3	PID data
	PRIM	S_tree/Replace	inst/É
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	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