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

pc98.c

/*
 *  Driver for CS4232 on NEC PC9800 series
 *  Copyright (c) by Jaroslav Kysela <perex@suse.cz>
 *                   Osamu Tomita <tomita@cinet.co.jp>
 *                   Takashi Iwai <tiwai@suse.de>
 *                   Hideaki Okubo <okubo@msh.biglobe.ne.jp>
 *
 *
 *   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 <sound/driver.h>
#include <linux/init.h>
#include <linux/slab.h>
#include <linux/moduleparam.h>
#include <sound/core.h>
#include <sound/cs4231.h>
#include <sound/mpu401.h>
#include <sound/opl3.h>
#include <sound/initval.h>
#include "sound_pc9800.h"

#define chip_t cs4231_t

MODULE_AUTHOR("Osamu Tomita <tomita@cinet.co.jp>");
MODULE_LICENSE("GPL");
MODULE_DESCRIPTION("NEC PC9800 CS4232");
MODULE_SUPPORTED_DEVICE("{{NEC,PC9800}}");

#define IDENT "PC98-CS4232"

static int index[SNDRV_CARDS] = SNDRV_DEFAULT_IDX;    /* Index 0-MAX */
static char *id[SNDRV_CARDS] = SNDRV_DEFAULT_STR;     /* ID for this card */
static int enable[SNDRV_CARDS] = SNDRV_DEFAULT_ENABLE_ISAPNP; /* Enable this card */
static long port[SNDRV_CARDS] = SNDRV_DEFAULT_PORT;   /* PnP setup */
#if 0 /* NOT USED */
static long cport[SNDRV_CARDS] = SNDRV_DEFAULT_PORT;  /* PnP setup */
#endif
static long mpu_port[SNDRV_CARDS] = SNDRV_DEFAULT_PORT;/* PnP setup */
static long fm_port[SNDRV_CARDS] = SNDRV_DEFAULT_PORT;      /* PnP setup */
static int irq[SNDRV_CARDS] = SNDRV_DEFAULT_IRQ;      /* 5,7,9,11,12,15 */
static int mpu_irq[SNDRV_CARDS] = SNDRV_DEFAULT_IRQ;  /* 9,11,12,15 */
static int dma1[SNDRV_CARDS] = SNDRV_DEFAULT_DMA;     /* 0,1,3,5,6,7 */
static int dma2[SNDRV_CARDS] = SNDRV_DEFAULT_DMA;     /* 0,1,3,5,6,7 */
static int pc98ii[SNDRV_CARDS];                       /* PC98II */

module_param_array(index, int, NULL, 0444);
MODULE_PARM_DESC(index, "Index value for " IDENT " soundcard.");
MODULE_PARM_SYNTAX(index, SNDRV_INDEX_DESC);
module_param_array(id, charp, NULL, 0444);
MODULE_PARM_DESC(id, "ID string for " IDENT " soundcard.");
MODULE_PARM_SYNTAX(id, SNDRV_ID_DESC);
module_param_array(enable, bool, NULL, 0444);
MODULE_PARM_DESC(enable, "Enable " IDENT " soundcard.");
MODULE_PARM_SYNTAX(enable, SNDRV_ENABLE_DESC);
module_param_array(port, long, NULL, 0444);
MODULE_PARM_DESC(port, "Port # for " IDENT " driver.");
MODULE_PARM_SYNTAX(port, SNDRV_PORT12_DESC);
#if 0 /* NOT USED */
module_param_array(cport, long, NULL, 0444);
MODULE_PARM_DESC(cport, "Control port # for " IDENT " driver.");
MODULE_PARM_SYNTAX(cport, SNDRV_PORT12_DESC);
#endif
module_param_array(mpu_port, long, NULL, 0444);
MODULE_PARM_DESC(mpu_port, "MPU-401 port # for " IDENT " driver.");
MODULE_PARM_SYNTAX(mpu_port, SNDRV_PORT12_DESC);
module_param_array(fm_port, long, NULL, 0444);
MODULE_PARM_DESC(fm_port, "FM port # for " IDENT " driver.");
MODULE_PARM_SYNTAX(fm_port, SNDRV_PORT12_DESC);
module_param_array(irq, int, NULL, 0444);
MODULE_PARM_DESC(irq, "IRQ # for " IDENT " driver.");
MODULE_PARM_SYNTAX(irq, SNDRV_IRQ_DESC);
module_param_array(mpu_irq, int, NULL, 0444);
MODULE_PARM_DESC(mpu_irq, "MPU-401 IRQ # for " IDENT " driver.");
MODULE_PARM_SYNTAX(mpu_irq, SNDRV_IRQ_DESC);
module_param_array(dma1, int, NULL, 0444);
MODULE_PARM_DESC(dma1, "DMA1 # for " IDENT " driver.");
MODULE_PARM_SYNTAX(dma1, SNDRV_DMA_DESC);
module_param_array(dma2, int, NULL, 0444);
MODULE_PARM_DESC(dma2, "DMA2 # for " IDENT " driver.");
MODULE_PARM_SYNTAX(dma2, SNDRV_DMA_DESC);
module_param_array(pc98ii, bool, NULL, 0444);
MODULE_PARM_DESC(pc98ii, "Roland MPU-PC98II support.");
MODULE_PARM_SYNTAX(pc98ii, SNDRV_BOOLEAN_FALSE_DESC);


