sound/isa/sb/emu8000_callback.c

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