STRE
	SGLB	Misc/Class Reference
		CLAS	354035
	ESBR
	SORD	2	/e,,,Main parameters;Main data structure
		PVAL	1	/o;Direction Sign (+1 or -1)
		PVAL	0.100009	/o;Diameter
		PVAL	0	/o;Trim
		PVAL	0.0100101	/o/-100,100,1,20;Build Up (1 - 20)
		PVAL	0.0199896	/o;Ramp Increment
		LVAL	0	ramp input/output
	ESBR
	SORD	4	/e,,,,,Jog parameters;Jog data structure
		PORD	0	/t,Disabled,Enabled;Jog Enable
		PORD	0	/t,Off,Started;Start Signal
		PVAL	0	/o;Line Speed
		PVAL	0	/o;Jog Speed
	ESBR
	SORD	5	tension parameters
		LITO	0	/t,Disabled,Enabled;Tension Enable
		LVAL	0.100009	/o;Overspeed
		LITO	0	/t,Unwind,Rewind;Direction
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Speed Demand
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Winders/Underwind	/3t,Disabled,Enabled;Set Underwind as ...
		LITO	1	index of underwind sign
		PRIM	Stack/Rotate down	data/1/inst/É
		BRFL	 	branch if not underwind
			LVAL	1	not underwinding
			PRIM	Stack/Rotate up	1/inst/1.0/É
			CALL	354073
		BRTR
		LVAL	-1	underwinding, negative diameter
		PRIM	Stack/Rotate up	1/inst/-1.0/É
		CALL	354073
	ESBR
	SGLB	Winders/Diameter	/3
		LITO	2	diameter index
		CALL	354073
	ESBR
	SGLB	Winders/Trim	/3
		LITO	3	trim index
		CALL	354073
	ESBR
	SGLB	Winders/Build Up	/3v/-100,100,1,20;Build Up (1-20)...
		LITO	4	build up index
		CALL	354073
	ESBR
	SGLB	Winders/Ramp Rate	/3
		LITO	5	ramp incr. index
		CALL	354073
	ESBR
	SGLB	Winders/Jog	/3t,Disabled,Enabled;Set Jog as ...
		LITO	1	jog enable index
		LCAL	Jog
	ESBR
	SGLB	Winders/Start	/3t,Off,Started;Set Start as ...
		LITO	2	start signal index
		LCAL	Jog
	ESBR
	SGLB	Winders/Line Speed	/3
		LITO	3	line speed index
		LCAL	Jog
	ESBR
	SGLB	Winders/Jog Speed	/3
		LITO	4	jog speed index
		LCAL	Jog
	ESBR
	SGLB	Winders/Tension Enable	/3t,Disabled,Enabled;Set Tension as...
		LITO	1	enable index
		LCAL	Trim
	ESBR
	SGLB	Winders/Overspeed	/3
		LITO	2	overspeed index
		LCAL	Trim
	ESBR
	SGLB	Winders/Direction	/3t,Unwind,Rewind;Select Direction:
		LITO	3	direction index
		LCAL	Trim
	ESBR
	SGLB	Winders/Get Underwind	/2t,Disabled,Enabled
		LITO	1	index of underwind sign
		LITO	2	s_tree index of main list
		PRIM	S_tree/Read	sign/inst/É
		PRIM	Value/Test negative	underwind?/sign/inst/É
		PRIM	Stack/Xdrop	underwind?/inst/É
		CALL	354056
	ESBR
	SGLB	Winders/Get Diameter	/2
		LITO	2	diameter index
		CALL	354072
	ESBR
	SGLB	Winders/Get Trim	/2
		LITO	3	trim index
		CALL	354072
	ESBR
	SGLB	Winders/Get Build Up	/2v/-100,100;%1.0f
		LITO	4	build up index
		CALL	354072
	ESBR
	SGLB	Winders/Get Ramp Rate	/2
		LITO	5	ramp incr. index
		CALL	354072
	ESBR
	SGLB	Winders/Get Ramp Output	/2
		LITO	6	index of ramp output in list
		CALL	354072
	ESBR
	SGLB	Winders/Get Jog Enable	/2t,Disabled,Enabled
		LITO	1	index of jog enable
		CALL	354076
	ESBR
	SGLB	Winders/Get Start	/2t,Off,Started
		LITO	2	index of start
		CALL	354076
	ESBR
	SGLB	Winders/Get Line Speed	/2
		LITO	3	index of line speed
		CALL	354076
	ESBR
	SGLB	Winders/Get Jog Speed	/2
		LITO	4	index of jog speed
		CALL	354076
	ESBR
	SGLB	Winders/Get Tension Enable	/2t,Disabled,Enabled
		LITO	1	enable index
		CALL	354078
	ESBR
	SGLB	Winders/Get Overspeed	/2
		LITO	2	overspeed index
		CALL	354078
	ESBR
	SGLB	Winders/Get Direction	/2t,Unwind,Rewind
		LITO	3	direction index
		CALL	354078
	ESBR
