Logo Search packages:      
Sourcecode: alsa-driver version File versions

miro.c

/*
 *   ALSA soundcard driver for Miro miroSOUND PCM1 pro
 *                                  miroSOUND PCM12
 *                                  miroSOUND PCM20 Radio
 *
 *   Copyright (C) 2004-2005 Martin Langer <martin-langer@gmx.de>
 *
 *   Based on OSS ACI and ALSA OPTi9xx drivers
 *
 *   This program is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   This program is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with this program; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 */

#include <linux/init.h>
#include <linux/err.h>
#include <linux/isa.h>
#include <linux/delay.h>
#include <linux/slab.h>
#include <linux/ioport.h>
#include <linux/moduleparam.h>
#include <asm/io.h>
#include <asm/dma.h>
#include <sound/core.h>
#include <sound/wss.h>
#include <sound/mpu401.h>
#include <sound/opl4.h>
#include <sound/control.h>
#include <sound/info.h>
#define SNDRV_LEGACY_FIND_FREE_IRQ
#define SNDRV_LEGACY_FIND_FREE_DMA
#include <sound/initval.h>
#include "miro.h"

MODULE_AUTHOR("Martin Langer <martin-langer@gmx.de>");
MODULE_LICENSE("GPL");
MODULE_DESCRIPTION("Miro miroSOUND PCM1 pro, PCM12, PCM20 Radio");
MODULE_SUPPORTED_DEVICE("{{Miro,miroSOUND PCM1 pro}, "
                  "{Miro,miroSOUND PCM12}, "
                  "{Miro,miroSOUND PCM20 Radio}}");

static int index = SNDRV_DEFAULT_IDX1;          /* Index 0-MAX */
static char *id = SNDRV_DEFAULT_STR1;           /* ID for this card */
static long port = SNDRV_DEFAULT_PORT1;   /* 0x530,0xe80,0xf40,0x604 */
static long mpu_port = SNDRV_DEFAULT_PORT1;     /* 0x300,0x310,0x320,0x330 */
static long fm_port = SNDRV_DEFAULT_PORT1;      /* 0x388 */
static int irq = SNDRV_DEFAULT_IRQ1;            /* 5,7,9,10,11 */
static int mpu_irq = SNDRV_DEFAULT_IRQ1;  /* 5,7,9,10 */
static int dma1 = SNDRV_DEFAULT_DMA1;           /* 0,1,3 */
static int dma2 = SNDRV_DEFAULT_DMA1;           /* 0,1,3 */
static int wss;
static int ide;

module_param(index, int, 0444);
MODULE_PARM_DESC(index, "Index value for miro soundcard.");
module_param(id, charp, 0444);
MODULE_PARM_DESC(id, "ID string for miro soundcard.");
module_param(port, long, 0444);
MODULE_PARM_DESC(port, "WSS port # for miro driver.");
module_param(mpu_port, long, 0444);
MODULE_PARM_DESC(mpu_port, "MPU-401 port # for miro driver.");
module_param(fm_port, long, 0444);
MODULE_PARM_DESC(fm_port, "FM Port # for miro driver.");
module_param(irq, int, 0444);
MODULE_PARM_DESC(irq, "WSS irq # for miro driver.");
module_param(mpu_irq, int, 0444);
MODULE_PARM_DESC(mpu_irq, "MPU-401 irq # for miro driver.");
module_param(dma1, int, 0444);
MODULE_PARM_DESC(dma1, "1st dma # for miro driver.");
module_param(dma2, int, 0444);
MODULE_PARM_DESC(dma2, "2nd dma # for miro driver.");
module_param(wss, int, 0444);
MODULE_PARM_DESC(wss, "wss mode");
module_param(ide, int, 0444);
MODULE_PARM_DESC(ide, "enable ide port");

#define OPTi9XX_HW_DETECT     0
#define OPTi9XX_HW_82C928     1
#define OPTi9XX_HW_82C929     2
#define OPTi9XX_HW_82C924     3
#define OPTi9XX_HW_82C925     4
#define OPTi9XX_HW_82C930     5
#define OPTi9XX_HW_82C931     6
#define OPTi9XX_HW_82C933     7
#define OPTi9XX_HW_LAST       OPTi9XX_HW_82C933

#define OPTi9XX_MC_REG(n)     n


struct snd_miro {
      unsigned short hardware;
      unsigned char password;
      char name[7];

      struct resource *res_mc_base;
      struct resource *res_aci_port;

      unsigned long mc_base;
      unsigned long mc_base_size;
      unsigned long pwd_reg;

      spinlock_t lock;
      struct snd_card *card;
      struct snd_pcm *pcm;

      long wss_base;
      int irq;
      int dma1;
      int dma2;

      long fm_port;

      long mpu_port;
      int mpu_irq;

      unsigned long aci_port;
      int aci_vendor;
      int aci_product;
      int aci_version;
      int aci_amp;
      int aci_preamp;
      int aci_solomode;

      struct mutex aci_mutex;
};

static void snd_miro_proc_init(struct snd_miro * miro);

static char * snd_opti9xx_names[] = {
      "unkown",
      "82C928", "82C929",
      "82C924", "82C925",
      "82C930", "82C931", "82C933"
};

/* 
 *  ACI control
 */

static int aci_busy_wait(struct snd_miro * miro)
{
      long timeout;
      unsigned char byte;

      for (timeout = 1; timeout <= ACI_MINTIME+30; timeout++) {
            if (((byte=inb(miro->aci_port + ACI_REG_BUSY)) & 1) == 0) {
                  if (timeout >= ACI_MINTIME)
                        snd_printd("aci ready in round %ld.\n",
                                 timeout-ACI_MINTIME);
                  return byte;
            }
            if (timeout >= ACI_MINTIME) {
                  long out=10*HZ;
                  switch (timeout-ACI_MINTIME) {
                  case 0 ... 9:
                        out /= 10;
                  case 10 ... 19:
                        out /= 10;
                  case 20 ... 30:
                        out /= 10;
                  default:
                        set_current_state(TASK_UNINTERRUPTIBLE);
                        schedule_timeout(out);
                        break;
                  }
            }
      }
      snd_printk(KERN_ERR "aci_busy_wait() time out\n");
      return -EBUSY;
}

