sound/pci/fm801.c

   1 /*
   2  *  The driver for the ForteMedia FM801 based soundcards
   3  *  Copyright (c) by Jaroslav Kysela <perex@suse.cz>
   4  *
   5  *
   6  *   This program is free software; you can redistribute it and/or modify
   7  *   it under the terms of the GNU General Public License as published by
   8  *   the Free Software Foundation; either version 2 of the License, or
   9  *   (at your option) any later version.
  10  *
  11  *   This program is distributed in the hope that it will be useful,
  12  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  *   GNU General Public License for more details.
  15  *
  16  *   You should have received a copy of the GNU General Public License
  17  *   along with this program; if not, write to the Free Software
  18  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  19  *
  20  */
  21
  22 #include <sound/driver.h>
  23 #include <linux/delay.h>
  24 #include <linux/init.h>
  25 #include <linux/interrupt.h>
  26 #include <linux/pci.h>
  27 #include <linux/slab.h>
  28 #include <sound/core.h>
  29 #include <sound/pcm.h>
  30 #include <sound/ac97_codec.h>
  31 #include <sound/mpu401.h>
  32 #include <sound/opl3.h>
  33 #define SNDRV_GET_ID
  34 #include <sound/initval.h>
  35
  36 #include <asm/io.h>
  37
  38 #if (defined(CONFIG_SND_FM801_TEA575X) || defined(CONFIG_SND_FM801_TEA575X_MODULE)) && (defined(CONFIG_VIDEO_DEV) || defined(CONFIG_VIDEO_DEV_MODULE))
  39 #include <sound/tea575x-tuner.h>
  40 #define TEA575X_RADIO 1
  41 #endif
  42
  43 #define chip_t fm801_t
  44
  45 MODULE_AUTHOR("Jaroslav Kysela <perex@suse.cz>");
  46 MODULE_DESCRIPTION("ForteMedia FM801");
  47 MODULE_LICENSE("GPL");
  48 MODULE_CLASSES("{sound}");
  49 MODULE_DEVICES("{{ForteMedia,FM801},"
  50                 "{Genius,SoundMaker Live 5.1}}");
  51
  52 static int index[SNDRV_CARDS] = SNDRV_DEFAULT_IDX;      /* Index 0-MAX */
  53 static char *id[SNDRV_CARDS] = SNDRV_DEFAULT_STR;       /* ID for this card */
  54 static int enable[SNDRV_CARDS] = SNDRV_DEFAULT_ENABLE_PNP;      /* Enable this card */
  55 /*
  56  *  Enable TEA575x tuner
  57  *    1 = MediaForte 256-PCS
  58  *    2 = MediaForte 256-PCPR
  59  *    3 = MediaForte 64-PCR
  60  *  High 16-bits are video (radio) device number + 1
  61  */
  62 static int tea575x_tuner[SNDRV_CARDS] = { [0 ... (SNDRV_CARDS-1)] = 0 };
  63
  64 MODULE_PARM(index, "1-" __MODULE_STRING(SNDRV_CARDS) "i");
  65 MODULE_PARM_DESC(index, "Index value for the FM801 soundcard.");
  66 MODULE_PARM_SYNTAX(index, SNDRV_INDEX_DESC);
  67 MODULE_PARM(id, "1-" __MODULE_STRING(SNDRV_CARDS) "s");
  68 MODULE_PARM_DESC(id, "ID string for the FM801 soundcard.");
  69 MODULE_PARM_SYNTAX(id, SNDRV_ID_DESC);
  70 MODULE_PARM(enable, "1-" __MODULE_STRING(SNDRV_CARDS) "i");
  71 MODULE_PARM_DESC(enable, "Enable FM801 soundcard.");
  72 MODULE_PARM_SYNTAX(enable, SNDRV_ENABLE_DESC);
  73 MODULE_PARM(tea575x_tuner, "1-" __MODULE_STRING(SNDRV_CARDS) "i");
  74 MODULE_PARM_DESC(tea575x_tuner, "Enable TEA575x tuner.");
  75 MODULE_PARM_SYNTAX(tea575x_tuner, SNDRV_ENABLE_DESC);
  76
  77 /*
  78  *  Direct registers
  79  */
  80
  81 #define FM801_REG(chip, reg)    (chip->port + FM801_##reg)
  82
  83 #define FM801_PCM_VOL           0x00    /* PCM Output Volume */
  84 #define FM801_FM_VOL            0x02    /* FM Output Volume */
  85 #define FM801_I2S_VOL           0x04    /* I2S Volume */
  86 #define FM801_REC_SRC           0x06    /* Record Source */
  87 #define FM801_PLY_CTRL          0x08    /* Playback Control */
  88 #define FM801_PLY_COUNT         0x0a    /* Playback Count */
  89 #define FM801_PLY_BUF1          0x0c    /* Playback Bufer I */
  90 #define FM801_PLY_BUF2          0x10    /* Playback Buffer II */
  91 #define FM801_CAP_CTRL          0x14    /* Capture Control */
  92 #define FM801_CAP_COUNT         0x16    /* Capture Count */
  93 #define FM801_CAP_BUF1          0x18    /* Capture Buffer I */
  94 #define FM801_CAP_BUF2          0x1c    /* Capture Buffer II */
  95 #define FM801_CODEC_CTRL        0x22    /* Codec Control */
  96 #define FM801_I2S_MODE          0x24    /* I2S Mode Control */
  97 #define FM801_VOLUME            0x26    /* Volume Up/Down/Mute Status */
  98 #define FM801_I2C_CTRL          0x29    /* I2C Control */
  99 #define FM801_AC97_CMD          0x2a    /* AC'97 Command */
 100 #define FM801_AC97_DATA         0x2c    /* AC'97 Data */
 101 #define FM801_MPU401_DATA       0x30    /* MPU401 Data */
 102 #define FM801_MPU401_CMD        0x31    /* MPU401 Command */
 103 #define FM801_GPIO_CTRL         0x52    /* General Purpose I/O Control */
 104 #define FM801_GEN_CTRL          0x54    /* General Control */
 105 #define FM801_IRQ_MASK          0x56    /* Interrupt Mask */
 106 #define FM801_IRQ_STATUS        0x5a    /* Interrupt Status */
 107 #define FM801_OPL3_BANK0        0x68    /* OPL3 Status Read / Bank 0 Write */
 108 #define FM801_OPL3_DATA0        0x69    /* OPL3 Data 0 Write */
 109 #define FM801_OPL3_BANK1        0x6a    /* OPL3 Bank 1 Write */
 110 #define FM801_OPL3_DATA1        0x6b    /* OPL3 Bank 1 Write */
 111 #define FM801_POWERDOWN         0x70    /* Blocks Power Down Control */
 112
 113 #define FM801_AC97_ADDR_SHIFT   10
 114
 115 /* playback and record control register bits */
 116 #define FM801_BUF1_LAST         (1<<1)
 117 #define FM801_BUF2_LAST         (1<<2)
 118 #define FM801_START             (1<<5)
 119 #define FM801_PAUSE             (1<<6)
 120 #define FM801_IMMED_STOP        (1<<7)
 121 #define FM801_RATE_SHIFT        8
 122 #define FM801_RATE_MASK         (15 << FM801_RATE_SHIFT)
 123 #define FM801_CHANNELS_4        (1<<12) /* playback only */
 124 #define FM801_CHANNELS_6        (2<<12) /* playback only */
 125 #define FM801_CHANNELS_6MS      (3<<12) /* playback only */
 126 #define FM801_CHANNELS_MASK     (3<<12)
 127 #define FM801_16BIT             (1<<14)
 128 #define FM801_STEREO            (1<<15)
 129
 130 /* IRQ status bits */
 131 #define FM801_IRQ_PLAYBACK      (1<<8)
 132 #define FM801_IRQ_CAPTURE       (1<<9)
 133 #define FM801_IRQ_VOLUME        (1<<14)
 134 #define FM801_IRQ_MPU           (1<<15)
 135
 136 /* GPIO control register */
 137 #define FM801_GPIO_GP0          (1<<0)  /* read/write */
 138 #define FM801_GPIO_GP1          (1<<1)
 139 #define FM801_GPIO_GP2          (1<<2)
 140 #define FM801_GPIO_GP3          (1<<3)
 141 #define FM801_GPIO_GP(x)        (1<<(0+(x)))
 142 #define FM801_GPIO_GD0          (1<<8)  /* directions: 1 = input, 0 = output*/
 143 #define FM801_GPIO_GD1          (1<<9)
 144 #define FM801_GPIO_GD2          (1<<10)
 145 #define FM801_GPIO_GD3          (1<<11)
 146 #define FM801_GPIO_GD(x)        (1<<(8+(x)))
 147 #define FM801_GPIO_GS0          (1<<12) /* function select: */
 148 #define FM801_GPIO_GS1          (1<<13) /*    1 = GPIO */
 149 #define FM801_GPIO_GS2          (1<<14) /*    0 = other (S/PDIF, VOL) */
 150 #define FM801_GPIO_GS3          (1<<15)
 151 #define FM801_GPIO_GS(x)        (1<<(12+(x)))
 152
 153 /*
 154
 155  */
 156
 157 typedef struct _snd_fm801 fm801_t;
 158
 159 struct _snd_fm801 {
 160         int irq;
 161
 162         unsigned long port;     /* I/O port number */
 163         struct resource *res_port;
 164         unsigned int multichannel: 1,   /* multichannel support */
 165                      secondary: 1;      /* secondary codec */
 166         unsigned char secondary_addr;   /* address of the secondary codec */
 167
 168         unsigned short ply_ctrl; /* playback control */
 169         unsigned short cap_ctrl; /* capture control */
 170
 171         unsigned long ply_buffer;
 172         unsigned int ply_buf;
 173         unsigned int ply_count;
 174         unsigned int ply_size;
 175         unsigned int ply_pos;
 176
 177         unsigned long cap_buffer;
 178         unsigned int cap_buf;
 179         unsigned int cap_count;
 180         unsigned int cap_size;
 181         unsigned int cap_pos;
 182
 183         ac97_bus_t *ac97_bus;
 184         ac97_t *ac97;
 185         ac97_t *ac97_sec;
 186
 187         struct pci_dev *pci;
 188         snd_card_t *card;
 189         snd_pcm_t *pcm;
 190         snd_rawmidi_t *rmidi;
 191         snd_pcm_substream_t *playback_substream;
 192         snd_pcm_substream_t *capture_substream;
 193         unsigned int p_dma_size;
 194         unsigned int c_dma_size;
 195
 196         spinlock_t reg_lock;
 197         snd_info_entry_t *proc_entry;
 198
 199 #ifdef TEA575X_RADIO
 200         tea575x_t tea;
 201 #endif
 202 };
 203
 204 static struct pci_device_id snd_fm801_ids[] = {
 205         { 0x1319, 0x0801, PCI_ANY_ID, PCI_ANY_ID, PCI_CLASS_MULTIMEDIA_AUDIO << 8, 0xffff00, 0, },   /* FM801 */
 206         { 0, }
 207 };
 208
 209 MODULE_DEVICE_TABLE(pci, snd_fm801_ids);
 210
 211 /*
 212  *  common I/O routines
 213  */
 214
 215 static int snd_fm801_update_bits(fm801_t *chip, unsigned short reg,
 216                                  unsigned short mask, unsigned short value)
 217 {
 218         int change;
 219         unsigned short old, new;
 220
 221         spin_lock(&chip->reg_lock);
 222         old = inw(chip->port + reg);
 223         new = (old & ~mask) | value;
 224         change = old != new;
 225         if (change)
 226                 outw(new, chip->port + reg);
 227         spin_unlock(&chip->reg_lock);
 228         return change;
 229 }
 230
 231 static void snd_fm801_codec_write(ac97_t *ac97,
 232                                   unsigned short reg,
 233                                   unsigned short val)
 234 {
 235         fm801_t *chip = snd_magic_cast(fm801_t, ac97->private_data, return);
 236         int idx;
 237
 238         /*
 239          *  Wait until the codec interface is not ready..
 240          */
 241         for (idx = 0; idx < 100; idx++) {
 242                 if (!(inw(FM801_REG(chip, AC97_CMD)) & (1<<9)))
 243                         goto ok1;
 244                 udelay(10);
 245         }
 246         snd_printk("AC'97 interface is busy (1)\n");
 247         return;
 248
 249  ok1:
 250         /* write data and address */
 251         outw(val, FM801_REG(chip, AC97_DATA));
 252         outw(reg | (ac97->addr << FM801_AC97_ADDR_SHIFT), FM801_REG(chip, AC97_CMD));
 253         /*
 254          *  Wait until the write command is not completed..
 255          */
 256         for (idx = 0; idx < 1000; idx++) {
 257                 if (!(inw(FM801_REG(chip, AC97_CMD)) & (1<<9)))
 258                         return;
 259                 udelay(10);
 260         }
 261         snd_printk("AC'97 interface #%d is busy (2)\n", ac97->num);
 262 }
 263
 264 static unsigned short snd_fm801_codec_read(ac97_t *ac97, unsigned short reg)
 265 {
 266         fm801_t *chip = snd_magic_cast(fm801_t, ac97->private_data, return -ENXIO);
 267         int idx;
 268
 269         /*
 270          *  Wait until the codec interface is not ready..
 271          */
 272         for (idx = 0; idx < 100; idx++) {
 273                 if (!(inw(FM801_REG(chip, AC97_CMD)) & (1<<9)))
 274                         goto ok1;
 275                 udelay(10);
 276         }
 277         snd_printk("AC'97 interface is busy (1)\n");
 278         return 0;
 279
 280  ok1:
 281         /* read command */
 282         outw(reg | (ac97->addr << FM801_AC97_ADDR_SHIFT) | (1<<7), FM801_REG(chip, AC97_CMD));
 283         for (idx = 0; idx < 100; idx++) {
 284                 if (!(inw(FM801_REG(chip, AC97_CMD)) & (1<<9)))
 285                         goto ok2;
 286                 udelay(10);
 287         }
 288         snd_printk("AC'97 interface #%d is busy (2)\n", ac97->num);
 289         return 0;
 290
 291  ok2:
 292         for (idx = 0; idx < 1000; idx++) {
 293                 if (inw(FM801_REG(chip, AC97_CMD)) & (1<<8))
 294                         goto ok3;
 295                 udelay(10);
 296         }
 297         snd_printk("AC'97 interface #%d is not valid (2)\n", ac97->num);
 298         return 0;
 299
 300  ok3:
 301         return inw(FM801_REG(chip, AC97_DATA));
 302 }
 303
 304 static unsigned int rates[] = {
 305   5500,  8000,  9600, 11025,
 306   16000, 19200, 22050, 32000,
 307   38400, 44100, 48000
 308 };
 309
 310 #define RATES sizeof(rates) / sizeof(rates[0])
 311
 312 static snd_pcm_hw_constraint_list_t hw_constraints_rates = {
 313         .count = RATES,
 314         .list = rates,
 315         .mask = 0,
 316 };
 317
 318 static unsigned int channels[] = {
 319   2, 4, 6
 320 };
 321
 322 #define CHANNELS sizeof(channels) / sizeof(channels[0])
 323
 324 static snd_pcm_hw_constraint_list_t hw_constraints_channels = {
 325         .count = CHANNELS,
 326         .list = channels,
 327         .mask = 0,
 328 };
 329
 330 /*
 331  *  Sample rate routines
 332  */
 333
 334 static unsigned short snd_fm801_rate_bits(unsigned int rate)
 335 {
 336         unsigned int idx;
 337
 338         for (idx = 0; idx < 11; idx++)
 339                 if (rates[idx] == rate)
 340                         return idx;
 341         snd_BUG();
 342         return RATES - 1;
 343 }
 344
 345 /*
 346  *  PCM part
 347  */
 348
 349 static int snd_fm801_playback_trigger(snd_pcm_substream_t * substream,
 350                                       int cmd)
 351 {
 352         fm801_t *chip = snd_pcm_substream_chip(substream);
 353
 354         spin_lock(&chip->reg_lock);
 355         switch (cmd) {
 356         case SNDRV_PCM_TRIGGER_START:
 357                 chip->ply_ctrl &= ~(FM801_BUF1_LAST |
 358                                      FM801_BUF2_LAST |
 359                                      FM801_PAUSE);
 360                 chip->ply_ctrl |= FM801_START |
 361                                    FM801_IMMED_STOP;
 362                 break;
 363         case SNDRV_PCM_TRIGGER_STOP:
 364                 chip->ply_ctrl &= ~(FM801_START | FM801_PAUSE);
 365                 break;
 366         case SNDRV_PCM_TRIGGER_PAUSE_PUSH:
 367                 chip->ply_ctrl |= FM801_PAUSE;
 368                 break;
 369         case SNDRV_PCM_TRIGGER_PAUSE_RELEASE:
 370                 chip->ply_ctrl &= ~FM801_PAUSE;
 371                 break;
 372         default:
 373                 spin_unlock(&chip->reg_lock);
 374                 snd_BUG();
 375                 return -EINVAL;
 376         }
 377         outw(chip->ply_ctrl, FM801_REG(chip, PLY_CTRL));
 378         spin_unlock(&chip->reg_lock);
 379         return 0;
 380 }
 381
 382 static int snd_fm801_capture_trigger(snd_pcm_substream_t * substream,
 383                                      int cmd)
 384 {
 385         fm801_t *chip = snd_pcm_substream_chip(substream);
 386
 387         spin_lock(&chip->reg_lock);
 388         switch (cmd) {
 389         case SNDRV_PCM_TRIGGER_START:
 390                 chip->cap_ctrl &= ~(FM801_BUF1_LAST |
 391                                      FM801_BUF2_LAST |
 392                                      FM801_PAUSE);
 393                 chip->cap_ctrl |= FM801_START |
 394                                    FM801_IMMED_STOP;
 395                 break;
 396         case SNDRV_PCM_TRIGGER_STOP:
 397                 chip->cap_ctrl &= ~(FM801_START | FM801_PAUSE);
 398                 break;
 399         case SNDRV_PCM_TRIGGER_PAUSE_PUSH:
 400                 chip->cap_ctrl |= FM801_PAUSE;
 401                 break;
 402         case SNDRV_PCM_TRIGGER_PAUSE_RELEASE:
 403                 chip->cap_ctrl &= ~FM801_PAUSE;
 404                 break;
 405         default:
 406                 spin_unlock(&chip->reg_lock);
 407                 snd_BUG();
 408                 return -EINVAL;
 409         }
 410         outw(chip->cap_ctrl, FM801_REG(chip, CAP_CTRL));
 411         spin_unlock(&chip->reg_lock);
 412         return 0;
 413 }
 414
 415 static int snd_fm801_hw_params(snd_pcm_substream_t * substream,
 416                                snd_pcm_hw_params_t * hw_params)
 417 {
 418         return snd_pcm_lib_malloc_pages(substream, params_buffer_bytes(hw_params));
 419 }
 420
 421 static int snd_fm801_hw_free(snd_pcm_substream_t * substream)
 422 {
 423         return snd_pcm_lib_free_pages(substream);
 424 }
 425
 426 static int snd_fm801_playback_prepare(snd_pcm_substream_t * substream)
 427 {
 428         unsigned long flags;
 429         fm801_t *chip = snd_pcm_substream_chip(substream);
 430         snd_pcm_runtime_t *runtime = substream->runtime;
 431
 432         chip->ply_size = snd_pcm_lib_buffer_bytes(substream);
 433         chip->ply_count = snd_pcm_lib_period_bytes(substream);
 434         spin_lock_irqsave(&chip->reg_lock, flags);
 435         chip->ply_ctrl &= ~(FM801_START | FM801_16BIT |
 436                              FM801_STEREO | FM801_RATE_MASK |
 437                              FM801_CHANNELS_MASK);
 438         if (snd_pcm_format_width(runtime->format) == 16)
 439                 chip->ply_ctrl |= FM801_16BIT;
 440         if (runtime->channels > 1) {
 441                 chip->ply_ctrl |= FM801_STEREO;
 442                 if (runtime->channels == 4)
 443                         chip->ply_ctrl |= FM801_CHANNELS_4;
 444                 else if (runtime->channels == 6)
 445                         chip->ply_ctrl |= FM801_CHANNELS_6;
 446         }
 447         chip->ply_ctrl |= snd_fm801_rate_bits(runtime->rate) << FM801_RATE_SHIFT;
 448         chip->ply_buf = 0;
 449         outw(chip->ply_ctrl, FM801_REG(chip, PLY_CTRL));
 450         outw(chip->ply_count - 1, FM801_REG(chip, PLY_COUNT));
 451         chip->ply_buffer = runtime->dma_addr;
 452         chip->ply_pos = 0;
 453         outl(chip->ply_buffer, FM801_REG(chip, PLY_BUF1));
 454         outl(chip->ply_buffer + (chip->ply_count % chip->ply_size), FM801_REG(chip, PLY_BUF2));
 455         spin_unlock_irqrestore(&chip->reg_lock, flags);
 456         return 0;
 457 }
 458
 459 static int snd_fm801_capture_prepare(snd_pcm_substream_t * substream)
 460 {
 461         unsigned long flags;
 462         fm801_t *chip = snd_pcm_substream_chip(substream);
 463         snd_pcm_runtime_t *runtime = substream->runtime;
 464
 465         chip->cap_size = snd_pcm_lib_buffer_bytes(substream);
 466         chip->cap_count = snd_pcm_lib_period_bytes(substream);
 467         spin_lock_irqsave(&chip->reg_lock, flags);
 468         chip->cap_ctrl &= ~(FM801_START | FM801_16BIT |
 469                              FM801_STEREO | FM801_RATE_MASK);
 470         if (snd_pcm_format_width(runtime->format) == 16)
 471                 chip->cap_ctrl |= FM801_16BIT;
 472         if (runtime->channels > 1)
 473                 chip->cap_ctrl |= FM801_STEREO;
 474         chip->cap_ctrl |= snd_fm801_rate_bits(runtime->rate) << FM801_RATE_SHIFT;
 475         chip->cap_buf = 0;
 476         outw(chip->cap_ctrl, FM801_REG(chip, CAP_CTRL));
 477         outw(chip->cap_count - 1, FM801_REG(chip, CAP_COUNT));
 478         chip->cap_buffer = runtime->dma_addr;
 479         chip->cap_pos = 0;
 480         outl(chip->cap_buffer, FM801_REG(chip, CAP_BUF1));
 481         outl(chip->cap_buffer + (chip->cap_count % chip->cap_size), FM801_REG(chip, CAP_BUF2));
 482         spin_unlock_irqrestore(&chip->reg_lock, flags);
 483         return 0;
 484 }
 485
 486 static snd_pcm_uframes_t snd_fm801_playback_pointer(snd_pcm_substream_t * substream)
 487 {
 488         fm801_t *chip = snd_pcm_substream_chip(substream);
 489         unsigned long flags;
 490         size_t ptr;
 491
 492         if (!(chip->ply_ctrl & FM801_START))
 493                 return 0;
 494         spin_lock_irqsave(&chip->reg_lock, flags);
 495         ptr = chip->ply_pos + (chip->ply_count - 1) - inw(FM801_REG(chip, PLY_COUNT));
 496         if (inw(FM801_REG(chip, IRQ_STATUS)) & FM801_IRQ_PLAYBACK) {
 497                 ptr += chip->ply_count;
 498                 ptr %= chip->ply_size;
 499         }
 500         spin_unlock_irqrestore(&chip->reg_lock, flags);
 501         return bytes_to_frames(substream->runtime, ptr);
 502 }
 503
 504 static snd_pcm_uframes_t snd_fm801_capture_pointer(snd_pcm_substream_t * substream)
 505 {
 506         fm801_t *chip = snd_pcm_substream_chip(substream);
 507         unsigned long flags;
 508         size_t ptr;
 509
 510         if (!(chip->cap_ctrl & FM801_START))
 511                 return 0;
 512         spin_lock_irqsave(&chip->reg_lock, flags);
 513         ptr = chip->cap_pos + (chip->cap_count - 1) - inw(FM801_REG(chip, CAP_COUNT));
 514         if (inw(FM801_REG(chip, IRQ_STATUS)) & FM801_IRQ_CAPTURE) {
 515                 ptr += chip->cap_count;
 516                 ptr %= chip->cap_size;
 517         }
 518         spin_unlock_irqrestore(&chip->reg_lock, flags);
 519         return bytes_to_frames(substream->runtime, ptr);
 520 }
 521
 522 static irqreturn_t snd_fm801_interrupt(int irq, void *dev_id, struct pt_regs *regs)
 523 {
 524         fm801_t *chip = snd_magic_cast(fm801_t, dev_id, return IRQ_NONE);
 525         unsigned short status;
 526         unsigned int tmp;
 527
 528         status = inw(FM801_REG(chip, IRQ_STATUS));
 529         status &= FM801_IRQ_PLAYBACK|FM801_IRQ_CAPTURE|FM801_IRQ_MPU|FM801_IRQ_VOLUME;
 530         if (! status)
 531                 return IRQ_NONE;
 532         /* ack first */
 533         outw(status, FM801_REG(chip, IRQ_STATUS));
 534         if (chip->pcm && (status & FM801_IRQ_PLAYBACK) && chip->playback_substream) {
 535                 spin_lock(&chip->reg_lock);
 536                 chip->ply_buf++;
 537                 chip->ply_pos += chip->ply_count;
 538                 chip->ply_pos %= chip->ply_size;
 539                 tmp = chip->ply_pos + chip->ply_count;
 540                 tmp %= chip->ply_size;
 541                 outl(chip->ply_buffer + tmp,
 542                                 (chip->ply_buf & 1) ?
 543                                         FM801_REG(chip, PLY_BUF1) :
 544                                         FM801_REG(chip, PLY_BUF2));
 545                 spin_unlock(&chip->reg_lock);
 546                 snd_pcm_period_elapsed(chip->playback_substream);
 547         }
 548         if (chip->pcm && (status & FM801_IRQ_CAPTURE) && chip->capture_substream) {
 549                 spin_lock(&chip->reg_lock);
 550                 chip->cap_buf++;
 551                 chip->cap_pos += chip->cap_count;
 552                 chip->cap_pos %= chip->cap_size;
 553                 tmp = chip->cap_pos + chip->cap_count;
 554                 tmp %= chip->cap_size;
 555                 outl(chip->cap_buffer + tmp,
 556                                 (chip->cap_buf & 1) ?
 557                                         FM801_REG(chip, CAP_BUF1) :
 558                                         FM801_REG(chip, CAP_BUF2));
 559                 spin_unlock(&chip->reg_lock);
 560                 snd_pcm_period_elapsed(chip->capture_substream);
 561         }
 562         if (chip->rmidi && (status & FM801_IRQ_MPU))
 563                 snd_mpu401_uart_interrupt(irq, chip->rmidi->private_data, regs);
 564         if (status & FM801_IRQ_VOLUME)
 565                 ;/* TODO */
 566
 567         return IRQ_HANDLED;
 568 }
 569
 570 static snd_pcm_hardware_t snd_fm801_playback =
 571 {
 572         .info =                 (SNDRV_PCM_INFO_MMAP | SNDRV_PCM_INFO_INTERLEAVED |
 573                                  SNDRV_PCM_INFO_BLOCK_TRANSFER |
 574                                  SNDRV_PCM_INFO_PAUSE |
 575                                  SNDRV_PCM_INFO_MMAP_VALID),
 576         .formats =              SNDRV_PCM_FMTBIT_U8 | SNDRV_PCM_FMTBIT_S16_LE,
 577         .rates =                SNDRV_PCM_RATE_KNOT | SNDRV_PCM_RATE_8000_48000,
 578         .rate_min =             5500,
 579         .rate_max =             48000,
 580         .channels_min =         1,
 581         .channels_max =         2,
 582         .buffer_bytes_max =     (128*1024),
 583         .period_bytes_min =     64,
 584         .period_bytes_max =     (128*1024),
 585         .periods_min =          1,
 586         .periods_max =          1024,
 587         .fifo_size =            0,
 588 };
 589
 590 static snd_pcm_hardware_t snd_fm801_capture =
 591 {
 592         .info =                 (SNDRV_PCM_INFO_MMAP | SNDRV_PCM_INFO_INTERLEAVED |
 593                                  SNDRV_PCM_INFO_BLOCK_TRANSFER |
 594                                  SNDRV_PCM_INFO_PAUSE |
 595                                  SNDRV_PCM_INFO_MMAP_VALID),
 596         .formats =              SNDRV_PCM_FMTBIT_U8 | SNDRV_PCM_FMTBIT_S16_LE,
 597         .rates =                SNDRV_PCM_RATE_KNOT | SNDRV_PCM_RATE_8000_48000,
 598         .rate_min =             5500,
 599         .rate_max =             48000,
 600         .channels_min =         1,
 601         .channels_max =         2,
 602         .buffer_bytes_max =     (128*1024),
 603         .period_bytes_min =     64,
 604         .period_bytes_max =     (128*1024),
 605         .periods_min =          1,
 606         .periods_max =          1024,
 607         .fifo_size =            0,
 608 };
 609
 610 static int snd_fm801_playback_open(snd_pcm_substream_t * substream)
 611 {
 612         fm801_t *chip = snd_pcm_substream_chip(substream);
 613         snd_pcm_runtime_t *runtime = substream->runtime;
 614         int err;
 615
 616         chip->playback_substream = substream;
 617         runtime->hw = snd_fm801_playback;
 618         snd_pcm_hw_constraint_list(runtime, 0, SNDRV_PCM_HW_PARAM_RATE, &hw_constraints_rates);
 619         if (chip->multichannel) {
 620                 runtime->hw.channels_max = 6;
 621                 snd_pcm_hw_constraint_list(runtime, 0, SNDRV_PCM_HW_PARAM_CHANNELS, &hw_constraints_channels);
 622         }
 623         if ((err = snd_pcm_hw_constraint_integer(runtime, SNDRV_PCM_HW_PARAM_PERIODS)) < 0)
 624                 return err;
 625         return 0;
 626 }
 627
 628 static int snd_fm801_capture_open(snd_pcm_substream_t * substream)
 629 {
 630         fm801_t *chip = snd_pcm_substream_chip(substream);
 631         snd_pcm_runtime_t *runtime = substream->runtime;
 632         int err;
 633
 634         chip->capture_substream = substream;
 635         runtime->hw = snd_fm801_capture;
 636         snd_pcm_hw_constraint_list(runtime, 0, SNDRV_PCM_HW_PARAM_RATE, &hw_constraints_rates);
 637         if ((err = snd_pcm_hw_constraint_integer(runtime, SNDRV_PCM_HW_PARAM_PERIODS)) < 0)
 638                 return err;
 639         return 0;
 640 }
 641
 642 static int snd_fm801_playback_close(snd_pcm_substream_t * substream)
 643 {
 644         fm801_t *chip = snd_pcm_substream_chip(substream);
 645
 646         chip->playback_substream = NULL;
 647         return 0;
 648 }
 649
 650 static int snd_fm801_capture_close(snd_pcm_substream_t * substream)
 651 {
 652         fm801_t *chip = snd_pcm_substream_chip(substream);
 653
 654         chip->capture_substream = NULL;
 655         return 0;
 656 }
 657
 658 static snd_pcm_ops_t snd_fm801_playback_ops = {
 659         .open =         snd_fm801_playback_open,
 660         .close =        snd_fm801_playback_close,
 661         .ioctl =        snd_pcm_lib_ioctl,
 662         .hw_params =    snd_fm801_hw_params,
 663         .hw_free =      snd_fm801_hw_free,
 664         .prepare =      snd_fm801_playback_prepare,
 665         .trigger =      snd_fm801_playback_trigger,
 666         .pointer =      snd_fm801_playback_pointer,
 667 };
 668
 669 static snd_pcm_ops_t snd_fm801_capture_ops = {
 670         .open =         snd_fm801_capture_open,
 671         .close =        snd_fm801_capture_close,
 672         .ioctl =        snd_pcm_lib_ioctl,
 673         .hw_params =    snd_fm801_hw_params,
 674         .hw_free =      snd_fm801_hw_free,
 675         .prepare =      snd_fm801_capture_prepare,
 676         .trigger =      snd_fm801_capture_trigger,
 677         .pointer =      snd_fm801_capture_pointer,
 678 };
 679
 680 static void snd_fm801_pcm_free(snd_pcm_t *pcm)
 681 {
 682         fm801_t *chip = snd_magic_cast(fm801_t, pcm->private_data, return);
 683         chip->pcm = NULL;
 684         snd_pcm_lib_preallocate_free_for_all(pcm);
 685 }
 686
 687 static int __devinit snd_fm801_pcm(fm801_t *chip, int device, snd_pcm_t ** rpcm)
 688 {
 689         snd_pcm_t *pcm;
 690         int err;
 691
 692         if (rpcm)
 693                 *rpcm = NULL;
 694         if ((err = snd_pcm_new(chip->card, "FM801", device, 1, 1, &pcm)) < 0)
 695                 return err;
 696
 697         snd_pcm_set_ops(pcm, SNDRV_PCM_STREAM_PLAYBACK, &snd_fm801_playback_ops);
 698         snd_pcm_set_ops(pcm, SNDRV_PCM_STREAM_CAPTURE, &snd_fm801_capture_ops);
 699
 700         pcm->private_data = chip;
 701         pcm->private_free = snd_fm801_pcm_free;
 702         pcm->info_flags = 0;
 703         strcpy(pcm->name, "FM801");
 704         chip->pcm = pcm;
 705
 706         snd_pcm_lib_preallocate_pages_for_all(pcm, SNDRV_DMA_TYPE_DEV,
 707                                               snd_dma_pci_data(chip->pci),
 708                                               chip->multichannel ? 128*1024 : 64*1024, 128*1024);
 709
 710         if (rpcm)
 711                 *rpcm = pcm;
 712         return 0;
 713 }
 714
 715 /*
 716  *  TEA5757 radio
 717  */
 718
 719 #ifdef TEA575X_RADIO
 720
 721 /* 256PCS GPIO numbers */
 722 #define TEA_256PCS_DATA                 1
 723 #define TEA_256PCS_WRITE_ENABLE         2       /* inverted */
 724 #define TEA_256PCS_BUS_CLOCK            3
 725
 726 static void snd_fm801_tea575x_256pcs_write(tea575x_t *tea, unsigned int val)
 727 {
 728         fm801_t *chip = tea->private_data;
 729         unsigned short reg;
 730         int i = 25;
 731
 732         spin_lock_irq(&chip->reg_lock);
 733         reg = inw(FM801_REG(chip, GPIO_CTRL));
 734         /* use GPIO lines and set write enable bit */
 735         reg |= FM801_GPIO_GS(TEA_256PCS_DATA) |
 736                FM801_GPIO_GS(TEA_256PCS_WRITE_ENABLE) |
 737                FM801_GPIO_GS(TEA_256PCS_BUS_CLOCK);
 738         /* all of lines are in the write direction */
 739         /* clear data and clock lines */
 740         reg &= ~(FM801_GPIO_GD(TEA_256PCS_DATA) |
 741                  FM801_GPIO_GD(TEA_256PCS_WRITE_ENABLE) |
 742                  FM801_GPIO_GD(TEA_256PCS_BUS_CLOCK) |
 743                  FM801_GPIO_GP(TEA_256PCS_DATA) |
 744                  FM801_GPIO_GP(TEA_256PCS_BUS_CLOCK) |
 745                  FM801_GPIO_GP(TEA_256PCS_WRITE_ENABLE));
 746         outw(reg, FM801_REG(chip, GPIO_CTRL));
 747         udelay(1);
 748
 749         while (i--) {
 750                 if (val & (1 << i))
 751                         reg |= FM801_GPIO_GP(TEA_256PCS_DATA);
 752                 else
 753                         reg &= ~FM801_GPIO_GP(TEA_256PCS_DATA);
 754                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 755                 udelay(1);
 756                 reg |= FM801_GPIO_GP(TEA_256PCS_BUS_CLOCK);
 757                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 758                 reg &= ~FM801_GPIO_GP(TEA_256PCS_BUS_CLOCK);
 759                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 760                 udelay(1);
 761         }
 762
 763         /* and reset the write enable bit */
 764         reg |= FM801_GPIO_GP(TEA_256PCS_WRITE_ENABLE) |
 765                FM801_GPIO_GP(TEA_256PCS_DATA);
 766         outw(reg, FM801_REG(chip, GPIO_CTRL));
 767         spin_unlock_irq(&chip->reg_lock);
 768 }
 769
 770 static unsigned int snd_fm801_tea575x_256pcs_read(tea575x_t *tea)
 771 {
 772         fm801_t *chip = tea->private_data;
 773         unsigned short reg;
 774         unsigned int val = 0;
 775         int i;
 776
 777         spin_lock_irq(&chip->reg_lock);
 778         reg = inw(FM801_REG(chip, GPIO_CTRL));
 779         /* use GPIO lines, set data direction to input */
 780         reg |= FM801_GPIO_GS(TEA_256PCS_DATA) |
 781                FM801_GPIO_GS(TEA_256PCS_WRITE_ENABLE) |
 782                FM801_GPIO_GS(TEA_256PCS_BUS_CLOCK) |
 783                FM801_GPIO_GD(TEA_256PCS_DATA) |
 784                FM801_GPIO_GP(TEA_256PCS_DATA) |
 785                FM801_GPIO_GP(TEA_256PCS_WRITE_ENABLE);
 786         /* all of lines are in the write direction, except data */
 787         /* clear data, write enable and clock lines */
 788         reg &= ~(FM801_GPIO_GD(TEA_256PCS_WRITE_ENABLE) |
 789                  FM801_GPIO_GD(TEA_256PCS_BUS_CLOCK) |
 790                  FM801_GPIO_GP(TEA_256PCS_BUS_CLOCK));
 791
 792         for (i = 0; i < 24; i++) {
 793                 reg &= ~FM801_GPIO_GP(TEA_256PCS_BUS_CLOCK);
 794                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 795                 udelay(1);
 796                 reg |= FM801_GPIO_GP(TEA_256PCS_BUS_CLOCK);
 797                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 798                 udelay(1);
 799                 val <<= 1;
 800                 if (inw(FM801_REG(chip, GPIO_CTRL)) & FM801_GPIO_GP(TEA_256PCS_DATA))
 801                         val |= 1;
 802         }
 803
 804         spin_unlock_irq(&chip->reg_lock);
 805
 806         return val;
 807 }
 808
 809 /* 256PCPR GPIO numbers */
 810 #define TEA_256PCPR_BUS_CLOCK           0
 811 #define TEA_256PCPR_DATA                1
 812 #define TEA_256PCPR_WRITE_ENABLE        2       /* inverted */
 813
 814 static void snd_fm801_tea575x_256pcpr_write(tea575x_t *tea, unsigned int val)
 815 {
 816         fm801_t *chip = tea->private_data;
 817         unsigned short reg;
 818         int i = 25;
 819
 820         spin_lock_irq(&chip->reg_lock);
 821         reg = inw(FM801_REG(chip, GPIO_CTRL));
 822         /* use GPIO lines and set write enable bit */
 823         reg |= FM801_GPIO_GS(TEA_256PCPR_DATA) |
 824                FM801_GPIO_GS(TEA_256PCPR_WRITE_ENABLE) |
 825                FM801_GPIO_GS(TEA_256PCPR_BUS_CLOCK);
 826         /* all of lines are in the write direction */
 827         /* clear data and clock lines */
 828         reg &= ~(FM801_GPIO_GD(TEA_256PCPR_DATA) |
 829                  FM801_GPIO_GD(TEA_256PCPR_WRITE_ENABLE) |
 830                  FM801_GPIO_GD(TEA_256PCPR_BUS_CLOCK) |
 831                  FM801_GPIO_GP(TEA_256PCPR_DATA) |
 832                  FM801_GPIO_GP(TEA_256PCPR_BUS_CLOCK) |
 833                  FM801_GPIO_GP(TEA_256PCPR_WRITE_ENABLE));
 834         outw(reg, FM801_REG(chip, GPIO_CTRL));
 835         udelay(1);
 836
 837         while (i--) {
 838                 if (val & (1 << i))
 839                         reg |= FM801_GPIO_GP(TEA_256PCPR_DATA);
 840                 else
 841                         reg &= ~FM801_GPIO_GP(TEA_256PCPR_DATA);
 842                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 843                 udelay(1);
 844                 reg |= FM801_GPIO_GP(TEA_256PCPR_BUS_CLOCK);
 845                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 846                 reg &= ~FM801_GPIO_GP(TEA_256PCPR_BUS_CLOCK);
 847                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 848                 udelay(1);
 849         }
 850
 851         /* and reset the write enable bit */
 852         reg |= FM801_GPIO_GP(TEA_256PCPR_WRITE_ENABLE) |
 853                FM801_GPIO_GP(TEA_256PCPR_DATA);
 854         outw(reg, FM801_REG(chip, GPIO_CTRL));
 855         spin_unlock_irq(&chip->reg_lock);
 856 }
 857
 858 static unsigned int snd_fm801_tea575x_256pcpr_read(tea575x_t *tea)
 859 {
 860         fm801_t *chip = tea->private_data;
 861         unsigned short reg;
 862         unsigned int val = 0;
 863         int i;
 864
 865         spin_lock_irq(&chip->reg_lock);
 866         reg = inw(FM801_REG(chip, GPIO_CTRL));
 867         /* use GPIO lines, set data direction to input */
 868         reg |= FM801_GPIO_GS(TEA_256PCPR_DATA) |
 869                FM801_GPIO_GS(TEA_256PCPR_WRITE_ENABLE) |
 870                FM801_GPIO_GS(TEA_256PCPR_BUS_CLOCK) |
 871                FM801_GPIO_GD(TEA_256PCPR_DATA) |
 872                FM801_GPIO_GP(TEA_256PCPR_DATA) |
 873                FM801_GPIO_GP(TEA_256PCPR_WRITE_ENABLE);
 874         /* all of lines are in the write direction, except data */
 875         /* clear data, write enable and clock lines */
 876         reg &= ~(FM801_GPIO_GD(TEA_256PCPR_WRITE_ENABLE) |
 877                  FM801_GPIO_GD(TEA_256PCPR_BUS_CLOCK) |
 878                  FM801_GPIO_GP(TEA_256PCPR_BUS_CLOCK));
 879
 880         for (i = 0; i < 24; i++) {
 881                 reg &= ~FM801_GPIO_GP(TEA_256PCPR_BUS_CLOCK);
 882                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 883                 udelay(1);
 884                 reg |= FM801_GPIO_GP(TEA_256PCPR_BUS_CLOCK);
 885                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 886                 udelay(1);
 887                 val <<= 1;
 888                 if (inw(FM801_REG(chip, GPIO_CTRL)) & FM801_GPIO_GP(TEA_256PCPR_DATA))
 889                         val |= 1;
 890         }
 891
 892         spin_unlock_irq(&chip->reg_lock);
 893
 894         return val;
 895 }
 896
 897 /* 64PCR GPIO numbers */
 898 #define TEA_64PCR_BUS_CLOCK             0
 899 #define TEA_64PCR_WRITE_ENABLE          1       /* inverted */
 900 #define TEA_64PCR_DATA                  2
 901
 902 static void snd_fm801_tea575x_64pcr_write(tea575x_t *tea, unsigned int val)
 903 {
 904         fm801_t *chip = tea->private_data;
 905         unsigned short reg;
 906         int i = 25;
 907
 908         spin_lock_irq(&chip->reg_lock);
 909         reg = inw(FM801_REG(chip, GPIO_CTRL));
 910         /* use GPIO lines and set write enable bit */
 911         reg |= FM801_GPIO_GS(TEA_64PCR_DATA) |
 912                FM801_GPIO_GS(TEA_64PCR_WRITE_ENABLE) |
 913                FM801_GPIO_GS(TEA_64PCR_BUS_CLOCK);
 914         /* all of lines are in the write direction */
 915         /* clear data and clock lines */
 916         reg &= ~(FM801_GPIO_GD(TEA_64PCR_DATA) |
 917                  FM801_GPIO_GD(TEA_64PCR_WRITE_ENABLE) |
 918                  FM801_GPIO_GD(TEA_64PCR_BUS_CLOCK) |
 919                  FM801_GPIO_GP(TEA_64PCR_DATA) |
 920                  FM801_GPIO_GP(TEA_64PCR_BUS_CLOCK) |
 921                  FM801_GPIO_GP(TEA_64PCR_WRITE_ENABLE));
 922         outw(reg, FM801_REG(chip, GPIO_CTRL));
 923         udelay(1);
 924
 925         while (i--) {
 926                 if (val & (1 << i))
 927                         reg |= FM801_GPIO_GP(TEA_64PCR_DATA);
 928                 else
 929                         reg &= ~FM801_GPIO_GP(TEA_64PCR_DATA);
 930                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 931                 udelay(1);
 932                 reg |= FM801_GPIO_GP(TEA_64PCR_BUS_CLOCK);
 933                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 934                 reg &= ~FM801_GPIO_GP(TEA_64PCR_BUS_CLOCK);
 935                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 936                 udelay(1);
 937         }
 938
 939         /* and reset the write enable bit */
 940         reg |= FM801_GPIO_GP(TEA_64PCR_WRITE_ENABLE) |
 941                FM801_GPIO_GP(TEA_64PCR_DATA);
 942         outw(reg, FM801_REG(chip, GPIO_CTRL));
 943         spin_unlock_irq(&chip->reg_lock);
 944 }
 945
 946 static unsigned int snd_fm801_tea575x_64pcr_read(tea575x_t *tea)
 947 {
 948         fm801_t *chip = tea->private_data;
 949         unsigned short reg;
 950         unsigned int val = 0;
 951         int i;
 952
 953         spin_lock_irq(&chip->reg_lock);
 954         reg = inw(FM801_REG(chip, GPIO_CTRL));
 955         /* use GPIO lines, set data direction to input */
 956         reg |= FM801_GPIO_GS(TEA_64PCR_DATA) |
 957                FM801_GPIO_GS(TEA_64PCR_WRITE_ENABLE) |
 958                FM801_GPIO_GS(TEA_64PCR_BUS_CLOCK) |
 959                FM801_GPIO_GD(TEA_64PCR_DATA) |
 960                FM801_GPIO_GP(TEA_64PCR_DATA) |
 961                FM801_GPIO_GP(TEA_64PCR_WRITE_ENABLE);
 962         /* all of lines are in the write direction, except data */
 963         /* clear data, write enable and clock lines */
 964         reg &= ~(FM801_GPIO_GD(TEA_64PCR_WRITE_ENABLE) |
 965                  FM801_GPIO_GD(TEA_64PCR_BUS_CLOCK) |
 966                  FM801_GPIO_GP(TEA_64PCR_BUS_CLOCK));
 967
 968         for (i = 0; i < 24; i++) {
 969                 reg &= ~FM801_GPIO_GP(TEA_64PCR_BUS_CLOCK);
 970                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 971                 udelay(1);
 972                 reg |= FM801_GPIO_GP(TEA_64PCR_BUS_CLOCK);
 973                 outw(reg, FM801_REG(chip, GPIO_CTRL));
 974                 udelay(1);
 975                 val <<= 1;
 976                 if (inw(FM801_REG(chip, GPIO_CTRL)) & FM801_GPIO_GP(TEA_64PCR_DATA))
 977                         val |= 1;
 978         }
 979
 980         spin_unlock_irq(&chip->reg_lock);
 981
 982         return val;
 983 }
 984
 985 static struct snd_tea575x_ops snd_fm801_tea_ops[3] = {
 986         {
 987                 /* 1 = MediaForte 256-PCS */
 988                 .write = snd_fm801_tea575x_256pcs_write,
 989                 .read = snd_fm801_tea575x_256pcs_read,
 990         },
 991         {
 992                 /* 2 = MediaForte 256-PCPR */
 993                 .write = snd_fm801_tea575x_256pcpr_write,
 994                 .read = snd_fm801_tea575x_256pcpr_read,
 995         },
 996         {
 997                 /* 3 = MediaForte 64-PCR */
 998                 .write = snd_fm801_tea575x_64pcr_write,
 999                 .read = snd_fm801_tea575x_64pcr_read,
1000         }
1001 };
1002 #endif
1003
1004 /*
1005  *  Mixer routines
1006  */
1007
1008 #define FM801_SINGLE(xname, reg, shift, mask, invert) \
1009 { .iface = SNDRV_CTL_ELEM_IFACE_MIXER, .name = xname, .info = snd_fm801_info_single, \
1010   .get = snd_fm801_get_single, .put = snd_fm801_put_single, \
1011   .private_value = reg | (shift << 8) | (mask << 16) | (invert << 24) }
1012
1013 static int snd_fm801_info_single(snd_kcontrol_t *kcontrol, snd_ctl_elem_info_t * uinfo)
1014 {
1015         int mask = (kcontrol->private_value >> 16) & 0xff;
1016
1017         uinfo->type = mask == 1 ? SNDRV_CTL_ELEM_TYPE_BOOLEAN : SNDRV_CTL_ELEM_TYPE_INTEGER;
1018         uinfo->count = 1;
1019         uinfo->value.integer.min = 0;
1020         uinfo->value.integer.max = mask;
1021         return 0;
1022 }
1023
1024 static int snd_fm801_get_single(snd_kcontrol_t * kcontrol, snd_ctl_elem_value_t * ucontrol)
1025 {
1026         fm801_t *chip = snd_kcontrol_chip(kcontrol);
1027         int reg = kcontrol->private_value & 0xff;
1028         int shift = (kcontrol->private_value >> 8) & 0xff;
1029         int mask = (kcontrol->private_value >> 16) & 0xff;
1030         int invert = (kcontrol->private_value >> 24) & 0xff;
1031
1032         ucontrol->value.integer.value[0] = (inw(chip->port + reg) >> shift) & mask;
1033         if (invert)
1034                 ucontrol->value.integer.value[0] = mask - ucontrol->value.integer.value[0];
1035         return 0;
1036 }
1037
1038 static int snd_fm801_put_single(snd_kcontrol_t * kcontrol, snd_ctl_elem_value_t * ucontrol)
1039 {
1040         fm801_t *chip = snd_kcontrol_chip(kcontrol);
1041         int reg = kcontrol->private_value & 0xff;
1042         int shift = (kcontrol->private_value >> 8) & 0xff;
1043         int mask = (kcontrol->private_value >> 16) & 0xff;
1044         int invert = (kcontrol->private_value >> 24) & 0xff;
1045         unsigned short val;
1046
1047         val = (ucontrol->value.integer.value[0] & mask);
1048         if (invert)
1049                 val = mask - val;
1050         return snd_fm801_update_bits(chip, reg, mask << shift, val << shift);
1051 }
1052
1053 #define FM801_DOUBLE(xname, reg, shift_left, shift_right, mask, invert) \
1054 { .iface = SNDRV_CTL_ELEM_IFACE_MIXER, .name = xname, .info = snd_fm801_info_double, \
1055   .get = snd_fm801_get_double, .put = snd_fm801_put_double, \
1056   .private_value = reg | (shift_left << 8) | (shift_right << 12) | (mask << 16) | (invert << 24) }
1057
1058 static int snd_fm801_info_double(snd_kcontrol_t *kcontrol, snd_ctl_elem_info_t * uinfo)
1059 {
1060         int mask = (kcontrol->private_value >> 16) & 0xff;
1061
1062         uinfo->type = mask == 1 ? SNDRV_CTL_ELEM_TYPE_BOOLEAN : SNDRV_CTL_ELEM_TYPE_INTEGER;
1063         uinfo->count = 2;
1064         uinfo->value.integer.min = 0;
1065         uinfo->value.integer.max = mask;
1066         return 0;
1067 }
1068
1069 static int snd_fm801_get_double(snd_kcontrol_t * kcontrol, snd_ctl_elem_value_t * ucontrol)
1070 {
1071         fm801_t *chip = snd_kcontrol_chip(kcontrol);
1072         int reg = kcontrol->private_value & 0xff;
1073         int shift_left = (kcontrol->private_value >> 8) & 0x0f;
1074         int shift_right = (kcontrol->private_value >> 12) & 0x0f;
1075         int mask = (kcontrol->private_value >> 16) & 0xff;
1076         int invert = (kcontrol->private_value >> 24) & 0xff;
1077
1078         spin_lock(&chip->reg_lock);
1079         ucontrol->value.integer.value[0] = (inw(chip->port + reg) >> shift_left) & mask;
1080         ucontrol->value.integer.value[1] = (inw(chip->port + reg) >> shift_right) & mask;
1081         spin_unlock(&chip->reg_lock);
1082         if (invert) {
1083                 ucontrol->value.integer.value[0] = mask - ucontrol->value.integer.value[0];
1084                 ucontrol->value.integer.value[1] = mask - ucontrol->value.integer.value[1];
1085         }
1086         return 0;
1087 }
1088
1089 static int snd_fm801_put_double(snd_kcontrol_t * kcontrol, snd_ctl_elem_value_t * ucontrol)
1090 {
1091         fm801_t *chip = snd_kcontrol_chip(kcontrol);
1092         int reg = kcontrol->private_value & 0xff;
1093         int shift_left = (kcontrol->private_value >> 8) & 0x0f;
1094         int shift_right = (kcontrol->private_value >> 12) & 0x0f;
1095         int mask = (kcontrol->private_value >> 16) & 0xff;
1096         int invert = (kcontrol->private_value >> 24) & 0xff;
1097         unsigned short val1, val2;
1098
1099         val1 = ucontrol->value.integer.value[0] & mask;
1100         val2 = ucontrol->value.integer.value[1] & mask;
1101         if (invert) {
1102                 val1 = mask - val1;
1103                 val2 = mask - val2;
1104         }
1105         return snd_fm801_update_bits(chip, reg,
1106                                      (mask << shift_left) | (mask << shift_right),
1107                                      (val1 << shift_left ) | (val2 << shift_right));
1108 }
1109
1110 static int snd_fm801_info_mux(snd_kcontrol_t *kcontrol, snd_ctl_elem_info_t * uinfo)
1111 {
1112         static char *texts[5] = {
1113                 "AC97 Primary", "FM", "I2S", "PCM", "AC97 Secondary"
1114         };
1115
1116         uinfo->type = SNDRV_CTL_ELEM_TYPE_ENUMERATED;
1117         uinfo->count = 1;
1118         uinfo->value.enumerated.items = 5;
1119         if (uinfo->value.enumerated.item > 4)
1120                 uinfo->value.enumerated.item = 4;
1121         strcpy(uinfo->value.enumerated.name, texts[uinfo->value.enumerated.item]);
1122         return 0;
1123 }
1124
1125 static int snd_fm801_get_mux(snd_kcontrol_t * kcontrol, snd_ctl_elem_value_t * ucontrol)
1126 {
1127         fm801_t *chip = snd_kcontrol_chip(kcontrol);
1128         unsigned short val;
1129
1130         val = inw(FM801_REG(chip, REC_SRC)) & 7;
1131         if (val > 4)
1132                 val = 4;
1133         ucontrol->value.enumerated.item[0] = val;
1134         return 0;
1135 }
1136
1137 static int snd_fm801_put_mux(snd_kcontrol_t * kcontrol, snd_ctl_elem_value_t * ucontrol)
1138 {
1139         fm801_t *chip = snd_kcontrol_chip(kcontrol);
1140         unsigned short val;
1141
1142         if ((val = ucontrol->value.enumerated.item[0]) > 4)
1143                 return -EINVAL;
1144         return snd_fm801_update_bits(chip, FM801_REC_SRC, 7, val);
1145 }
1146
1147 #define FM801_CONTROLS (sizeof(snd_fm801_controls)/sizeof(snd_kcontrol_new_t))
1148
1149 static snd_kcontrol_new_t snd_fm801_controls[] __devinitdata = {
1150 FM801_DOUBLE("Wave Playback Volume", FM801_PCM_VOL, 0, 8, 31, 1),
1151 FM801_SINGLE("Wave Playback Switch", FM801_PCM_VOL, 15, 1, 1),
1152 FM801_DOUBLE("I2S Playback Volume", FM801_I2S_VOL, 0, 8, 31, 1),
1153 FM801_SINGLE("I2S Playback Switch", FM801_I2S_VOL, 15, 1, 1),
1154 FM801_DOUBLE("FM Playback Volume", FM801_FM_VOL, 0, 8, 31, 1),
1155 FM801_SINGLE("FM Playback Switch", FM801_FM_VOL, 15, 1, 1),
1156 {
1157         .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
1158         .name = "Digital Capture Source",
1159         .info = snd_fm801_info_mux,
1160         .get = snd_fm801_get_mux,
1161         .put = snd_fm801_put_mux,
1162 }
1163 };
1164
1165 #define FM801_CONTROLS_MULTI (sizeof(snd_fm801_controls_multi)/sizeof(snd_kcontrol_new_t))
1166
1167 static snd_kcontrol_new_t snd_fm801_controls_multi[] __devinitdata = {
1168 FM801_SINGLE("AC97 2ch->4ch Copy Switch", FM801_CODEC_CTRL, 7, 1, 0),
1169 FM801_SINGLE("AC97 18-bit Switch", FM801_CODEC_CTRL, 10, 1, 0),
1170 FM801_SINGLE("IEC958 Capture Switch", FM801_I2S_MODE, 8, 1, 0),
1171 FM801_SINGLE("IEC958 Raw Data Playback Switch", FM801_I2S_MODE, 9, 1, 0),
1172 FM801_SINGLE("IEC958 Raw Data Capture Switch", FM801_I2S_MODE, 10, 1, 0),
1173 FM801_SINGLE("IEC958 Playback Switch", FM801_GEN_CTRL, 2, 1, 0),
1174 };
1175
1176 static void snd_fm801_mixer_free_ac97_bus(ac97_bus_t *bus)
1177 {
1178         fm801_t *chip = snd_magic_cast(fm801_t, bus->private_data, return);
1179         chip->ac97_bus = NULL;
1180 }
1181
1182 static void snd_fm801_mixer_free_ac97(ac97_t *ac97)
1183 {
1184         fm801_t *chip = snd_magic_cast(fm801_t, ac97->private_data, return);
1185         if (ac97->num == 0) {
1186                 chip->ac97 = NULL;
1187         } else {
1188                 chip->ac97_sec = NULL;
1189         }
1190 }
1191
1192 static int __devinit snd_fm801_mixer(fm801_t *chip)
1193 {
1194         ac97_bus_t bus;
1195         ac97_t ac97;
1196         unsigned int i;
1197         int err;
1198
1199         memset(&bus, 0, sizeof(bus));
1200         bus.write = snd_fm801_codec_write;
1201         bus.read = snd_fm801_codec_read;
1202         bus.private_data = chip;
1203         bus.private_free = snd_fm801_mixer_free_ac97_bus;
1204         if ((err = snd_ac97_bus(chip->card, &bus, &chip->ac97_bus)) < 0)
1205                 return err;
1206
1207         memset(&ac97, 0, sizeof(ac97));
1208         ac97.private_data = chip;
1209         ac97.private_free = snd_fm801_mixer_free_ac97;
1210         if ((err = snd_ac97_mixer(chip->ac97_bus, &ac97, &chip->ac97)) < 0)
1211                 return err;
1212         if (chip->secondary) {
1213                 ac97.num = 1;
1214                 ac97.addr = chip->secondary_addr;
1215                 if ((err = snd_ac97_mixer(chip->ac97_bus, &ac97, &chip->ac97_sec)) < 0)
1216                         return err;
1217         }
1218         for (i = 0; i < FM801_CONTROLS; i++)
1219                 snd_ctl_add(chip->card, snd_ctl_new1(&snd_fm801_controls[i], chip));
1220         if (chip->multichannel) {
1221                 for (i = 0; i < FM801_CONTROLS_MULTI; i++)
1222                         snd_ctl_add(chip->card, snd_ctl_new1(&snd_fm801_controls_multi[i], chip));
1223         }
1224         return 0;
1225 }
1226
1227 /*
1228  *  initialization routines
1229  */
1230
1231 static int snd_fm801_free(fm801_t *chip)
1232 {
1233         unsigned short cmdw;
1234
1235         if (chip->irq < 0)
1236                 goto __end_hw;
1237
1238         /* interrupt setup - mask everything */
1239         cmdw = inw(FM801_REG(chip, IRQ_MASK));
1240         cmdw |= 0x00c3;
1241         outw(cmdw, FM801_REG(chip, IRQ_MASK));
1242
1243       __end_hw:
1244 #ifdef TEA575X_RADIO
1245         snd_tea575x_exit(&chip->tea);
1246 #endif
1247         if (chip->res_port) {
1248                 release_resource(chip->res_port);
1249                 kfree_nocheck(chip->res_port);
1250         }
1251         if (chip->irq >= 0)
1252                 free_irq(chip->irq, (void *)chip);
1253
1254         snd_magic_kfree(chip);
1255         return 0;
1256 }
1257
1258 static int snd_fm801_dev_free(snd_device_t *device)
1259 {
1260         fm801_t *chip = snd_magic_cast(fm801_t, device->device_data, return -ENXIO);
1261         return snd_fm801_free(chip);
1262 }
1263
1264 static int __devinit snd_fm801_create(snd_card_t * card,
1265                                       struct pci_dev * pci,
1266                                       int tea575x_tuner,
1267                                       fm801_t ** rchip)
1268 {
1269         fm801_t *chip;
1270         unsigned char rev, id;
1271         unsigned short cmdw;
1272         unsigned long timeout;
1273         int err;
1274         static snd_device_ops_t ops = {
1275                 .dev_free =     snd_fm801_dev_free,
1276         };
1277
1278         *rchip = NULL;
1279         if ((err = pci_enable_device(pci)) < 0)
1280                 return err;
1281         chip = snd_magic_kcalloc(fm801_t, 0, GFP_KERNEL);
1282         if (chip == NULL)
1283                 return -ENOMEM;
1284         spin_lock_init(&chip->reg_lock);
1285         chip->card = card;
1286         chip->pci = pci;
1287         chip->irq = -1;
1288         chip->port = pci_resource_start(pci, 0);
1289         if ((chip->res_port = request_region(chip->port, 0x80, "FM801")) == NULL) {
1290                 snd_printk("unable to grab region 0x%lx-0x%lx\n", chip->port, chip->port + 0x80 - 1);
1291                 snd_fm801_free(chip);
1292                 return -EBUSY;
1293         }
1294         if (request_irq(pci->irq, snd_fm801_interrupt, SA_INTERRUPT|SA_SHIRQ, "FM801", (void *)chip)) {
1295                 snd_printk("unable to grab IRQ %d\n", chip->irq);
1296                 snd_fm801_free(chip);
1297                 return -EBUSY;
1298         }
1299         chip->irq = pci->irq;
1300         pci_set_master(pci);
1301
1302         pci_read_config_byte(pci, PCI_REVISION_ID, &rev);
1303         if (rev >= 0xb1)        /* FM801-AU */
1304                 chip->multichannel = 1;
1305
1306         /* codec cold reset + AC'97 warm reset */
1307         outw((1<<5)|(1<<6), FM801_REG(chip, CODEC_CTRL));
1308         inw(FM801_REG(chip, CODEC_CTRL)); /* flush posting data */
1309         udelay(100);
1310         outw(0, FM801_REG(chip, CODEC_CTRL));
1311
1312         timeout = (jiffies + (3 * HZ) / 4) + 1;         /* min 750ms */
1313
1314         outw((1<<7) | (0 << FM801_AC97_ADDR_SHIFT), FM801_REG(chip, AC97_CMD));
1315         udelay(5);
1316         do {
1317                 if ((inw(FM801_REG(chip, AC97_CMD)) & (3<<8)) == (1<<8))
1318                         goto __ac97_secondary;
1319                 set_current_state(TASK_UNINTERRUPTIBLE);
1320                 schedule_timeout(1);
1321         } while (time_after(timeout, jiffies));
1322         snd_printk("Primary AC'97 codec not found\n");
1323         snd_fm801_free(chip);
1324         return -EIO;
1325
1326       __ac97_secondary:
1327         if (!chip->multichannel)        /* lookup is not required */
1328                 goto __ac97_ok;
1329         for (id = 3; id > 0; id--) {    /* my card has the secondary codec */
1330                                         /* at address #3, so the loop is inverted */
1331
1332                 timeout = jiffies + HZ / 20;
1333
1334                 outw((1<<7) | (id << FM801_AC97_ADDR_SHIFT) | AC97_VENDOR_ID1, FM801_REG(chip, AC97_CMD));
1335                 udelay(5);
1336                 do {
1337                         if ((inw(FM801_REG(chip, AC97_CMD)) & (3<<8)) == (1<<8)) {
1338                                 cmdw = inw(FM801_REG(chip, AC97_DATA));
1339                                 if (cmdw != 0xffff && cmdw != 0) {
1340                                         chip->secondary = 1;
1341                                         chip->secondary_addr = id;
1342                                         goto __ac97_ok;
1343                                 }
1344                         }
1345                         set_current_state(TASK_UNINTERRUPTIBLE);
1346                         schedule_timeout(1);
1347                 } while (time_after(timeout, jiffies));
1348         }
1349
1350         /* the recovery phase, it seems that probing for non-existing codec might */
1351         /* cause timeout problems */
1352         timeout = (jiffies + (3 * HZ) / 4) + 1;         /* min 750ms */
1353
1354         outw((1<<7) | (0 << FM801_AC97_ADDR_SHIFT), FM801_REG(chip, AC97_CMD));
1355         udelay(5);
1356         do {
1357                 if ((inw(FM801_REG(chip, AC97_CMD)) & (3<<8)) == (1<<8))
1358                         goto __ac97_ok;
1359                 set_current_state(TASK_UNINTERRUPTIBLE);
1360                 schedule_timeout(1);
1361         } while (time_after(timeout, jiffies));
1362         snd_printk("Primary AC'97 codec not responding\n");
1363         snd_fm801_free(chip);
1364         return -EIO;
1365
1366       __ac97_ok:
1367
1368         /* init volume */
1369         outw(0x0808, FM801_REG(chip, PCM_VOL));
1370         outw(0x9f1f, FM801_REG(chip, FM_VOL));
1371         outw(0x8808, FM801_REG(chip, I2S_VOL));
1372
1373         /* I2S control - I2S mode */
1374         outw(0x0003, FM801_REG(chip, I2S_MODE));
1375
1376         /* interrupt setup - unmask MPU, PLAYBACK & CAPTURE */
1377         cmdw = inw(FM801_REG(chip, IRQ_MASK));
1378         cmdw &= ~0x0083;
1379         outw(cmdw, FM801_REG(chip, IRQ_MASK));
1380
1381         /* interrupt clear */
1382         outw(FM801_IRQ_PLAYBACK|FM801_IRQ_CAPTURE|FM801_IRQ_MPU, FM801_REG(chip, IRQ_STATUS));
1383
1384         if ((err = snd_device_new(card, SNDRV_DEV_LOWLEVEL, chip, &ops)) < 0) {
1385                 snd_fm801_free(chip);
1386                 return err;
1387         }
1388
1389         snd_card_set_dev(card, &pci->dev);
1390
1391 #ifdef TEA575X_RADIO
1392         if (tea575x_tuner > 0 && (tea575x_tuner & 0xffff) < 4) {
1393                 chip->tea.dev_nr = tea575x_tuner >> 16;
1394                 chip->tea.card = card;
1395                 chip->tea.freq_fixup = 10700;
1396                 chip->tea.private_data = chip;
1397                 chip->tea.ops = &snd_fm801_tea_ops[(tea575x_tuner & 0xffff) - 1];
1398                 snd_tea575x_init(&chip->tea);
1399         }
1400 #endif
1401
1402         *rchip = chip;
1403         return 0;
1404 }
1405
1406 static int __devinit snd_card_fm801_probe(struct pci_dev *pci,
1407                                           const struct pci_device_id *pci_id)
1408 {
1409         static int dev;
1410         snd_card_t *card;
1411         fm801_t *chip;
1412         opl3_t *opl3;
1413         int err;
1414
1415         if (dev >= SNDRV_CARDS)
1416                 return -ENODEV;
1417         if (!enable[dev]) {
1418                 dev++;
1419                 return -ENOENT;
1420         }
1421
1422         card = snd_card_new(index[dev], id[dev], THIS_MODULE, 0);
1423         if (card == NULL)
1424                 return -ENOMEM;
1425         if ((err = snd_fm801_create(card, pci, tea575x_tuner[dev], &chip)) < 0) {
1426                 snd_card_free(card);
1427                 return err;
1428         }
1429
1430         strcpy(card->driver, "FM801");
1431         strcpy(card->shortname, "ForteMedia FM801-");
1432         strcat(card->shortname, chip->multichannel ? "AU" : "AS");
1433         sprintf(card->longname, "%s at 0x%lx, irq %i",
1434                 card->shortname, chip->port, chip->irq);
1435
1436         if ((err = snd_fm801_pcm(chip, 0, NULL)) < 0) {
1437                 snd_card_free(card);
1438                 return err;
1439         }
1440         if ((err = snd_fm801_mixer(chip)) < 0) {
1441                 snd_card_free(card);
1442                 return err;
1443         }
1444         if ((err = snd_mpu401_uart_new(card, 0, MPU401_HW_FM801,
1445                                        FM801_REG(chip, MPU401_DATA), 1,
1446                                        chip->irq, 0, &chip->rmidi)) < 0) {
1447                 snd_card_free(card);
1448                 return err;
1449         }
1450         if ((err = snd_opl3_create(card, FM801_REG(chip, OPL3_BANK0),
1451                                    FM801_REG(chip, OPL3_BANK1),
1452                                    OPL3_HW_OPL3_FM801, 1, &opl3)) < 0) {
1453                 snd_card_free(card);
1454                 return err;
1455         }
1456         if ((err = snd_opl3_hwdep_new(opl3, 0, 1, NULL)) < 0) {
1457                 snd_card_free(card);
1458                 return err;
1459         }
1460
1461         if ((err = snd_card_register(card)) < 0) {
1462                 snd_card_free(card);
1463                 return err;
1464         }
1465         pci_set_drvdata(pci, card);
1466         dev++;
1467         return 0;
1468 }
1469
1470 static void __devexit snd_card_fm801_remove(struct pci_dev *pci)
1471 {
1472         snd_card_free(pci_get_drvdata(pci));
1473         pci_set_drvdata(pci, NULL);
1474 }
1475
1476 static struct pci_driver driver = {
1477         .name = "FM801",
1478         .id_table = snd_fm801_ids,
1479         .probe = snd_card_fm801_probe,
1480         .remove = __devexit_p(snd_card_fm801_remove),
1481 };
1482
1483 static int __init alsa_card_fm801_init(void)
1484 {
1485         int err;
1486
1487         if ((err = pci_module_init(&driver)) < 0) {
1488 #ifdef MODULE
1489                 printk(KERN_ERR "ForteMedia FM801 soundcard not found or device busy\n");
1490 #endif
1491                 return err;
1492         }
1493         return 0;
1494 }
1495
1496 static void __exit alsa_card_fm801_exit(void)
1497 {
1498         pci_unregister_driver(&driver);
1499 }
1500
1501 module_init(alsa_card_fm801_init)
1502 module_exit(alsa_card_fm801_exit)
1503
1504 #ifndef MODULE
1505
1506 /* format is: snd-fm801=enable,index,id,tea575x_tuner */
1507
1508 static int __init alsa_card_fm801_setup(char *str)
1509 {
1510         static unsigned __initdata nr_dev = 0;
1511
1512         if (nr_dev >= SNDRV_CARDS)
1513                 return 0;
1514         (void)(get_option(&str,&enable[nr_dev]) == 2 &&
1515                get_option(&str,&index[nr_dev]) == 2 &&
1516                get_id(&str,&id[nr_dev]) == 2 &&
1517                get_option(&str,&tea575x_tuner[nr_dev]));
1518         nr_dev++;
1519         return 1;
1520 }
1521
1522 __setup("snd-fm801=", alsa_card_fm801_setup);
1523
1524 #endif /* ifndef MODULE */