STRE
	SGLB	Misc/Class Reference
		CLAS	354035
	ESBR
	SORD	2	/e,,,Main parameters;Main data structure
		PORD	1	/t,Under,Over;Overwind-Underwind?
		PVAL	0.100009	/o,-100,100,0,100;Diameter (% Full Roll)
		PVAL	0.0100101	/o/-100,100,1,20;Build Up (1 - 20)
		PVAL	0	/o;Trim
		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;Mode
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Speed Demand
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Winders/Over-Under	/3t77,Under,Over;Set Overwind/Underwind as ...
		LITO	1	underwind index
		CALL	354073
	ESBR
	SGLB	Winders/Diameter	/3v10,-100,100;Enter Diameter (%):
		LITO	2	diameter index
		CALL	354073
	ESBR
	SGLB	Winders/Build Up	/3v41,-100,100,1,20;Build Up (1-20)...
		LITO	3	build up index
		CALL	354073
	ESBR
	SGLB	Winders/Trim	/3v57,-120,120;Enter Trim (%):
		LITO	4	trim index
		CALL	354073
	ESBR
	SGLB	Winders/Ramp Rate	/3
		LITO	5	ramp incr. index
		CALL	354073
	ESBR
	SGLB	Winders/Jog	/3t12,Disabled,Enabled;Set Jog as ...
		LITO	1	jog enable index
		LCAL	Jog
	ESBR
	SGLB	Winders/Start	/3t79,Off,Started;Set Start as ...
		LITO	2	start signal index
		LCAL	Jog
	ESBR
	SGLB	Winders/Line Speed	/3v57,-120,120;Enter Line Speed (%):
		LITO	3	line speed index
		LCAL	Jog
	ESBR
	SGLB	Winders/Jog Speed	/3v57,-120,120;Enter Jog Speed (%):
		LITO	4	jog speed index
		LCAL	Jog
	ESBR
	SGLB	Winders/Tension Enable	/3t12,Disabled,Enabled;Set Tension as...
		LITO	1	enable index
		LCAL	Trim
	ESBR
	SGLB	Winders/Overspeed	/3v57,-120,120;Enter Overpeed (%):
		LITO	2	overspeed index
		LCAL	Trim
	ESBR
	SGLB	Winders/Mode	/3t72,Unwind,Rewind;Select Mode:
		LITO	3	direction index
		LCAL	Trim
	ESBR
	SGLB	Winders/Get Over-Under	/2t76,Underwind,Overwind
		LITO	1	index of underwind sign
		CALL	354072
	ESBR
	SGLB	Winders/Get Diameter	/2v6,-100,100;%1.2f%%
		LITO	2	diameter index
		CALL	354072
	ESBR
	SGLB	Winders/Get Build Up	/2v9,-100,100;%1.2f
		LITO	3	build up index
		CALL	354072
	ESBR
	SGLB	Winders/Get Trim	/2v58,-120,120;%1.2f%%
		LITO	4	trim index
		CALL	354072
	ESBR
	SGLB	Winders/Get Ramp Rate	/2
		LITO	5	ramp incr. index
		CALL	354072
	ESBR
	SGLB	Winders/Get Ramp Output	/2v58,-120,120;%1.2f%%
		LITO	6	index of ramp output in list
		CALL	354072
	ESBR
	SGLB	Winders/Get Jog Enable	/2t11,Disabled,Enabled
		LITO	1	index of jog enable
		CALL	354076
	ESBR
	SGLB	Winders/Get Start	/2t78,Off,Started
		LITO	2	index of start
		CALL	354076
	ESBR
	SGLB	Winders/Get Line Speed	/2v58,-120,120;%1.2f%%
		LITO	3	index of line speed
		CALL	354076
	ESBR
	SGLB	Winders/Get Jog Speed	/2v58,-120,120;%1.2f%%
		LITO	4	index of jog speed
		CALL	354076
	ESBR
	SGLB	Winders/Get Tension Enable	/2t11,Disabled,Enabled
		LITO	1	enable index
		CALL	354078
	ESBR
	SGLB	Winders/Get Overspeed	/2v58,-120,120;%1.2f%%
		LITO	2	overspeed index
		CALL	354078
	ESBR
	SGLB	Winders/Get Mode	/2t72,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/build up/dia/sign/inst/É
	PRIM	List/Remove	É/speed ¥ list/trim/build up/dia/sign/inst/É
	PRIM	List/Remove	É/speed ¥ list/rate/trim/build up/dia/sign/inst/É
	PRIM	List/List to item	É/speed ¥ old/rate/trim/build up/dia/sign/inst/É
	PRIM	Stack/Push from aux	É ¥ speed/old/rate/trim/build up/dia/sign/inst/É
	CALL	354070	É ¥ new/trim/build up/dia/sign/inst/É
	PRIM	Stack/Dup to aux	É/new ¥ new/trim/build up/dia/sign/inst/É
	PRIM	Value/Add	É/new ¥ demand/build up/dia/sign/inst/É
	LVAL	0.0100101	É/new ¥ .01/demand/build up/dia/sign/inst/É
	PRIM	Stack/Rotate down	É/new ¥ build up/.01/demand/dia/sign/inst/É
	PRIM	Value/Scale	É/new ¥ demand/dia/sign/inst/É
	PRIM	Value/Fraction	É/new ¥ demand/sign/inst/É
	LVAL	0.833338	É/new ¥ .83333/demand/sign/inst/É
	PRIM	Value/Clamp high	É/new ¥ +clamped demand/sign/inst/É
	LVAL	-0.833338	É/new ¥ -.83333/+clamped demand/sign/inst/É
	PRIM	Value/Clamp low	É/new ¥ clamped demand/sign/inst/É
	CALL	354104	É/new ¥ signed demand/inst/É
	GSYM	Output/#1	É/new ¥ out #1/signed demand/inst/É
	PRIM	Misc/Send entry	É/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 unwinding (negative overspeed)
		PRIM	Value/Negate	-overspeed/inst/É
		LCAL	Save
	BRTR
	LCAL	Save
EDEF
LDEF	Save	data/inst/É
	LITO	4	trim index
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
	PRIM	Heap/Store self	É
EDEF