static inline int aci_write(struct snd_miro * miro, unsigned char byte)
{
      if (aci_busy_wait(miro) >= 0) {
            outb(byte, miro->aci_port + ACI_REG_COMMAND);
            return 0;
      } else {
            snd_printk(KERN_ERR "aci busy, aci_write(0x%x) stopped.\n", byte);
            return -EBUSY;
      }
}

static inline int aci_read(struct snd_miro * miro)
{
      unsigned char byte;

      if (aci_busy_wait(miro) >= 0) {
            byte=inb(miro->aci_port + ACI_REG_STATUS);
            return byte;
      } else {
            snd_printk(KERN_ERR "aci busy, aci_read() stopped.\n");
            return -EBUSY;
      }
}

static int aci_cmd(struct snd_miro * miro, int write1, int write2, int write3)
{
      int write[] = {write1, write2, write3};
      int value, i;

      if (mutex_lock_interruptible(&miro->aci_mutex))
            return -EINTR;

      for (i=0; i<3; i++) {
            if (write[i]< 0 || write[i] > 255)
                  break;
            else {
                  value = aci_write(miro, write[i]);
                  if (value < 0)
                        goto out;
            }
      }

      value = aci_read(miro);

out:  mutex_unlock(&miro->aci_mutex);
      return value;
}

static int aci_getvalue(struct snd_miro * miro, unsigned char index)
{
      return aci_cmd(miro, ACI_STATUS, index, -1);
}

static int aci_setvalue(struct snd_miro * miro, unsigned char index, int value)
{
      return aci_cmd(miro, index, value, -1);
}

/*
 *  MIXER part
 */

#define snd_miro_info_capture snd_ctl_boolean_mono_info

static int snd_miro_get_capture(struct snd_kcontrol *kcontrol,
                        struct snd_ctl_elem_value *ucontrol)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      int value;

      if ((value = aci_getvalue(miro, ACI_S_GENERAL)) < 0) {
            snd_printk(KERN_ERR "snd_miro_get_capture() failed: %d\n", value);
            return value;
      }

      ucontrol->value.integer.value[0] = value & 0x20;

      return 0;
}

static int snd_miro_put_capture(struct snd_kcontrol *kcontrol,
                        struct snd_ctl_elem_value *ucontrol)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      int change, value, error;

      value = !(ucontrol->value.integer.value[0]);

      if ((error = aci_setvalue(miro, ACI_SET_SOLOMODE, value)) < 0) {
            snd_printk(KERN_ERR "snd_miro_put_capture() failed: %d\n", error);
            return error;
      }

      change = (value != miro->aci_solomode);
      miro->aci_solomode = value;
      
      return change;
}

static int snd_miro_info_preamp(struct snd_kcontrol *kcontrol,
                        struct snd_ctl_elem_info *uinfo)
{
      uinfo->type = SNDRV_CTL_ELEM_TYPE_INTEGER;
      uinfo->count = 1;
      uinfo->value.integer.min = 0;
      uinfo->value.integer.max = 3;

      return 0;
}

static int snd_miro_get_preamp(struct snd_kcontrol *kcontrol,
                         struct snd_ctl_elem_value *ucontrol)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      int value;

      if (miro->aci_version <= 176) {

            /* 
               OSS says it's not readable with versions < 176.
               But it doesn't work on my card,
               which is a PCM12 with aci_version = 176.
            */

            ucontrol->value.integer.value[0] = miro->aci_preamp;
            return 0;
      }

      if ((value = aci_getvalue(miro, ACI_GET_PREAMP)) < 0) {
            snd_printk(KERN_ERR "snd_miro_get_preamp() failed: %d\n", value);
            return value;
      }
      
      ucontrol->value.integer.value[0] = value;

      return 0;
}

static int snd_miro_put_preamp(struct snd_kcontrol *kcontrol,
                         struct snd_ctl_elem_value *ucontrol)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      int error, value, change;

      value = ucontrol->value.integer.value[0];

      if ((error = aci_setvalue(miro, ACI_SET_PREAMP, value)) < 0) {
            snd_printk(KERN_ERR "snd_miro_put_preamp() failed: %d\n", error);
            return error;
      }

      change = (value != miro->aci_preamp);
      miro->aci_preamp = value;

      return change;
}

#define snd_miro_info_amp     snd_ctl_boolean_mono_info

static int snd_miro_get_amp(struct snd_kcontrol *kcontrol,
                      struct snd_ctl_elem_value *ucontrol)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      ucontrol->value.integer.value[0] = miro->aci_amp;

      return 0;
}

static int snd_miro_put_amp(struct snd_kcontrol *kcontrol,
                      struct snd_ctl_elem_value *ucontrol)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      int error, value, change;

      value = ucontrol->value.integer.value[0];

      if ((error = aci_setvalue(miro, ACI_SET_POWERAMP, value)) < 0) {
            snd_printk(KERN_ERR "snd_miro_put_amp() to %d failed: %d\n", value, error);
            return error;
      }

      change = (value != miro->aci_amp);
      miro->aci_amp = value;

      return change;
}

#define MIRO_DOUBLE(ctl_name, ctl_index, get_right_reg, set_right_reg) \
{ .iface = SNDRV_CTL_ELEM_IFACE_MIXER, \
  .name = ctl_name, \
  .index = ctl_index, \
  .info = snd_miro_info_double, \
  .get = snd_miro_get_double, \
  .put = snd_miro_put_double, \
  .private_value = get_right_reg | (set_right_reg << 8) \
}

static int snd_miro_info_double(struct snd_kcontrol *kcontrol, 
                        struct snd_ctl_elem_info *uinfo)
{
      int reg = kcontrol->private_value & 0xff;

      uinfo->type = SNDRV_CTL_ELEM_TYPE_INTEGER;
      uinfo->count = 2;

      if ((reg >= ACI_GET_EQ1) && (reg <= ACI_GET_EQ7)) {

            /* equalizer elements */

            uinfo->value.integer.min = - 0x7f;
            uinfo->value.integer.max = 0x7f;
      } else {

            /* non-equalizer elements */

            uinfo->value.integer.min = 0;
            uinfo->value.integer.max = 0x20;
      }

