STRE
	SGLB	Misc/Class Reference
		CLAS	354337
	ESBR
	SORD	5	/e,,,,,,Speed parameters;Speed Control
		PORD	1	/t,Ratio,Draw;Draw-Ratio
		PVAL	1	/o,-100,100;Draw SP (%)
		PVAL	0.100009	/o,-10,10;Draw Range (-10 to 10)
		PORD	0	/t,Disabled,Enabled;Draw Enable
		LVAL	0	ramp input/output
		PVAL	0.0199896	/o,-100,100,0,100;Run Delta (%)
		PVAL	0.0400098	/o,-100,100,0,100;Stop Delta (%)
		PORD	1	/t,Reverse,Forward;Direction
		PVAL	0.083346	/o,-120,120;Jog Speed (0 - 120%)
		LITO	0	/t,Off,Started;Start
		LITO	0	/t,Disabled,Enabled;Jog
	ESBR
	SORD	7	/e,,,,,,,,Torque parameters;Speed Control
		LITO	0	/t,Disabled,Enabled;Torque Enable
		PVAL	0.100009	/o,-10,10;Droop Gain (-10 to 10)
		LVAL	0	/o,-200,200;Armature Current (%)
		LITO	1	/t,Reverse,Forward;Forward-Reverse
		PVAL	0.500015	/o,-100,100;Torque Cal (%)
		LVAL	0	/o,-100,100;Torque SP (%)
	ESBR
	SORD	8	/e,,,,,,,,,Trim parameters;Speed Control
		PORD	1	/t,Reverse,Forward;Position Sign
		PVAL	-1	/o,-100,100;Trim Min (%)
		PVAL	1	/o,-100,100;Trim Max (%)
		PORD	1	/t,Reverse,Forward;Trim Sign
		LVAL	0	trim 1
		LVAL	0	trim 2
		PORD	0	/t,Trim 1,Trim 2;Trim Select
	ESBR
	SORD	6	trim data structure
		PVAL	0.0499893	/o,-120,120;Range Non-Extn (%)
		PVAL	0.100009	/o,-120,120;Range Extn (%)
		PORD	0	/t,Disabled,Enabled;Extensible Web
	ESBR
	SORD	4	Agitate data structure
		PVAL	0	/o,-120,120;Min Speed (%)
		PVAL	0.0499893	/o,-120,120;Agitate Speed (%)
		PORD	0	/e,Disabled,Enabled;Agitate Enable
	ESBR
	SORD	2	main data structure
		LVAL	0.100009	/o,-100,100;Speed Cal (%)
		LVAL	0.100009	/o,-100,100,0,100;Diameter (% Full Roll)
		LVAL	0	clamp speed
		LVAL	0	aux speed
		LVAL	0	range
	ESBR
	SORD	15	Miscellaneous values
		LVAL	0	position
		LVAL	0	speed demand
		LVAL	0	line speed sp
		LVAL	0	loadcell 1
		LVAL	0	trim
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Speed Demand
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Aux Speed
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;Position
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		LCAL	Agitate	inst/É
		LCAL	Trim	inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Custom/Trim 1	/3v7,-100,100;Enter Trim 1 (%)...
		LITO	5	trim 1 index
		LCAL	Trim In	É ¥ É
	ESBR
	SGLB	Custom/Trim 2	/3v8,-100,100,0,100;Enter Trim 2 (%)...
		LITO	6	trim 2 index
		LCAL	Trim In	É ¥ É
	ESBR
	SGLB	Custom/Trim Select	/3t32,Trim 1,Trim 2;Select Trim Input ...
		LITO	7	trim select index
		CALL	354085
	ESBR
	SGLB	Custom/Trim Max	/3v7,-100,100;Enter Trim Max (%)...
		LITO	3	trim max index
		CALL	354085
	ESBR
	SGLB	Custom/Trim Min	/3v7,-100,100;Enter Trim Min (%)...
		LITO	2	trim min index
		CALL	354085
	ESBR
	SGLB	Custom/Trim Sign	/3t65,Negative,Positive;Select Trim Sign...
		LITO	4	trim sign index
		CALL	354085
	ESBR
	SGLB	Custom/Position Sign	/3t65,Negative,Positive;Select Position Sign...
		LITO	1	position sign index
		CALL	354085
	ESBR
	SGLB	Custom/Line Speed SP	/3v57/-120,120;Enter Line Speed SP (%)...
		PRIM	Stack/Swap	É ¥ line sp/inst/É
		PRIM	Stack/Dup to aux	É/line sp ¥ line sp/inst/É
		LITO	3	line sp index
		LITO	15	misc data
		PRIM	S_tree/Replace	É/line sp ¥ inst/É
		LITO	5	draw data
		PRIM	S_tree/Entry to stack	É/line sp ¥ jog?/start?/jog/dir/stopÆ/runÆ/ramp/É
		BRFL	 	branch if not jog
			BRFL	 	branch if not start
				PRIM	Stack/Drop	É/line sp ¥ dir/stopÆ/runÆ/ramp/É
				PRIM	Stack/Drop	É/line sp ¥ stopÆ/runÆ/ramp/É
				PRIM	Stack/Xdrop	É/line sp ¥ stopÆ/ramp/É
				PRIM	Stack/Drop from aux	É ¥ stopÆ/ramp/É
				LVAL	0	É ¥ 0/stopÆ/ramp/draw enable/range/draw/DR?/inst/É
				LCAL	Aux Speed	É ¥ É
			BRTR
			PRIM	Stack/Drop	É/line sp ¥ dir/stopÆ/runÆ/ramp/É
			PRIM	Stack/Xdrop	É/line sp ¥ dir/runÆ/ramp/É
			PRIM	Stack/Push from aux	É ¥ line sp/dir/runÆ/ramp/draw enable/range/draw/DR?/inst/É
			CALL	354104	É ¥ signed line sp/runÆ/ramp/draw enable/range/draw/DR?/inst/É
			LCAL	Aux Speed	É ¥ É
		BRTR
		PRIM	Stack/Drop from aux	É ¥ start?/jog/dir/stopÆ/runÆ/ramp/É
		PRIM	Stack/Drop	É ¥ jog/dir/stopÆ/runÆ/ramp/draw enable/range/draw/DR?/inst/É
		CALL	354104	É ¥ signed jog/stopÆ/runÆ/ramp/draw enable/range/draw/DR?/inst/É
		PRIM	Stack/Xdrop	É ¥ signed jog/runÆ/ramp/draw enable/range/draw/DR?/inst/É
		LCAL	Aux Speed	É ¥ É
	ESBR
	SGLB	Custom/Speed Cal	/3v7,-100,100;Enter Speed Calibration (%)...
		LITO	1	cal index
		CALL	354073
	ESBR
	SGLB	Custom/Diameter	/3v8,-100,100,0,100;Enter Diameter (% Full Roll)...
		LITO	2	dia index
		CALL	354073
	ESBR
	SGLB	Custom/Aux Speed SP	/3v57/-120,120;Enter Aux Speed SP (%)...
		LITO	4	r-d speed index
		CALL	354073
	ESBR
	SGLB	Custom/Min Speed	/3v57/-120,120;Enter Minimum Speed (%)...
		LITO	1	minimum speed index
		LCAL	Agitate Set
	ESBR
	SGLB	Custom/Agitate Speed	/3v57/-120,120;Enter Agitate Speed (%)...
		LITO	2	agitate speed index
		LCAL	Agitate Set
	ESBR
	SGLB	Custom/Agitate Enable	/3t12,Disabled,Enabled;Set Agitate as ...
		LITO	3	enable index
		LCAL	Agitate Set
	ESBR
	SGLB	Custom/Draw-Ratio	/3t103,Ratio,Draw;Select Mode...
		LITO	1	draw enable index
		CALL	354079
	ESBR
	SGLB	Custom/Draw SP	/3v7,-100,100;Enter Draw SP (%)...
		LITO	2
		CALL	354079
	ESBR
	SGLB	Custom/Draw Range	/3v55,-10,10;Enter Draw Range (-10 to 10)...
		LITO	3
		CALL	354079
	ESBR
	SGLB	Custom/Draw Enable	/3t12,Disabled,Enabled;Set Draw as ...
		LITO	4
		CALL	354079
	ESBR
	SGLB	Custom/Run Delta	/3v8,-100,100,0,100;Enter Stop Delta (%)...
		LITO	6
		CALL	354079
	ESBR
	SGLB	Custom/Stop Delta	/3v8,-100,100,0,100;Enter Stop Delta (%)...
		LITO	7
		CALL	354079
	ESBR
	SGLB	Custom/Direction	/3t75,Reverse,Forward;Select Direction...
		LITO	8	direction index
		CALL	354079
	ESBR
	SGLB	Custom/Jog Speed	/3v57,-120,120;Enter Jog Speed (%):
		LITO	9	jog speed index
		CALL	354079
	ESBR
	SGLB	Custom/Start	/3t79,Off,Started;Set Start as ...
		LITO	10	start signal index
		CALL	354079
	ESBR
	SGLB	Custom/Jog	/3t12,Disabled,Enabled;Set Jog as ...
		LITO	11	jog enable index
		CALL	354079
	ESBR
	SGLB	Custom/Torque Enable	/3t12,Disabled,Enabled;Set Torque as ...
		LITO	1
		CALL	354083
	ESBR
	SGLB	Custom/Droop Gain	/3v55,-10,10;Enter Droop Gain (-10 to 10)...
		LITO	2	droop index
		CALL	354083
	ESBR
	SGLB	Custom/Armature Current	/3v38,-200,200;Enter Armature Current (-200% to 200%)...
		LITO	3
		CALL	354083
	ESBR
	SGLB	Custom/Forward-Reverse	/3t75,Reverse,Forward;Select Direction...
		LITO	4
		CALL	354083
	ESBR
	SGLB	Custom/Torque Cal	/3v7,-100,100;Enter Torque Cal (%)...
		LITO	5
		CALL	354083
	ESBR
	SGLB	Custom/Torque SP	/3v7,-100,100;Enter Torque SP (%)...
		LITO	6
		CALL	354083
	ESBR
	SGLB	Custom/Range Non-Extn	/3v57,-120,120;Enter Range Non-Extn (%)...
		LITO	1	non-extensible trim index
		LCAL	Trim Set
	ESBR
	SGLB	Custom/Range Extn	/3v57,-120,120;Enter Range Extn (%)...
		LITO	2	extensible trim index
		LCAL	Trim Set
	ESBR
	SGLB	Custom/Extensible Web	/3t12,Disabled,Enabled;Set Extensible Web as ...
		LITO	3	enable index
		LCAL	Trim Set
	ESBR
	SGLB	Custom/Get Trim 1	/2v6,-100,100;%3.2f%%
		LITO	5	trim 1 index
		CALL	354084
	ESBR
	SGLB	Custom/Get Trim 2	/2v6,-100,100;%3.2f%%
		LITO	6	trim 2 index
		CALL	354084
	ESBR
	SGLB	Custom/Get Trim Select	/2t33,Trim 1,Trim 2
		LITO	7	trim select index
		CALL	354084
	ESBR
	SGLB	Custom/Get Trim Max	/2v6,-100,100;%3.2f%%
		LITO	3	trim max index
		CALL	354084
	ESBR
	SGLB	Custom/Get Trim Min	/2v6,-100,100;%3.2f%%
		LITO	2	trim min index
		CALL	354084
	ESBR
	SGLB	Custom/Get Trim Sign	/2t66,Negative,Positive
		LITO	4	trim sign index
		CALL	354084
	ESBR
	SGLB	Custom/Get Position Sign	/2t66,Negative,Positive
		LITO	1	position sign index
		CALL	354084
	ESBR
	SGLB	Custom/Get Speed Cal	/2v6,-100,100;%3.2f%%
		LITO	1	cal index
		CALL	354072
	ESBR
	SGLB	Custom/Get Diameter	/2v6,-100,100;%3.2f%% Full Roll
		LITO	2	dia index
		CALL	354072
	ESBR
	SGLB	Custom/Get Clamp Speed	/2v58,-120,120;%1.2f%%
		LITO	3	minimum clamp speed index
		CALL	354072
	ESBR
	SGLB	Custom/Get Aux Speed	/2v58,-120,120;%1.2f%%
		LITO	4	ratio-draw speed index
		CALL	354072
	ESBR
	SGLB	Custom/Get Range	/2v58,-120,120;%3.2f%%
		LITO	5
		CALL	354072
	ESBR
	SGLB	Custom/Get Min Speed	/2v58,-120,120;%1.2f%%
		LITO	1	minimum speed index
		CALL	354076
	ESBR
	SGLB	Custom/Get Agitate Speed	/2v58,-120,120;%1.2f%%
		LITO	2	agitate speed index
		CALL	354076
	ESBR
	SGLB	Custom/Get Agitate Enable	/2t11,Disabled,Enabled
		LITO	3	enable index
		CALL	354076
	ESBR
	SGLB	Custom/Get Draw-Ratio	/2t104,Ratio,Draw
		LITO	1	draw-ratio index
		CALL	354078
	ESBR
	SGLB	Custom/Get Draw SP	/2v6,-100,100;%3.2f%%
		LITO	2
		CALL	354078
	ESBR
	SGLB	Custom/Get Draw Range	/2v63,-10,10;%3.2f
		LITO	3	range index
		CALL	354078
	ESBR
	SGLB	Custom/Get Draw Enable	/2t11,Disabled,Enabled
		LITO	4
		CALL	354078
	ESBR
	SGLB	Custom/Get Ramped Speed	/2v58,-120,120;%1.2f%%
		LITO	5	ramp out index
		CALL	354078
	ESBR
	SGLB	Custom/Get Run Delta	/2v6,-100,100;%3.2f%%
		LITO	6
		CALL	354078
	ESBR
	SGLB	Custom/Get Stop Delta	/2v6,-100,100;%3.2f%%
		LITO	7
		CALL	354078
	ESBR
	SGLB	Custom/Get Direction	/2t74,Reverse,Forward
		LITO	8	direction index
		CALL	354078
	ESBR
	SGLB	Custom/Get Jog Speed	/2v58,-120,120;%1.2f%%
		LITO	9	jog speed index
		CALL	354078
	ESBR
	SGLB	Custom/Get Start	/2t78,Off,Started
		LITO	10	start signal index
		CALL	354078
	ESBR
	SGLB	Custom/Get Jog	/2t11,Disabled,Enabled
		LITO	11
		CALL	354078
	ESBR
	SGLB	Custom/Get Torque Enable	/2t11,Disabled,Enabled
		LITO	1
		CALL	354082
	ESBR
	SGLB	Custom/Get Droop Gain	/2v63,-10,10;%2.2f
		LITO	2	droop index
		CALL	354082
	ESBR
	SGLB	Custom/Get Armature Current	/2v37,-200,200;%3.2f%%
		LITO	3
		CALL	354082
	ESBR
	SGLB	Custom/Get Forward-Reverse	/2t74,Reverse,Forward
		LITO	4
		CALL	354082
	ESBR
	SGLB	Custom/Get Torque Cal	/2v6,-100,100;%3.2f%%
		LITO	5
		CALL	354082
	ESBR
	SGLB	Custom/Get Torque SP	/2v6,-100,100;%3.2f%%
		LITO	6
		CALL	354082
	ESBR
	SGLB	Custom/Get Range Non-Extn	/2v58,-120,120;%3.2f%%
		LITO	1	non-extensible trim index
		CALL	354080
	ESBR
	SGLB	Custom/Get Range Extn	/2v58,-120,120;%3.2f%%
		LITO	2	extensible trim index
		CALL	354080
	ESBR
	SGLB	Custom/Get Extensible Web	/2t11,Disabled,Enabled
		LITO	3	enable index
		CALL	354080
	ESBR
	SGLB	Custom/Get Position	/2v6,-100,100;%3.2f%%
		LITO	1	position index
		CALL	354140
	ESBR
	SGLB	Custom/Get Speed Demand	/2v58,-120,120;%1.1f%%
		LITO	2	sd index
		CALL	354140
	ESBR
	SGLB	Custom/Get Line Speed SP	/2v58,-120,120;%1.1f%%
		LITO	3
		CALL	354140
	ESBR
	SGLB	Custom/Get Trim	/2v6,-100,100;%3.2f%%
		LITO	5	trim range index
		CALL	354140
	ESBR