static snd_card_t *snd_pc98_cards[SNDRV_CARDS] = SNDRV_DEFAULT_PTR;

/*
 * initialize MPU401-UART
 */

static int __init pc98_mpu401_init(int irq)
{
#include "pc9801_118_magic.h"
#define outp118(reg,data) outb((reg),0x148e);outb((data),0x148f)
#define WAIT118 outb(0x00,0x5f)
      int   mpu_intr, count;
#ifdef OOKUBO_ORIGINAL
      int   err = 0;
#endif /* OOKUBO_ORIGINAL */

      switch (irq) {
      case 3:
            mpu_intr = 3;
            break;
      case 5:
            mpu_intr = 2;
            break;
      case 6:
            mpu_intr = 1;
            break;
      case 10:
            mpu_intr = 0;
            break;
      default:
            snd_printk(KERN_ERR IDENT ": Bad IRQ %d\n", irq);
            return -EINVAL;
      }

      outp118(0x21, mpu_intr);
      WAIT118;
      outb(0x00, 0x148e);
      if (inb(0x148f) & 0x08) {
            snd_printk(KERN_INFO IDENT ": No MIDI daughter board found\n");
            return 0;
      }

      outp118(0x20, 0x00);
      outp118(0x05, 0x04);
      for (count = 0; count < 35000; count ++)
            WAIT118;
      outb(0x05, 0x148e);
      for (count = 0; count < 65000; count ++)
            if (inb(0x148f) == 0x04)
                  goto set_mode_118;
      snd_printk(KERN_ERR IDENT ": MIDI daughter board initialize failed at stage1\n\n");
      return -EINVAL;

 set_mode_118:
      outp118(0x05, 0x0c);
      outb(0xaa, 0x485);
      outb(0x99, 0x485);
      outb(0x2a, 0x485);
      for (count = 0; count < sizeof(Data0485_99); count ++) {
            outb(Data0485_99[count], 0x485);
            WAIT118;
      }

      outb(0x00, 0x486);
      outb(0xaa, 0x485);
      outb(0x9e, 0x485);
      outb(0x2a, 0x485);
      for (count = 0; count < sizeof(Data0485_9E); count ++)
            if (inb(0x485) != Data0485_9E[count]) {
#ifdef OOKUBO_ORIGINAL
                  err = 1;
#endif /* OOKUBO_ORIGINAL */
                  break;
            }
      outb(0x00, 0x486);
      for (count = 0; count < 2000; count ++)
            WAIT118;
#ifdef OOKUBO_ORIGINAL
      if (!err) {
            outb(0xaa, 0x485);
            outb(0x36, 0x485);
            outb(0x28, 0x485);
            for (count = 0; count < sizeof(Data0485_36); count ++)
                  outb(Data0485_36[count], 0x485);
            outb(0x00, 0x486);
            for (count = 0; count < 1500; count ++)
                  WAIT118;
            outp118(0x05, inb(0x148f) | 0x08);
            outb(0xff, 0x148c);
            outp118(0x05, inb(0x148f) & 0xf7);
            for (count = 0; count < 1500; count ++)
                  WAIT118;
      }
#endif /* OOKUBO_ORIGINAL */

      outb(0xaa, 0x485);
      outb(0xa9, 0x485);
      outb(0x21, 0x485);
      for (count = 0; count < sizeof(Data0485_A9); count ++) {
            outb(Data0485_A9[count], 0x485);
            WAIT118;
      }

      outb(0x00, 0x486);
      outb(0xaa, 0x485);
      outb(0x0c, 0x485);
      outb(0x20, 0x485);
      for (count = 0; count < sizeof(Data0485_0C); count ++) {
            outb(Data0485_0C[count], 0x485);
            WAIT118;
      }

      outb(0x00, 0x486);
      outb(0xaa, 0x485);
      outb(0x66, 0x485);
      outb(0x20, 0x485);
      for (count = 0; count < sizeof(Data0485_66); count ++) {
            outb(Data0485_66[count], 0x485);
            WAIT118;
      }

      outb(0x00, 0x486);
      outb(0xaa, 0x485);
      outb(0x60, 0x485);
      outb(0x20, 0x485);
      for (count = 0; count < sizeof(Data0485_60); count ++) {
            outb(Data0485_60[count], 0x485);
            WAIT118;
      }

      outb(0x00, 0x486);
      outp118(0x05, 0x04);
      outp118(0x05, 0x00);
      for (count = 0; count < 35000; count ++)
            WAIT118;
      outb(0x05, 0x148e);
      for (count = 0; count < 65000; count ++)
            if (inb(0x148f) == 0x00)
                  goto end_mode_118;
      snd_printk(KERN_ERR IDENT ": MIDI daughter board initialize failed at stage2\n");
      return -EINVAL;

 end_mode_118:
      outb(0x3f, 0x148d);
      snd_printk(KERN_INFO IDENT ": MIDI daughter board initialized\n");
      return 0;
}