      return 0;
}

static int snd_miro_get_double(struct snd_kcontrol *kcontrol, 
                         struct snd_ctl_elem_value *uinfo)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      int left_val, right_val;

      int right_reg = kcontrol->private_value & 0xff;
      int left_reg = right_reg + 1;

      if ((right_val = aci_getvalue(miro, right_reg)) < 0) {
            snd_printk(KERN_ERR "aci_getvalue(%d) failed: %d\n", right_reg, right_val);
            return right_val;
      }

      if ((left_val = aci_getvalue(miro, left_reg)) < 0) {
            snd_printk(KERN_ERR "aci_getvalue(%d) failed: %d\n", left_reg, left_val);
            return left_val;
      }

      if ((right_reg >= ACI_GET_EQ1) && (right_reg <= ACI_GET_EQ7)) {

            /* equalizer elements */

            if (left_val < 0x80) {
                  uinfo->value.integer.value[0] = left_val;
            } else {
                  uinfo->value.integer.value[0] = 0x80 - left_val;
            }

            if (right_val < 0x80) {
                  uinfo->value.integer.value[1] = right_val;
            } else {
                  uinfo->value.integer.value[1] = 0x80 - right_val;
            }

      } else {

            /* non-equalizer elements */

            uinfo->value.integer.value[0] = 0x20 - left_val;
            uinfo->value.integer.value[1] = 0x20 - right_val;
      }

      return 0;
}

static int snd_miro_put_double(struct snd_kcontrol *kcontrol, 
                         struct snd_ctl_elem_value *ucontrol)
{
      struct snd_miro *miro = snd_kcontrol_chip(kcontrol);
      int left, right, left_old, right_old;
      int setreg_left, setreg_right, getreg_left, getreg_right;
      int change, error;

      left = ucontrol->value.integer.value[0];
      right = ucontrol->value.integer.value[1];

      setreg_right = (kcontrol->private_value >> 8) & 0xff;
      if (setreg_right == ACI_SET_MASTER) {
            setreg_left = setreg_right + 1;
      } else {
            setreg_left = setreg_right + 8;
      }

      getreg_right = kcontrol->private_value & 0xff;
      getreg_left = getreg_right + 1;

      if ((left_old = aci_getvalue(miro, getreg_left)) < 0) {
            snd_printk(KERN_ERR "aci_getvalue(%d) failed: %d\n", getreg_left, left_old);
            return left_old;
      }

      if ((right_old = aci_getvalue(miro, getreg_right)) < 0) {
            snd_printk(KERN_ERR "aci_getvalue(%d) failed: %d\n", getreg_right, right_old);
            return right_old;
      }

      if ((getreg_right >= ACI_GET_EQ1) && (getreg_right <= ACI_GET_EQ7)) {

            /* equalizer elements */

            if (left < -0x7f || left > 0x7f ||
                right < -0x7f || right > 0x7f)
                  return -EINVAL;

            if (left_old > 0x80) 
                  left_old = 0x80 - left_old;
            if (right_old > 0x80) 
                  right_old = 0x80 - right_old;

            if (left >= 0) {
                  if ((error = aci_setvalue(miro, setreg_left, left)) < 0) {
                        snd_printk(KERN_ERR "aci_setvalue(%d) failed: %d\n",
                                 left, error);
                        return error;
                  }
            } else {
                  if ((error = aci_setvalue(miro, setreg_left, 0x80 - left)) < 0) {
                        snd_printk(KERN_ERR "aci_setvalue(%d) failed: %d\n",
                                 0x80 - left, error);
                        return error;
                  }
            }

            if (right >= 0) {
                  if ((error = aci_setvalue(miro, setreg_right, right)) < 0) {
                        snd_printk(KERN_ERR "aci_setvalue(%d) failed: %d\n",
                                 right, error);
                        return error;
                  }
            } else {
                  if ((error = aci_setvalue(miro, setreg_right, 0x80 - right)) < 0) {
                        snd_printk(KERN_ERR "aci_setvalue(%d) failed: %d\n",
                                 0x80 - right, error);
                        return error;
                  }
            }

      } else {

            /* non-equalizer elements */

            if (left < 0 || left > 0x20 ||
                right < 0 || right > 0x20)
                  return -EINVAL;

            left_old = 0x20 - left_old;
            right_old = 0x20 - right_old;

            if ((error = aci_setvalue(miro, setreg_left, 0x20 - left)) < 0) {
                  snd_printk(KERN_ERR "aci_setvalue(%d) failed: %d\n",
                           0x20 - left, error);
                  return error;
            }
            if ((error = aci_setvalue(miro, setreg_right, 0x20 - right)) < 0) {
                  snd_printk(KERN_ERR "aci_setvalue(%d) failed: %d\n",
                           0x20 - right, error);
                  return error;
            }
      }

      change = (left != left_old) || (right != right_old);

      return change;
}

static struct snd_kcontrol_new snd_miro_controls[] __devinitdata = {
MIRO_DOUBLE("Master Playback Volume", 0, ACI_GET_MASTER, ACI_SET_MASTER),
MIRO_DOUBLE("Mic Playback Volume", 1, ACI_GET_MIC, ACI_SET_MIC),
MIRO_DOUBLE("Line Playback Volume", 1, ACI_GET_LINE, ACI_SET_LINE),
MIRO_DOUBLE("CD Playback Volume", 0, ACI_GET_CD, ACI_SET_CD),
MIRO_DOUBLE("Synth Playback Volume", 0, ACI_GET_SYNTH, ACI_SET_SYNTH),
MIRO_DOUBLE("PCM Playback Volume", 1, ACI_GET_PCM, ACI_SET_PCM),
MIRO_DOUBLE("Aux Playback Volume", 2, ACI_GET_LINE2, ACI_SET_LINE2),
};

/* Equalizer with seven bands (only PCM20) 
   from -12dB up to +12dB on each band */