ESTR
LDEF	Trim In	index/inst/data/É
	PRIM	Stack/Dup to aux	É/index ¥ index/inst/data/É
	PRIM	Stack/Xswap	É/index ¥ index/data/inst/É
	LITO	8	trim data
	PRIM	S_tree/Replace	É/index ¥ inst/É
	LITO	8	trim data
	PRIM	S_tree/Entry to stack	É/index ¥ select/trim2/trim1/tsign/tmax/tmin/psign/inst/É
	PRIM	Stack/Push from aux	É ¥ index/select/trim2/trim1/tsign/tmax/tmin/psign/inst/É
	LITO	5	5/index/select/trim2/trim1/tsign/tmax/tmin/psign/inst/É
	PRIM	Ordinal/Subtract	select in/select/trim2/trim1/tsign/tmax/tmin/psign/inst/É
	PRIM	Ordinal/Test equal	selected?/select/trim2/trim1/tsign/tmax/tmin/psign/inst/É
	BRFL	 	not selected item
		CMNT	 	nothing to do, just clean up stack
		PRIM	Stack/Drop	trim2/trim1/tsign/tmax/tmin/psign/inst/É
		PRIM	Stack/Drop	trim1/tsign/tmax/tmin/psign/inst/É
		PRIM	Stack/Drop	tsign/tmax/tmin/psign/inst/É
		PRIM	Stack/Drop	tmax/tmin/psign/inst/É
		PRIM	Stack/Drop	tmin/psign/inst/É
		PRIM	Stack/Drop	psign/inst/É
		PRIM	Stack/Drop	inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	BRFL	 	branch if Trim 1 selected
		PRIM	Stack/Drop	trim1/tsign/tmax/tmin/psign/inst/É
		LCAL	Trim Clamp	É ¥ É
	BRTR
	CMNT	 	trim 2 selected
	PRIM	Stack/Xdrop	trim2/tsign/tmax/tmin/psign/inst/É
	LVAL	0.500015	.5/trim2/tsign/tmax/tmin/psign/inst/É
	PRIM	Value/Subtract	trim2-.5/tsign/tmax/tmin/psign/inst/É
	LVAL	0.500015	.5/trim2-.5/tsign/tmax/tmin/psign/inst/É
	PRIM	Value/Divide	(trim2-.5)/.5/tsign/tmax/tmin/psign/inst/É
	LCAL	Trim Clamp	É ¥ É
