-
Notifications
You must be signed in to change notification settings - Fork 0
/
kw-reducer.spn
151 lines (151 loc) · 3.09 KB
/
kw-reducer.spn
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
; kw reducer 1.spcd
; Patch saved from SpinCAD Designer version 1032
; sample rate
; pre/post filter
; bit depth
;
;
; ----------------------------
;------ Input
;------ Pot 0
;------ pot speedup high shelf filter
RDAX POT0,1.0000000000
RDFX REG0,0.0010000000
WRHX REG0,-0.7500000000
RDAX REG1,0.7500000000
WRAX REG1,0.0000000000
;------ Pot 2
;------ pot speedup high shelf filter
RDAX POT2,1.0000000000
RDFX REG2,0.0010000000
WRHX REG2,-0.7500000000
RDAX REG3,0.7500000000
WRAX REG3,0.0000000000
;------ Pot 1
;------ pot speedup high shelf filter
RDAX POT1,1.0000000000
RDFX REG4,0.0010000000
WRHX REG4,-0.7500000000
RDAX REG5,0.7500000000
WRAX REG5,0.0000000000
;------ Aliaser
SKP RUN ,4
CLR
WRAX REG6,0.0000000000
WRAX REG7,0.0000000000
WRAX REG8,0.0000000000
CLR
RDAX REG1,1.0000000000
SOF 0.0980000000,0.0020000000
RDAX REG8,1.0000000000
WRAX REG8,1.0000000000
SOF 1.0000000000,-0.5000000000
SKP NEG,5
WRAX REG8,0.0000000000
RDAX REG7,1.0000000000
WRAX REG6,0.0000000000
RDAX ADCL,1.0000000000
WRAX REG7,0.0000000000
CLR
;------ Gain Boost
RDAX REG6,1.0000000000
SOF -2.0000000000,0.0000000000
SOF -1.0000000000,0.0000000000
WRAX REG12,0.0000000000
;------ Invert
RDAX REG3,1.0000000000
SOF -0.9990000000,0.9990000000
WRAX REG13,0.0000000000
;------ Scale/Offset
RDAX REG5,1.0000000000
SOF 0.9000000000,0.1000000000
WRAX REG14,0.0000000000
;------ Quantizer
RDAX REG13,1.0000000000
SOF 1.0000000000,-0.1666666667
SKP NEG,18
SOF 1.0000000000,-0.1666666667
SKP NEG,26
SOF 1.0000000000,-0.1666666667
SKP NEG,34
SOF 1.0000000000,-0.1666666667
SKP NEG,42
SOF 1.0000000000,-0.1666666667
SKP NEG,50
CLR
RDAX REG12,1.0000000000
SKP NEG,2
AND $00C00000
SKP GEZ,3
SOF -1.0000000000,0.0000000000
AND $00C00000
SOF -1.0000000000,0.0000000000
WRAX REG15,0.0000000000
SKP ZRO,49
CLR
RDAX REG12,1.0000000000
SKP NEG,2
AND $00FE0000
SKP GEZ,3
SOF -1.0000000000,0.0000000000
AND $00FE0000
SOF -1.0000000000,0.0000000000
WRAX REG15,0.0000000000
SKP ZRO,39
CLR
RDAX REG12,1.0000000000
SKP NEG,2
AND $00FC0000
SKP GEZ,3
SOF -1.0000000000,0.0000000000
AND $00FC0000
SOF -1.0000000000,0.0000000000
WRAX REG15,0.0000000000
SKP ZRO,29
CLR
RDAX REG12,1.0000000000
SKP NEG,2
AND $00F80000
SKP GEZ,3
SOF -1.0000000000,0.0000000000
AND $00F80000
SOF -1.0000000000,0.0000000000
WRAX REG15,0.0000000000
SKP ZRO,19
CLR
RDAX REG12,1.0000000000
SKP NEG,2
AND $00F00000
SKP GEZ,3
SOF -1.0000000000,0.0000000000
AND $00F00000
SOF -1.0000000000,0.0000000000
WRAX REG15,0.0000000000
SKP ZRO,9
CLR
RDAX REG12,1.0000000000
SKP NEG,2
AND $00E00000
SKP GEZ,3
SOF -1.0000000000,0.0000000000
AND $00E00000
SOF -1.0000000000,0.0000000000
WRAX REG15,0.0000000000
;------ SVF 2P
SOF 0.0000000000,0.0000000000
RDAX REG15,1.0000000000
RDAX REG18,-1.0000000000
RDAX REG17,-1.0000000000
WRAX REG16,0.4612193865
MULX REG14
RDAX REG17,1.0000000000
WRAX REG17,0.4612193865
MULX REG14
RDAX REG18,1.0000000000
WRAX REG18,0.0000000000
;------ LPF 1P
;------ Output
RDAX REG18,1.0000000000
WRAX DACL,0.0000000000
RDAX REG18,1.0000000000
WRAX DACR,0.0000000000