static int __init pc98_cs4231_chip_init(int dev)
{
      int intr_bits, intr_bits2, dma_bits;

      switch (irq[dev]) {
      case 3:
            intr_bits = 0x08;
            intr_bits2 = 0x03;
            break;
      case 5:
            intr_bits = 0x10;
            intr_bits2 = 0x08;
            break;
      case 10:
            intr_bits = 0x18;
            intr_bits2 = 0x02;
            break;
      case 12:
            intr_bits = 0x20;
            intr_bits2 = 0x00;
            break;
      default:
            snd_printk(KERN_ERR IDENT ": Bad IRQ %d\n", irq[dev]);
            return -EINVAL;
      }

      switch (dma1[dev]) {
      case 0:
            dma_bits = 0x01;
            break;
      case 1:
            dma_bits = 0x02;
            break;
      case 3:
            dma_bits = 0x03;
            break;
      default:
            snd_printk(KERN_ERR IDENT ": Bad DMA %d\n", dma1[dev]);
            return -EINVAL;
      }

      if (dma2[dev] >= 2) {
            snd_printk(KERN_ERR IDENT ": Bad DMA %d\n", dma2[dev]);
            return -EINVAL;
      }

      outb(dma1[dev], 0x29);        /* dma1 boundary 64KB */
      if (dma1[dev] != dma2[dev] && dma2[dev] >= 0) {
            outb(0, 0x5f);          /* wait */
            outb(dma2[dev], 0x29);  /* dma2 boundary 64KB */
            intr_bits |= 0x04;
      }

      if (PC9800_SOUND_ID() == PC9800_SOUND_ID_118) {
            /* Set up CanBe control registers. */
            snd_printd(KERN_INFO "Setting up CanBe Sound System\n");
            outb(inb(PC9800_SOUND_IO_ID) | 0x03, PC9800_SOUND_IO_ID);
            outb(0x01, 0x0f4a);
            outb(intr_bits2, 0x0f4b);
      }

      outb(intr_bits | dma_bits, 0xf40);
      return 0;
}


