Merge ../bleed-2.6
[linux-2.6] / sound / pci / ad1889.c
1 /* Analog Devices 1889 audio driver
2  *
3  * This is a driver for the AD1889 PCI audio chipset found
4  * on the HP PA-RISC [BCJ]-xxx0 workstations.
5  *
6  * Copyright (C) 2004-2005, Kyle McMartin <kyle@parisc-linux.org>
7  * Copyright (C) 2005, Thibaut Varene <varenet@parisc-linux.org>
8  *   Based on the OSS AD1889 driver by Randolph Chung <tausq@debian.org>
9  *
10  * This program is free software; you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License, version 2, as
12  * published by the Free Software Foundation.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22  *
23  * TODO:
24  *      Do we need to take care of CCS register?
25  *      Maybe we could use finer grained locking (separate locks for pb/cap)?
26  * Wishlist:
27  *      Control Interface (mixer) support
28  *      Better AC97 support (VSR...)?
29  *      PM support
30  *      MIDI support
31  *      Game Port support
32  *      SG DMA support (this will need *alot* of work)
33  */
34
35 #include <linux/init.h>
36 #include <linux/pci.h>
37 #include <linux/slab.h>
38 #include <linux/interrupt.h>
39 #include <linux/compiler.h>
40 #include <linux/delay.h>
41
42 #include <sound/driver.h>
43 #include <sound/core.h>
44 #include <sound/pcm.h>
45 #include <sound/initval.h>
46 #include <sound/ac97_codec.h>
47
48 #include <asm/io.h>
49
50 #include "ad1889.h"
51 #include "ac97/ac97_id.h"
52
53 #define AD1889_DRVVER   "$Revision: 1.3 $"
54
55 MODULE_AUTHOR("Kyle McMartin <kyle@parisc-linux.org>, Thibaut Varene <t-bone@parisc-linux.org>");
56 MODULE_DESCRIPTION("Analog Devices AD1889 ALSA sound driver");
57 MODULE_LICENSE("GPL");
58 MODULE_SUPPORTED_DEVICE("{{Analog Devices,AD1889}}");
59
60 static int index[SNDRV_CARDS] = SNDRV_DEFAULT_IDX;
61 module_param_array(index, int, NULL, 0444);
62 MODULE_PARM_DESC(index, "Index value for the AD1889 soundcard.");
63
64 static char *id[SNDRV_CARDS] = SNDRV_DEFAULT_STR;
65 module_param_array(id, charp, NULL, 0444);
66 MODULE_PARM_DESC(id, "ID string for the AD1889 soundcard.");
67
68 static int enable[SNDRV_CARDS] = SNDRV_DEFAULT_ENABLE_PNP;
69 module_param_array(enable, bool, NULL, 0444);
70 MODULE_PARM_DESC(enable, "Enable AD1889 soundcard.");
71
72 static char *ac97_quirk[SNDRV_CARDS];
73 module_param_array(ac97_quirk, charp, NULL, 0444);
74 MODULE_PARM_DESC(ac97_quirk, "AC'97 workaround for strange hardware.");
75
76 #define DEVNAME "ad1889"
77 #define PFX     DEVNAME ": "
78
79 /* let's use the global sound debug interfaces */
80 #define ad1889_debug(fmt, arg...) snd_printd(KERN_DEBUG fmt, ## arg)
81
82 /* keep track of some hw registers */
83 struct ad1889_register_state {
84         u16 reg;        /* reg setup */
85         u32 addr;       /* dma base address */
86         unsigned long size;     /* DMA buffer size */
87 };
88
89 struct snd_ad1889 {
90         snd_card_t *card;
91         struct pci_dev *pci;
92
93         int irq;
94         unsigned long bar;
95         void __iomem *iobase;
96
97         ac97_t *ac97;
98         ac97_bus_t *ac97_bus;
99         snd_pcm_t *pcm;
100         snd_info_entry_t *proc;
101
102         snd_pcm_substream_t *psubs;
103         snd_pcm_substream_t *csubs;
104
105         /* playback register state */
106         struct ad1889_register_state wave;
107         struct ad1889_register_state ramc;
108
109         spinlock_t lock;
110 };
111
112 static inline u16
113 ad1889_readw(struct snd_ad1889 *chip, unsigned reg)
114 {
115         return readw(chip->iobase + reg);
116 }
117
118 static inline void
119 ad1889_writew(struct snd_ad1889 *chip, unsigned reg, u16 val)
120 {
121         writew(val, chip->iobase + reg);
122 }
123
124 static inline u32
125 ad1889_readl(struct snd_ad1889 *chip, unsigned reg)
126 {
127         return readl(chip->iobase + reg);
128 }
129
130 static inline void
131 ad1889_writel(struct snd_ad1889 *chip, unsigned reg, u32 val)
132 {
133         writel(val, chip->iobase + reg);
134 }
135
136 static inline void
137 ad1889_unmute(struct snd_ad1889 *chip)
138 {
139         u16 st;
140         st = ad1889_readw(chip, AD_DS_WADA) & 
141                 ~(AD_DS_WADA_RWAM | AD_DS_WADA_LWAM);
142         ad1889_writew(chip, AD_DS_WADA, st);
143         ad1889_readw(chip, AD_DS_WADA);
144 }
145
146 static inline void
147 ad1889_mute(struct snd_ad1889 *chip)
148 {
149         u16 st;
150         st = ad1889_readw(chip, AD_DS_WADA) | AD_DS_WADA_RWAM | AD_DS_WADA_LWAM;
151         ad1889_writew(chip, AD_DS_WADA, st);
152         ad1889_readw(chip, AD_DS_WADA);
153 }
154
155 static inline void
156 ad1889_load_adc_buffer_address(struct snd_ad1889 *chip, u32 address)
157 {
158         ad1889_writel(chip, AD_DMA_ADCBA, address);
159         ad1889_writel(chip, AD_DMA_ADCCA, address);
160 }
161
162 static inline void
163 ad1889_load_adc_buffer_count(struct snd_ad1889 *chip, u32 count)
164 {
165         ad1889_writel(chip, AD_DMA_ADCBC, count);
166         ad1889_writel(chip, AD_DMA_ADCCC, count);
167 }
168
169 static inline void
170 ad1889_load_adc_interrupt_count(struct snd_ad1889 *chip, u32 count)
171 {
172         ad1889_writel(chip, AD_DMA_ADCIB, count);
173         ad1889_writel(chip, AD_DMA_ADCIC, count);
174 }
175
176 static inline void
177 ad1889_load_wave_buffer_address(struct snd_ad1889 *chip, u32 address)
178 {
179         ad1889_writel(chip, AD_DMA_WAVBA, address);
180         ad1889_writel(chip, AD_DMA_WAVCA, address);
181 }
182
183 static inline void
184 ad1889_load_wave_buffer_count(struct snd_ad1889 *chip, u32 count)
185 {
186         ad1889_writel(chip, AD_DMA_WAVBC, count);
187         ad1889_writel(chip, AD_DMA_WAVCC, count);
188 }
189
190 static inline void
191 ad1889_load_wave_interrupt_count(struct snd_ad1889 *chip, u32 count)
192 {
193         ad1889_writel(chip, AD_DMA_WAVIB, count);
194         ad1889_writel(chip, AD_DMA_WAVIC, count);
195 }
196
197 static void
198 ad1889_channel_reset(struct snd_ad1889 *chip, unsigned int channel)
199 {
200         u16 reg;
201         
202         if (channel & AD_CHAN_WAV) {
203                 /* Disable wave channel */
204                 reg = ad1889_readw(chip, AD_DS_WSMC) & ~AD_DS_WSMC_WAEN;
205                 ad1889_writew(chip, AD_DS_WSMC, reg);
206                 chip->wave.reg = reg;
207                 
208                 /* disable IRQs */
209                 reg = ad1889_readw(chip, AD_DMA_WAV);
210                 reg &= AD_DMA_IM_DIS;
211                 reg &= ~AD_DMA_LOOP;
212                 ad1889_writew(chip, AD_DMA_WAV, reg);
213
214                 /* clear IRQ and address counters and pointers */
215                 ad1889_load_wave_buffer_address(chip, 0x0);
216                 ad1889_load_wave_buffer_count(chip, 0x0);
217                 ad1889_load_wave_interrupt_count(chip, 0x0);
218
219                 /* flush */
220                 ad1889_readw(chip, AD_DMA_WAV);
221         }
222         
223         if (channel & AD_CHAN_ADC) {
224                 /* Disable ADC channel */
225                 reg = ad1889_readw(chip, AD_DS_RAMC) & ~AD_DS_RAMC_ADEN;
226                 ad1889_writew(chip, AD_DS_RAMC, reg);
227                 chip->ramc.reg = reg;
228
229                 reg = ad1889_readw(chip, AD_DMA_ADC);
230                 reg &= AD_DMA_IM_DIS;
231                 reg &= ~AD_DMA_LOOP;
232                 ad1889_writew(chip, AD_DMA_ADC, reg);
233         
234                 ad1889_load_adc_buffer_address(chip, 0x0);
235                 ad1889_load_adc_buffer_count(chip, 0x0);
236                 ad1889_load_adc_interrupt_count(chip, 0x0);
237
238                 /* flush */
239                 ad1889_readw(chip, AD_DMA_ADC);
240         }
241 }
242
243 static inline u16
244 snd_ad1889_ac97_read(ac97_t *ac97, unsigned short reg)
245 {
246         struct snd_ad1889 *chip = ac97->private_data;
247         return ad1889_readw(chip, AD_AC97_BASE + reg);
248 }
249
250 static inline void
251 snd_ad1889_ac97_write(ac97_t *ac97, unsigned short reg, unsigned short val)
252 {
253         struct snd_ad1889 *chip = ac97->private_data;
254         ad1889_writew(chip, AD_AC97_BASE + reg, val);
255 }
256
257 static int
258 snd_ad1889_ac97_ready(struct snd_ad1889 *chip)
259 {
260         int retry = 400; /* average needs 352 msec */
261         
262         while (!(ad1889_readw(chip, AD_AC97_ACIC) & AD_AC97_ACIC_ACRDY) 
263                         && --retry)
264                 mdelay(1);
265         if (!retry) {
266                 snd_printk(KERN_ERR PFX "[%s] Link is not ready.\n",
267                        __FUNCTION__);
268                 return -EIO;
269         }
270         ad1889_debug("[%s] ready after %d ms\n", __FUNCTION__, 400 - retry);
271
272         return 0;
273 }
274
275 static int 
276 snd_ad1889_hw_params(snd_pcm_substream_t *substream,
277                         snd_pcm_hw_params_t *hw_params)
278 {
279         return snd_pcm_lib_malloc_pages(substream, 
280                                         params_buffer_bytes(hw_params));
281 }
282
283 static int
284 snd_ad1889_hw_free(snd_pcm_substream_t *substream)
285 {
286         return snd_pcm_lib_free_pages(substream);
287 }
288
289 static snd_pcm_hardware_t snd_ad1889_playback_hw = {
290         .info = SNDRV_PCM_INFO_MMAP | SNDRV_PCM_INFO_INTERLEAVED |
291                 SNDRV_PCM_INFO_MMAP_VALID | SNDRV_PCM_INFO_BLOCK_TRANSFER,
292         .formats = SNDRV_PCM_FMTBIT_S16_LE,
293         .rates = SNDRV_PCM_RATE_CONTINUOUS | SNDRV_PCM_RATE_8000_48000,
294         .rate_min = 8000,       /* docs say 7000, but we're lazy */
295         .rate_max = 48000,
296         .channels_min = 1,
297         .channels_max = 2,
298         .buffer_bytes_max = BUFFER_BYTES_MAX,
299         .period_bytes_min = PERIOD_BYTES_MIN,
300         .period_bytes_max = PERIOD_BYTES_MAX,
301         .periods_min = PERIODS_MIN,
302         .periods_max = PERIODS_MAX,
303         /*.fifo_size = 0,*/
304 };
305
306 static snd_pcm_hardware_t snd_ad1889_capture_hw = {
307         .info = SNDRV_PCM_INFO_MMAP | SNDRV_PCM_INFO_INTERLEAVED |
308                 SNDRV_PCM_INFO_MMAP_VALID | SNDRV_PCM_INFO_BLOCK_TRANSFER,
309         .formats = SNDRV_PCM_FMTBIT_S16_LE,
310         .rates = SNDRV_PCM_RATE_48000,
311         .rate_min = 48000,      /* docs say we could to VSR, but we're lazy */
312         .rate_max = 48000,
313         .channels_min = 1,
314         .channels_max = 2,
315         .buffer_bytes_max = BUFFER_BYTES_MAX,
316         .period_bytes_min = PERIOD_BYTES_MIN,
317         .period_bytes_max = PERIOD_BYTES_MAX,
318         .periods_min = PERIODS_MIN,
319         .periods_max = PERIODS_MAX,
320         /*.fifo_size = 0,*/
321 };
322
323 static int
324 snd_ad1889_playback_open(snd_pcm_substream_t *ss)
325 {
326         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
327         snd_pcm_runtime_t *rt = ss->runtime;
328
329         chip->psubs = ss;
330         rt->hw = snd_ad1889_playback_hw;
331
332         return 0;
333 }
334
335 static int
336 snd_ad1889_capture_open(snd_pcm_substream_t *ss)
337 {
338         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
339         snd_pcm_runtime_t *rt = ss->runtime;
340
341         chip->csubs = ss;
342         rt->hw = snd_ad1889_capture_hw;
343
344         return 0;
345 }
346
347 static int
348 snd_ad1889_playback_close(snd_pcm_substream_t *ss)
349 {
350         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
351         chip->psubs = NULL;
352         return 0;
353 }
354
355 static int
356 snd_ad1889_capture_close(snd_pcm_substream_t *ss)
357 {
358         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
359         chip->csubs = NULL;
360         return 0;
361 }
362
363 static int
364 snd_ad1889_playback_prepare(snd_pcm_substream_t *ss)
365 {
366         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
367         snd_pcm_runtime_t *rt = ss->runtime;
368         unsigned int size = snd_pcm_lib_buffer_bytes(ss);
369         unsigned int count = snd_pcm_lib_period_bytes(ss);
370         u16 reg;
371
372         ad1889_channel_reset(chip, AD_CHAN_WAV);
373
374         reg = ad1889_readw(chip, AD_DS_WSMC);
375         
376         /* Mask out 16-bit / Stereo */
377         reg &= ~(AD_DS_WSMC_WA16 | AD_DS_WSMC_WAST);
378
379         if (snd_pcm_format_width(rt->format) == 16)
380                 reg |= AD_DS_WSMC_WA16;
381
382         if (rt->channels > 1)
383                 reg |= AD_DS_WSMC_WAST;
384
385         /* let's make sure we don't clobber ourselves */
386         spin_lock_irq(&chip->lock);
387         
388         chip->wave.size = size;
389         chip->wave.reg = reg;
390         chip->wave.addr = rt->dma_addr;
391
392         ad1889_writew(chip, AD_DS_WSMC, chip->wave.reg);
393         
394         /* Set sample rates on the codec */
395         ad1889_writew(chip, AD_DS_WAS, rt->rate);
396
397         /* Set up DMA */
398         ad1889_load_wave_buffer_address(chip, chip->wave.addr);
399         ad1889_load_wave_buffer_count(chip, size);
400         ad1889_load_wave_interrupt_count(chip, count);
401
402         /* writes flush */
403         ad1889_readw(chip, AD_DS_WSMC);
404         
405         spin_unlock_irq(&chip->lock);
406         
407         ad1889_debug("prepare playback: addr = 0x%x, count = %u, "
408                         "size = %u, reg = 0x%x, rate = %u\n", chip->wave.addr,
409                         count, size, reg, rt->rate);
410         return 0;
411 }
412
413 static int
414 snd_ad1889_capture_prepare(snd_pcm_substream_t *ss)
415 {
416         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
417         snd_pcm_runtime_t *rt = ss->runtime;
418         unsigned int size = snd_pcm_lib_buffer_bytes(ss);
419         unsigned int count = snd_pcm_lib_period_bytes(ss);
420         u16 reg;
421
422         ad1889_channel_reset(chip, AD_CHAN_ADC);
423         
424         reg = ad1889_readw(chip, AD_DS_RAMC);
425
426         /* Mask out 16-bit / Stereo */
427         reg &= ~(AD_DS_RAMC_AD16 | AD_DS_RAMC_ADST);
428
429         if (snd_pcm_format_width(rt->format) == 16)
430                 reg |= AD_DS_RAMC_AD16;
431
432         if (rt->channels > 1)
433                 reg |= AD_DS_RAMC_ADST;
434
435         /* let's make sure we don't clobber ourselves */
436         spin_lock_irq(&chip->lock);
437         
438         chip->ramc.size = size;
439         chip->ramc.reg = reg;
440         chip->ramc.addr = rt->dma_addr;
441
442         ad1889_writew(chip, AD_DS_RAMC, chip->ramc.reg);
443
444         /* Set up DMA */
445         ad1889_load_adc_buffer_address(chip, chip->ramc.addr);
446         ad1889_load_adc_buffer_count(chip, size);
447         ad1889_load_adc_interrupt_count(chip, count);
448
449         /* writes flush */
450         ad1889_readw(chip, AD_DS_RAMC);
451         
452         spin_unlock_irq(&chip->lock);
453         
454         ad1889_debug("prepare capture: addr = 0x%x, count = %u, "
455                         "size = %u, reg = 0x%x, rate = %u\n", chip->ramc.addr,
456                         count, size, reg, rt->rate);
457         return 0;
458 }
459
460 /* this is called in atomic context with IRQ disabled.
461    Must be as fast as possible and not sleep.
462    DMA should be *triggered* by this call.
463    The WSMC "WAEN" bit triggers DMA Wave On/Off */
464 static int
465 snd_ad1889_playback_trigger(snd_pcm_substream_t *ss, int cmd)
466 {
467         u16 wsmc;
468         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
469         
470         wsmc = ad1889_readw(chip, AD_DS_WSMC);
471
472         switch (cmd) {
473         case SNDRV_PCM_TRIGGER_START:
474                 /* enable DMA loop & interrupts */
475                 ad1889_writew(chip, AD_DMA_WAV, AD_DMA_LOOP | AD_DMA_IM_CNT);
476                 wsmc |= AD_DS_WSMC_WAEN;
477                 /* 1 to clear CHSS bit */
478                 ad1889_writel(chip, AD_DMA_CHSS, AD_DMA_CHSS_WAVS);
479                 ad1889_unmute(chip);
480                 break;
481         case SNDRV_PCM_TRIGGER_STOP:
482                 ad1889_mute(chip);
483                 wsmc &= ~AD_DS_WSMC_WAEN;
484                 break;
485         default:
486                 snd_BUG();
487                 return -EINVAL;
488         }
489         
490         chip->wave.reg = wsmc;
491         ad1889_writew(chip, AD_DS_WSMC, wsmc);  
492         ad1889_readw(chip, AD_DS_WSMC); /* flush */
493
494         /* reset the chip when STOP - will disable IRQs */
495         if (cmd == SNDRV_PCM_TRIGGER_STOP)
496                 ad1889_channel_reset(chip, AD_CHAN_WAV);
497
498         return 0;
499 }
500
501 /* this is called in atomic context with IRQ disabled.
502    Must be as fast as possible and not sleep.
503    DMA should be *triggered* by this call.
504    The RAMC "ADEN" bit triggers DMA ADC On/Off */
505 static int
506 snd_ad1889_capture_trigger(snd_pcm_substream_t *ss, int cmd)
507 {
508         u16 ramc;
509         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
510
511         ramc = ad1889_readw(chip, AD_DS_RAMC);
512         
513         switch (cmd) {
514         case SNDRV_PCM_TRIGGER_START:
515                 /* enable DMA loop & interrupts */
516                 ad1889_writew(chip, AD_DMA_ADC, AD_DMA_LOOP | AD_DMA_IM_CNT);
517                 ramc |= AD_DS_RAMC_ADEN;
518                 /* 1 to clear CHSS bit */
519                 ad1889_writel(chip, AD_DMA_CHSS, AD_DMA_CHSS_ADCS);
520                 break;
521         case SNDRV_PCM_TRIGGER_STOP:
522                 ramc &= ~AD_DS_RAMC_ADEN;
523                 break;
524         default:
525                 return -EINVAL;
526         }
527         
528         chip->ramc.reg = ramc;
529         ad1889_writew(chip, AD_DS_RAMC, ramc);  
530         ad1889_readw(chip, AD_DS_RAMC); /* flush */
531         
532         /* reset the chip when STOP - will disable IRQs */
533         if (cmd == SNDRV_PCM_TRIGGER_STOP)
534                 ad1889_channel_reset(chip, AD_CHAN_ADC);
535                 
536         return 0;
537 }
538
539 /* Called in atomic context with IRQ disabled */
540 static snd_pcm_uframes_t
541 snd_ad1889_playback_pointer(snd_pcm_substream_t *ss)
542 {
543         size_t ptr = 0;
544         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
545
546         if (unlikely(!(chip->wave.reg & AD_DS_WSMC_WAEN)))
547                 return 0;
548
549         ptr = ad1889_readl(chip, AD_DMA_WAVCA);
550         ptr -= chip->wave.addr;
551         
552         snd_assert((ptr >= 0) && (ptr < chip->wave.size), return 0);
553         
554         return bytes_to_frames(ss->runtime, ptr);
555 }
556
557 /* Called in atomic context with IRQ disabled */
558 static snd_pcm_uframes_t
559 snd_ad1889_capture_pointer(snd_pcm_substream_t *ss)
560 {
561         size_t ptr = 0;
562         struct snd_ad1889 *chip = snd_pcm_substream_chip(ss);
563
564         if (unlikely(!(chip->ramc.reg & AD_DS_RAMC_ADEN)))
565                 return 0;
566
567         ptr = ad1889_readl(chip, AD_DMA_ADCCA);
568         ptr -= chip->ramc.addr;
569
570         snd_assert((ptr >= 0) && (ptr < chip->ramc.size), return 0);
571         
572         return bytes_to_frames(ss->runtime, ptr);
573 }
574
575 static snd_pcm_ops_t snd_ad1889_playback_ops = {
576         .open = snd_ad1889_playback_open,
577         .close = snd_ad1889_playback_close,
578         .ioctl = snd_pcm_lib_ioctl,
579         .hw_params = snd_ad1889_hw_params,
580         .hw_free = snd_ad1889_hw_free,
581         .prepare = snd_ad1889_playback_prepare,
582         .trigger = snd_ad1889_playback_trigger,
583         .pointer = snd_ad1889_playback_pointer, 
584 };
585
586 static snd_pcm_ops_t snd_ad1889_capture_ops = {
587         .open = snd_ad1889_capture_open,
588         .close = snd_ad1889_capture_close,
589         .ioctl = snd_pcm_lib_ioctl,
590         .hw_params = snd_ad1889_hw_params,
591         .hw_free = snd_ad1889_hw_free,
592         .prepare = snd_ad1889_capture_prepare,
593         .trigger = snd_ad1889_capture_trigger,
594         .pointer = snd_ad1889_capture_pointer, 
595 };
596
597 static irqreturn_t
598 snd_ad1889_interrupt(int irq, 
599                      void *dev_id, 
600                      struct pt_regs *regs)
601 {
602         unsigned long st;
603         struct snd_ad1889 *chip = dev_id;
604
605         st = ad1889_readl(chip, AD_DMA_DISR);
606
607         /* clear ISR */
608         ad1889_writel(chip, AD_DMA_DISR, st);
609
610         st &= AD_INTR_MASK;
611
612         if (unlikely(!st))
613                 return IRQ_NONE;
614
615         if (st & (AD_DMA_DISR_PMAI|AD_DMA_DISR_PTAI))
616                 ad1889_debug("Unexpected master or target abort interrupt!\n");
617
618         if ((st & AD_DMA_DISR_WAVI) && chip->psubs)
619                 snd_pcm_period_elapsed(chip->psubs);
620         if ((st & AD_DMA_DISR_ADCI) && chip->csubs)
621                 snd_pcm_period_elapsed(chip->csubs);
622
623         return IRQ_HANDLED;
624 }
625
626 static void 
627 snd_ad1889_pcm_free(snd_pcm_t *pcm)
628 {
629         struct snd_ad1889 *chip = pcm->private_data;
630         chip->pcm = NULL;
631         snd_pcm_lib_preallocate_free_for_all(pcm);
632 }
633
634 static int __devinit
635 snd_ad1889_pcm_init(struct snd_ad1889 *chip, int device, snd_pcm_t **rpcm)
636 {
637         int err;
638         snd_pcm_t *pcm;
639
640         if (rpcm)
641                 *rpcm = NULL;
642
643         err = snd_pcm_new(chip->card, chip->card->driver, device, 1, 1, &pcm);
644         if (err < 0)
645                 return err;
646
647         snd_pcm_set_ops(pcm, SNDRV_PCM_STREAM_PLAYBACK, 
648                         &snd_ad1889_playback_ops);
649         snd_pcm_set_ops(pcm, SNDRV_PCM_STREAM_CAPTURE,
650                         &snd_ad1889_capture_ops);
651
652         pcm->private_data = chip;
653         pcm->private_free = snd_ad1889_pcm_free;
654         pcm->info_flags = 0;
655         strcpy(pcm->name, chip->card->shortname);
656         
657         chip->pcm = pcm;
658         chip->psubs = NULL;
659         chip->csubs = NULL;
660
661         err = snd_pcm_lib_preallocate_pages_for_all(pcm, SNDRV_DMA_TYPE_DEV,
662                                                 snd_dma_pci_data(chip->pci),
663                                                 BUFFER_BYTES_MAX / 2,
664                                                 BUFFER_BYTES_MAX);
665
666         if (err < 0) {
667                 snd_printk(KERN_ERR PFX "buffer allocation error: %d\n", err);
668                 return err;
669         }
670         
671         if (rpcm)
672                 *rpcm = pcm;
673         
674         return 0;
675 }
676
677 static void
678 snd_ad1889_proc_read(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
679 {
680         struct snd_ad1889 *chip = entry->private_data;
681         u16 reg;
682         int tmp;
683
684         reg = ad1889_readw(chip, AD_DS_WSMC);
685         snd_iprintf(buffer, "Wave output: %s\n",
686                         (reg & AD_DS_WSMC_WAEN) ? "enabled" : "disabled");
687         snd_iprintf(buffer, "Wave Channels: %s\n",
688                         (reg & AD_DS_WSMC_WAST) ? "stereo" : "mono");
689         snd_iprintf(buffer, "Wave Quality: %d-bit linear\n",
690                         (reg & AD_DS_WSMC_WA16) ? 16 : 8);
691         
692         /* WARQ is at offset 12 */
693         tmp = (reg & AD_DS_WSMC_WARQ) ?
694                         (((reg & AD_DS_WSMC_WARQ >> 12) & 0x01) ? 12 : 18) : 4;
695         tmp /= (reg & AD_DS_WSMC_WAST) ? 2 : 1;
696         
697         snd_iprintf(buffer, "Wave FIFO: %d %s words\n\n", tmp,
698                         (reg & AD_DS_WSMC_WAST) ? "stereo" : "mono");
699                                 
700         
701         snd_iprintf(buffer, "Synthesis output: %s\n",
702                         reg & AD_DS_WSMC_SYEN ? "enabled" : "disabled");
703         
704         /* SYRQ is at offset 4 */
705         tmp = (reg & AD_DS_WSMC_SYRQ) ?
706                         (((reg & AD_DS_WSMC_SYRQ >> 4) & 0x01) ? 12 : 18) : 4;
707         tmp /= (reg & AD_DS_WSMC_WAST) ? 2 : 1;
708         
709         snd_iprintf(buffer, "Synthesis FIFO: %d %s words\n\n", tmp,
710                         (reg & AD_DS_WSMC_WAST) ? "stereo" : "mono");
711
712         reg = ad1889_readw(chip, AD_DS_RAMC);
713         snd_iprintf(buffer, "ADC input: %s\n",
714                         (reg & AD_DS_RAMC_ADEN) ? "enabled" : "disabled");
715         snd_iprintf(buffer, "ADC Channels: %s\n",
716                         (reg & AD_DS_RAMC_ADST) ? "stereo" : "mono");
717         snd_iprintf(buffer, "ADC Quality: %d-bit linear\n",
718                         (reg & AD_DS_RAMC_AD16) ? 16 : 8);
719         
720         /* ACRQ is at offset 4 */
721         tmp = (reg & AD_DS_RAMC_ACRQ) ?
722                         (((reg & AD_DS_RAMC_ACRQ >> 4) & 0x01) ? 12 : 18) : 4;
723         tmp /= (reg & AD_DS_RAMC_ADST) ? 2 : 1;
724         
725         snd_iprintf(buffer, "ADC FIFO: %d %s words\n\n", tmp,
726                         (reg & AD_DS_RAMC_ADST) ? "stereo" : "mono");
727         
728         snd_iprintf(buffer, "Resampler input: %s\n",
729                         reg & AD_DS_RAMC_REEN ? "enabled" : "disabled");
730                         
731         /* RERQ is at offset 12 */
732         tmp = (reg & AD_DS_RAMC_RERQ) ?
733                         (((reg & AD_DS_RAMC_RERQ >> 12) & 0x01) ? 12 : 18) : 4;
734         tmp /= (reg & AD_DS_RAMC_ADST) ? 2 : 1;
735         
736         snd_iprintf(buffer, "Resampler FIFO: %d %s words\n\n", tmp,
737                         (reg & AD_DS_WSMC_WAST) ? "stereo" : "mono");
738                                 
739         
740         /* doc says LSB represents -1.5dB, but the max value (-94.5dB)
741         suggests that LSB is -3dB, which is more coherent with the logarithmic
742         nature of the dB scale */
743         reg = ad1889_readw(chip, AD_DS_WADA);
744         snd_iprintf(buffer, "Left: %s, -%d dB\n",
745                         (reg & AD_DS_WADA_LWAM) ? "mute" : "unmute",
746                         ((reg & AD_DS_WADA_LWAA) >> 8) * 3);
747         reg = ad1889_readw(chip, AD_DS_WADA);
748         snd_iprintf(buffer, "Right: %s, -%d dB\n",
749                         (reg & AD_DS_WADA_RWAM) ? "mute" : "unmute",
750                         ((reg & AD_DS_WADA_RWAA) >> 8) * 3);
751         
752         reg = ad1889_readw(chip, AD_DS_WAS);
753         snd_iprintf(buffer, "Wave samplerate: %u Hz\n", reg);
754         reg = ad1889_readw(chip, AD_DS_RES);
755         snd_iprintf(buffer, "Resampler samplerate: %u Hz\n", reg);
756 }
757
758 static void __devinit
759 snd_ad1889_proc_init(struct snd_ad1889 *chip)
760 {
761         snd_info_entry_t *entry;
762
763         if (!snd_card_proc_new(chip->card, chip->card->driver, &entry))
764                 snd_info_set_text_ops(entry, chip, 1024, snd_ad1889_proc_read);
765 }
766
767 static struct ac97_quirk ac97_quirks[] = {
768         {
769                 .subvendor = 0x11d4,    /* AD */
770                 .subdevice = 0x1889,    /* AD1889 */
771                 .codec_id = AC97_ID_AD1819,
772                 .name = "AD1889",
773                 .type = AC97_TUNE_HP_ONLY
774         },
775         { } /* terminator */
776 };
777
778 static void __devinit
779 snd_ad1889_ac97_xinit(struct snd_ad1889 *chip)
780 {
781         u16 reg;
782
783         reg = ad1889_readw(chip, AD_AC97_ACIC);
784         reg |= AD_AC97_ACIC_ACRD;               /* Reset Disable */
785         ad1889_writew(chip, AD_AC97_ACIC, reg);
786         ad1889_readw(chip, AD_AC97_ACIC);       /* flush posted write */
787         udelay(10);
788         /* Interface Enable */
789         reg |= AD_AC97_ACIC_ACIE;
790         ad1889_writew(chip, AD_AC97_ACIC, reg);
791         
792         snd_ad1889_ac97_ready(chip);
793
794         /* Audio Stream Output | Variable Sample Rate Mode */
795         reg = ad1889_readw(chip, AD_AC97_ACIC);
796         reg |= AD_AC97_ACIC_ASOE | AD_AC97_ACIC_VSRM;
797         ad1889_writew(chip, AD_AC97_ACIC, reg);
798         ad1889_readw(chip, AD_AC97_ACIC); /* flush posted write */
799
800 }
801
802 static void
803 snd_ad1889_ac97_bus_free(ac97_bus_t *bus)
804 {
805         struct snd_ad1889 *chip = bus->private_data;
806         chip->ac97_bus = NULL;
807 }
808
809 static void
810 snd_ad1889_ac97_free(ac97_t *ac97)
811 {
812         struct snd_ad1889 *chip = ac97->private_data;
813         chip->ac97 = NULL;
814 }
815
816 static int __devinit
817 snd_ad1889_ac97_init(struct snd_ad1889 *chip, const char *quirk_override)
818 {
819         int err;
820         ac97_template_t ac97;
821         static ac97_bus_ops_t ops = {
822                 .write = snd_ad1889_ac97_write,
823                 .read = snd_ad1889_ac97_read,
824         };
825
826         /* doing that here, it works. */
827         snd_ad1889_ac97_xinit(chip);
828
829         err = snd_ac97_bus(chip->card, 0, &ops, chip, &chip->ac97_bus);
830         if (err < 0)
831                 return err;
832         
833         chip->ac97_bus->private_free = snd_ad1889_ac97_bus_free;
834
835         memset(&ac97, 0, sizeof(ac97));
836         ac97.private_data = chip;
837         ac97.private_free = snd_ad1889_ac97_free;
838         ac97.pci = chip->pci;
839
840         err = snd_ac97_mixer(chip->ac97_bus, &ac97, &chip->ac97);
841         if (err < 0)
842                 return err;
843                 
844         snd_ac97_tune_hardware(chip->ac97, ac97_quirks, quirk_override);
845         
846         return 0;
847 }
848
849 static int
850 snd_ad1889_free(struct snd_ad1889 *chip)
851 {
852         if (chip->irq < 0)
853                 goto skip_hw;
854
855         spin_lock_irq(&chip->lock);
856
857         ad1889_mute(chip);
858
859         /* Turn off interrupt on count and zero DMA registers */
860         ad1889_channel_reset(chip, AD_CHAN_WAV | AD_CHAN_ADC);
861
862         /* clear DISR. If we don't, we'd better jump off the Eiffel Tower */
863         ad1889_writel(chip, AD_DMA_DISR, AD_DMA_DISR_PTAI | AD_DMA_DISR_PMAI);
864         ad1889_readl(chip, AD_DMA_DISR);        /* flush, dammit! */
865
866         spin_unlock_irq(&chip->lock);
867
868         synchronize_irq(chip->irq);
869         
870         if (chip->irq >= 0)
871                 free_irq(chip->irq, (void*)chip);
872
873 skip_hw:
874         if (chip->iobase)
875                 iounmap(chip->iobase);
876
877         pci_release_regions(chip->pci);
878         pci_disable_device(chip->pci);
879
880         kfree(chip);
881         return 0;
882 }
883
884 static inline int
885 snd_ad1889_dev_free(snd_device_t *device) 
886 {
887         struct snd_ad1889 *chip = device->device_data;
888         return snd_ad1889_free(chip);
889 }
890
891 static int __devinit
892 snd_ad1889_init(struct snd_ad1889 *chip) 
893 {
894         ad1889_writew(chip, AD_DS_CCS, AD_DS_CCS_CLKEN); /* turn on clock */
895         ad1889_readw(chip, AD_DS_CCS);  /* flush posted write */
896
897         mdelay(10);
898
899         /* enable Master and Target abort interrupts */
900         ad1889_writel(chip, AD_DMA_DISR, AD_DMA_DISR_PMAE | AD_DMA_DISR_PTAE);
901
902         return 0;
903 }
904
905 static int __devinit
906 snd_ad1889_create(snd_card_t *card,
907                   struct pci_dev *pci,
908                   struct snd_ad1889 **rchip)
909 {
910         int err;
911
912         struct snd_ad1889 *chip;
913         static snd_device_ops_t ops = {
914                 .dev_free = snd_ad1889_dev_free,
915         };
916
917         *rchip = NULL;
918
919         if ((err = pci_enable_device(pci)) < 0)
920                 return err;
921         
922         /* check PCI availability (32bit DMA) */
923         if (pci_set_dma_mask(pci, 0xffffffff) < 0 ||
924             pci_set_consistent_dma_mask(pci, 0xffffffff) < 0) {
925                 printk(KERN_ERR PFX "error setting 32-bit DMA mask.\n");
926                 pci_disable_device(pci);
927                 return -ENXIO;
928         }
929
930         /* allocate chip specific data with zero-filled memory */
931         if ((chip = kzalloc(sizeof(*chip), GFP_KERNEL)) == NULL) {
932                 pci_disable_device(pci);
933                 return -ENOMEM;
934         }
935
936         chip->card = card;
937         card->private_data = chip;
938         chip->pci = pci;
939         chip->irq = -1;
940
941         /* (1) PCI resource allocation */
942         if ((err = pci_request_regions(pci, card->driver)) < 0)
943                 goto free_and_ret;
944
945         chip->bar = pci_resource_start(pci, 0);
946         chip->iobase = ioremap_nocache(chip->bar, pci_resource_len(pci, 0));
947         if (chip->iobase == NULL) {
948                 printk(KERN_ERR PFX "unable to reserve region.\n");
949                 err = -EBUSY;
950                 goto free_and_ret;
951         }
952         
953         pci_set_master(pci);
954
955         spin_lock_init(&chip->lock);    /* only now can we call ad1889_free */
956
957         if (request_irq(pci->irq, snd_ad1889_interrupt,
958                         SA_INTERRUPT|SA_SHIRQ, card->driver, (void*)chip)) {
959                 printk(KERN_ERR PFX "cannot obtain IRQ %d\n", pci->irq);
960                 snd_ad1889_free(chip);
961                 return -EBUSY;
962         }
963
964         chip->irq = pci->irq;
965         synchronize_irq(chip->irq);
966
967         /* (2) initialization of the chip hardware */
968         if ((err = snd_ad1889_init(chip)) < 0) {
969                 snd_ad1889_free(chip);
970                 return err;
971         }
972
973         if ((err = snd_device_new(card, SNDRV_DEV_LOWLEVEL, chip, &ops)) < 0) {
974                 snd_ad1889_free(chip);
975                 return err;
976         }
977
978         snd_card_set_dev(card, &pci->dev);
979
980         *rchip = chip;
981
982         return 0;
983
984 free_and_ret:
985         if (chip)
986                 kfree(chip);
987         pci_disable_device(pci);
988
989         return err;
990 }
991
992 static int __devinit
993 snd_ad1889_probe(struct pci_dev *pci,
994                  const struct pci_device_id *pci_id)
995 {
996         int err;
997         static int devno;
998         snd_card_t *card;
999         struct snd_ad1889 *chip;
1000
1001         /* (1) */
1002         if (devno >= SNDRV_CARDS)
1003                 return -ENODEV;
1004         if (!enable[devno]) {
1005                 devno++;
1006                 return -ENOENT;
1007         }
1008
1009         /* (2) */
1010         card = snd_card_new(index[devno], id[devno], THIS_MODULE, 0);
1011         /* XXX REVISIT: we can probably allocate chip in this call */
1012         if (card == NULL)
1013                 return -ENOMEM;
1014
1015         strcpy(card->driver, "AD1889");
1016         strcpy(card->shortname, "Analog Devices AD1889");
1017
1018         /* (3) */
1019         err = snd_ad1889_create(card, pci, &chip);
1020         if (err < 0)
1021                 goto free_and_ret;
1022
1023         /* (4) */
1024         sprintf(card->longname, "%s at 0x%lx irq %i",
1025                 card->shortname, chip->bar, chip->irq);
1026
1027         /* (5) */
1028         /* register AC97 mixer */
1029         err = snd_ad1889_ac97_init(chip, ac97_quirk[devno]);
1030         if (err < 0)
1031                 goto free_and_ret;
1032         
1033         err = snd_ad1889_pcm_init(chip, 0, NULL);
1034         if (err < 0)
1035                 goto free_and_ret;
1036
1037         /* register proc interface */
1038         snd_ad1889_proc_init(chip);
1039
1040         /* (6) */
1041         err = snd_card_register(card);
1042         if (err < 0)
1043                 goto free_and_ret;
1044
1045         /* (7) */
1046         pci_set_drvdata(pci, card);
1047
1048         devno++;
1049         return 0;
1050
1051 free_and_ret:
1052         snd_card_free(card);
1053         return err;
1054 }
1055
1056 static void __devexit
1057 snd_ad1889_remove(struct pci_dev *pci)
1058 {
1059         snd_card_free(pci_get_drvdata(pci));
1060         pci_set_drvdata(pci, NULL);
1061 }
1062
1063 static struct pci_device_id snd_ad1889_ids[] = {
1064         { PCI_DEVICE(PCI_VENDOR_ID_ANALOG_DEVICES, PCI_DEVICE_ID_AD1889JS) },
1065         { 0, },
1066 };
1067 MODULE_DEVICE_TABLE(pci, snd_ad1889_ids);
1068
1069 static struct pci_driver ad1889_pci = {
1070         .name = "AD1889 Audio",
1071         .owner = THIS_MODULE,
1072         .id_table = snd_ad1889_ids,
1073         .probe = snd_ad1889_probe,
1074         .remove = __devexit_p(snd_ad1889_remove),
1075 };
1076
1077 static int __init
1078 alsa_ad1889_init(void)
1079 {
1080         return pci_register_driver(&ad1889_pci);
1081 }
1082
1083 static void __exit
1084 alsa_ad1889_fini(void)
1085 {
1086         pci_unregister_driver(&ad1889_pci);
1087 }
1088
1089 module_init(alsa_ad1889_init);
1090 module_exit(alsa_ad1889_fini);