ESTR
LDEF	Jog	index/inst/data/É
	CMNT	 	sets input speed from jog/line speed
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	4	jog data structure
	PRIM	S_tree/Replace	inst/É
	LITO	0	get whole list
	LITO	4	jog data structure
	PRIM	S_tree/Read
	PRIM	List/Behead	jog enable/list/inst/É
	BRFL	 	branch if not jog
		PRIM	List/Behead	start/list/inst/É
		BRFL	 	branch if not start
			PRIM	Stack/Drop	inst/É
			LVAL	0	return 0 speed if not start
			LCAL	Demand
		BRTR
		PRIM	List/Remove	list/line speed/inst/É
		PRIM	Stack/Drop	line speed/inst/É
		LCAL	Demand
	BRTR
	LITO	3	current offset of jog speed
	PRIM	List/Read	jog speed/list/inst/É
	PRIM	Stack/Xdrop	jog speed/inst/É
	LCAL	Demand
EDEF
LDEF	Demand	speed/inst/É
	PRIM	Stack/Pop to aux	É/speed ¥ inst/É
	LITO	0	whole list
	LITO	2	main data
	PRIM	S_tree/Read	É/speed ¥ list/inst/É
	PRIM	List/Remove	É/speed ¥ list/sign/inst/É
	PRIM	List/Remove	É/speed ¥ list/dia/sign/inst/É
	PRIM	List/Remove	É/speed ¥ list/trim/dia/sign/inst/É
	PRIM	List/Remove	É/speed ¥ list/build up/trim/dia/sign/inst/É
	PRIM	List/Remove	É/speed ¥ list/rate/build up/trim/dia/sign/inst/É
	PRIM	List/List to item	É/speed ¥ old/rate/build up/trim/dia/sign/inst/É
	PRIM	Stack/Push from aux	É ¥ speed/old/rate/build up/trim/dia/sign/inst/É
	CALL	354070	É ¥ new/build up/trim/dia/sign/inst/É
	PRIM	Stack/Dup to aux	É/new ¥ new/build up/trim/dia/sign/inst/É
	LVAL	0.0100101	É/new ¥ .01/new/build up/trim/dia/sign/inst/É
	PRIM	Stack/Rotate down	É/new ¥ build up/.01/new/trim/dia/sign/inst/É
	PRIM	Value/Scale	É/new ¥ demand/trim/dia/sign/inst/É
	PRIM	Value/Add	É/new ¥ demand+trim/dia/sign/inst/É
	PRIM	Value/Fraction	É/new ¥ demand/sign/inst/É
	LVAL	0.833338	É/new ¥ .83333/demand/sign/inst/É
	PRIM	Value/Multiply	É/new ¥ scaled demand/sign/inst/É
	PRIM	Value/Multiply	É/new ¥ signed demand/inst/É
	GSYM	Output/#1	É/new ¥ out #1/signed demand/inst/É
	CALL	354024	É/new ¥ inst/É
	PRIM	Stack/Push from aux	É ¥Ênew/inst/É
	LITO	6	ramp output index
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
	PRIM	Heap/Store self	É
EDEF
LDEF	Trim	index/inst/data/É
	PRIM	Stack/Xswap	index/data/inst/É
	LITO	5	direction data
	PRIM	S_tree/Replace	inst/É
	LITO	0	whole list
	LITO	5	direction data
	PRIM	S_tree/Read	list/inst/É
	PRIM	List/Behead	tension enable/list/inst/É
	BRFL	 	branch if not enabled
		PRIM	Stack/Drop	inst/É
		LVAL	0	0/inst/É
		LCAL	Save
	BRTR
	PRIM	List/Remove	list/overspeed/inst/É
	PRIM	List/List to item	dir/overspeed/inst/É
	BRFL	 	branch if underwind (negative overspeed)
		PRIM	Value/Negate	-overspeed/inst/É
		LCAL	Save
	BRTR
	LCAL	Save
EDEF
LDEF	Save	data/inst/É
	LITO	3	trim index
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
	PRIM	Heap/Store self	É
EDEF