STRE
	SGLB	Misc/Class Reference
		CLAS	354036
	ESBR
	SORD	2	Main data structure
		PVAL	0.0100101	/o;Ramp Increament
		LVAL	0	old ramp output
		PVAL	0	/o;Stall Tension
		PORD	0	/e,Fixed,Proportional;Stall Select
		PORD	0	/t,Disabled,Enabled;Stall Enable
		PVAL	0	/o;Boost
		PORD	0	/e,Fixed,Proportional;Boost Select
		PORD	0	/t,Disabled,Enabled;Boost Enable
		PVAL	0	/o;Tension
		PVAL	0	/o;Taper
		PVAL	0.100009	/o;Core Diameter
		PORD	0	/e,Linear,Hyperbolic;Taper Select
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Demand
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Winders/Diameter	/3v;Enter Diameter; Trigger!
		PRIM	Stack/Second to aux	É/dia ¥ inst/É
		LITO	0	whole list
		LITO	2	main data
		PRIM	S_tree/Read	É/dia ¥ list/inst/É
		PRIM	List/Remove	É/dia ¥ list/incr/inst/É
		PRIM	List/Remove	É/dia ¥ list/old/incr/inst/É
		PRIM	List/Remove	É/dia ¥ list/stall/old/incr/inst/É
		PRIM	List/Remove	É/dia ¥ list/stall sel/stall/old/incr/inst/É
		PRIM	List/Remove	É/dia ¥ list/stall enable/stall sel/stall/É
		PRIM	List/Remove	É/dia ¥ list/boost/stall enable/stall sel/stall/É
		PRIM	List/Remove	É/dia ¥ list/boost sel/boost/É
		PRIM	List/Remove	É/dia ¥ list/boost enable/boost sel/boost/É
		PRIM	List/Remove	É/dia ¥ list/tension/boost enable/boost sel/boost/É
		PRIM	List/Remove	É/dia ¥ list/taper/tension/É
		PRIM	List/Remove	É/dia ¥ list/core/taper/tension/É
		PRIM	List/List to item	É/dia ¥ taper sel/core/taper/tension/É
		BRFL	 	branch if Linear Taper
			PRIM	Stack/Push from aux	É ¥ dia/core/taper/tension/É
			PRIM	Value/Difference	É ¥ dia-core/taper/tension/É
			LCAL	Taper
		BRTR
		CMNT	 	Hyperbolic Taper
		PRIM	Stack/Push from aux	É ¥ dia/core/taper/tension/É
		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/Ramp Rate	/3v;Enter Ramp Increament:
		LITO	1	ramp index
		CALL	354073
	ESBR
	SGLB	Winders/Stall Tension	/3v;Enter Stall Tension:
		LITO	3	stall index
		CALL	354073
	ESBR
	SGLB	Winders/Stall Select	/3e,Fixed,Proportional;Stall Select:
		LITO	4	stall  select index
		CALL	354073
	ESBR
	SGLB	Winders/Stall Enable	/3t,Disabled,Enabled;Stall Enable:
		LITO	5	stall enable index
		CALL	354073
	ESBR
	SGLB	Winders/Boost	/3v;Enter Boost:
		LITO	6	boost index
		CALL	354073
	ESBR
	SGLB	Winders/Boost Select	/3e,Fixed,Proportional;Boost Select:
		LITO	7	boost select index
		CALL	354073
	ESBR
	SGLB	Winders/Boost Enable	/3t,Disabled,Enabled;Boost Enable:
		LITO	8	boost enable index
		CALL	354073
	ESBR
	SGLB	Winders/Tension	/3v;Enter Tension:
		LITO	9	tension index
		CALL	354073
	ESBR
	SGLB	Winders/Taper	/3v;Enter Taper:
		LITO	10	taper index
		CALL	354073
	ESBR
	SGLB	Winders/Core Diameter	/3v;Enter Core Diameter:
		LITO	11	core index
		CALL	354073
	ESBR
	SGLB	Winders/Taper Select	/3e,Linear,Hyperbolic;Taper Select:
		LITO	12	taper select index
		CALL	354073
	ESBR
	SGLB	Winders/Get Ramp Rate	/2
		LITO	1	ramp index
		CALL	354072
	ESBR
	SGLB	Winders/Get Tension Demand	/2
		LITO	2	demand index
		CALL	354072
	ESBR
	SGLB	Winders/Get Stall Tension	/2
		LITO	3	stall index
		CALL	354072
	ESBR
	SGLB	Winders/Get Stall Select	/2e,Fixed,Proportional
		LITO	4	stall  select index
		CALL	354072
	ESBR
	SGLB	Winders/Get Stall Enable	/2t,Disabled,Enabled
		LITO	5	stall enable index
		CALL	354072
	ESBR
	SGLB	Winders/Get Boost	/2
		LITO	6	boost index
		CALL	354072
	ESBR
	SGLB	Winders/Get Boost Select	/2e,Fixed,Proportional
		LITO	7	boost select index
		CALL	354072
	ESBR
	SGLB	Winders/Get Boost Enable	/2t,Disabled,Enabled
		LITO	8	boost enable index
		CALL	354072
	ESBR
	SGLB	Winders/Get Tension	/2
		LITO	9	tension index
		CALL	354072
	ESBR
	SGLB	Winders/Get Taper	/2
		LITO	10	taper index
		CALL	354072
	ESBR
	SGLB	Winders/Get Core Diameter	/2
		LITO	11	core index
		CALL	354072
	ESBR
	SGLB	Winders/Get Taper Select	/2e,Linear,Hyperbolic;Taper Select:
		LITO	12	taper select index
		CALL	354072
	ESBR