static struct snd_kcontrol_new snd_miro_eq_controls[] __devinitdata = {
MIRO_DOUBLE("Tone Control - 28 Hz", 0, ACI_GET_EQ1, ACI_SET_EQ1),
MIRO_DOUBLE("Tone Control - 160 Hz", 0, ACI_GET_EQ2, ACI_SET_EQ2),
MIRO_DOUBLE("Tone Control - 400 Hz", 0, ACI_GET_EQ3, ACI_SET_EQ3),
MIRO_DOUBLE("Tone Control - 1 kHz", 0, ACI_GET_EQ4, ACI_SET_EQ4),
MIRO_DOUBLE("Tone Control - 2.5 kHz", 0, ACI_GET_EQ5, ACI_SET_EQ5),
MIRO_DOUBLE("Tone Control - 6.3 kHz", 0, ACI_GET_EQ6, ACI_SET_EQ6),
MIRO_DOUBLE("Tone Control - 16 kHz", 0, ACI_GET_EQ7, ACI_SET_EQ7),
};

static struct snd_kcontrol_new snd_miro_radio_control[] __devinitdata = {
MIRO_DOUBLE("Radio Playback Volume", 0, ACI_GET_LINE1, ACI_SET_LINE1),
};

static struct snd_kcontrol_new snd_miro_line_control[] __devinitdata = {
MIRO_DOUBLE("Line Playback Volume", 2, ACI_GET_LINE1, ACI_SET_LINE1),
};

static struct snd_kcontrol_new snd_miro_preamp_control[] __devinitdata = {
{
      .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
      .name = "Mic Boost",
      .index = 1,
      .info = snd_miro_info_preamp,
      .get = snd_miro_get_preamp,
      .put = snd_miro_put_preamp,
}};

static struct snd_kcontrol_new snd_miro_amp_control[] __devinitdata = {
{
      .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
      .name = "Line Boost",
      .index = 0,
      .info = snd_miro_info_amp,
      .get = snd_miro_get_amp,
      .put = snd_miro_put_amp,
}};

static struct snd_kcontrol_new snd_miro_capture_control[] __devinitdata = {
{
      .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
      .name = "PCM Capture Switch",
      .index = 0,
      .info = snd_miro_info_capture,
      .get = snd_miro_get_capture,
      .put = snd_miro_put_capture,
}};

static unsigned char aci_init_values[][2] __devinitdata = {
      { ACI_SET_MUTE, 0x00 },
      { ACI_SET_POWERAMP, 0x00 },
      { ACI_SET_PREAMP, 0x00 },
      { ACI_SET_SOLOMODE, 0x00 },
      { ACI_SET_MIC + 0, 0x20 },
      { ACI_SET_MIC + 8, 0x20 },
      { ACI_SET_LINE + 0, 0x20 },
      { ACI_SET_LINE + 8, 0x20 },
      { ACI_SET_CD + 0, 0x20 },
      { ACI_SET_CD + 8, 0x20 },
      { ACI_SET_PCM + 0, 0x20 },
      { ACI_SET_PCM + 8, 0x20 },
      { ACI_SET_LINE1 + 0, 0x20 },
      { ACI_SET_LINE1 + 8, 0x20 },
      { ACI_SET_LINE2 + 0, 0x20 },
      { ACI_SET_LINE2 + 8, 0x20 },
      { ACI_SET_SYNTH + 0, 0x20 },
      { ACI_SET_SYNTH + 8, 0x20 },
      { ACI_SET_MASTER + 0, 0x20 },
      { ACI_SET_MASTER + 1, 0x20 },
};

static int __devinit snd_set_aci_init_values(struct snd_miro *miro)
{
      int idx, error;

      /* enable WSS on PCM1 */

      if ((miro->aci_product == 'A') && wss) {
            if ((error = aci_setvalue(miro, ACI_SET_WSS, wss)) < 0) {
                  snd_printk(KERN_ERR "enabling WSS mode failed\n");
                  return error;
            }
      }

      /* enable IDE port */

      if (ide) {
            if ((error = aci_setvalue(miro, ACI_SET_IDE, ide)) < 0) {
                  snd_printk(KERN_ERR "enabling IDE port failed\n");
                  return error;
            }
      }

      /* set common aci values */

      for (idx = 0; idx < ARRAY_SIZE(aci_init_values); idx++)
                if ((error = aci_setvalue(miro, aci_init_values[idx][0], 
                                aci_init_values[idx][1])) < 0) {
                  snd_printk(KERN_ERR "aci_setvalue(%d) failed: %d\n", 
                           aci_init_values[idx][0], error);
                        return error;
                }

      miro->aci_amp = 0;
      miro->aci_preamp = 0;
      miro->aci_solomode = 1;

      return 0;
}

static int __devinit snd_miro_mixer(struct snd_miro *miro)
{
      struct snd_card *card;
      unsigned int idx;
      int err;

      if (snd_BUG_ON(!miro || !miro->card))
            return -EINVAL;

      card = miro->card;

      switch (miro->hardware) {
      case OPTi9XX_HW_82C924:
            strcpy(card->mixername, "ACI & OPTi924");
            break;
      case OPTi9XX_HW_82C929:
            strcpy(card->mixername, "ACI & OPTi929");
            break;
      default:
            snd_BUG();
            break;
      }

      for (idx = 0; idx < ARRAY_SIZE(snd_miro_controls); idx++) {
            if ((err = snd_ctl_add(card, snd_ctl_new1(&snd_miro_controls[idx], miro))) < 0)
                  return err;
      }

      if ((miro->aci_product == 'A') || (miro->aci_product == 'B')) {
            /* PCM1/PCM12 with power-amp and Line 2 */
            if ((err = snd_ctl_add(card, snd_ctl_new1(&snd_miro_line_control[0], miro))) < 0)
                  return err;
            if ((err = snd_ctl_add(card, snd_ctl_new1(&snd_miro_amp_control[0], miro))) < 0)
                  return err;
      }

      if ((miro->aci_product == 'B') || (miro->aci_product == 'C')) {
            /* PCM12/PCM20 with mic-preamp */
            if ((err = snd_ctl_add(card, snd_ctl_new1(&snd_miro_preamp_control[0], miro))) < 0)
                  return err;
            if (miro->aci_version >= 176)
                  if ((err = snd_ctl_add(card, snd_ctl_new1(&snd_miro_capture_control[0], miro))) < 0)
                        return err;
      }

      if (miro->aci_product == 'C') {
            /* PCM20 with radio and 7 band equalizer */
            if ((err = snd_ctl_add(card, snd_ctl_new1(&snd_miro_radio_control[0], miro))) < 0)
                  return err;
            for (idx = 0; idx < ARRAY_SIZE(snd_miro_eq_controls); idx++) {
                  if ((err = snd_ctl_add(card, snd_ctl_new1(&snd_miro_eq_controls[idx], miro))) < 0)
                        return err;
            }
      }

      return 0;
}