static int __init snd_card_pc98_probe(int dev)
{
      snd_card_t *card;
      snd_pcm_t *pcm = NULL;
      cs4231_t *chip;
      opl3_t *opl3;
      int err;

      if (port[dev] == SNDRV_AUTO_PORT) {
            snd_printk(KERN_ERR IDENT ": specify port\n");
            return -EINVAL;
      }
      card = snd_card_new(index[dev], id[dev], THIS_MODULE, 0);
      if (card == NULL)
            return -ENOMEM;

      if ((err = pc98_cs4231_chip_init(dev)) < 0) {
            snd_card_free(card);
            return err;
      }

      if ((err = snd_cs4231_create(card,
                             port[dev],
                             -1,
                             irq[dev],
                             dma1[dev],
                             dma2[dev],
                             CS4231_HW_DETECT,
                             0,
                             &chip)) < 0) {
            snd_card_free(card);
            return err;
      }
      if ((err = snd_cs4231_pcm(chip, 0, &pcm)) < 0) {
            snd_card_free(card);
            return err;
      }
      if ((err = snd_cs4231_mixer(chip)) < 0) {
            snd_card_free(card);
            return err;
      }

      if ((err = snd_cs4231_timer(chip, 0, NULL)) < 0) {
            snd_card_free(card);
            return err;
      }

      if (fm_port[dev] > 0 && fm_port[dev] != SNDRV_AUTO_PORT) {
            /* ??? */
            outb(0x00, fm_port[dev] + 6);
            inb(fm_port[dev] + 7);
            /* Enable OPL-3 Function */
            outb(inb(PC9800_SOUND_IO_ID) | 0x03, PC9800_SOUND_IO_ID);
            if (snd_opl3_create(card,
                            fm_port[dev], fm_port[dev] + 2,
                            OPL3_HW_OPL3_PC98, 0, &opl3) < 0) {
                  printk(KERN_ERR IDENT ": OPL3 not detected\n");
            } else {
                  if ((err = snd_opl3_hwdep_new(opl3, 0, 1, NULL)) < 0) {
                        snd_card_free(card);
                        return err;
                  }
            }
      }

      if (mpu_port[dev] > 0 && mpu_port[dev] != SNDRV_AUTO_PORT) {
            err = pc98_mpu401_init(mpu_irq[dev]);
            if (! err) {
                  err = snd_mpu401_uart_new(card, 0,
                                      pc98ii[dev] ? MPU401_HW_PC98II : MPU401_HW_MPU401,
                                      mpu_port[dev], 0,
                                      mpu_irq[dev], SA_INTERRUPT, NULL);
                  if (err < 0)
                        snd_printk(KERN_INFO IDENT ": MPU401 not detected\n");
            }
      }

      strcpy(card->driver, pcm->name);
      strcpy(card->shortname, pcm->name);
      sprintf(card->longname, "%s at 0x%lx, irq %i, dma %i",
            pcm->name,
            chip->port,
            irq[dev],
            dma1[dev]);
      if (dma2[dev] >= 0)
            sprintf(card->longname + strlen(card->longname), "&%d", dma2[dev]);
      if ((err = snd_card_register(card)) < 0) {
            snd_card_free(card);
            return err;
      }
      snd_pc98_cards[dev] = card;
      return 0;
}

static int __init alsa_card_pc98_init(void)
{
      int dev, cards = 0;

      for (dev = 0; dev < SNDRV_CARDS; dev++) {
            if (!enable[dev])
                  continue;
            if (snd_card_pc98_probe(dev) >= 0)
                  cards++;
      }
      if (!cards) {
#ifdef MODULE
            printk(KERN_ERR IDENT " soundcard not found or device busy\n");
#endif
            return -ENODEV;
      }
      return 0;
}

static void __exit alsa_card_pc98_exit(void)
{
      int idx;

      for (idx = 0; idx < SNDRV_CARDS; idx++)
            snd_card_free(snd_pc98_cards[idx]);
}

module_init(alsa_card_pc98_init)
module_exit(alsa_card_pc98_exit)

EXPORT_NO_SYMBOLS;

Generated by  Doxygen 1.6.0   Back to index