STRE
	SGLB	Misc/Class Reference
		CLAS	354053
	ESBR
	SORD	2	Main data structure
		PVAL	0	/o;Calibration
		PVAL	0	/o;Tension
		LVAL	1	constant
		PVAL	0	/o;Taper
		PVAL	0	/o;Selected Diameter
		PVAL	0.100009	/o;Core Diameter
		PORD	0	/t,Disabled,Enabled;Stall Tension Enable
		PVAL	0	/o;Stall Tension
		PORD	0	/t,Disabled,Enabled;Boost Enable
		PVAL	0	/o;Boost
	ESBR
	SORD	3	diameter data
		PORD	0	/t,Diameter A,Diameter B;Diameter select
	ESBR
	SGLB	Output/#1
		LCON	 	/*+Demand
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Winders/Calibration	/3
		PRIM	Stack/Swap
		LITO	1	cal. index
		LITO	2	main data structure
		PRIM	S_tree/Replace	save new value
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Tension	/3 Trigger
		PRIM	Stack/Swap
		LITO	2	tension index
		LCAL	Demand
	ESBR
	SGLB	Winders/Taper	/3 Trigger
		PRIM	Stack/Swap
		LITO	4	taper index
		LCAL	Demand
	ESBR
	SGLB	Winders/Core Diameter	/3
		PRIM	Stack/Swap
		LITO	6	core index
		LITO	2	main data structure
		PRIM	S_tree/Replace	save new value
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Stall Enable	/3
		PRIM	Stack/Swap
		LITO	7	stall enable index
		LITO	2	main data structure
		PRIM	S_tree/Replace	save new value
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Stall Tension	/3
		PRIM	Stack/Swap
		LITO	8	stall tension index
		LITO	2	main data structure
		PRIM	S_tree/Replace	save new value
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Boost Enable	/3
		PRIM	Stack/Swap
		LITO	9	boost enable index
		LITO	2	main data structure
		PRIM	S_tree/Replace	save new value
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Boost	/3
		PRIM	Stack/Swap
		LITO	10	boost index
		LITO	2	main data structure
		PRIM	S_tree/Replace	save new value
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Diameter Select	/3
		PRIM	Stack/Swap
		LITO	1	diameter select
		LITO	3	diameter data structure
		PRIM	S_tree/Replace	save new diameter
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Diameter A	/3 Trigger (if selected)
		LITO	1	diameter select
		LITO	3	diameter data structure
		PRIM	S_tree/Read
		BRFL	 	branch if dia. A selected
			PRIM	Stack/Swap	dia/inst
			LITO	5	sel dia index
			LCAL	Demand
		BRTR
		PRIM	Stack/Xdrop	get rid of dia.
		PRIM	Heap/Store self	and return (nothing to do!)
	ESBR
	SGLB	Winders/Diameter B	/3 Trigger (if selected)
		LITO	1	diameter select
		LITO	3	diameter data structure
		PRIM	S_tree/Read
		BRFL	 	branch if dia. A selected
			PRIM	Stack/Xdrop	get rid of dia.
			PRIM	Heap/Store self	and return (nothing to do!)
		BRTR
		PRIM	Stack/Swap	dia/inst
		LITO	5	sel dia index
		LCAL	Demand
	ESBR
	SGLB	Winders/Get Calibration	/2
		LITO	1	cal. index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Tension	/2
		LITO	2	tension index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Taper	/2
		LITO	4	taper index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Diameter	/2
		LITO	5	selected diameter index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Core Diameter	/2
		LITO	6	core diameter index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Stall Enable	/2
		LITO	7	stall enable index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Stall Tension	/2
		LITO	8	stall tension index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Boost Enable	/2
		LITO	9	boost enable index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Boost	/2
		LITO	10	boost index
		LITO	2	s_tree index of main list
		CALL	354086
	ESBR
	SGLB	Winders/Get Dia. Select	/2
		LITO	1	diameter select
		LITO	3	diameter data structure
		CALL	354086
	ESBR
ESTR
LDEF	Demand	index/new value/inst/É
	LITO	2	main data structure
	PRIM	S_tree/Replace	save new value
	LITO	0	get everything
	LITO	2	main data structure
	PRIM	S_tree/Read
	PRIM	List/Remove	list/cal/inst/É
	PRIM	List/Remove	list/tension/cal/inst/É
	PRIM	List/Remove	list/1/tension/cal/inst/É
	PRIM	List/Remove	list/taper/1/tension/cal/inst/É
	PRIM	List/Remove	list/dia./taper/1/tension/cal/inst/É
	PRIM	List/Remove	list/core/dia./taper/1/tension/cal/inst/É
	PRIM	Stack/Pop to aux	.../list ¥ core/dia./taper/1/tension/cal/inst/É
	PRIM	Value/Fraction	.../list ¥ (core/dia)/taper/1/tension/cal/inst/É
	LVAL	1	.../list ¥ 1/(core/dia)/taper/1/tension/cal/inst/É
	PRIM	Value/Difference	.../list ¥ 1-(core/dia)/taper/1/tension/cal/inst/É
	PRIM	Value/Multiply	.../list ¥ (1-(core/dia))*taper/1/tension/cal/inst/É
	PRIM	Value/Subtract	.../list ¥ 1-(1-(core/dia))*taper/tension/cal/inst/É
	PRIM	Value/Multiply	.../list ¥ demand/cal/inst/É
	PRIM	Stack/Push from aux
	PRIM	List/Behead
	BRFL	 	branch if stall tension disabled
		PRIM	List/Behead
		PRIM	Stack/Drop	get rid of stall tension
		PRIM	List/Behead	get boost enable
		BRFL	 	branch if boost not enabled
			PRIM	Stack/Drop	get rid of list
			PRIM	Value/Multiply	do calibration
			GSYM	Output/#1
			PRIM	Misc/Send entry
			PRIM	Heap/Store self
		BRTR
		PRIM	List/List to item	boost/demand/cal/s_tree/...
		PRIM	Stack/Over	demand/boost/demand/cal/s_tree/...
		PRIM	Value/Multiply	do boost
		PRIM	Value/Add
		PRIM	Value/Multiply	do calibration
		GSYM	Output/#1
		PRIM	Misc/Send entry
		PRIM	Heap/Store self
	BRTR
	PRIM	List/Remove	list/stall tension/demand/cal/inst/É
	PRIM	Stack/Drop	get rid of rest of stuff
	PRIM	Value/Multiply
	PRIM	Value/Multiply	do calibration
	GSYM	Output/#1
	PRIM	Misc/Send entry
	PRIM	Heap/Store self
EDEF