static long snd_legacy_find_free_ioport(long *port_table, long size)
{
      while (*port_table != -1) {
            struct resource *res;
            if ((res = request_region(*port_table, size, 
                                "ALSA test")) != NULL) {
                  release_and_free_resource(res);
                  return *port_table;
            }
            port_table++;
      }
      return -1;
}

static int __devinit snd_miro_init(struct snd_miro *chip,
                           unsigned short hardware)
{
      static int opti9xx_mc_size[] = {7, 7, 10, 10, 2, 2, 2};

      chip->hardware = hardware;
      strcpy(chip->name, snd_opti9xx_names[hardware]);

      chip->mc_base_size = opti9xx_mc_size[hardware];  

      spin_lock_init(&chip->lock);

      chip->wss_base = -1;
      chip->irq = -1;
      chip->dma1 = -1;
      chip->dma2 = -1;
      chip->fm_port = -1;
      chip->mpu_port = -1;
      chip->mpu_irq = -1;

      switch (hardware) {
      case OPTi9XX_HW_82C929:
            chip->mc_base = 0xf8c;
            chip->password = 0xe3;
            chip->pwd_reg = 3;
            break;

      case OPTi9XX_HW_82C924:
            chip->mc_base = 0xf8c;
            chip->password = 0xe5;
            chip->pwd_reg = 3;
            break;

      default:
            snd_printk(KERN_ERR "sorry, no support for %d\n", hardware);
            return -ENODEV;
      }

      return 0;
}

static unsigned char snd_miro_read(struct snd_miro *chip,
                           unsigned char reg)
{
      unsigned long flags;
      unsigned char retval = 0xff;

      spin_lock_irqsave(&chip->lock, flags);
      outb(chip->password, chip->mc_base + chip->pwd_reg);

      switch (chip->hardware) {
      case OPTi9XX_HW_82C924:
            if (reg > 7) {
                  outb(reg, chip->mc_base + 8);
                  outb(chip->password, chip->mc_base + chip->pwd_reg);
                  retval = inb(chip->mc_base + 9);
                  break;
            }

      case OPTi9XX_HW_82C929:
            retval = inb(chip->mc_base + reg);
            break;

      default:
            snd_printk(KERN_ERR "sorry, no support for %d\n", chip->hardware);
      }

      spin_unlock_irqrestore(&chip->lock, flags);
      return retval;
}

static void snd_miro_write(struct snd_miro *chip, unsigned char reg,
                     unsigned char value)
{
      unsigned long flags;

      spin_lock_irqsave(&chip->lock, flags);
      outb(chip->password, chip->mc_base + chip->pwd_reg);

      switch (chip->hardware) {
      case OPTi9XX_HW_82C924:
            if (reg > 7) {
                  outb(reg, chip->mc_base + 8);
                  outb(chip->password, chip->mc_base + chip->pwd_reg);
                  outb(value, chip->mc_base + 9);
                  break;
            }

      case OPTi9XX_HW_82C929:
            outb(value, chip->mc_base + reg);
            break;

      default:
            snd_printk(KERN_ERR "sorry, no support for %d\n", chip->hardware);
      }

      spin_unlock_irqrestore(&chip->lock, flags);
}


#define snd_miro_write_mask(chip, reg, value, mask)   \
      snd_miro_write(chip, reg,                 \
            (snd_miro_read(chip, reg) & ~(mask)) | ((value) & (mask)))

/*
 *  Proc Interface
 */

static void snd_miro_proc_read(struct snd_info_entry * entry, 
                         struct snd_info_buffer *buffer)
{
      struct snd_miro *miro = (struct snd_miro *) entry->private_data;
      char* model = "unknown";

      /* miroSOUND PCM1 pro, early PCM12 */

      if ((miro->hardware == OPTi9XX_HW_82C929) &&
          (miro->aci_vendor == 'm') && 
          (miro->aci_product == 'A')) {
            switch(miro->aci_version) {
            case 3:
                  model = "miroSOUND PCM1 pro";
                  break;
            default:
                  model = "miroSOUND PCM1 pro / (early) PCM12";
                  break;
            }
      }

      /* miroSOUND PCM12, PCM12 (Rev. E), PCM12 pnp */

      if ((miro->hardware == OPTi9XX_HW_82C924) &&
          (miro->aci_vendor == 'm') && 
          (miro->aci_product == 'B')) {
            switch(miro->aci_version) {
            case 4:
                  model = "miroSOUND PCM12";
                  break;
            case 176:
                  model = "miroSOUND PCM12 (Rev. E)";
                  break;
            default:
                  model = "miroSOUND PCM12 / PCM12 pnp";
                  break;
            }
      }

      /* miroSOUND PCM20 radio */

      if ((miro->hardware == OPTi9XX_HW_82C924) &&
          (miro->aci_vendor == 'm') && 
          (miro->aci_product == 'C')) {
            switch(miro->aci_version) {
            case 7:
                  model = "miroSOUND PCM20 radio (Rev. E)";
                  break;
            default:
                  model = "miroSOUND PCM20 radio";
                  break;
            }
      }

      snd_iprintf(buffer, "\nGeneral information:\n");
      snd_iprintf(buffer, "  model   : %s\n", model);
      snd_iprintf(buffer, "  opti    : %s\n", miro->name);
      snd_iprintf(buffer, "  codec   : %s\n", miro->pcm->name);
      snd_iprintf(buffer, "  port    : 0x%lx\n", miro->wss_base);
      snd_iprintf(buffer, "  irq     : %d\n", miro->irq);
      snd_iprintf(buffer, "  dma     : %d,%d\n\n", miro->dma1, miro->dma2);