EDEF
LDEF	Trim Clamp	trim/tsign/tmax/tmin/psign/inst/É
	PRIM	Stack/Dup to aux	É/trim ¥ trim/tsign/tmax/tmin/psign/inst/É
	CALL	354104	É/trim ¥ signed trim/tmax/tmin/psign/inst/É
	PRIM	Value/Clamp high	É/trim ¥ clamped trim/tmin/psign/inst/É
	PRIM	Value/Clamp low	É/trim ¥ clamped trim/psign/inst/É
	PRIM	Stack/Rotate up	É/trim ¥ psign/inst/clamped trim/É
	PRIM	Stack/Push from aux	É ¥ trim/psign/inst/clamped trim/É
	CALL	354104	É ¥ position/inst/clamped trim/É
	PRIM	Stack/Dup to aux	É/position ¥ position/inst/clamped trim/É
	GSYM	Output/#3	É/position ¥ #3/position/inst/clamped trim/É
	PRIM	Misc/Send entry	É/position ¥ inst/clamped trim/É
	PRIM	Stack/Push from aux	É ¥ position/inst/clamped trim/É
	LITO	1	position index
	LITO	15	misc data
	PRIM	S_tree/Replace	É ¥ inst/clamped trim/É
	PRIM	Stack/Second to aux	É/clamped trim ¥Êinst/É
	LITO	7	torque data
	PRIM	S_tree/Entry to stack	É/clamped trim ¥Êt sp/t cal/dir/ac/d gain/t enable/inst/É
	PRIM	Value/Multiply	É/clamped trim ¥Êsp/dir/ac/d gain/t enable/inst/É
	PRIM	Stack/Rotate up	É/clamped trim ¥Êdir/ac/sp/d gain/t enable/inst/É
	BRFL	 	branch if reverse
		PRIM	Value/Add	É/clamped trim ¥ÊÆ/d gain/t enable/inst/É
		LVAL	-1	É/clamped trim ¥Ê-1/Æ/d gain/t enable/inst/É
		LCAL	Torque	É ¥ÊÉ
	BRTR
	PRIM	Value/Subtract	É/clamped trim ¥ÊÆ/d gain/t enable/inst/É
	LVAL	1	É/clamped trim ¥Ê1/Æ/d gain/t enable/inst/É
	LCAL	Torque	É ¥ÊÉ
