11a59d1b8SThomas Gleixner // SPDX-License-Identifier: GPL-2.0-or-later
21da177e4SLinus Torvalds /*
31da177e4SLinus Torvalds * Midi synth routines for the Emu8k/Emu10k1
41da177e4SLinus Torvalds *
51da177e4SLinus Torvalds * Copyright (C) 1999 Steve Ratcliffe
61da177e4SLinus Torvalds * Copyright (c) 1999-2000 Takashi Iwai <tiwai@suse.de>
71da177e4SLinus Torvalds *
81da177e4SLinus Torvalds * Contains code based on awe_wave.c by Takashi Iwai
91da177e4SLinus Torvalds */
101da177e4SLinus Torvalds
111da177e4SLinus Torvalds #include "emux_voice.h"
121da177e4SLinus Torvalds #include <linux/slab.h>
131da177e4SLinus Torvalds
141da177e4SLinus Torvalds #ifdef SNDRV_EMUX_USE_RAW_EFFECT
151da177e4SLinus Torvalds /*
161da177e4SLinus Torvalds * effects table
171da177e4SLinus Torvalds */
181da177e4SLinus Torvalds
191da177e4SLinus Torvalds #define xoffsetof(type,tag) ((long)(&((type)NULL)->tag) - (long)(NULL))
201da177e4SLinus Torvalds
2103da312aSTakashi Iwai #define parm_offset(tag) xoffsetof(struct soundfont_voice_parm *, tag)
221da177e4SLinus Torvalds
231da177e4SLinus Torvalds #define PARM_IS_BYTE (1 << 0)
241da177e4SLinus Torvalds #define PARM_IS_WORD (1 << 1)
251da177e4SLinus Torvalds #define PARM_IS_ALIGNED (3 << 2)
261da177e4SLinus Torvalds #define PARM_IS_ALIGN_HI (1 << 2)
271da177e4SLinus Torvalds #define PARM_IS_ALIGN_LO (2 << 2)
281da177e4SLinus Torvalds #define PARM_IS_SIGNED (1 << 4)
291da177e4SLinus Torvalds
301da177e4SLinus Torvalds #define PARM_WORD (PARM_IS_WORD)
311da177e4SLinus Torvalds #define PARM_BYTE_LO (PARM_IS_BYTE|PARM_IS_ALIGN_LO)
321da177e4SLinus Torvalds #define PARM_BYTE_HI (PARM_IS_BYTE|PARM_IS_ALIGN_HI)
331da177e4SLinus Torvalds #define PARM_BYTE (PARM_IS_BYTE)
341da177e4SLinus Torvalds #define PARM_SIGN_LO (PARM_IS_BYTE|PARM_IS_ALIGN_LO|PARM_IS_SIGNED)
351da177e4SLinus Torvalds #define PARM_SIGN_HI (PARM_IS_BYTE|PARM_IS_ALIGN_HI|PARM_IS_SIGNED)
361da177e4SLinus Torvalds
371da177e4SLinus Torvalds static struct emux_parm_defs {
381da177e4SLinus Torvalds int type; /* byte or word */
391da177e4SLinus Torvalds int low, high; /* value range */
401da177e4SLinus Torvalds long offset; /* offset in parameter record (-1 = not written) */
411da177e4SLinus Torvalds int update; /* flgas for real-time update */
421da177e4SLinus Torvalds } parm_defs[EMUX_NUM_EFFECTS] = {
431da177e4SLinus Torvalds {PARM_WORD, 0, 0x8000, parm_offset(moddelay), 0}, /* env1 delay */
441da177e4SLinus Torvalds {PARM_BYTE_LO, 1, 0x80, parm_offset(modatkhld), 0}, /* env1 attack */
451da177e4SLinus Torvalds {PARM_BYTE_HI, 0, 0x7e, parm_offset(modatkhld), 0}, /* env1 hold */
461da177e4SLinus Torvalds {PARM_BYTE_LO, 1, 0x7f, parm_offset(moddcysus), 0}, /* env1 decay */
471da177e4SLinus Torvalds {PARM_BYTE_LO, 1, 0x7f, parm_offset(modrelease), 0}, /* env1 release */
481da177e4SLinus Torvalds {PARM_BYTE_HI, 0, 0x7f, parm_offset(moddcysus), 0}, /* env1 sustain */
491da177e4SLinus Torvalds {PARM_BYTE_HI, 0, 0xff, parm_offset(pefe), 0}, /* env1 pitch */
501da177e4SLinus Torvalds {PARM_BYTE_LO, 0, 0xff, parm_offset(pefe), 0}, /* env1 fc */
511da177e4SLinus Torvalds
521da177e4SLinus Torvalds {PARM_WORD, 0, 0x8000, parm_offset(voldelay), 0}, /* env2 delay */
531da177e4SLinus Torvalds {PARM_BYTE_LO, 1, 0x80, parm_offset(volatkhld), 0}, /* env2 attack */
541da177e4SLinus Torvalds {PARM_BYTE_HI, 0, 0x7e, parm_offset(volatkhld), 0}, /* env2 hold */
551da177e4SLinus Torvalds {PARM_BYTE_LO, 1, 0x7f, parm_offset(voldcysus), 0}, /* env2 decay */
561da177e4SLinus Torvalds {PARM_BYTE_LO, 1, 0x7f, parm_offset(volrelease), 0}, /* env2 release */
571da177e4SLinus Torvalds {PARM_BYTE_HI, 0, 0x7f, parm_offset(voldcysus), 0}, /* env2 sustain */
581da177e4SLinus Torvalds
591da177e4SLinus Torvalds {PARM_WORD, 0, 0x8000, parm_offset(lfo1delay), 0}, /* lfo1 delay */
601da177e4SLinus Torvalds {PARM_BYTE_LO, 0, 0xff, parm_offset(tremfrq), SNDRV_EMUX_UPDATE_TREMFREQ}, /* lfo1 freq */
611da177e4SLinus Torvalds {PARM_SIGN_HI, -128, 127, parm_offset(tremfrq), SNDRV_EMUX_UPDATE_TREMFREQ}, /* lfo1 vol */
621da177e4SLinus Torvalds {PARM_SIGN_HI, -128, 127, parm_offset(fmmod), SNDRV_EMUX_UPDATE_FMMOD}, /* lfo1 pitch */
631da177e4SLinus Torvalds {PARM_BYTE_LO, 0, 0xff, parm_offset(fmmod), SNDRV_EMUX_UPDATE_FMMOD}, /* lfo1 cutoff */
641da177e4SLinus Torvalds
651da177e4SLinus Torvalds {PARM_WORD, 0, 0x8000, parm_offset(lfo2delay), 0}, /* lfo2 delay */
661da177e4SLinus Torvalds {PARM_BYTE_LO, 0, 0xff, parm_offset(fm2frq2), SNDRV_EMUX_UPDATE_FM2FRQ2}, /* lfo2 freq */
671da177e4SLinus Torvalds {PARM_SIGN_HI, -128, 127, parm_offset(fm2frq2), SNDRV_EMUX_UPDATE_FM2FRQ2}, /* lfo2 pitch */
681da177e4SLinus Torvalds
691da177e4SLinus Torvalds {PARM_WORD, 0, 0xffff, -1, SNDRV_EMUX_UPDATE_PITCH}, /* initial pitch */
701da177e4SLinus Torvalds {PARM_BYTE, 0, 0xff, parm_offset(chorus), 0}, /* chorus */
711da177e4SLinus Torvalds {PARM_BYTE, 0, 0xff, parm_offset(reverb), 0}, /* reverb */
721da177e4SLinus Torvalds {PARM_BYTE, 0, 0xff, parm_offset(cutoff), SNDRV_EMUX_UPDATE_VOLUME}, /* cutoff */
731da177e4SLinus Torvalds {PARM_BYTE, 0, 15, parm_offset(filterQ), SNDRV_EMUX_UPDATE_Q}, /* resonance */
741da177e4SLinus Torvalds
751da177e4SLinus Torvalds {PARM_WORD, 0, 0xffff, -1, 0}, /* sample start */
761da177e4SLinus Torvalds {PARM_WORD, 0, 0xffff, -1, 0}, /* loop start */
771da177e4SLinus Torvalds {PARM_WORD, 0, 0xffff, -1, 0}, /* loop end */
781da177e4SLinus Torvalds {PARM_WORD, 0, 0xffff, -1, 0}, /* coarse sample start */
791da177e4SLinus Torvalds {PARM_WORD, 0, 0xffff, -1, 0}, /* coarse loop start */
801da177e4SLinus Torvalds {PARM_WORD, 0, 0xffff, -1, 0}, /* coarse loop end */
811da177e4SLinus Torvalds {PARM_BYTE, 0, 0xff, -1, SNDRV_EMUX_UPDATE_VOLUME}, /* initial attenuation */
821da177e4SLinus Torvalds };
831da177e4SLinus Torvalds
841da177e4SLinus Torvalds /* set byte effect value */
851da177e4SLinus Torvalds static void
effect_set_byte(unsigned char * valp,struct snd_midi_channel * chan,int type)8603da312aSTakashi Iwai effect_set_byte(unsigned char *valp, struct snd_midi_channel *chan, int type)
871da177e4SLinus Torvalds {
881da177e4SLinus Torvalds short effect;
8903da312aSTakashi Iwai struct snd_emux_effect_table *fx = chan->private;
901da177e4SLinus Torvalds
911da177e4SLinus Torvalds effect = fx->val[type];
921da177e4SLinus Torvalds if (fx->flag[type] == EMUX_FX_FLAG_ADD) {
931da177e4SLinus Torvalds if (parm_defs[type].type & PARM_IS_SIGNED)
941da177e4SLinus Torvalds effect += *(char*)valp;
951da177e4SLinus Torvalds else
961da177e4SLinus Torvalds effect += *valp;
971da177e4SLinus Torvalds }
981da177e4SLinus Torvalds if (effect < parm_defs[type].low)
991da177e4SLinus Torvalds effect = parm_defs[type].low;
1001da177e4SLinus Torvalds else if (effect > parm_defs[type].high)
1011da177e4SLinus Torvalds effect = parm_defs[type].high;
1021da177e4SLinus Torvalds *valp = (unsigned char)effect;
1031da177e4SLinus Torvalds }
1041da177e4SLinus Torvalds
1051da177e4SLinus Torvalds /* set word effect value */
1061da177e4SLinus Torvalds static void
effect_set_word(unsigned short * valp,struct snd_midi_channel * chan,int type)10703da312aSTakashi Iwai effect_set_word(unsigned short *valp, struct snd_midi_channel *chan, int type)
1081da177e4SLinus Torvalds {
1091da177e4SLinus Torvalds int effect;
11003da312aSTakashi Iwai struct snd_emux_effect_table *fx = chan->private;
1111da177e4SLinus Torvalds
1121da177e4SLinus Torvalds effect = *(unsigned short*)&fx->val[type];
1131da177e4SLinus Torvalds if (fx->flag[type] == EMUX_FX_FLAG_ADD)
1141da177e4SLinus Torvalds effect += *valp;
1151da177e4SLinus Torvalds if (effect < parm_defs[type].low)
1161da177e4SLinus Torvalds effect = parm_defs[type].low;
1171da177e4SLinus Torvalds else if (effect > parm_defs[type].high)
1181da177e4SLinus Torvalds effect = parm_defs[type].high;
1191da177e4SLinus Torvalds *valp = (unsigned short)effect;
1201da177e4SLinus Torvalds }
1211da177e4SLinus Torvalds
1221da177e4SLinus Torvalds /* address offset */
1231da177e4SLinus Torvalds static int
effect_get_offset(struct snd_midi_channel * chan,int lo,int hi,int mode)12403da312aSTakashi Iwai effect_get_offset(struct snd_midi_channel *chan, int lo, int hi, int mode)
1251da177e4SLinus Torvalds {
1261da177e4SLinus Torvalds int addr = 0;
12703da312aSTakashi Iwai struct snd_emux_effect_table *fx = chan->private;
1281da177e4SLinus Torvalds
1291da177e4SLinus Torvalds if (fx->flag[hi])
1301da177e4SLinus Torvalds addr = (short)fx->val[hi];
1311da177e4SLinus Torvalds addr = addr << 15;
1321da177e4SLinus Torvalds if (fx->flag[lo])
1331da177e4SLinus Torvalds addr += (short)fx->val[lo];
1341da177e4SLinus Torvalds if (!(mode & SNDRV_SFNT_SAMPLE_8BITS))
1351da177e4SLinus Torvalds addr /= 2;
1361da177e4SLinus Torvalds return addr;
1371da177e4SLinus Torvalds }
1381da177e4SLinus Torvalds
1393d774d5eSTakashi Iwai #if IS_ENABLED(CONFIG_SND_SEQUENCER_OSS)
1401da177e4SLinus Torvalds /* change effects - for OSS sequencer compatibility */
1411da177e4SLinus Torvalds void
snd_emux_send_effect_oss(struct snd_emux_port * port,struct snd_midi_channel * chan,int type,int val)14203da312aSTakashi Iwai snd_emux_send_effect_oss(struct snd_emux_port *port,
14303da312aSTakashi Iwai struct snd_midi_channel *chan, int type, int val)
1441da177e4SLinus Torvalds {
1451da177e4SLinus Torvalds int mode;
1461da177e4SLinus Torvalds
1471da177e4SLinus Torvalds if (type & 0x40)
1481da177e4SLinus Torvalds mode = EMUX_FX_FLAG_OFF;
1491da177e4SLinus Torvalds else if (type & 0x80)
1501da177e4SLinus Torvalds mode = EMUX_FX_FLAG_ADD;
1511da177e4SLinus Torvalds else
1521da177e4SLinus Torvalds mode = EMUX_FX_FLAG_SET;
1531da177e4SLinus Torvalds type &= 0x3f;
1541da177e4SLinus Torvalds
1551da177e4SLinus Torvalds snd_emux_send_effect(port, chan, type, val, mode);
1561da177e4SLinus Torvalds }
1571da177e4SLinus Torvalds #endif
1581da177e4SLinus Torvalds
1591da177e4SLinus Torvalds /* Modify the effect value.
1601da177e4SLinus Torvalds * if update is necessary, call emu8000_control
1611da177e4SLinus Torvalds */
1621da177e4SLinus Torvalds void
snd_emux_send_effect(struct snd_emux_port * port,struct snd_midi_channel * chan,int type,int val,int mode)16303da312aSTakashi Iwai snd_emux_send_effect(struct snd_emux_port *port, struct snd_midi_channel *chan,
16403da312aSTakashi Iwai int type, int val, int mode)
1651da177e4SLinus Torvalds {
1661da177e4SLinus Torvalds int i;
1671da177e4SLinus Torvalds int offset;
1681da177e4SLinus Torvalds unsigned char *srcp, *origp;
16903da312aSTakashi Iwai struct snd_emux *emu;
17003da312aSTakashi Iwai struct snd_emux_effect_table *fx;
1711da177e4SLinus Torvalds unsigned long flags;
1721da177e4SLinus Torvalds
1731da177e4SLinus Torvalds emu = port->emu;
1741da177e4SLinus Torvalds fx = chan->private;
1751da177e4SLinus Torvalds if (emu == NULL || fx == NULL)
1761da177e4SLinus Torvalds return;
1771da177e4SLinus Torvalds if (type < 0 || type >= EMUX_NUM_EFFECTS)
1781da177e4SLinus Torvalds return;
1791da177e4SLinus Torvalds
1801da177e4SLinus Torvalds fx->val[type] = val;
1811da177e4SLinus Torvalds fx->flag[type] = mode;
1821da177e4SLinus Torvalds
1831da177e4SLinus Torvalds /* do we need to modify the register in realtime ? */
184*dd1fc3c5STakashi Iwai if (!parm_defs[type].update)
185*dd1fc3c5STakashi Iwai return;
186*dd1fc3c5STakashi Iwai offset = parm_defs[type].offset;
187*dd1fc3c5STakashi Iwai if (offset < 0)
1881da177e4SLinus Torvalds return;
1891da177e4SLinus Torvalds
1901da177e4SLinus Torvalds #ifdef SNDRV_LITTLE_ENDIAN
1911da177e4SLinus Torvalds if (parm_defs[type].type & PARM_IS_ALIGN_HI)
1921da177e4SLinus Torvalds offset++;
1931da177e4SLinus Torvalds #else
1941da177e4SLinus Torvalds if (parm_defs[type].type & PARM_IS_ALIGN_LO)
1951da177e4SLinus Torvalds offset++;
1961da177e4SLinus Torvalds #endif
1971da177e4SLinus Torvalds /* modify the register values */
1981da177e4SLinus Torvalds spin_lock_irqsave(&emu->voice_lock, flags);
1991da177e4SLinus Torvalds for (i = 0; i < emu->max_voices; i++) {
20003da312aSTakashi Iwai struct snd_emux_voice *vp = &emu->voices[i];
2011da177e4SLinus Torvalds if (!STATE_IS_PLAYING(vp->state) || vp->chan != chan)
2021da177e4SLinus Torvalds continue;
2031da177e4SLinus Torvalds srcp = (unsigned char*)&vp->reg.parm + offset;
2041da177e4SLinus Torvalds origp = (unsigned char*)&vp->zone->v.parm + offset;
2051da177e4SLinus Torvalds if (parm_defs[i].type & PARM_IS_BYTE) {
2061da177e4SLinus Torvalds *srcp = *origp;
2071da177e4SLinus Torvalds effect_set_byte(srcp, chan, type);
2081da177e4SLinus Torvalds } else {
2091da177e4SLinus Torvalds *(unsigned short*)srcp = *(unsigned short*)origp;
2101da177e4SLinus Torvalds effect_set_word((unsigned short*)srcp, chan, type);
2111da177e4SLinus Torvalds }
2121da177e4SLinus Torvalds }
2131da177e4SLinus Torvalds spin_unlock_irqrestore(&emu->voice_lock, flags);
2141da177e4SLinus Torvalds
2151da177e4SLinus Torvalds /* activate them */
2161da177e4SLinus Torvalds snd_emux_update_channel(port, chan, parm_defs[type].update);
2171da177e4SLinus Torvalds }
2181da177e4SLinus Torvalds
2191da177e4SLinus Torvalds
2201da177e4SLinus Torvalds /* copy wavetable registers to voice table */
2211da177e4SLinus Torvalds void
snd_emux_setup_effect(struct snd_emux_voice * vp)22203da312aSTakashi Iwai snd_emux_setup_effect(struct snd_emux_voice *vp)
2231da177e4SLinus Torvalds {
22403da312aSTakashi Iwai struct snd_midi_channel *chan = vp->chan;
22503da312aSTakashi Iwai struct snd_emux_effect_table *fx;
2261da177e4SLinus Torvalds unsigned char *srcp;
2271da177e4SLinus Torvalds int i;
2281da177e4SLinus Torvalds
229*dd1fc3c5STakashi Iwai fx = chan->private;
230*dd1fc3c5STakashi Iwai if (!fx)
2311da177e4SLinus Torvalds return;
2321da177e4SLinus Torvalds
2331da177e4SLinus Torvalds /* modify the register values via effect table */
2341da177e4SLinus Torvalds for (i = 0; i < EMUX_FX_END; i++) {
2351da177e4SLinus Torvalds int offset;
236*dd1fc3c5STakashi Iwai if (!fx->flag[i])
237*dd1fc3c5STakashi Iwai continue;
238*dd1fc3c5STakashi Iwai offset = parm_defs[i].offset;
239*dd1fc3c5STakashi Iwai if (offset < 0)
2401da177e4SLinus Torvalds continue;
2411da177e4SLinus Torvalds #ifdef SNDRV_LITTLE_ENDIAN
2421da177e4SLinus Torvalds if (parm_defs[i].type & PARM_IS_ALIGN_HI)
2431da177e4SLinus Torvalds offset++;
2441da177e4SLinus Torvalds #else
2451da177e4SLinus Torvalds if (parm_defs[i].type & PARM_IS_ALIGN_LO)
2461da177e4SLinus Torvalds offset++;
2471da177e4SLinus Torvalds #endif
2481da177e4SLinus Torvalds srcp = (unsigned char*)&vp->reg.parm + offset;
2491da177e4SLinus Torvalds if (parm_defs[i].type & PARM_IS_BYTE)
2501da177e4SLinus Torvalds effect_set_byte(srcp, chan, i);
2511da177e4SLinus Torvalds else
2521da177e4SLinus Torvalds effect_set_word((unsigned short*)srcp, chan, i);
2531da177e4SLinus Torvalds }
2541da177e4SLinus Torvalds
2551da177e4SLinus Torvalds /* correct sample and loop points */
2561da177e4SLinus Torvalds vp->reg.start += effect_get_offset(chan, EMUX_FX_SAMPLE_START,
2571da177e4SLinus Torvalds EMUX_FX_COARSE_SAMPLE_START,
2581da177e4SLinus Torvalds vp->reg.sample_mode);
2591da177e4SLinus Torvalds
2601da177e4SLinus Torvalds vp->reg.loopstart += effect_get_offset(chan, EMUX_FX_LOOP_START,
2611da177e4SLinus Torvalds EMUX_FX_COARSE_LOOP_START,
2621da177e4SLinus Torvalds vp->reg.sample_mode);
2631da177e4SLinus Torvalds
2641da177e4SLinus Torvalds vp->reg.loopend += effect_get_offset(chan, EMUX_FX_LOOP_END,
2651da177e4SLinus Torvalds EMUX_FX_COARSE_LOOP_END,
2661da177e4SLinus Torvalds vp->reg.sample_mode);
2671da177e4SLinus Torvalds }
2681da177e4SLinus Torvalds
2691da177e4SLinus Torvalds /*
2701da177e4SLinus Torvalds * effect table
2711da177e4SLinus Torvalds */
2721da177e4SLinus Torvalds void
snd_emux_create_effect(struct snd_emux_port * p)27303da312aSTakashi Iwai snd_emux_create_effect(struct snd_emux_port *p)
2741da177e4SLinus Torvalds {
2751da177e4SLinus Torvalds int i;
27603da312aSTakashi Iwai p->effect = kcalloc(p->chset.max_channels,
27703da312aSTakashi Iwai sizeof(struct snd_emux_effect_table), GFP_KERNEL);
2781da177e4SLinus Torvalds if (p->effect) {
2791da177e4SLinus Torvalds for (i = 0; i < p->chset.max_channels; i++)
2801da177e4SLinus Torvalds p->chset.channels[i].private = p->effect + i;
2811da177e4SLinus Torvalds } else {
2821da177e4SLinus Torvalds for (i = 0; i < p->chset.max_channels; i++)
2831da177e4SLinus Torvalds p->chset.channels[i].private = NULL;
2841da177e4SLinus Torvalds }
2851da177e4SLinus Torvalds }
2861da177e4SLinus Torvalds
2871da177e4SLinus Torvalds void
snd_emux_delete_effect(struct snd_emux_port * p)28803da312aSTakashi Iwai snd_emux_delete_effect(struct snd_emux_port *p)
2891da177e4SLinus Torvalds {
2901da177e4SLinus Torvalds kfree(p->effect);
2911da177e4SLinus Torvalds p->effect = NULL;
2921da177e4SLinus Torvalds }
2931da177e4SLinus Torvalds
2941da177e4SLinus Torvalds void
snd_emux_clear_effect(struct snd_emux_port * p)29503da312aSTakashi Iwai snd_emux_clear_effect(struct snd_emux_port *p)
2961da177e4SLinus Torvalds {
2971da177e4SLinus Torvalds if (p->effect) {
29803da312aSTakashi Iwai memset(p->effect, 0, sizeof(struct snd_emux_effect_table) *
29903da312aSTakashi Iwai p->chset.max_channels);
3001da177e4SLinus Torvalds }
3011da177e4SLinus Torvalds }
3021da177e4SLinus Torvalds
3031da177e4SLinus Torvalds #endif /* SNDRV_EMUX_USE_RAW_EFFECT */
304