      snd_iprintf(buffer, "MPU-401:\n");
      snd_iprintf(buffer, "  port    : 0x%lx\n", miro->mpu_port);
      snd_iprintf(buffer, "  irq     : %d\n\n", miro->mpu_irq);

      snd_iprintf(buffer, "ACI information:\n");
      snd_iprintf(buffer, "  vendor  : ");
      switch(miro->aci_vendor) {
      case 'm':
            snd_iprintf(buffer, "Miro\n");
            break;
      default:
            snd_iprintf(buffer, "unknown (0x%x)\n", miro->aci_vendor);
            break;
      }

      snd_iprintf(buffer, "  product : ");
      switch(miro->aci_product) {
      case 'A':
            snd_iprintf(buffer, "miroSOUND PCM1 pro / (early) PCM12\n");
            break;
      case 'B':
            snd_iprintf(buffer, "miroSOUND PCM12\n");
            break;
      case 'C':
            snd_iprintf(buffer, "miroSOUND PCM20 radio\n");
            break;
      default:
            snd_iprintf(buffer, "unknown (0x%x)\n", miro->aci_product);
            break;
      }

      snd_iprintf(buffer, "  firmware: %d (0x%x)\n",
                miro->aci_version, miro->aci_version);
      snd_iprintf(buffer, "  port    : 0x%lx-0x%lx\n", 
                miro->aci_port, miro->aci_port+2);
      snd_iprintf(buffer, "  wss     : 0x%x\n", wss);
      snd_iprintf(buffer, "  ide     : 0x%x\n", ide);
      snd_iprintf(buffer, "  solomode: 0x%x\n", miro->aci_solomode);
      snd_iprintf(buffer, "  amp     : 0x%x\n", miro->aci_amp);
      snd_iprintf(buffer, "  preamp  : 0x%x\n", miro->aci_preamp);
}

static void __devinit snd_miro_proc_init(struct snd_miro * miro)
{
      struct snd_info_entry *entry;

      if (! snd_card_proc_new(miro->card, "miro", &entry))
            snd_info_set_text_ops(entry, miro, snd_miro_proc_read);
}

/*
 *  Init
 */

static int __devinit snd_miro_configure(struct snd_miro *chip)
{
      unsigned char wss_base_bits;
      unsigned char irq_bits;
      unsigned char dma_bits;
      unsigned char mpu_port_bits = 0;
      unsigned char mpu_irq_bits;
      unsigned long flags;

      switch (chip->hardware) {
      case OPTi9XX_HW_82C924:
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(6), 0x02, 0x02);
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(1), 0x80, 0x80);
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(2), 0x20, 0x20); /* OPL4 */
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(3), 0xf0, 0xff);
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(5), 0x02, 0x02);
            break;
      case OPTi9XX_HW_82C929:
            /* untested init commands for OPTi929 */
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(1), 0x80, 0x80);
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(2), 0x20, 0x20); /* OPL4 */
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(4), 0x00, 0x0c);
            snd_miro_write_mask(chip, OPTi9XX_MC_REG(5), 0x02, 0x02);
            break;
      default:
            snd_printk(KERN_ERR "chip %d not supported\n", chip->hardware);
            return -EINVAL;
      }

      switch (chip->wss_base) {
      case 0x530:
            wss_base_bits = 0x00;
            break;
      case 0x604:
            wss_base_bits = 0x03;
            break;
      case 0xe80:
            wss_base_bits = 0x01;
            break;
      case 0xf40:
            wss_base_bits = 0x02;
            break;
      default:
            snd_printk(KERN_ERR "WSS port 0x%lx not valid\n", chip->wss_base);
            goto __skip_base;
      }
      snd_miro_write_mask(chip, OPTi9XX_MC_REG(1), wss_base_bits << 4, 0x30);

__skip_base:
      switch (chip->irq) {
      case 5:
            irq_bits = 0x05;
            break;
      case 7:
            irq_bits = 0x01;
            break;
      case 9:
            irq_bits = 0x02;
            break;
      case 10:
            irq_bits = 0x03;
            break;
      case 11:
            irq_bits = 0x04;
            break;
      default:
            snd_printk(KERN_ERR "WSS irq # %d not valid\n", chip->irq);
            goto __skip_resources;
      }

      switch (chip->dma1) {
      case 0:
            dma_bits = 0x01;
            break;
      case 1:
            dma_bits = 0x02;
            break;
      case 3:
            dma_bits = 0x03;
            break;
      default:
            snd_printk(KERN_ERR "WSS dma1 # %d not valid\n", chip->dma1);
            goto __skip_resources;
      }

      if (chip->dma1 == chip->dma2) {
            snd_printk(KERN_ERR "don't want to share dmas\n");
            return -EBUSY;
      }

      switch (chip->dma2) {
      case 0:
      case 1:
            break;
      default:
            snd_printk(KERN_ERR "WSS dma2 # %d not valid\n", chip->dma2);
            goto __skip_resources;
      }
      dma_bits |= 0x04;

      spin_lock_irqsave(&chip->lock, flags);
      outb(irq_bits << 3 | dma_bits, chip->wss_base);
      spin_unlock_irqrestore(&chip->lock, flags);

__skip_resources:
      if (chip->hardware > OPTi9XX_HW_82C928) {
            switch (chip->mpu_port) {
            case 0:
            case -1:
                  break;
            case 0x300:
                  mpu_port_bits = 0x03;
                  break;
            case 0x310:
                  mpu_port_bits = 0x02;
                  break;
            case 0x320:
                  mpu_port_bits = 0x01;
                  break;
            case 0x330:
                  mpu_port_bits = 0x00;
                  break;
            default:
                  snd_printk(KERN_ERR "MPU-401 port 0x%lx not valid\n",
                           chip->mpu_port);
                  goto __skip_mpu;
            }

            switch (chip->mpu_irq) {
            case 5:
                  mpu_irq_bits = 0x02;
                  break;
            case 7:
                  mpu_irq_bits = 0x03;
                  break;
            case 9:
                  mpu_irq_bits = 0x00;
                  break;
            case 10:
                  mpu_irq_bits = 0x01;
                  break;
            default:
                  snd_printk(KERN_ERR "MPU-401 irq # %d not valid\n",
                           chip->mpu_irq);
                  goto __skip_mpu;
            }

            snd_miro_write_mask(chip, OPTi9XX_MC_REG(6),
                  (chip->mpu_port <= 0) ? 0x00 :
                        0x80 | mpu_port_bits << 5 | mpu_irq_bits << 3,
                  0xf8);
      }