EDEF
LDEF	Torque	É/feedback ¥Êdir/Æ/d gain/t enable/inst/É
	PRIM	Stack/Pop to aux	É/feedback/dir ¥ÊÆ/d gain/t enable/inst/É
	PRIM	Stack/Aux swap	É/dir/feedback ¥ÊÆ/d gain/t enable/inst/É
	LVAL	0.100009	É/dir/feedback ¥Ê.1/Æ/d gain/t enable/inst/É
	PRIM	Value/Scale	É/dir/feedback ¥Êtrim/t enable/inst/É
	PRIM	Stack/Swap	É/dir/feedback ¥Êt enable/trim/inst/É
	BRFL	 	branch if torque not enabled
		PRIM	Stack/Drop	É/dir/feedback ¥Êinst/É
		PRIM	Stack/Dup from aux	É/dir/feedback ¥ feedback/inst/É
		LCAL	Line Control	É ¥ÊÉ
	BRTR
	PRIM	Stack/Drop from aux	É/dir ¥Êtrim/inst/É
	PRIM	Stack/Dup to aux	É/dir/trim ¥Êtrim/inst/É
	LCAL	Line Control	É ¥ÊÉ
EDEF
LDEF	Line Control	É/dir/trim ¥ trim/inst/É
	LITO	5	trim index
	LITO	15	misc data
	PRIM	S_tree/Replace	É/dir/trim ¥ inst/É
	LITO	2	s_tree index of main list
	PRIM	S_tree/Entry to stack	É/dir/trim ¥ range/aux/clamp/dia/cal/inst/É
	PRIM	Stack/Push from aux	É/dir ¥ trim/range/aux/clamp/dia/cal/inst/É
	PRIM	Value/Multiply	É/dir ¥ scaled trim/aux/clamp/dia/cal/inst/É
	PRIM	Value/Add	É/dir ¥ trimmed sp/clamp/dia/cal/inst/É
	PRIM	Value/Clamp low	É/dir ¥ clamped sp/dia/cal/inst/É
	PRIM	Stack/Swap	É/dir ¥ dia/clamped sp/cal/inst/É
	PRIM	Stack/Push from aux	É ¥ dir/dia/clamped sp/cal/inst/É
	PRIM	Value/Multiply	É ¥ signed dia/clamped sp/cal/inst/É
	PRIM	Value/Scale	cal'd output/inst/É
	PRIM	Stack/Dup down	cal'd output/inst/cal'd output/É
	GSYM	Output/#1	output #1/cal'd output/inst/cal'd output/É
	PRIM	Misc/Send entry	inst/cal'd output/É
	LITO	2	speed demand index
	CALL	354146
