aboutsummaryrefslogtreecommitdiffstats
path: root/sound/isa/sb/emu8000_callback.c
diff options
context:
space:
mode:
Diffstat (limited to 'sound/isa/sb/emu8000_callback.c')
-rw-r--r--sound/isa/sb/emu8000_callback.c543
1 files changed, 543 insertions, 0 deletions
diff --git a/sound/isa/sb/emu8000_callback.c b/sound/isa/sb/emu8000_callback.c
new file mode 100644
index 000000000000..1cc4101a17a4
--- /dev/null
+++ b/sound/isa/sb/emu8000_callback.c
@@ -0,0 +1,543 @@
1/*
2 * synth callback routines for the emu8000 (AWE32/64)
3 *
4 * Copyright (C) 1999 Steve Ratcliffe
5 * Copyright (C) 1999-2000 Takashi Iwai <tiwai@suse.de>
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 */
21
22#include "emu8000_local.h"
23#include <sound/asoundef.h>
24
25/*
26 * prototypes
27 */
28static snd_emux_voice_t *get_voice(snd_emux_t *emu, snd_emux_port_t *port);
29static int start_voice(snd_emux_voice_t *vp);
30static void trigger_voice(snd_emux_voice_t *vp);
31static void release_voice(snd_emux_voice_t *vp);
32static void update_voice(snd_emux_voice_t *vp, int update);
33static void reset_voice(snd_emux_t *emu, int ch);
34static void terminate_voice(snd_emux_voice_t *vp);
35static void sysex(snd_emux_t *emu, char *buf, int len, int parsed, snd_midi_channel_set_t *chset);
36#ifdef CONFIG_SND_SEQUENCER_OSS
37static int oss_ioctl(snd_emux_t *emu, int cmd, int p1, int p2);
38#endif
39static int load_fx(snd_emux_t *emu, int type, int mode, const void __user *buf, long len);
40
41static void set_pitch(emu8000_t *hw, snd_emux_voice_t *vp);
42static void set_volume(emu8000_t *hw, snd_emux_voice_t *vp);
43static void set_pan(emu8000_t *hw, snd_emux_voice_t *vp);
44static void set_fmmod(emu8000_t *hw, snd_emux_voice_t *vp);
45static void set_tremfreq(emu8000_t *hw, snd_emux_voice_t *vp);
46static void set_fm2frq2(emu8000_t *hw, snd_emux_voice_t *vp);
47static void set_filterQ(emu8000_t *hw, snd_emux_voice_t *vp);
48static void snd_emu8000_tweak_voice(emu8000_t *emu, int ch);
49
50/*
51 * Ensure a value is between two points
52 * macro evaluates its args more than once, so changed to upper-case.
53 */
54#define LIMITVALUE(x, a, b) do { if ((x) < (a)) (x) = (a); else if ((x) > (b)) (x) = (b); } while (0)
55#define LIMITMAX(x, a) do {if ((x) > (a)) (x) = (a); } while (0)
56
57
58/*
59 * set up operators
60 */
61static snd_emux_operators_t emu8000_ops = {
62 .owner = THIS_MODULE,
63 .get_voice = get_voice,
64 .prepare = start_voice,
65 .trigger = trigger_voice,
66 .release = release_voice,
67 .update = update_voice,
68 .terminate = terminate_voice,
69 .reset = reset_voice,
70 .sample_new = snd_emu8000_sample_new,
71 .sample_free = snd_emu8000_sample_free,
72 .sample_reset = snd_emu8000_sample_reset,
73 .load_fx = load_fx,
74 .sysex = sysex,
75#ifdef CONFIG_SND_SEQUENCER_OSS
76 .oss_ioctl = oss_ioctl,
77#endif
78};
79
80void
81snd_emu8000_ops_setup(emu8000_t *hw)
82{
83 hw->emu->ops = emu8000_ops;
84}
85
86
87
88/*
89 * Terminate a voice
90 */
91static void
92release_voice(snd_emux_voice_t *vp)
93{
94 int dcysusv;
95 emu8000_t *hw;
96
97 hw = vp->hw;
98 dcysusv = 0x8000 | (unsigned char)vp->reg.parm.modrelease;
99 EMU8000_DCYSUS_WRITE(hw, vp->ch, dcysusv);
100 dcysusv = 0x8000 | (unsigned char)vp->reg.parm.volrelease;
101 EMU8000_DCYSUSV_WRITE(hw, vp->ch, dcysusv);
102}
103
104
105/*
106 */
107static void
108terminate_voice(snd_emux_voice_t *vp)
109{
110 emu8000_t *hw;
111
112 hw = vp->hw;
113 EMU8000_DCYSUSV_WRITE(hw, vp->ch, 0x807F);
114}
115
116
117/*
118 */
119static void
120update_voice(snd_emux_voice_t *vp, int update)
121{
122 emu8000_t *hw;
123
124 hw = vp->hw;
125 if (update & SNDRV_EMUX_UPDATE_VOLUME)
126 set_volume(hw, vp);
127 if (update & SNDRV_EMUX_UPDATE_PITCH)
128 set_pitch(hw, vp);
129 if ((update & SNDRV_EMUX_UPDATE_PAN) &&
130 vp->port->ctrls[EMUX_MD_REALTIME_PAN])
131 set_pan(hw, vp);
132 if (update & SNDRV_EMUX_UPDATE_FMMOD)
133 set_fmmod(hw, vp);
134 if (update & SNDRV_EMUX_UPDATE_TREMFREQ)
135 set_tremfreq(hw, vp);
136 if (update & SNDRV_EMUX_UPDATE_FM2FRQ2)
137 set_fm2frq2(hw, vp);
138 if (update & SNDRV_EMUX_UPDATE_Q)
139 set_filterQ(hw, vp);
140}
141
142
143/*
144 * Find a channel (voice) within the EMU that is not in use or at least
145 * less in use than other channels. Always returns a valid pointer
146 * no matter what. If there is a real shortage of voices then one
147 * will be cut. Such is life.
148 *
149 * The channel index (vp->ch) must be initialized in this routine.
150 * In Emu8k, it is identical with the array index.
151 */
152static snd_emux_voice_t *
153get_voice(snd_emux_t *emu, snd_emux_port_t *port)
154{
155 int i;
156 snd_emux_voice_t *vp;
157 emu8000_t *hw;
158
159 /* what we are looking for, in order of preference */
160 enum {
161 OFF=0, RELEASED, PLAYING, END
162 };
163
164 /* Keeps track of what we are finding */
165 struct best {
166 unsigned int time;
167 int voice;
168 } best[END];
169 struct best *bp;
170
171 hw = emu->hw;
172
173 for (i = 0; i < END; i++) {
174 best[i].time = (unsigned int)(-1); /* XXX MAX_?INT really */;
175 best[i].voice = -1;
176 }
177
178 /*
179 * Go through them all and get a best one to use.
180 */
181 for (i = 0; i < emu->max_voices; i++) {
182 int state, val;
183
184 vp = &emu->voices[i];
185 state = vp->state;
186
187 if (state == SNDRV_EMUX_ST_OFF)
188 bp = best + OFF;
189 else if (state == SNDRV_EMUX_ST_RELEASED ||
190 state == SNDRV_EMUX_ST_PENDING) {
191 bp = best + RELEASED;
192 val = (EMU8000_CVCF_READ(hw, vp->ch) >> 16) & 0xffff;
193 if (! val)
194 bp = best + OFF;
195 }
196 else if (state & SNDRV_EMUX_ST_ON)
197 bp = best + PLAYING;
198 else
199 continue;
200
201 /* check if sample is finished playing (non-looping only) */
202 if (state != SNDRV_EMUX_ST_OFF &&
203 (vp->reg.sample_mode & SNDRV_SFNT_SAMPLE_SINGLESHOT)) {
204 val = EMU8000_CCCA_READ(hw, vp->ch) & 0xffffff;
205 if (val >= vp->reg.loopstart)
206 bp = best + OFF;
207 }
208
209 if (vp->time < bp->time) {
210 bp->time = vp->time;
211 bp->voice = i;
212 }
213 }
214
215 for (i = 0; i < END; i++) {
216 if (best[i].voice >= 0) {
217 vp = &emu->voices[best[i].voice];
218 vp->ch = best[i].voice;
219 return vp;
220 }
221 }
222
223 /* not found */
224 return NULL;
225}
226
227/*
228 */
229static int
230start_voice(snd_emux_voice_t *vp)
231{
232 unsigned int temp;
233 int ch;
234 int addr;
235 snd_midi_channel_t *chan;
236 emu8000_t *hw;
237
238 hw = vp->hw;
239 ch = vp->ch;
240 chan = vp->chan;
241
242 /* channel to be silent and idle */
243 EMU8000_DCYSUSV_WRITE(hw, ch, 0x0080);
244 EMU8000_VTFT_WRITE(hw, ch, 0x0000FFFF);
245 EMU8000_CVCF_WRITE(hw, ch, 0x0000FFFF);
246 EMU8000_PTRX_WRITE(hw, ch, 0);
247 EMU8000_CPF_WRITE(hw, ch, 0);
248
249 /* set pitch offset */
250 set_pitch(hw, vp);
251
252 /* set envelope parameters */
253 EMU8000_ENVVAL_WRITE(hw, ch, vp->reg.parm.moddelay);
254 EMU8000_ATKHLD_WRITE(hw, ch, vp->reg.parm.modatkhld);
255 EMU8000_DCYSUS_WRITE(hw, ch, vp->reg.parm.moddcysus);
256 EMU8000_ENVVOL_WRITE(hw, ch, vp->reg.parm.voldelay);
257 EMU8000_ATKHLDV_WRITE(hw, ch, vp->reg.parm.volatkhld);
258 /* decay/sustain parameter for volume envelope is used
259 for triggerg the voice */
260
261 /* cutoff and volume */
262 set_volume(hw, vp);
263
264 /* modulation envelope heights */
265 EMU8000_PEFE_WRITE(hw, ch, vp->reg.parm.pefe);
266
267 /* lfo1/2 delay */
268 EMU8000_LFO1VAL_WRITE(hw, ch, vp->reg.parm.lfo1delay);
269 EMU8000_LFO2VAL_WRITE(hw, ch, vp->reg.parm.lfo2delay);
270
271 /* lfo1 pitch & cutoff shift */
272 set_fmmod(hw, vp);
273 /* lfo1 volume & freq */
274 set_tremfreq(hw, vp);
275 /* lfo2 pitch & freq */
276 set_fm2frq2(hw, vp);
277 /* pan & loop start */
278 set_pan(hw, vp);
279
280 /* chorus & loop end (chorus 8bit, MSB) */
281 addr = vp->reg.loopend - 1;
282 temp = vp->reg.parm.chorus;
283 temp += (int)chan->control[MIDI_CTL_E3_CHORUS_DEPTH] * 9 / 10;
284 LIMITMAX(temp, 255);
285 temp = (temp <<24) | (unsigned int)addr;
286 EMU8000_CSL_WRITE(hw, ch, temp);
287
288 /* Q & current address (Q 4bit value, MSB) */
289 addr = vp->reg.start - 1;
290 temp = vp->reg.parm.filterQ;
291 temp = (temp<<28) | (unsigned int)addr;
292 EMU8000_CCCA_WRITE(hw, ch, temp);
293
294 /* clear unknown registers */
295 EMU8000_00A0_WRITE(hw, ch, 0);
296 EMU8000_0080_WRITE(hw, ch, 0);
297
298 /* reset volume */
299 temp = vp->vtarget << 16;
300 EMU8000_VTFT_WRITE(hw, ch, temp | vp->ftarget);
301 EMU8000_CVCF_WRITE(hw, ch, temp | 0xff00);
302
303 return 0;
304}
305
306/*
307 * Start envelope
308 */
309static void
310trigger_voice(snd_emux_voice_t *vp)
311{
312 int ch = vp->ch;
313 unsigned int temp;
314 emu8000_t *hw;
315
316 hw = vp->hw;
317
318 /* set reverb and pitch target */
319 temp = vp->reg.parm.reverb;
320 temp += (int)vp->chan->control[MIDI_CTL_E1_REVERB_DEPTH] * 9 / 10;
321 LIMITMAX(temp, 255);
322 temp = (temp << 8) | (vp->ptarget << 16) | vp->aaux;
323 EMU8000_PTRX_WRITE(hw, ch, temp);
324 EMU8000_CPF_WRITE(hw, ch, vp->ptarget << 16);
325 EMU8000_DCYSUSV_WRITE(hw, ch, vp->reg.parm.voldcysus);
326}
327
328/*
329 * reset voice parameters
330 */
331static void
332reset_voice(snd_emux_t *emu, int ch)
333{
334 emu8000_t *hw;
335
336 hw = emu->hw;
337 EMU8000_DCYSUSV_WRITE(hw, ch, 0x807F);
338 snd_emu8000_tweak_voice(hw, ch);
339}
340
341/*
342 * Set the pitch of a possibly playing note.
343 */
344static void
345set_pitch(emu8000_t *hw, snd_emux_voice_t *vp)
346{
347 EMU8000_IP_WRITE(hw, vp->ch, vp->apitch);
348}
349
350/*
351 * Set the volume of a possibly already playing note
352 */
353static void
354set_volume(emu8000_t *hw, snd_emux_voice_t *vp)
355{
356 int ifatn;
357
358 ifatn = (unsigned char)vp->acutoff;
359 ifatn = (ifatn << 8);
360 ifatn |= (unsigned char)vp->avol;
361 EMU8000_IFATN_WRITE(hw, vp->ch, ifatn);
362}
363
364/*
365 * Set pan and loop start address.
366 */
367static void
368set_pan(emu8000_t *hw, snd_emux_voice_t *vp)
369{
370 unsigned int temp;
371
372 temp = ((unsigned int)vp->apan<<24) | ((unsigned int)vp->reg.loopstart - 1);
373 EMU8000_PSST_WRITE(hw, vp->ch, temp);
374}
375
376#define MOD_SENSE 18
377
378static void
379set_fmmod(emu8000_t *hw, snd_emux_voice_t *vp)
380{
381 unsigned short fmmod;
382 short pitch;
383 unsigned char cutoff;
384 int modulation;
385
386 pitch = (char)(vp->reg.parm.fmmod>>8);
387 cutoff = (vp->reg.parm.fmmod & 0xff);
388 modulation = vp->chan->gm_modulation + vp->chan->midi_pressure;
389 pitch += (MOD_SENSE * modulation) / 1200;
390 LIMITVALUE(pitch, -128, 127);
391 fmmod = ((unsigned char)pitch<<8) | cutoff;
392 EMU8000_FMMOD_WRITE(hw, vp->ch, fmmod);
393}
394
395/* set tremolo (lfo1) volume & frequency */
396static void
397set_tremfreq(emu8000_t *hw, snd_emux_voice_t *vp)
398{
399 EMU8000_TREMFRQ_WRITE(hw, vp->ch, vp->reg.parm.tremfrq);
400}
401
402/* set lfo2 pitch & frequency */
403static void
404set_fm2frq2(emu8000_t *hw, snd_emux_voice_t *vp)
405{
406 unsigned short fm2frq2;
407 short pitch;
408 unsigned char freq;
409 int modulation;
410
411 pitch = (char)(vp->reg.parm.fm2frq2>>8);
412 freq = vp->reg.parm.fm2frq2 & 0xff;
413 modulation = vp->chan->gm_modulation + vp->chan->midi_pressure;
414 pitch += (MOD_SENSE * modulation) / 1200;
415 LIMITVALUE(pitch, -128, 127);
416 fm2frq2 = ((unsigned char)pitch<<8) | freq;
417 EMU8000_FM2FRQ2_WRITE(hw, vp->ch, fm2frq2);
418}
419
420/* set filterQ */
421static void
422set_filterQ(emu8000_t *hw, snd_emux_voice_t *vp)
423{
424 unsigned int addr;
425 addr = EMU8000_CCCA_READ(hw, vp->ch) & 0xffffff;
426 addr |= (vp->reg.parm.filterQ << 28);
427 EMU8000_CCCA_WRITE(hw, vp->ch, addr);
428}
429
430/*
431 * set the envelope & LFO parameters to the default values
432 */
433static void
434snd_emu8000_tweak_voice(emu8000_t *emu, int i)
435{
436 /* set all mod/vol envelope shape to minimum */
437 EMU8000_ENVVOL_WRITE(emu, i, 0x8000);
438 EMU8000_ENVVAL_WRITE(emu, i, 0x8000);
439 EMU8000_DCYSUS_WRITE(emu, i, 0x7F7F);
440 EMU8000_ATKHLDV_WRITE(emu, i, 0x7F7F);
441 EMU8000_ATKHLD_WRITE(emu, i, 0x7F7F);
442 EMU8000_PEFE_WRITE(emu, i, 0); /* mod envelope height to zero */
443 EMU8000_LFO1VAL_WRITE(emu, i, 0x8000); /* no delay for LFO1 */
444 EMU8000_LFO2VAL_WRITE(emu, i, 0x8000);
445 EMU8000_IP_WRITE(emu, i, 0xE000); /* no pitch shift */
446 EMU8000_IFATN_WRITE(emu, i, 0xFF00); /* volume to minimum */
447 EMU8000_FMMOD_WRITE(emu, i, 0);
448 EMU8000_TREMFRQ_WRITE(emu, i, 0);
449 EMU8000_FM2FRQ2_WRITE(emu, i, 0);
450}
451
452/*
453 * sysex callback
454 */
455static void
456sysex(snd_emux_t *emu, char *buf, int len, int parsed, snd_midi_channel_set_t *chset)
457{
458 emu8000_t *hw;
459
460 hw = emu->hw;
461
462 switch (parsed) {
463 case SNDRV_MIDI_SYSEX_GS_CHORUS_MODE:
464 hw->chorus_mode = chset->gs_chorus_mode;
465 snd_emu8000_update_chorus_mode(hw);
466 break;
467
468 case SNDRV_MIDI_SYSEX_GS_REVERB_MODE:
469 hw->reverb_mode = chset->gs_reverb_mode;
470 snd_emu8000_update_reverb_mode(hw);
471 break;
472 }
473}
474
475
476#ifdef CONFIG_SND_SEQUENCER_OSS
477/*
478 * OSS ioctl callback
479 */
480static int
481oss_ioctl(snd_emux_t *emu, int cmd, int p1, int p2)
482{
483 emu8000_t *hw;
484
485 hw = emu->hw;
486
487 switch (cmd) {
488 case _EMUX_OSS_REVERB_MODE:
489 hw->reverb_mode = p1;
490 snd_emu8000_update_reverb_mode(hw);
491 break;
492
493 case _EMUX_OSS_CHORUS_MODE:
494 hw->chorus_mode = p1;
495 snd_emu8000_update_chorus_mode(hw);
496 break;
497
498 case _EMUX_OSS_INITIALIZE_CHIP:
499 /* snd_emu8000_init(hw); */ /*ignored*/
500 break;
501
502 case _EMUX_OSS_EQUALIZER:
503 hw->bass_level = p1;
504 hw->treble_level = p2;
505 snd_emu8000_update_equalizer(hw);
506 break;
507 }
508 return 0;
509}
510#endif
511
512
513/*
514 * additional patch keys
515 */
516
517#define SNDRV_EMU8000_LOAD_CHORUS_FX 0x10 /* optarg=mode */
518#define SNDRV_EMU8000_LOAD_REVERB_FX 0x11 /* optarg=mode */
519
520
521/*
522 * callback routine
523 */
524
525static int
526load_fx(snd_emux_t *emu, int type, int mode, const void __user *buf, long len)
527{
528 emu8000_t *hw;
529 hw = emu->hw;
530
531 /* skip header */
532 buf += 16;
533 len -= 16;
534
535 switch (type) {
536 case SNDRV_EMU8000_LOAD_CHORUS_FX:
537 return snd_emu8000_load_chorus_fx(hw, mode, buf, len);
538 case SNDRV_EMU8000_LOAD_REVERB_FX:
539 return snd_emu8000_load_reverb_fx(hw, mode, buf, len);
540 }
541 return -EINVAL;
542}
543
generated by cgit v1.2.2 (git 2.25.0) at 2024-11-28 00:12:50 -0500