__skip_mpu:

      return 0;
}

static int __devinit snd_card_miro_detect(struct snd_card *card,
                                struct snd_miro *chip)
{
      int i, err;
      unsigned char value;

      for (i = OPTi9XX_HW_82C929; i <= OPTi9XX_HW_82C924; i++) {

            if ((err = snd_miro_init(chip, i)) < 0)
                  return err;

            if ((chip->res_mc_base = request_region(chip->mc_base, chip->mc_base_size, "OPTi9xx MC")) == NULL)
                  continue;

            value = snd_miro_read(chip, OPTi9XX_MC_REG(1));
            if ((value != 0xff) && (value != inb(chip->mc_base + 1)))
                  if (value == snd_miro_read(chip, OPTi9XX_MC_REG(1)))
                        return 1;

            release_and_free_resource(chip->res_mc_base);
            chip->res_mc_base = NULL;

      }

      return -ENODEV;
}

static int __devinit snd_card_miro_aci_detect(struct snd_card *card,
                                    struct snd_miro * miro)
{
      unsigned char regval;
      int i;

      mutex_init(&miro->aci_mutex);

      /* get ACI port from OPTi9xx MC 4 */

      miro->mc_base = 0xf8c;
      regval=inb(miro->mc_base + 4);
      miro->aci_port = (regval & 0x10) ? 0x344: 0x354;

      if ((miro->res_aci_port = request_region(miro->aci_port, 3, "miro aci")) == NULL) {
            snd_printk(KERN_ERR "aci i/o area 0x%lx-0x%lx already used.\n", 
                     miro->aci_port, miro->aci_port+2);
            return -ENOMEM;
      }

        /* force ACI into a known state */
      for (i = 0; i < 3; i++)
            if (aci_cmd(miro, ACI_ERROR_OP, -1, -1) < 0) {
                  snd_printk(KERN_ERR "can't force aci into known state.\n");
                  return -ENXIO;
            }

      if ((miro->aci_vendor=aci_cmd(miro, ACI_READ_IDCODE, -1, -1)) < 0 ||
          (miro->aci_product=aci_cmd(miro, ACI_READ_IDCODE, -1, -1)) < 0) {
            snd_printk(KERN_ERR "can't read aci id on 0x%lx.\n", miro->aci_port);
            return -ENXIO;
      }

      if ((miro->aci_version=aci_cmd(miro, ACI_READ_VERSION, -1, -1)) < 0) {
            snd_printk(KERN_ERR "can't read aci version on 0x%lx.\n", 
                     miro->aci_port);
            return -ENXIO;
      }

      if (aci_cmd(miro, ACI_INIT, -1, -1) < 0 ||
          aci_cmd(miro, ACI_ERROR_OP, ACI_ERROR_OP, ACI_ERROR_OP) < 0 ||
          aci_cmd(miro, ACI_ERROR_OP, ACI_ERROR_OP, ACI_ERROR_OP) < 0) {
            snd_printk(KERN_ERR "can't initialize aci.\n"); 
            return -ENXIO;
      }

      return 0;
}

static void snd_card_miro_free(struct snd_card *card)
{
      struct snd_miro *miro = card->private_data;
        
      release_and_free_resource(miro->res_aci_port);
      release_and_free_resource(miro->res_mc_base);
}

static int __devinit snd_miro_match(struct device *devptr, unsigned int n)
{
      return 1;
}