EDEF
LDEF	Aux Speed	speed/ramp incr/ramp/draw enable/range/draw/DR?/inst/É
	PRIM	Stack/Xswap	speed/ramp/ramp incr/draw enable/range/draw/DR?/inst/É
	CALL	354070	new/draw enable/range/draw/DR?/inst/É
	PRIM	Stack/Pop to aux	É/new ¥ draw enable/range/draw/DR?/inst/É
	BRFL	 	branch if draw not enabled
		PRIM	Stack/Drop	É/new ¥ draw/DR?/inst/É
		PRIM	Stack/Drop	É/new ¥ DR?/inst/É
		BRFL	 	branch if in ratio
			LVAL	0	É/new ¥ 0/inst/É
			LCAL	Aux Set	É ¥ É
		BRTR
		PRIM	Stack/Dup from aux	É/new ¥ new/inst/É
		LCAL	Aux Set	É ¥ É
	BRTR
	PRIM	Value/Multiply	É/new ¥ ranged draw/DR?/inst/É
	PRIM	Stack/Dup from aux	É/new ¥ new/ranged draw/DR?/inst/É
	LVAL	0.100009	É/new ¥ .1/new/ranged draw/DR?/inst/É
	PRIM	Value/Scale	É/new ¥ scaled draw/DR?/inst/É
	PRIM	Stack/Swap	É/new ¥ DR?/scaled draw/inst/É
	BRFL	 	branch if in ratio
		LCAL	Aux Set	É ¥ É
	BRTR
	PRIM	Stack/Dup from aux	É/new ¥ new/scaled draw/inst/É
	PRIM	Value/Add	É/new ¥ aux speed/inst/É
	LCAL	Aux Set	É ¥ É