ESTR
LDEF	Taper	É ¥ type/taper/tension/É
	PRIM	Value/Multiply	É ¥ type*taper/tension/É
	LVAL	1	1/type*taper/tension/É
	PRIM	Value/Difference	1-type*taper/tension/É
	PRIM	Value/Multiply	demand/boost enable/boost sel/boost/É
	PRIM	Stack/Rotate up	boost enable/boost sel/demand/boost/É
	BRFL	 	branch if boost not enabled
		PRIM	Stack/Drop	demand/boost/É
		PRIM	Stack/Xdrop	demand/stall enable/stall sel/stall/É
		LCAL	Stall
	BRTR
	CMNT	 	boost enabled
	BRFL	 	branch if fixed boost
		PRIM	Value/Add	demand+boost/stall enable/stall sel/stall/É
		LCAL	Stall
	BRTR
	CMNT	 	proportional boost
	PRIM	Stack/Dup down	demand/boost/demand/É
	PRIM	Value/Multiply	demand*boost/demand/É
	PRIM	Value/Add	demand*boost+demand/stall enable/stall sel/stall/É
	LCAL	Stall
EDEF
LDEF	Stall	demand/stall enable/stall sel/stall/É
	PRIM	Stack/Rotate up	stall enable/stall sel/demand/stall/É
	BRFL	 	branch if not stall enable
		PRIM	Stack/Drop	demand/stall/old/incr/inst/É
		PRIM	Stack/Xdrop	demand/old/incr/inst/É
		LCAL	Demand
	BRTR
	CMNT	 	stall enabled
	BRFL	 	branch if fixed boost
		PRIM	Stack/Drop	stall/old/incr/inst/É
		LCAL	Demand
	BRTR
	CMNT	 	proportional boost
	PRIM	Value/Multiply	demand*stall/old/incr/inst/É
	LCAL	Demand
EDEF
LDEF	Demand	demand/old/incr/inst/É
	CALL	354070	demand/inst/É
	PRIM	Stack/Dup down	demand/inst/demand/É
	GSYM	Output/#1
	CALL	354024
	LITO	2	old value index
	CALL	354073
EDEF