STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354245
	ESBR
	SORD	2
		PORD	4	/o,2,64;Decimation factor (2 to 64)
		LVAL	0	accumulator
		LVAL	0	multiplier
		LITO	0	counter
	ESBR
	SORD	8
		LVAL	0	input
		LVAL	0	output
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354115
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LCAL	init
	ESBR
	SGLB	SignalP/Input	/3v7,-100,100,-100,100;Input (%)
		CMNT	 	Expects: É ¥ inst/arg/É
		CALL	354113	É ¥ inst/arg/É
		PRIM	Stack/Second to aux	É/arg ¥ inst/É
		LITO	2	É/arg ¥ 2/inst/É
		PRIM	S_tree/Get exact	É/arg ¥ list/2/inst/É
		PRIM	List/List to stack	É/arg ¥ counter/factor/acc/recount/2/inst/É
		PRIM	Ordinal/Decrement	É/arg ¥ counter-1/factor/acc/recount/2/inst/É
		PRIM	Stack/Duplicate	É/arg ¥ counter-1/counter-1/factor/acc/recount/2/inst/É
		BRFL	 	branch if zero
			PRIM	Stack/Drop	É/arg ¥ factor/acc/recount/2/inst/É
			PRIM	Stack/Xover	É/arg ¥ counter/factor/acc/recount/2/inst/É
			LCAL	compute	É/acc' ¥ inst/É
			LVAL	0	É/acc' ¥ 0/inst/É
			LITO	2	É/acc' ¥ 2/0/inst/É
			LITO	2	É/acc' ¥ 2/2/0/inst/É
			PRIM	S_tree/Replace	É/acc' ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ acc'/inst/É
			CALL	354114	É ¥ É
		BRTR
		LCAL	compute	É/acc' ¥ inst/É
		PRIM	Stack/Drop from aux	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	SignalP/Decimation Factor	/3u105,2,64;Enter Data... (2 to 64)
		CMNT	 	Expects: É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	2	É ¥ 2/arg/inst/É
		LITO	64	É ¥ 64/2/arg/inst/É
		CALL	354234	É ¥ rslt/out/inst/É
		PRIM	Stack/Drop	É ¥ out/inst/É
		LITO	1	É ¥ 1/out/inst/É
		LITO	2	É ¥ 2/1/out/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	init
	ESBR
	SGLB	SignalP/Get Decimation Factor	/2u2
		LITO	1
		CALL	354072
	ESBR
ESTR
LDEF	compute
	CMNT	 	Does a bunch of neat stuff
	CMNT	 	Input:  É/arg ¥ counter/factor/acc/recount/2/inst/É
	CMNT	 	Output: É/acc' ¥ inst/É
	PRIM	Stack/Switch	É/arg ¥ acc/factor/counter/recount/2/inst/É
	PRIM	Stack/Over	É/arg ¥ factor/acc/factor/counter/recount/2/inst/É
	PRIM	Stack/Push from aux	É ¥ arg/factor/acc/factor/counter/recount/2/inst/É
	PRIM	Value/Multiply	É ¥ arg*factor/acc/factor/counter/recount/2/inst/É
	PRIM	Value/Add	É ¥ acc'/factor/counter/recount/2/inst/É
	PRIM	Stack/Dup to aux	É/acc' ¥ acc'/factor/counter/recount/2/inst/É
	PRIM	Stack/Switch	É/acc' ¥ counter/factor/acc'/recount/2/inst/É
	LITO	4	É/acc' ¥ 4/counter/factor/acc'/recount/2/inst/É
	PRIM	List/Stack to list	É/acc' ¥ list/2/inst/É
	PRIM	S_tree/Put	É/acc' ¥ inst/É
EDEF
LDEF	init
	CMNT	 	Initializes based on the decimation factor
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output: É ¥ É
	LITO	1	É ¥ 1/inst/É
	LITO	2	É ¥ 2/1/inst/É
	PRIM	S_tree/Read	É ¥ recount/inst/É
	PRIM	Stack/Dup down	É ¥ recount/inst/recount/É
	LITO	4	É ¥ 4/recount/inst/recount/É
	LITO	2	É ¥ 2/4/recount/inst/recount/É
	PRIM	S_tree/Replace	É ¥ inst/recount/É
	PRIM	Stack/Swap	É ¥ recount/inst/É
	LITO	64	É ¥ 64/recount/inst/É
	PRIM	Misc/Ordinal to value	É ¥ recount'/inst/É
	LVAL	0.0156255	É ¥ 0.0156/recount'/inst/É
	PRIM	Value/Fraction	É ¥ multiplier/inst/É
	LITO	3	É ¥ 3/multiplier/inst/É
	LITO	2	É ¥ 2/3/multiplier/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	LVAL	0	É ¥ 0/inst/É
	LITO	2	É ¥ 2/0/inst/É
	LITO	2	É ¥ 2/2/0/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self
EDEF