EDEF
LDEF	Aux Set	É/new ¥ aux speed/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Dup down	É/new ¥ aux speed/inst/aux speed/É
	GSYM	Output/#2
	PRIM	Misc/Send entry	É/new ¥ inst/aux speed/É
	PRIM	Stack/Push from aux	É ¥ new/inst/aux speed/É
	LITO	5	ramp output index
	LITO	5	draw data
	PRIM	S_tree/Replace	inst/aux speed/É
	LITO	4	Aux Speed index
	CALL	354073	É ¥ É
EDEF
LDEF	Agitate Set	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	4	agitate data structure
	PRIM	S_tree/Replace	inst/É
	LCAL	Agitate	inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Agitate	inst/É
	LITO	4	agitate data structure
	PRIM	S_tree/Entry to stack	select/ag sp/min sp/inst/É
	BRFL	 	branch if agitate not selected
		PRIM	Stack/Drop	min sp/inst/É
		LITO	3	clamp speed index
		LCAL	Replace 2	inst/É
	BRTR
	PRIM	Stack/Xdrop	ag sp/inst/É
	LITO	3	clamp speed index
	LCAL	Replace 2	inst/É
EDEF
LDEF	Trim Set	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	6	trim data structure
	PRIM	S_tree/Replace	inst/É
	LCAL	Trim	inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Trim	inst/É
	LITO	6	trim data structure
	PRIM	S_tree/Entry to stack	select/ext/non/inst/É
	BRFL	 	branch if non-extensible web
		PRIM	Stack/Drop	non/inst/É
		LITO	5	range index
		LCAL	Replace 2	inst/É
	BRTR
	PRIM	Stack/Xdrop	ext/inst/É
	LITO	5	range index
	LCAL	Replace 2	inst/É
EDEF
LDEF	Replace 2	index/data/inst/É
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
EDEF