static int __devinit snd_miro_probe(struct device *devptr, unsigned int n)
{
      static long possible_ports[] = {0x530, 0xe80, 0xf40, 0x604, -1};
      static long possible_mpu_ports[] = {0x330, 0x300, 0x310, 0x320, -1};
      static int possible_irqs[] = {11, 9, 10, 7, -1};
      static int possible_mpu_irqs[] = {10, 5, 9, 7, -1};
      static int possible_dma1s[] = {3, 1, 0, -1};
      static int possible_dma2s[][2] = {{1,-1}, {0,-1}, {-1,-1}, {0,-1}};

      int error;
      struct snd_miro *miro;
      struct snd_wss *codec;
      struct snd_timer *timer;
      struct snd_card *card;
      struct snd_pcm *pcm;
      struct snd_rawmidi *rmidi;

      error = snd_card_create(index, id, THIS_MODULE,
                        sizeof(struct snd_miro), &card);
      if (error < 0)
            return error;

      card->private_free = snd_card_miro_free;
      miro = card->private_data;
      miro->card = card;

      if ((error = snd_card_miro_aci_detect(card, miro)) < 0) {
            snd_card_free(card);
            snd_printk(KERN_ERR "unable to detect aci chip\n");
            return -ENODEV;
      }

      /* init proc interface */
      snd_miro_proc_init(miro);

      if ((error = snd_card_miro_detect(card, miro)) < 0) {
            snd_card_free(card);
            snd_printk(KERN_ERR "unable to detect OPTi9xx chip\n");
            return -ENODEV;
      }

      if (! miro->res_mc_base &&
          (miro->res_mc_base = request_region(miro->mc_base, miro->mc_base_size,
                                    "miro (OPTi9xx MC)")) == NULL) {
            snd_card_free(card);
            snd_printk(KERN_ERR "request for OPTI9xx MC failed\n");
            return -ENOMEM;
      }

      miro->wss_base = port;
      miro->fm_port = fm_port;
      miro->mpu_port = mpu_port;
      miro->irq = irq;
      miro->mpu_irq = mpu_irq;
      miro->dma1 = dma1;
      miro->dma2 = dma2;

      if (miro->wss_base == SNDRV_AUTO_PORT) {
            if ((miro->wss_base = snd_legacy_find_free_ioport(possible_ports, 4)) < 0) {
                  snd_card_free(card);
                  snd_printk(KERN_ERR "unable to find a free WSS port\n");
                  return -EBUSY;
            }
      }

      if (miro->mpu_port == SNDRV_AUTO_PORT) {
            if ((miro->mpu_port = snd_legacy_find_free_ioport(possible_mpu_ports, 2)) < 0) {
                  snd_card_free(card);
                  snd_printk(KERN_ERR "unable to find a free MPU401 port\n");
                  return -EBUSY;
            }
      }
      if (miro->irq == SNDRV_AUTO_IRQ) {
            if ((miro->irq = snd_legacy_find_free_irq(possible_irqs)) < 0) {
                  snd_card_free(card);
                  snd_printk(KERN_ERR "unable to find a free IRQ\n");
                  return -EBUSY;
            }
      }
      if (miro->mpu_irq == SNDRV_AUTO_IRQ) {
            if ((miro->mpu_irq = snd_legacy_find_free_irq(possible_mpu_irqs)) < 0) {
                  snd_card_free(card);
                  snd_printk(KERN_ERR "unable to find a free MPU401 IRQ\n");
                  return -EBUSY;
            }
      }
      if (miro->dma1 == SNDRV_AUTO_DMA) {
            if ((miro->dma1 = snd_legacy_find_free_dma(possible_dma1s)) < 0) {
                  snd_card_free(card);
                  snd_printk(KERN_ERR "unable to find a free DMA1\n");
                  return -EBUSY;
            }
      }
      if (miro->dma2 == SNDRV_AUTO_DMA) {
            if ((miro->dma2 = snd_legacy_find_free_dma(possible_dma2s[miro->dma1 % 4])) < 0) {
                  snd_card_free(card);
                  snd_printk(KERN_ERR "unable to find a free DMA2\n");
                  return -EBUSY;
            }
      }

      error = snd_miro_configure(miro);
      if (error) {
            snd_card_free(card);
            return error;
      }

      error = snd_wss_create(card, miro->wss_base + 4, -1,
                        miro->irq, miro->dma1, miro->dma2,
                        WSS_HW_AD1845, 0, &codec);
      if (error < 0) {
            snd_card_free(card);
            return error;
      }

      error = snd_wss_pcm(codec, 0, &pcm);
      if (error < 0)  {
            snd_card_free(card);
            return error;
      }
      error = snd_wss_mixer(codec);
      if (error < 0) {
            snd_card_free(card);
            return error;
      }
      error = snd_wss_timer(codec, 0, &timer);
      if (error < 0) {
            snd_card_free(card);
            return error;
      }

      miro->pcm = pcm;

      if ((error = snd_miro_mixer(miro)) < 0) {
            snd_card_free(card);
            return error;
      }

      if (miro->aci_vendor == 'm') {
            /* It looks like a miro sound card. */
            switch (miro->aci_product) {
            case 'A':
                  sprintf(card->shortname, 
                        "miroSOUND PCM1 pro / PCM12");
                  break;
            case 'B':
                  sprintf(card->shortname, 
                        "miroSOUND PCM12");
                  break;
            case 'C':
                  sprintf(card->shortname, 
                        "miroSOUND PCM20 radio");
                  break;
            default:
                  sprintf(card->shortname, 
                        "unknown miro");
                  snd_printk(KERN_INFO "unknown miro aci id\n");
                  break;
            }
      } else {
            snd_printk(KERN_INFO "found unsupported aci card\n");
            sprintf(card->shortname, "unknown Cardinal Technologies");
      }

      strcpy(card->driver, "miro");
      sprintf(card->longname, "%s: OPTi%s, %s at 0x%lx, irq %d, dma %d&%d",
            card->shortname, miro->name, pcm->name, miro->wss_base + 4,
            miro->irq, miro->dma1, miro->dma2);

      if (miro->mpu_port <= 0 || miro->mpu_port == SNDRV_AUTO_PORT)
            rmidi = NULL;
      else
            if ((error = snd_mpu401_uart_new(card, 0, MPU401_HW_MPU401,
                        miro->mpu_port, 0, miro->mpu_irq, IRQF_DISABLED,
                        &rmidi)))
                  snd_printk(KERN_WARNING "no MPU-401 device at 0x%lx?\n", miro->mpu_port);

      if (miro->fm_port > 0 && miro->fm_port != SNDRV_AUTO_PORT) {
            struct snd_opl3 *opl3 = NULL;
            struct snd_opl4 *opl4;
            if (snd_opl4_create(card, miro->fm_port, miro->fm_port - 8, 
                            2, &opl3, &opl4) < 0)
                  snd_printk(KERN_WARNING "no OPL4 device at 0x%lx\n", miro->fm_port);
      }

      if ((error = snd_set_aci_init_values(miro)) < 0) {
            snd_card_free(card);
                return error;
      }

      snd_card_set_dev(card, devptr);

      if ((error = snd_card_register(card))) {
            snd_card_free(card);
            return error;
      }

      dev_set_drvdata(devptr, card);
      return 0;
}

static int __devexit snd_miro_remove(struct device *devptr, unsigned int dev)
{
      snd_card_free(dev_get_drvdata(devptr));
      dev_set_drvdata(devptr, NULL);
      return 0;
}

#define DEV_NAME "miro"

static struct isa_driver snd_miro_driver = {
      .match            = snd_miro_match,
      .probe            = snd_miro_probe,
      .remove           = __devexit_p(snd_miro_remove),
      /* FIXME: suspend/resume */
      .driver           = {
            .name = DEV_NAME
      },
};

static int __init alsa_card_miro_init(void)
{
      return isa_register_driver(&snd_miro_driver, 1);
}

static void __exit alsa_card_miro_exit(void)
{
      isa_unregister_driver(&snd_miro_driver);
}

module_init(alsa_card_miro_init)
module_exit(alsa_card_miro_exit)

Generated by  Doxygen 1.6.0   Back to index