STRE
	SGLB	Misc/Class Reference
		CLAS	354054
	ESBR
	SORD	2	main data
		LITO	0	output value
		PORD	0	/t,Disabled,Enabled;Enable Input
		PORD	1	/t,Enabled,Disabled;Tension Input
	ESBR
	SGLB	Output/#1
		LCON	 	/*+Tension Enable
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Winders/Enable	/3t,Disabled,Enabled;Set Enable as ...
		PRIM	Stack/Swap	data/inst/É
		BRFL	 	branch if input is false
			LITO	0	FALSE
			LITO	2	enable input offset
			LITO	2	main parameter list
			PRIM	S_tree/Replace	inst/data/É
			LITO	0	output is false
			LCAL	Tension
		BRTR
		LITO	1	TRUE
		LITO	2	enable input offset
		LITO	2	main parameter list
		PRIM	S_tree/Replace	inst/data/É
		LITO	3	inverted tension input index
		LITO	2	main parameter list
		PRIM	S_tree/Read	get inverted tension signal
		LCAL	Tension
	ESBR
	SGLB	Winders/Tension Enable	/3t,Disabled,Enabled;Set Tension as ...
		PRIM	Stack/Swap	data/inst/É
		BRFL
			LITO	1	false, set output to true
			LITO	3	inverted tension input index
			LITO	2	main parameter list
			PRIM	S_tree/Replace	save inverted tension input
			LITO	2	enable input offset
			LITO	2	main parameter list
			PRIM	S_tree/Read	get Start signal
			LCAL	Tension	use Start signal as value
		BRTR
		LITO	0	inverted tension input is false
		LITO	3	inverted tension input index
		LITO	2	main parameter list
		PRIM	S_tree/Replace	save inverted tension input
		LITO	0	output is false
		LCAL	Tension
	ESBR
	SGLB	Winders/Get Output	/2t,Disabled,Enabled
		LITO	1
		LITO	2	main parameter list
		CALL	354086
	ESBR
	SGLB	Winders/Get Enable	/2t,Disabled,Enabled
		LITO	2	enable input offset
		LITO	2	main parameter list
		CALL	354086
	ESBR
	SGLB	Winders/Get Tension	/2t,Enabled,Disabled
		LITO	3	inverted tension input index
		LITO	2	main parameter list
		CALL	354086
	ESBR
ESTR
LDEF	Tension	new enable/inst/É
	BRFL	 	branch if new value false
		LITO	1
		LITO	2	main parameter list
		PRIM	S_tree/Read
		BRFL	 	branch if old value false
			PRIM	Heap/Store self	É ¥ inst/É
		BRTR
		LITO	0
		LITO	1
		LITO	2	main parameter list
		PRIM	S_tree/Replace
		LITO	0
		GSYM	Output/#1
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ inst/É
	BRTR
	LITO	1
	LITO	2	main parameter list
	PRIM	S_tree/Read	tension list/inst/É
	BRFL	 	branch if old value false
		LITO	1	TRUE
		LITO	1	last output
		LITO	2	main parameter list
		PRIM	S_tree/Replace
		LITO	1	TRUE
		GSYM	Output/#1
		PRIM	Misc/Send entry
		PRIM	Heap/Store self	É ¥ inst/É
	BRTR
	PRIM	Heap/Store self	É ¥ inst/É
EDEF