[ALSA] oxygen: revert SPI clock frequency change for AK4396/WM8785
[linux-2.6] / sound / pci / es1968.c
1 /*
2  *  Driver for ESS Maestro 1/2/2E Sound Card (started 21.8.99)
3  *  Copyright (c) by Matze Braun <MatzeBraun@gmx.de>.
4  *                   Takashi Iwai <tiwai@suse.de>
5  *                  
6  *  Most of the driver code comes from Zach Brown(zab@redhat.com)
7  *      Alan Cox OSS Driver
8  *  Rewritted from card-es1938.c source.
9  *
10  *  TODO:
11  *   Perhaps Synth
12  *
13  *   This program is free software; you can redistribute it and/or modify
14  *   it under the terms of the GNU General Public License as published by
15  *   the Free Software Foundation; either version 2 of the License, or
16  *   (at your option) any later version.
17  *
18  *   This program is distributed in the hope that it will be useful,
19  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
20  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21  *   GNU General Public License for more details.
22  *
23  *   You should have received a copy of the GNU General Public License
24  *   along with this program; if not, write to the Free Software
25  *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
26  *
27  *
28  *  Notes from Zach Brown about the driver code
29  *
30  *  Hardware Description
31  *
32  *      A working Maestro setup contains the Maestro chip wired to a 
33  *      codec or 2.  In the Maestro we have the APUs, the ASSP, and the
34  *      Wavecache.  The APUs can be though of as virtual audio routing
35  *      channels.  They can take data from a number of sources and perform
36  *      basic encodings of the data.  The wavecache is a storehouse for
37  *      PCM data.  Typically it deals with PCI and interracts with the
38  *      APUs.  The ASSP is a wacky DSP like device that ESS is loth
39  *      to release docs on.  Thankfully it isn't required on the Maestro
40  *      until you start doing insane things like FM emulation and surround
41  *      encoding.  The codecs are almost always AC-97 compliant codecs, 
42  *      but it appears that early Maestros may have had PT101 (an ESS
43  *      part?) wired to them.  The only real difference in the Maestro
44  *      families is external goop like docking capability, memory for
45  *      the ASSP, and initialization differences.
46  *
47  *  Driver Operation
48  *
49  *      We only drive the APU/Wavecache as typical DACs and drive the
50  *      mixers in the codecs.  There are 64 APUs.  We assign 6 to each
51  *      /dev/dsp? device.  2 channels for output, and 4 channels for
52  *      input.
53  *
54  *      Each APU can do a number of things, but we only really use
55  *      3 basic functions.  For playback we use them to convert PCM
56  *      data fetched over PCI by the wavecahche into analog data that
57  *      is handed to the codec.  One APU for mono, and a pair for stereo.
58  *      When in stereo, the combination of smarts in the APU and Wavecache
59  *      decide which wavecache gets the left or right channel.
60  *
61  *      For record we still use the old overly mono system.  For each in
62  *      coming channel the data comes in from the codec, through a 'input'
63  *      APU, through another rate converter APU, and then into memory via
64  *      the wavecache and PCI.  If its stereo, we mash it back into LRLR in
65  *      software.  The pass between the 2 APUs is supposedly what requires us
66  *      to have a 512 byte buffer sitting around in wavecache/memory.
67  *
68  *      The wavecache makes our life even more fun.  First off, it can
69  *      only address the first 28 bits of PCI address space, making it
70  *      useless on quite a few architectures.  Secondly, its insane.
71  *      It claims to fetch from 4 regions of PCI space, each 4 meg in length.
72  *      But that doesn't really work.  You can only use 1 region.  So all our
73  *      allocations have to be in 4meg of each other.  Booo.  Hiss.
74  *      So we have a module parameter, dsps_order, that is the order of
75  *      the number of dsps to provide.  All their buffer space is allocated
76  *      on open time.  The sonicvibes OSS routines we inherited really want
77  *      power of 2 buffers, so we have all those next to each other, then
78  *      512 byte regions for the recording wavecaches.  This ends up
79  *      wasting quite a bit of memory.  The only fixes I can see would be 
80  *      getting a kernel allocator that could work in zones, or figuring out
81  *      just how to coerce the WP into doing what we want.
82  *
83  *      The indirection of the various registers means we have to spinlock
84  *      nearly all register accesses.  We have the main register indirection
85  *      like the wave cache, maestro registers, etc.  Then we have beasts
86  *      like the APU interface that is indirect registers gotten at through
87  *      the main maestro indirection.  Ouch.  We spinlock around the actual
88  *      ports on a per card basis.  This means spinlock activity at each IO
89  *      operation, but the only IO operation clusters are in non critical 
90  *      paths and it makes the code far easier to follow.  Interrupts are
91  *      blocked while holding the locks because the int handler has to
92  *      get at some of them :(.  The mixer interface doesn't, however.
93  *      We also have an OSS state lock that is thrown around in a few
94  *      places.
95  */
96
97 #include <asm/io.h>
98 #include <linux/delay.h>
99 #include <linux/interrupt.h>
100 #include <linux/init.h>
101 #include <linux/pci.h>
102 #include <linux/dma-mapping.h>
103 #include <linux/slab.h>
104 #include <linux/gameport.h>
105 #include <linux/moduleparam.h>
106 #include <linux/mutex.h>
107
108 #include <sound/core.h>
109 #include <sound/pcm.h>
110 #include <sound/mpu401.h>
111 #include <sound/ac97_codec.h>
112 #include <sound/initval.h>
113
114 #define CARD_NAME "ESS Maestro1/2"
115 #define DRIVER_NAME "ES1968"
116
117 MODULE_DESCRIPTION("ESS Maestro");
118 MODULE_LICENSE("GPL");
119 MODULE_SUPPORTED_DEVICE("{{ESS,Maestro 2e},"
120                 "{ESS,Maestro 2},"
121                 "{ESS,Maestro 1},"
122                 "{TerraTec,DMX}}");
123
124 #if defined(CONFIG_GAMEPORT) || (defined(MODULE) && defined(CONFIG_GAMEPORT_MODULE))
125 #define SUPPORT_JOYSTICK 1
126 #endif
127
128 static int index[SNDRV_CARDS] = SNDRV_DEFAULT_IDX;      /* Index 1-MAX */
129 static char *id[SNDRV_CARDS] = SNDRV_DEFAULT_STR;       /* ID for this card */
130 static int enable[SNDRV_CARDS] = SNDRV_DEFAULT_ENABLE_PNP;      /* Enable this card */
131 static int total_bufsize[SNDRV_CARDS] = {[0 ... (SNDRV_CARDS - 1)] = 1024 };
132 static int pcm_substreams_p[SNDRV_CARDS] = {[0 ... (SNDRV_CARDS - 1)] = 4 };
133 static int pcm_substreams_c[SNDRV_CARDS] = {[0 ... (SNDRV_CARDS - 1)] = 1 };
134 static int clock[SNDRV_CARDS];
135 static int use_pm[SNDRV_CARDS] = {[0 ... (SNDRV_CARDS - 1)] = 2};
136 static int enable_mpu[SNDRV_CARDS] = {[0 ... (SNDRV_CARDS - 1)] = 2};
137 #ifdef SUPPORT_JOYSTICK
138 static int joystick[SNDRV_CARDS];
139 #endif
140
141 module_param_array(index, int, NULL, 0444);
142 MODULE_PARM_DESC(index, "Index value for " CARD_NAME " soundcard.");
143 module_param_array(id, charp, NULL, 0444);
144 MODULE_PARM_DESC(id, "ID string for " CARD_NAME " soundcard.");
145 module_param_array(enable, bool, NULL, 0444);
146 MODULE_PARM_DESC(enable, "Enable " CARD_NAME " soundcard.");
147 module_param_array(total_bufsize, int, NULL, 0444);
148 MODULE_PARM_DESC(total_bufsize, "Total buffer size in kB.");
149 module_param_array(pcm_substreams_p, int, NULL, 0444);
150 MODULE_PARM_DESC(pcm_substreams_p, "PCM Playback substreams for " CARD_NAME " soundcard.");
151 module_param_array(pcm_substreams_c, int, NULL, 0444);
152 MODULE_PARM_DESC(pcm_substreams_c, "PCM Capture substreams for " CARD_NAME " soundcard.");
153 module_param_array(clock, int, NULL, 0444);
154 MODULE_PARM_DESC(clock, "Clock on " CARD_NAME " soundcard.  (0 = auto-detect)");
155 module_param_array(use_pm, int, NULL, 0444);
156 MODULE_PARM_DESC(use_pm, "Toggle power-management.  (0 = off, 1 = on, 2 = auto)");
157 module_param_array(enable_mpu, int, NULL, 0444);
158 MODULE_PARM_DESC(enable_mpu, "Enable MPU401.  (0 = off, 1 = on, 2 = auto)");
159 #ifdef SUPPORT_JOYSTICK
160 module_param_array(joystick, bool, NULL, 0444);
161 MODULE_PARM_DESC(joystick, "Enable joystick.");
162 #endif
163
164
165 #define NR_APUS                 64
166 #define NR_APU_REGS             16
167
168 /* NEC Versas ? */
169 #define NEC_VERSA_SUBID1        0x80581033
170 #define NEC_VERSA_SUBID2        0x803c1033
171
172 /* Mode Flags */
173 #define ESS_FMT_STEREO          0x01
174 #define ESS_FMT_16BIT           0x02
175
176 #define DAC_RUNNING             1
177 #define ADC_RUNNING             2
178
179 /* Values for the ESM_LEGACY_AUDIO_CONTROL */
180
181 #define ESS_DISABLE_AUDIO       0x8000
182 #define ESS_ENABLE_SERIAL_IRQ   0x4000
183 #define IO_ADRESS_ALIAS         0x0020
184 #define MPU401_IRQ_ENABLE       0x0010
185 #define MPU401_IO_ENABLE        0x0008
186 #define GAME_IO_ENABLE          0x0004
187 #define FM_IO_ENABLE            0x0002
188 #define SB_IO_ENABLE            0x0001
189
190 /* Values for the ESM_CONFIG_A */
191
192 #define PIC_SNOOP1              0x4000
193 #define PIC_SNOOP2              0x2000
194 #define SAFEGUARD               0x0800
195 #define DMA_CLEAR               0x0700
196 #define DMA_DDMA                0x0000
197 #define DMA_TDMA                0x0100
198 #define DMA_PCPCI               0x0200
199 #define POST_WRITE              0x0080
200 #define PCI_TIMING              0x0040
201 #define SWAP_LR                 0x0020
202 #define SUBTR_DECODE            0x0002
203
204 /* Values for the ESM_CONFIG_B */
205
206 #define SPDIF_CONFB             0x0100
207 #define HWV_CONFB               0x0080
208 #define DEBOUNCE                0x0040
209 #define GPIO_CONFB              0x0020
210 #define CHI_CONFB               0x0010
211 #define IDMA_CONFB              0x0008  /*undoc */
212 #define MIDI_FIX                0x0004  /*undoc */
213 #define IRQ_TO_ISA              0x0001  /*undoc */
214
215 /* Values for Ring Bus Control B */
216 #define RINGB_2CODEC_ID_MASK    0x0003
217 #define RINGB_DIS_VALIDATION    0x0008
218 #define RINGB_EN_SPDIF          0x0010
219 #define RINGB_EN_2CODEC         0x0020
220 #define RINGB_SING_BIT_DUAL     0x0040
221
222 /* ****Port Adresses**** */
223
224 /*   Write & Read */
225 #define ESM_INDEX               0x02
226 #define ESM_DATA                0x00
227
228 /*   AC97 + RingBus */
229 #define ESM_AC97_INDEX          0x30
230 #define ESM_AC97_DATA           0x32
231 #define ESM_RING_BUS_DEST       0x34
232 #define ESM_RING_BUS_CONTR_A    0x36
233 #define ESM_RING_BUS_CONTR_B    0x38
234 #define ESM_RING_BUS_SDO        0x3A
235
236 /*   WaveCache*/
237 #define WC_INDEX                0x10
238 #define WC_DATA                 0x12
239 #define WC_CONTROL              0x14
240
241 /*   ASSP*/
242 #define ASSP_INDEX              0x80
243 #define ASSP_MEMORY             0x82
244 #define ASSP_DATA               0x84
245 #define ASSP_CONTROL_A          0xA2
246 #define ASSP_CONTROL_B          0xA4
247 #define ASSP_CONTROL_C          0xA6
248 #define ASSP_HOSTW_INDEX        0xA8
249 #define ASSP_HOSTW_DATA         0xAA
250 #define ASSP_HOSTW_IRQ          0xAC
251 /* Midi */
252 #define ESM_MPU401_PORT         0x98
253 /* Others */
254 #define ESM_PORT_HOST_IRQ       0x18
255
256 #define IDR0_DATA_PORT          0x00
257 #define IDR1_CRAM_POINTER       0x01
258 #define IDR2_CRAM_DATA          0x02
259 #define IDR3_WAVE_DATA          0x03
260 #define IDR4_WAVE_PTR_LOW       0x04
261 #define IDR5_WAVE_PTR_HI        0x05
262 #define IDR6_TIMER_CTRL         0x06
263 #define IDR7_WAVE_ROMRAM        0x07
264
265 #define WRITEABLE_MAP           0xEFFFFF
266 #define READABLE_MAP            0x64003F
267
268 /* PCI Register */
269
270 #define ESM_LEGACY_AUDIO_CONTROL 0x40
271 #define ESM_ACPI_COMMAND        0x54
272 #define ESM_CONFIG_A            0x50
273 #define ESM_CONFIG_B            0x52
274 #define ESM_DDMA                0x60
275
276 /* Bob Bits */
277 #define ESM_BOB_ENABLE          0x0001
278 #define ESM_BOB_START           0x0001
279
280 /* Host IRQ Control Bits */
281 #define ESM_RESET_MAESTRO       0x8000
282 #define ESM_RESET_DIRECTSOUND   0x4000
283 #define ESM_HIRQ_ClkRun         0x0100
284 #define ESM_HIRQ_HW_VOLUME      0x0040
285 #define ESM_HIRQ_HARPO          0x0030  /* What's that? */
286 #define ESM_HIRQ_ASSP           0x0010
287 #define ESM_HIRQ_DSIE           0x0004
288 #define ESM_HIRQ_MPU401         0x0002
289 #define ESM_HIRQ_SB             0x0001
290
291 /* Host IRQ Status Bits */
292 #define ESM_MPU401_IRQ          0x02
293 #define ESM_SB_IRQ              0x01
294 #define ESM_SOUND_IRQ           0x04
295 #define ESM_ASSP_IRQ            0x10
296 #define ESM_HWVOL_IRQ           0x40
297
298 #define ESS_SYSCLK              50000000
299 #define ESM_BOB_FREQ            200
300 #define ESM_BOB_FREQ_MAX        800
301
302 #define ESM_FREQ_ESM1           (49152000L / 1024L)     /* default rate 48000 */
303 #define ESM_FREQ_ESM2           (50000000L / 1024L)
304
305 /* APU Modes: reg 0x00, bit 4-7 */
306 #define ESM_APU_MODE_SHIFT      4
307 #define ESM_APU_MODE_MASK       (0xf << 4)
308 #define ESM_APU_OFF             0x00
309 #define ESM_APU_16BITLINEAR     0x01    /* 16-Bit Linear Sample Player */
310 #define ESM_APU_16BITSTEREO     0x02    /* 16-Bit Stereo Sample Player */
311 #define ESM_APU_8BITLINEAR      0x03    /* 8-Bit Linear Sample Player */
312 #define ESM_APU_8BITSTEREO      0x04    /* 8-Bit Stereo Sample Player */
313 #define ESM_APU_8BITDIFF        0x05    /* 8-Bit Differential Sample Playrer */
314 #define ESM_APU_DIGITALDELAY    0x06    /* Digital Delay Line */
315 #define ESM_APU_DUALTAP         0x07    /* Dual Tap Reader */
316 #define ESM_APU_CORRELATOR      0x08    /* Correlator */
317 #define ESM_APU_INPUTMIXER      0x09    /* Input Mixer */
318 #define ESM_APU_WAVETABLE       0x0A    /* Wave Table Mode */
319 #define ESM_APU_SRCONVERTOR     0x0B    /* Sample Rate Convertor */
320 #define ESM_APU_16BITPINGPONG   0x0C    /* 16-Bit Ping-Pong Sample Player */
321 #define ESM_APU_RESERVED1       0x0D    /* Reserved 1 */
322 #define ESM_APU_RESERVED2       0x0E    /* Reserved 2 */
323 #define ESM_APU_RESERVED3       0x0F    /* Reserved 3 */
324
325 /* reg 0x00 */
326 #define ESM_APU_FILTER_Q_SHIFT          0
327 #define ESM_APU_FILTER_Q_MASK           (3 << 0)
328 /* APU Filtey Q Control */
329 #define ESM_APU_FILTER_LESSQ    0x00
330 #define ESM_APU_FILTER_MOREQ    0x03
331
332 #define ESM_APU_FILTER_TYPE_SHIFT       2
333 #define ESM_APU_FILTER_TYPE_MASK        (3 << 2)
334 #define ESM_APU_ENV_TYPE_SHIFT          8
335 #define ESM_APU_ENV_TYPE_MASK           (3 << 8)
336 #define ESM_APU_ENV_STATE_SHIFT         10
337 #define ESM_APU_ENV_STATE_MASK          (3 << 10)
338 #define ESM_APU_END_CURVE               (1 << 12)
339 #define ESM_APU_INT_ON_LOOP             (1 << 13)
340 #define ESM_APU_DMA_ENABLE              (1 << 14)
341
342 /* reg 0x02 */
343 #define ESM_APU_SUBMIX_GROUP_SHIRT      0
344 #define ESM_APU_SUBMIX_GROUP_MASK       (7 << 0)
345 #define ESM_APU_SUBMIX_MODE             (1 << 3)
346 #define ESM_APU_6dB                     (1 << 4)
347 #define ESM_APU_DUAL_EFFECT             (1 << 5)
348 #define ESM_APU_EFFECT_CHANNELS_SHIFT   6
349 #define ESM_APU_EFFECT_CHANNELS_MASK    (3 << 6)
350
351 /* reg 0x03 */
352 #define ESM_APU_STEP_SIZE_MASK          0x0fff
353
354 /* reg 0x04 */
355 #define ESM_APU_PHASE_SHIFT             0
356 #define ESM_APU_PHASE_MASK              (0xff << 0)
357 #define ESM_APU_WAVE64K_PAGE_SHIFT      8       /* most 8bit of wave start offset */
358 #define ESM_APU_WAVE64K_PAGE_MASK       (0xff << 8)
359
360 /* reg 0x05 - wave start offset */
361 /* reg 0x06 - wave end offset */
362 /* reg 0x07 - wave loop length */
363
364 /* reg 0x08 */
365 #define ESM_APU_EFFECT_GAIN_SHIFT       0
366 #define ESM_APU_EFFECT_GAIN_MASK        (0xff << 0)
367 #define ESM_APU_TREMOLO_DEPTH_SHIFT     8
368 #define ESM_APU_TREMOLO_DEPTH_MASK      (0xf << 8)
369 #define ESM_APU_TREMOLO_RATE_SHIFT      12
370 #define ESM_APU_TREMOLO_RATE_MASK       (0xf << 12)
371
372 /* reg 0x09 */
373 /* bit 0-7 amplitude dest? */
374 #define ESM_APU_AMPLITUDE_NOW_SHIFT     8
375 #define ESM_APU_AMPLITUDE_NOW_MASK      (0xff << 8)
376
377 /* reg 0x0a */
378 #define ESM_APU_POLAR_PAN_SHIFT         0
379 #define ESM_APU_POLAR_PAN_MASK          (0x3f << 0)
380 /* Polar Pan Control */
381 #define ESM_APU_PAN_CENTER_CIRCLE               0x00
382 #define ESM_APU_PAN_MIDDLE_RADIUS               0x01
383 #define ESM_APU_PAN_OUTSIDE_RADIUS              0x02
384
385 #define ESM_APU_FILTER_TUNING_SHIFT     8
386 #define ESM_APU_FILTER_TUNING_MASK      (0xff << 8)
387
388 /* reg 0x0b */
389 #define ESM_APU_DATA_SRC_A_SHIFT        0
390 #define ESM_APU_DATA_SRC_A_MASK         (0x7f << 0)
391 #define ESM_APU_INV_POL_A               (1 << 7)
392 #define ESM_APU_DATA_SRC_B_SHIFT        8
393 #define ESM_APU_DATA_SRC_B_MASK         (0x7f << 8)
394 #define ESM_APU_INV_POL_B               (1 << 15)
395
396 #define ESM_APU_VIBRATO_RATE_SHIFT      0
397 #define ESM_APU_VIBRATO_RATE_MASK       (0xf << 0)
398 #define ESM_APU_VIBRATO_DEPTH_SHIFT     4
399 #define ESM_APU_VIBRATO_DEPTH_MASK      (0xf << 4)
400 #define ESM_APU_VIBRATO_PHASE_SHIFT     8
401 #define ESM_APU_VIBRATO_PHASE_MASK      (0xff << 8)
402
403 /* reg 0x0c */
404 #define ESM_APU_RADIUS_SELECT           (1 << 6)
405
406 /* APU Filter Control */
407 #define ESM_APU_FILTER_2POLE_LOPASS     0x00
408 #define ESM_APU_FILTER_2POLE_BANDPASS   0x01
409 #define ESM_APU_FILTER_2POLE_HIPASS     0x02
410 #define ESM_APU_FILTER_1POLE_LOPASS     0x03
411 #define ESM_APU_FILTER_1POLE_HIPASS     0x04
412 #define ESM_APU_FILTER_OFF              0x05
413
414 /* APU ATFP Type */
415 #define ESM_APU_ATFP_AMPLITUDE                  0x00
416 #define ESM_APU_ATFP_TREMELO                    0x01
417 #define ESM_APU_ATFP_FILTER                     0x02
418 #define ESM_APU_ATFP_PAN                        0x03
419
420 /* APU ATFP Flags */
421 #define ESM_APU_ATFP_FLG_OFF                    0x00
422 #define ESM_APU_ATFP_FLG_WAIT                   0x01
423 #define ESM_APU_ATFP_FLG_DONE                   0x02
424 #define ESM_APU_ATFP_FLG_INPROCESS              0x03
425
426
427 /* capture mixing buffer size */
428 #define ESM_MEM_ALIGN           0x1000
429 #define ESM_MIXBUF_SIZE         0x400
430
431 #define ESM_MODE_PLAY           0
432 #define ESM_MODE_CAPTURE        1
433
434
435 /* APU use in the driver */
436 enum snd_enum_apu_type {
437         ESM_APU_PCM_PLAY,
438         ESM_APU_PCM_CAPTURE,
439         ESM_APU_PCM_RATECONV,
440         ESM_APU_FREE
441 };
442
443 /* chip type */
444 enum {
445         TYPE_MAESTRO, TYPE_MAESTRO2, TYPE_MAESTRO2E
446 };
447
448 /* DMA Hack! */
449 struct esm_memory {
450         struct snd_dma_buffer buf;
451         int empty;      /* status */
452         struct list_head list;
453 };
454
455 /* Playback Channel */
456 struct esschan {
457         int running;
458
459         u8 apu[4];
460         u8 apu_mode[4];
461
462         /* playback/capture pcm buffer */
463         struct esm_memory *memory;
464         /* capture mixer buffer */
465         struct esm_memory *mixbuf;
466
467         unsigned int hwptr;     /* current hw pointer in bytes */
468         unsigned int count;     /* sample counter in bytes */
469         unsigned int dma_size;  /* total buffer size in bytes */
470         unsigned int frag_size; /* period size in bytes */
471         unsigned int wav_shift;
472         u16 base[4];            /* offset for ptr */
473
474         /* stereo/16bit flag */
475         unsigned char fmt;
476         int mode;       /* playback / capture */
477
478         int bob_freq;   /* required timer frequency */
479
480         struct snd_pcm_substream *substream;
481
482         /* linked list */
483         struct list_head list;
484
485 #ifdef CONFIG_PM
486         u16 wc_map[4];
487 #endif
488 };
489
490 struct es1968 {
491         /* Module Config */
492         int total_bufsize;                      /* in bytes */
493
494         int playback_streams, capture_streams;
495
496         unsigned int clock;             /* clock */
497         /* for clock measurement */
498         unsigned int in_measurement: 1;
499         unsigned int measure_apu;
500         unsigned int measure_lastpos;
501         unsigned int measure_count;
502
503         /* buffer */
504         struct snd_dma_buffer dma;
505
506         /* Resources... */
507         int irq;
508         unsigned long io_port;
509         int type;
510         struct pci_dev *pci;
511         struct snd_card *card;
512         struct snd_pcm *pcm;
513         int do_pm;              /* power-management enabled */
514
515         /* DMA memory block */
516         struct list_head buf_list;
517
518         /* ALSA Stuff */
519         struct snd_ac97 *ac97;
520         struct snd_kcontrol *master_switch; /* for h/w volume control */
521         struct snd_kcontrol *master_volume;
522
523         struct snd_rawmidi *rmidi;
524
525         spinlock_t reg_lock;
526         spinlock_t ac97_lock;
527         struct tasklet_struct hwvol_tq;
528         unsigned int in_suspend;
529
530         /* Maestro Stuff */
531         u16 maestro_map[32];
532         int bobclient;          /* active timer instancs */
533         int bob_freq;           /* timer frequency */
534         struct mutex memory_mutex;      /* memory lock */
535
536         /* APU states */
537         unsigned char apu[NR_APUS];
538
539         /* active substreams */
540         struct list_head substream_list;
541         spinlock_t substream_lock;
542
543 #ifdef CONFIG_PM
544         u16 apu_map[NR_APUS][NR_APU_REGS];
545 #endif
546
547 #ifdef SUPPORT_JOYSTICK
548         struct gameport *gameport;
549 #endif
550 };
551
552 static irqreturn_t snd_es1968_interrupt(int irq, void *dev_id);
553
554 static struct pci_device_id snd_es1968_ids[] = {
555         /* Maestro 1 */
556         { 0x1285, 0x0100, PCI_ANY_ID, PCI_ANY_ID, PCI_CLASS_MULTIMEDIA_AUDIO << 8, 0xffff00, TYPE_MAESTRO },
557         /* Maestro 2 */
558         { 0x125d, 0x1968, PCI_ANY_ID, PCI_ANY_ID, PCI_CLASS_MULTIMEDIA_AUDIO << 8, 0xffff00, TYPE_MAESTRO2 },
559         /* Maestro 2E */
560         { 0x125d, 0x1978, PCI_ANY_ID, PCI_ANY_ID, PCI_CLASS_MULTIMEDIA_AUDIO << 8, 0xffff00, TYPE_MAESTRO2E },
561         { 0, }
562 };
563
564 MODULE_DEVICE_TABLE(pci, snd_es1968_ids);
565
566 /* *********************
567    * Low Level Funcs!  *
568    *********************/
569
570 /* no spinlock */
571 static void __maestro_write(struct es1968 *chip, u16 reg, u16 data)
572 {
573         outw(reg, chip->io_port + ESM_INDEX);
574         outw(data, chip->io_port + ESM_DATA);
575         chip->maestro_map[reg] = data;
576 }
577
578 static inline void maestro_write(struct es1968 *chip, u16 reg, u16 data)
579 {
580         unsigned long flags;
581         spin_lock_irqsave(&chip->reg_lock, flags);
582         __maestro_write(chip, reg, data);
583         spin_unlock_irqrestore(&chip->reg_lock, flags);
584 }
585
586 /* no spinlock */
587 static u16 __maestro_read(struct es1968 *chip, u16 reg)
588 {
589         if (READABLE_MAP & (1 << reg)) {
590                 outw(reg, chip->io_port + ESM_INDEX);
591                 chip->maestro_map[reg] = inw(chip->io_port + ESM_DATA);
592         }
593         return chip->maestro_map[reg];
594 }
595
596 static inline u16 maestro_read(struct es1968 *chip, u16 reg)
597 {
598         unsigned long flags;
599         u16 result;
600         spin_lock_irqsave(&chip->reg_lock, flags);
601         result = __maestro_read(chip, reg);
602         spin_unlock_irqrestore(&chip->reg_lock, flags);
603         return result;
604 }
605
606 /* Wait for the codec bus to be free */
607 static int snd_es1968_ac97_wait(struct es1968 *chip)
608 {
609         int timeout = 100000;
610
611         while (timeout-- > 0) {
612                 if (!(inb(chip->io_port + ESM_AC97_INDEX) & 1))
613                         return 0;
614                 cond_resched();
615         }
616         snd_printd("es1968: ac97 timeout\n");
617         return 1; /* timeout */
618 }
619
620 static void snd_es1968_ac97_write(struct snd_ac97 *ac97, unsigned short reg, unsigned short val)
621 {
622         struct es1968 *chip = ac97->private_data;
623         unsigned long flags;
624
625         snd_es1968_ac97_wait(chip);
626
627         /* Write the bus */
628         spin_lock_irqsave(&chip->ac97_lock, flags);
629         outw(val, chip->io_port + ESM_AC97_DATA);
630         /*msleep(1);*/
631         outb(reg, chip->io_port + ESM_AC97_INDEX);
632         /*msleep(1);*/
633         spin_unlock_irqrestore(&chip->ac97_lock, flags);
634 }
635
636 static unsigned short snd_es1968_ac97_read(struct snd_ac97 *ac97, unsigned short reg)
637 {
638         u16 data = 0;
639         struct es1968 *chip = ac97->private_data;
640         unsigned long flags;
641
642         snd_es1968_ac97_wait(chip);
643
644         spin_lock_irqsave(&chip->ac97_lock, flags);
645         outb(reg | 0x80, chip->io_port + ESM_AC97_INDEX);
646         /*msleep(1);*/
647
648         if (! snd_es1968_ac97_wait(chip)) {
649                 data = inw(chip->io_port + ESM_AC97_DATA);
650                 /*msleep(1);*/
651         }
652         spin_unlock_irqrestore(&chip->ac97_lock, flags);
653
654         return data;
655 }
656
657 /* no spinlock */
658 static void apu_index_set(struct es1968 *chip, u16 index)
659 {
660         int i;
661         __maestro_write(chip, IDR1_CRAM_POINTER, index);
662         for (i = 0; i < 1000; i++)
663                 if (__maestro_read(chip, IDR1_CRAM_POINTER) == index)
664                         return;
665         snd_printd("es1968: APU register select failed. (Timeout)\n");
666 }
667
668 /* no spinlock */
669 static void apu_data_set(struct es1968 *chip, u16 data)
670 {
671         int i;
672         for (i = 0; i < 1000; i++) {
673                 if (__maestro_read(chip, IDR0_DATA_PORT) == data)
674                         return;
675                 __maestro_write(chip, IDR0_DATA_PORT, data);
676         }
677         snd_printd("es1968: APU register set probably failed (Timeout)!\n");
678 }
679
680 /* no spinlock */
681 static void __apu_set_register(struct es1968 *chip, u16 channel, u8 reg, u16 data)
682 {
683         snd_assert(channel < NR_APUS, return);
684 #ifdef CONFIG_PM
685         chip->apu_map[channel][reg] = data;
686 #endif
687         reg |= (channel << 4);
688         apu_index_set(chip, reg);
689         apu_data_set(chip, data);
690 }
691
692 static void apu_set_register(struct es1968 *chip, u16 channel, u8 reg, u16 data)
693 {
694         unsigned long flags;
695         spin_lock_irqsave(&chip->reg_lock, flags);
696         __apu_set_register(chip, channel, reg, data);
697         spin_unlock_irqrestore(&chip->reg_lock, flags);
698 }
699
700 static u16 __apu_get_register(struct es1968 *chip, u16 channel, u8 reg)
701 {
702         snd_assert(channel < NR_APUS, return 0);
703         reg |= (channel << 4);
704         apu_index_set(chip, reg);
705         return __maestro_read(chip, IDR0_DATA_PORT);
706 }
707
708 static u16 apu_get_register(struct es1968 *chip, u16 channel, u8 reg)
709 {
710         unsigned long flags;
711         u16 v;
712         spin_lock_irqsave(&chip->reg_lock, flags);
713         v = __apu_get_register(chip, channel, reg);
714         spin_unlock_irqrestore(&chip->reg_lock, flags);
715         return v;
716 }
717
718 #if 0 /* ASSP is not supported */
719
720 static void assp_set_register(struct es1968 *chip, u32 reg, u32 value)
721 {
722         unsigned long flags;
723
724         spin_lock_irqsave(&chip->reg_lock, flags);
725         outl(reg, chip->io_port + ASSP_INDEX);
726         outl(value, chip->io_port + ASSP_DATA);
727         spin_unlock_irqrestore(&chip->reg_lock, flags);
728 }
729
730 static u32 assp_get_register(struct es1968 *chip, u32 reg)
731 {
732         unsigned long flags;
733         u32 value;
734
735         spin_lock_irqsave(&chip->reg_lock, flags);
736         outl(reg, chip->io_port + ASSP_INDEX);
737         value = inl(chip->io_port + ASSP_DATA);
738         spin_unlock_irqrestore(&chip->reg_lock, flags);
739
740         return value;
741 }
742
743 #endif
744
745 static void wave_set_register(struct es1968 *chip, u16 reg, u16 value)
746 {
747         unsigned long flags;
748
749         spin_lock_irqsave(&chip->reg_lock, flags);
750         outw(reg, chip->io_port + WC_INDEX);
751         outw(value, chip->io_port + WC_DATA);
752         spin_unlock_irqrestore(&chip->reg_lock, flags);
753 }
754
755 static u16 wave_get_register(struct es1968 *chip, u16 reg)
756 {
757         unsigned long flags;
758         u16 value;
759
760         spin_lock_irqsave(&chip->reg_lock, flags);
761         outw(reg, chip->io_port + WC_INDEX);
762         value = inw(chip->io_port + WC_DATA);
763         spin_unlock_irqrestore(&chip->reg_lock, flags);
764
765         return value;
766 }
767
768 /* *******************
769    * Bob the Timer!  *
770    *******************/
771
772 static void snd_es1968_bob_stop(struct es1968 *chip)
773 {
774         u16 reg;
775
776         reg = __maestro_read(chip, 0x11);
777         reg &= ~ESM_BOB_ENABLE;
778         __maestro_write(chip, 0x11, reg);
779         reg = __maestro_read(chip, 0x17);
780         reg &= ~ESM_BOB_START;
781         __maestro_write(chip, 0x17, reg);
782 }
783
784 static void snd_es1968_bob_start(struct es1968 *chip)
785 {
786         int prescale;
787         int divide;
788
789         /* compute ideal interrupt frequency for buffer size & play rate */
790         /* first, find best prescaler value to match freq */
791         for (prescale = 5; prescale < 12; prescale++)
792                 if (chip->bob_freq > (ESS_SYSCLK >> (prescale + 9)))
793                         break;
794
795         /* next, back off prescaler whilst getting divider into optimum range */
796         divide = 1;
797         while ((prescale > 5) && (divide < 32)) {
798                 prescale--;
799                 divide <<= 1;
800         }
801         divide >>= 1;
802
803         /* now fine-tune the divider for best match */
804         for (; divide < 31; divide++)
805                 if (chip->bob_freq >
806                     ((ESS_SYSCLK >> (prescale + 9)) / (divide + 1))) break;
807
808         /* divide = 0 is illegal, but don't let prescale = 4! */
809         if (divide == 0) {
810                 divide++;
811                 if (prescale > 5)
812                         prescale--;
813         } else if (divide > 1)
814                 divide--;
815
816         __maestro_write(chip, 6, 0x9000 | (prescale << 5) | divide);    /* set reg */
817
818         /* Now set IDR 11/17 */
819         __maestro_write(chip, 0x11, __maestro_read(chip, 0x11) | 1);
820         __maestro_write(chip, 0x17, __maestro_read(chip, 0x17) | 1);
821 }
822
823 /* call with substream spinlock */
824 static void snd_es1968_bob_inc(struct es1968 *chip, int freq)
825 {
826         chip->bobclient++;
827         if (chip->bobclient == 1) {
828                 chip->bob_freq = freq;
829                 snd_es1968_bob_start(chip);
830         } else if (chip->bob_freq < freq) {
831                 snd_es1968_bob_stop(chip);
832                 chip->bob_freq = freq;
833                 snd_es1968_bob_start(chip);
834         }
835 }
836
837 /* call with substream spinlock */
838 static void snd_es1968_bob_dec(struct es1968 *chip)
839 {
840         chip->bobclient--;
841         if (chip->bobclient <= 0)
842                 snd_es1968_bob_stop(chip);
843         else if (chip->bob_freq > ESM_BOB_FREQ) {
844                 /* check reduction of timer frequency */
845                 int max_freq = ESM_BOB_FREQ;
846                 struct esschan *es;
847                 list_for_each_entry(es, &chip->substream_list, list) {
848                         if (max_freq < es->bob_freq)
849                                 max_freq = es->bob_freq;
850                 }
851                 if (max_freq != chip->bob_freq) {
852                         snd_es1968_bob_stop(chip);
853                         chip->bob_freq = max_freq;
854                         snd_es1968_bob_start(chip);
855                 }
856         }
857 }
858
859 static int
860 snd_es1968_calc_bob_rate(struct es1968 *chip, struct esschan *es,
861                          struct snd_pcm_runtime *runtime)
862 {
863         /* we acquire 4 interrupts per period for precise control.. */
864         int freq = runtime->rate * 4;
865         if (es->fmt & ESS_FMT_STEREO)
866                 freq <<= 1;
867         if (es->fmt & ESS_FMT_16BIT)
868                 freq <<= 1;
869         freq /= es->frag_size;
870         if (freq < ESM_BOB_FREQ)
871                 freq = ESM_BOB_FREQ;
872         else if (freq > ESM_BOB_FREQ_MAX)
873                 freq = ESM_BOB_FREQ_MAX;
874         return freq;
875 }
876
877
878 /*************
879  *  PCM Part *
880  *************/
881
882 static u32 snd_es1968_compute_rate(struct es1968 *chip, u32 freq)
883 {
884         u32 rate = (freq << 16) / chip->clock;
885 #if 0 /* XXX: do we need this? */ 
886         if (rate > 0x10000)
887                 rate = 0x10000;
888 #endif
889         return rate;
890 }
891
892 /* get current pointer */
893 static inline unsigned int
894 snd_es1968_get_dma_ptr(struct es1968 *chip, struct esschan *es)
895 {
896         unsigned int offset;
897
898         offset = apu_get_register(chip, es->apu[0], 5);
899
900         offset -= es->base[0];
901
902         return (offset & 0xFFFE);       /* hardware is in words */
903 }
904
905 static void snd_es1968_apu_set_freq(struct es1968 *chip, int apu, int freq)
906 {
907         apu_set_register(chip, apu, 2,
908                            (apu_get_register(chip, apu, 2) & 0x00FF) |
909                            ((freq & 0xff) << 8) | 0x10);
910         apu_set_register(chip, apu, 3, freq >> 8);
911 }
912
913 /* spin lock held */
914 static inline void snd_es1968_trigger_apu(struct es1968 *esm, int apu, int mode)
915 {
916         /* set the APU mode */
917         __apu_set_register(esm, apu, 0,
918                            (__apu_get_register(esm, apu, 0) & 0xff0f) |
919                            (mode << 4));
920 }
921
922 static void snd_es1968_pcm_start(struct es1968 *chip, struct esschan *es)
923 {
924         spin_lock(&chip->reg_lock);
925         __apu_set_register(chip, es->apu[0], 5, es->base[0]);
926         snd_es1968_trigger_apu(chip, es->apu[0], es->apu_mode[0]);
927         if (es->mode == ESM_MODE_CAPTURE) {
928                 __apu_set_register(chip, es->apu[2], 5, es->base[2]);
929                 snd_es1968_trigger_apu(chip, es->apu[2], es->apu_mode[2]);
930         }
931         if (es->fmt & ESS_FMT_STEREO) {
932                 __apu_set_register(chip, es->apu[1], 5, es->base[1]);
933                 snd_es1968_trigger_apu(chip, es->apu[1], es->apu_mode[1]);
934                 if (es->mode == ESM_MODE_CAPTURE) {
935                         __apu_set_register(chip, es->apu[3], 5, es->base[3]);
936                         snd_es1968_trigger_apu(chip, es->apu[3], es->apu_mode[3]);
937                 }
938         }
939         spin_unlock(&chip->reg_lock);
940 }
941
942 static void snd_es1968_pcm_stop(struct es1968 *chip, struct esschan *es)
943 {
944         spin_lock(&chip->reg_lock);
945         snd_es1968_trigger_apu(chip, es->apu[0], 0);
946         snd_es1968_trigger_apu(chip, es->apu[1], 0);
947         if (es->mode == ESM_MODE_CAPTURE) {
948                 snd_es1968_trigger_apu(chip, es->apu[2], 0);
949                 snd_es1968_trigger_apu(chip, es->apu[3], 0);
950         }
951         spin_unlock(&chip->reg_lock);
952 }
953
954 /* set the wavecache control reg */
955 static void snd_es1968_program_wavecache(struct es1968 *chip, struct esschan *es,
956                                          int channel, u32 addr, int capture)
957 {
958         u32 tmpval = (addr - 0x10) & 0xFFF8;
959
960         if (! capture) {
961                 if (!(es->fmt & ESS_FMT_16BIT))
962                         tmpval |= 4;    /* 8bit */
963                 if (es->fmt & ESS_FMT_STEREO)
964                         tmpval |= 2;    /* stereo */
965         }
966
967         /* set the wavecache control reg */
968         wave_set_register(chip, es->apu[channel] << 3, tmpval);
969
970 #ifdef CONFIG_PM
971         es->wc_map[channel] = tmpval;
972 #endif
973 }
974
975
976 static void snd_es1968_playback_setup(struct es1968 *chip, struct esschan *es,
977                                       struct snd_pcm_runtime *runtime)
978 {
979         u32 pa;
980         int high_apu = 0;
981         int channel, apu;
982         int i, size;
983         unsigned long flags;
984         u32 freq;
985
986         size = es->dma_size >> es->wav_shift;
987
988         if (es->fmt & ESS_FMT_STEREO)
989                 high_apu++;
990
991         for (channel = 0; channel <= high_apu; channel++) {
992                 apu = es->apu[channel];
993
994                 snd_es1968_program_wavecache(chip, es, channel, es->memory->buf.addr, 0);
995
996                 /* Offset to PCMBAR */
997                 pa = es->memory->buf.addr;
998                 pa -= chip->dma.addr;
999                 pa >>= 1;       /* words */
1000
1001                 pa |= 0x00400000;       /* System RAM (Bit 22) */
1002
1003                 if (es->fmt & ESS_FMT_STEREO) {
1004                         /* Enable stereo */
1005                         if (channel)
1006                                 pa |= 0x00800000;       /* (Bit 23) */
1007                         if (es->fmt & ESS_FMT_16BIT)
1008                                 pa >>= 1;
1009                 }
1010
1011                 /* base offset of dma calcs when reading the pointer
1012                    on this left one */
1013                 es->base[channel] = pa & 0xFFFF;
1014
1015                 for (i = 0; i < 16; i++)
1016                         apu_set_register(chip, apu, i, 0x0000);
1017
1018                 /* Load the buffer into the wave engine */
1019                 apu_set_register(chip, apu, 4, ((pa >> 16) & 0xFF) << 8);
1020                 apu_set_register(chip, apu, 5, pa & 0xFFFF);
1021                 apu_set_register(chip, apu, 6, (pa + size) & 0xFFFF);
1022                 /* setting loop == sample len */
1023                 apu_set_register(chip, apu, 7, size);
1024
1025                 /* clear effects/env.. */
1026                 apu_set_register(chip, apu, 8, 0x0000);
1027                 /* set amp now to 0xd0 (?), low byte is 'amplitude dest'? */
1028                 apu_set_register(chip, apu, 9, 0xD000);
1029
1030                 /* clear routing stuff */
1031                 apu_set_register(chip, apu, 11, 0x0000);
1032                 /* dma on, no envelopes, filter to all 1s) */
1033                 apu_set_register(chip, apu, 0, 0x400F);
1034
1035                 if (es->fmt & ESS_FMT_16BIT)
1036                         es->apu_mode[channel] = ESM_APU_16BITLINEAR;
1037                 else
1038                         es->apu_mode[channel] = ESM_APU_8BITLINEAR;
1039
1040                 if (es->fmt & ESS_FMT_STEREO) {
1041                         /* set panning: left or right */
1042                         /* Check: different panning. On my Canyon 3D Chipset the
1043                            Channels are swapped. I don't know, about the output
1044                            to the SPDif Link. Perhaps you have to change this
1045                            and not the APU Regs 4-5. */
1046                         apu_set_register(chip, apu, 10,
1047                                          0x8F00 | (channel ? 0 : 0x10));
1048                         es->apu_mode[channel] += 1;     /* stereo */
1049                 } else
1050                         apu_set_register(chip, apu, 10, 0x8F08);
1051         }
1052
1053         spin_lock_irqsave(&chip->reg_lock, flags);
1054         /* clear WP interrupts */
1055         outw(1, chip->io_port + 0x04);
1056         /* enable WP ints */
1057         outw(inw(chip->io_port + ESM_PORT_HOST_IRQ) | ESM_HIRQ_DSIE, chip->io_port + ESM_PORT_HOST_IRQ);
1058         spin_unlock_irqrestore(&chip->reg_lock, flags);
1059
1060         freq = runtime->rate;
1061         /* set frequency */
1062         if (freq > 48000)
1063                 freq = 48000;
1064         if (freq < 4000)
1065                 freq = 4000;
1066
1067         /* hmmm.. */
1068         if (!(es->fmt & ESS_FMT_16BIT) && !(es->fmt & ESS_FMT_STEREO))
1069                 freq >>= 1;
1070
1071         freq = snd_es1968_compute_rate(chip, freq);
1072
1073         /* Load the frequency, turn on 6dB */
1074         snd_es1968_apu_set_freq(chip, es->apu[0], freq);
1075         snd_es1968_apu_set_freq(chip, es->apu[1], freq);
1076 }
1077
1078
1079 static void init_capture_apu(struct es1968 *chip, struct esschan *es, int channel,
1080                              unsigned int pa, unsigned int bsize,
1081                              int mode, int route)
1082 {
1083         int i, apu = es->apu[channel];
1084
1085         es->apu_mode[channel] = mode;
1086
1087         /* set the wavecache control reg */
1088         snd_es1968_program_wavecache(chip, es, channel, pa, 1);
1089
1090         /* Offset to PCMBAR */
1091         pa -= chip->dma.addr;
1092         pa >>= 1;       /* words */
1093
1094         /* base offset of dma calcs when reading the pointer
1095            on this left one */
1096         es->base[channel] = pa & 0xFFFF;
1097         pa |= 0x00400000;       /* bit 22 -> System RAM */
1098
1099         /* Begin loading the APU */
1100         for (i = 0; i < 16; i++)
1101                 apu_set_register(chip, apu, i, 0x0000);
1102
1103         /* need to enable subgroups.. and we should probably
1104            have different groups for different /dev/dsps..  */
1105         apu_set_register(chip, apu, 2, 0x8);
1106
1107         /* Load the buffer into the wave engine */
1108         apu_set_register(chip, apu, 4, ((pa >> 16) & 0xFF) << 8);
1109         apu_set_register(chip, apu, 5, pa & 0xFFFF);
1110         apu_set_register(chip, apu, 6, (pa + bsize) & 0xFFFF);
1111         apu_set_register(chip, apu, 7, bsize);
1112         /* clear effects/env.. */
1113         apu_set_register(chip, apu, 8, 0x00F0);
1114         /* amplitude now?  sure.  why not.  */
1115         apu_set_register(chip, apu, 9, 0x0000);
1116         /* set filter tune, radius, polar pan */
1117         apu_set_register(chip, apu, 10, 0x8F08);
1118         /* route input */
1119         apu_set_register(chip, apu, 11, route);
1120         /* dma on, no envelopes, filter to all 1s) */
1121         apu_set_register(chip, apu, 0, 0x400F);
1122 }
1123
1124 static void snd_es1968_capture_setup(struct es1968 *chip, struct esschan *es,
1125                                      struct snd_pcm_runtime *runtime)
1126 {
1127         int size;
1128         u32 freq;
1129         unsigned long flags;
1130
1131         size = es->dma_size >> es->wav_shift;
1132
1133         /* APU assignments:
1134            0 = mono/left SRC
1135            1 = right SRC
1136            2 = mono/left Input Mixer
1137            3 = right Input Mixer
1138         */
1139         /* data seems to flow from the codec, through an apu into
1140            the 'mixbuf' bit of page, then through the SRC apu
1141            and out to the real 'buffer'.  ok.  sure.  */
1142
1143         /* input mixer (left/mono) */
1144         /* parallel in crap, see maestro reg 0xC [8-11] */
1145         init_capture_apu(chip, es, 2,
1146                          es->mixbuf->buf.addr, ESM_MIXBUF_SIZE/4, /* in words */
1147                          ESM_APU_INPUTMIXER, 0x14);
1148         /* SRC (left/mono); get input from inputing apu */
1149         init_capture_apu(chip, es, 0, es->memory->buf.addr, size,
1150                          ESM_APU_SRCONVERTOR, es->apu[2]);
1151         if (es->fmt & ESS_FMT_STEREO) {
1152                 /* input mixer (right) */
1153                 init_capture_apu(chip, es, 3,
1154                                  es->mixbuf->buf.addr + ESM_MIXBUF_SIZE/2,
1155                                  ESM_MIXBUF_SIZE/4, /* in words */
1156                                  ESM_APU_INPUTMIXER, 0x15);
1157                 /* SRC (right) */
1158                 init_capture_apu(chip, es, 1,
1159                                  es->memory->buf.addr + size*2, size,
1160                                  ESM_APU_SRCONVERTOR, es->apu[3]);
1161         }
1162
1163         freq = runtime->rate;
1164         /* Sample Rate conversion APUs don't like 0x10000 for their rate */
1165         if (freq > 47999)
1166                 freq = 47999;
1167         if (freq < 4000)
1168                 freq = 4000;
1169
1170         freq = snd_es1968_compute_rate(chip, freq);
1171
1172         /* Load the frequency, turn on 6dB */
1173         snd_es1968_apu_set_freq(chip, es->apu[0], freq);
1174         snd_es1968_apu_set_freq(chip, es->apu[1], freq);
1175
1176         /* fix mixer rate at 48khz.  and its _must_ be 0x10000. */
1177         freq = 0x10000;
1178         snd_es1968_apu_set_freq(chip, es->apu[2], freq);
1179         snd_es1968_apu_set_freq(chip, es->apu[3], freq);
1180
1181         spin_lock_irqsave(&chip->reg_lock, flags);
1182         /* clear WP interrupts */
1183         outw(1, chip->io_port + 0x04);
1184         /* enable WP ints */
1185         outw(inw(chip->io_port + ESM_PORT_HOST_IRQ) | ESM_HIRQ_DSIE, chip->io_port + ESM_PORT_HOST_IRQ);
1186         spin_unlock_irqrestore(&chip->reg_lock, flags);
1187 }
1188
1189 /*******************
1190  *  ALSA Interface *
1191  *******************/
1192
1193 static int snd_es1968_pcm_prepare(struct snd_pcm_substream *substream)
1194 {
1195         struct es1968 *chip = snd_pcm_substream_chip(substream);
1196         struct snd_pcm_runtime *runtime = substream->runtime;
1197         struct esschan *es = runtime->private_data;
1198
1199         es->dma_size = snd_pcm_lib_buffer_bytes(substream);
1200         es->frag_size = snd_pcm_lib_period_bytes(substream);
1201
1202         es->wav_shift = 1; /* maestro handles always 16bit */
1203         es->fmt = 0;
1204         if (snd_pcm_format_width(runtime->format) == 16)
1205                 es->fmt |= ESS_FMT_16BIT;
1206         if (runtime->channels > 1) {
1207                 es->fmt |= ESS_FMT_STEREO;
1208                 if (es->fmt & ESS_FMT_16BIT) /* 8bit is already word shifted */
1209                         es->wav_shift++;
1210         }
1211         es->bob_freq = snd_es1968_calc_bob_rate(chip, es, runtime);
1212
1213         switch (es->mode) {
1214         case ESM_MODE_PLAY:
1215                 snd_es1968_playback_setup(chip, es, runtime);
1216                 break;
1217         case ESM_MODE_CAPTURE:
1218                 snd_es1968_capture_setup(chip, es, runtime);
1219                 break;
1220         }
1221
1222         return 0;
1223 }
1224
1225 static int snd_es1968_pcm_trigger(struct snd_pcm_substream *substream, int cmd)
1226 {
1227         struct es1968 *chip = snd_pcm_substream_chip(substream);
1228         struct esschan *es = substream->runtime->private_data;
1229
1230         spin_lock(&chip->substream_lock);
1231         switch (cmd) {
1232         case SNDRV_PCM_TRIGGER_START:
1233         case SNDRV_PCM_TRIGGER_RESUME:
1234                 if (es->running)
1235                         break;
1236                 snd_es1968_bob_inc(chip, es->bob_freq);
1237                 es->count = 0;
1238                 es->hwptr = 0;
1239                 snd_es1968_pcm_start(chip, es);
1240                 es->running = 1;
1241                 break;
1242         case SNDRV_PCM_TRIGGER_STOP:
1243         case SNDRV_PCM_TRIGGER_SUSPEND:
1244                 if (! es->running)
1245                         break;
1246                 snd_es1968_pcm_stop(chip, es);
1247                 es->running = 0;
1248                 snd_es1968_bob_dec(chip);
1249                 break;
1250         }
1251         spin_unlock(&chip->substream_lock);
1252         return 0;
1253 }
1254
1255 static snd_pcm_uframes_t snd_es1968_pcm_pointer(struct snd_pcm_substream *substream)
1256 {
1257         struct es1968 *chip = snd_pcm_substream_chip(substream);
1258         struct esschan *es = substream->runtime->private_data;
1259         unsigned int ptr;
1260
1261         ptr = snd_es1968_get_dma_ptr(chip, es) << es->wav_shift;
1262         
1263         return bytes_to_frames(substream->runtime, ptr % es->dma_size);
1264 }
1265
1266 static struct snd_pcm_hardware snd_es1968_playback = {
1267         .info =                 (SNDRV_PCM_INFO_MMAP |
1268                                  SNDRV_PCM_INFO_MMAP_VALID |
1269                                  SNDRV_PCM_INFO_INTERLEAVED |
1270                                  SNDRV_PCM_INFO_BLOCK_TRANSFER |
1271                                  /*SNDRV_PCM_INFO_PAUSE |*/
1272                                  SNDRV_PCM_INFO_RESUME),
1273         .formats =              SNDRV_PCM_FMTBIT_U8 | SNDRV_PCM_FMTBIT_S16_LE,
1274         .rates =                SNDRV_PCM_RATE_CONTINUOUS | SNDRV_PCM_RATE_8000_48000,
1275         .rate_min =             4000,
1276         .rate_max =             48000,
1277         .channels_min =         1,
1278         .channels_max =         2,
1279         .buffer_bytes_max =     65536,
1280         .period_bytes_min =     256,
1281         .period_bytes_max =     65536,
1282         .periods_min =          1,
1283         .periods_max =          1024,
1284         .fifo_size =            0,
1285 };
1286
1287 static struct snd_pcm_hardware snd_es1968_capture = {
1288         .info =                 (SNDRV_PCM_INFO_NONINTERLEAVED |
1289                                  SNDRV_PCM_INFO_MMAP |
1290                                  SNDRV_PCM_INFO_MMAP_VALID |
1291                                  SNDRV_PCM_INFO_BLOCK_TRANSFER |
1292                                  /*SNDRV_PCM_INFO_PAUSE |*/
1293                                  SNDRV_PCM_INFO_RESUME),
1294         .formats =              /*SNDRV_PCM_FMTBIT_U8 |*/ SNDRV_PCM_FMTBIT_S16_LE,
1295         .rates =                SNDRV_PCM_RATE_CONTINUOUS | SNDRV_PCM_RATE_8000_48000,
1296         .rate_min =             4000,
1297         .rate_max =             48000,
1298         .channels_min =         1,
1299         .channels_max =         2,
1300         .buffer_bytes_max =     65536,
1301         .period_bytes_min =     256,
1302         .period_bytes_max =     65536,
1303         .periods_min =          1,
1304         .periods_max =          1024,
1305         .fifo_size =            0,
1306 };
1307
1308 /* *************************
1309    * DMA memory management *
1310    *************************/
1311
1312 /* Because the Maestro can only take addresses relative to the PCM base address
1313    register :( */
1314
1315 static int calc_available_memory_size(struct es1968 *chip)
1316 {
1317         int max_size = 0;
1318         struct esm_memory *buf;
1319
1320         mutex_lock(&chip->memory_mutex);
1321         list_for_each_entry(buf, &chip->buf_list, list) {
1322                 if (buf->empty && buf->buf.bytes > max_size)
1323                         max_size = buf->buf.bytes;
1324         }
1325         mutex_unlock(&chip->memory_mutex);
1326         if (max_size >= 128*1024)
1327                 max_size = 127*1024;
1328         return max_size;
1329 }
1330
1331 /* allocate a new memory chunk with the specified size */
1332 static struct esm_memory *snd_es1968_new_memory(struct es1968 *chip, int size)
1333 {
1334         struct esm_memory *buf;
1335
1336         size = ALIGN(size, ESM_MEM_ALIGN);
1337         mutex_lock(&chip->memory_mutex);
1338         list_for_each_entry(buf, &chip->buf_list, list) {
1339                 if (buf->empty && buf->buf.bytes >= size)
1340                         goto __found;
1341         }
1342         mutex_unlock(&chip->memory_mutex);
1343         return NULL;
1344
1345 __found:
1346         if (buf->buf.bytes > size) {
1347                 struct esm_memory *chunk = kmalloc(sizeof(*chunk), GFP_KERNEL);
1348                 if (chunk == NULL) {
1349                         mutex_unlock(&chip->memory_mutex);
1350                         return NULL;
1351                 }
1352                 chunk->buf = buf->buf;
1353                 chunk->buf.bytes -= size;
1354                 chunk->buf.area += size;
1355                 chunk->buf.addr += size;
1356                 chunk->empty = 1;
1357                 buf->buf.bytes = size;
1358                 list_add(&chunk->list, &buf->list);
1359         }
1360         buf->empty = 0;
1361         mutex_unlock(&chip->memory_mutex);
1362         return buf;
1363 }
1364
1365 /* free a memory chunk */
1366 static void snd_es1968_free_memory(struct es1968 *chip, struct esm_memory *buf)
1367 {
1368         struct esm_memory *chunk;
1369
1370         mutex_lock(&chip->memory_mutex);
1371         buf->empty = 1;
1372         if (buf->list.prev != &chip->buf_list) {
1373                 chunk = list_entry(buf->list.prev, struct esm_memory, list);
1374                 if (chunk->empty) {
1375                         chunk->buf.bytes += buf->buf.bytes;
1376                         list_del(&buf->list);
1377                         kfree(buf);
1378                         buf = chunk;
1379                 }
1380         }
1381         if (buf->list.next != &chip->buf_list) {
1382                 chunk = list_entry(buf->list.next, struct esm_memory, list);
1383                 if (chunk->empty) {
1384                         buf->buf.bytes += chunk->buf.bytes;
1385                         list_del(&chunk->list);
1386                         kfree(chunk);
1387                 }
1388         }
1389         mutex_unlock(&chip->memory_mutex);
1390 }
1391
1392 static void snd_es1968_free_dmabuf(struct es1968 *chip)
1393 {
1394         struct list_head *p;
1395
1396         if (! chip->dma.area)
1397                 return;
1398         snd_dma_reserve_buf(&chip->dma, snd_dma_pci_buf_id(chip->pci));
1399         while ((p = chip->buf_list.next) != &chip->buf_list) {
1400                 struct esm_memory *chunk = list_entry(p, struct esm_memory, list);
1401                 list_del(p);
1402                 kfree(chunk);
1403         }
1404 }
1405
1406 static int __devinit
1407 snd_es1968_init_dmabuf(struct es1968 *chip)
1408 {
1409         int err;
1410         struct esm_memory *chunk;
1411
1412         chip->dma.dev.type = SNDRV_DMA_TYPE_DEV;
1413         chip->dma.dev.dev = snd_dma_pci_data(chip->pci);
1414         if (! snd_dma_get_reserved_buf(&chip->dma, snd_dma_pci_buf_id(chip->pci))) {
1415                 err = snd_dma_alloc_pages_fallback(SNDRV_DMA_TYPE_DEV,
1416                                                    snd_dma_pci_data(chip->pci),
1417                                                    chip->total_bufsize, &chip->dma);
1418                 if (err < 0 || ! chip->dma.area) {
1419                         snd_printk(KERN_ERR "es1968: can't allocate dma pages for size %d\n",
1420                                    chip->total_bufsize);
1421                         return -ENOMEM;
1422                 }
1423                 if ((chip->dma.addr + chip->dma.bytes - 1) & ~((1 << 28) - 1)) {
1424                         snd_dma_free_pages(&chip->dma);
1425                         snd_printk(KERN_ERR "es1968: DMA buffer beyond 256MB.\n");
1426                         return -ENOMEM;
1427                 }
1428         }
1429
1430         INIT_LIST_HEAD(&chip->buf_list);
1431         /* allocate an empty chunk */
1432         chunk = kmalloc(sizeof(*chunk), GFP_KERNEL);
1433         if (chunk == NULL) {
1434                 snd_es1968_free_dmabuf(chip);
1435                 return -ENOMEM;
1436         }
1437         memset(chip->dma.area, 0, ESM_MEM_ALIGN);
1438         chunk->buf = chip->dma;
1439         chunk->buf.area += ESM_MEM_ALIGN;
1440         chunk->buf.addr += ESM_MEM_ALIGN;
1441         chunk->buf.bytes -= ESM_MEM_ALIGN;
1442         chunk->empty = 1;
1443         list_add(&chunk->list, &chip->buf_list);
1444
1445         return 0;
1446 }
1447
1448 /* setup the dma_areas */
1449 /* buffer is extracted from the pre-allocated memory chunk */
1450 static int snd_es1968_hw_params(struct snd_pcm_substream *substream,
1451                                 struct snd_pcm_hw_params *hw_params)
1452 {
1453         struct es1968 *chip = snd_pcm_substream_chip(substream);
1454         struct snd_pcm_runtime *runtime = substream->runtime;
1455         struct esschan *chan = runtime->private_data;
1456         int size = params_buffer_bytes(hw_params);
1457
1458         if (chan->memory) {
1459                 if (chan->memory->buf.bytes >= size) {
1460                         runtime->dma_bytes = size;
1461                         return 0;
1462                 }
1463                 snd_es1968_free_memory(chip, chan->memory);
1464         }
1465         chan->memory = snd_es1968_new_memory(chip, size);
1466         if (chan->memory == NULL) {
1467                 // snd_printd("cannot allocate dma buffer: size = %d\n", size);
1468                 return -ENOMEM;
1469         }
1470         snd_pcm_set_runtime_buffer(substream, &chan->memory->buf);
1471         return 1; /* area was changed */
1472 }
1473
1474 /* remove dma areas if allocated */
1475 static int snd_es1968_hw_free(struct snd_pcm_substream *substream)
1476 {
1477         struct es1968 *chip = snd_pcm_substream_chip(substream);
1478         struct snd_pcm_runtime *runtime = substream->runtime;
1479         struct esschan *chan;
1480         
1481         if (runtime->private_data == NULL)
1482                 return 0;
1483         chan = runtime->private_data;
1484         if (chan->memory) {
1485                 snd_es1968_free_memory(chip, chan->memory);
1486                 chan->memory = NULL;
1487         }
1488         return 0;
1489 }
1490
1491
1492 /*
1493  * allocate APU pair
1494  */
1495 static int snd_es1968_alloc_apu_pair(struct es1968 *chip, int type)
1496 {
1497         int apu;
1498
1499         for (apu = 0; apu < NR_APUS; apu += 2) {
1500                 if (chip->apu[apu] == ESM_APU_FREE &&
1501                     chip->apu[apu + 1] == ESM_APU_FREE) {
1502                         chip->apu[apu] = chip->apu[apu + 1] = type;
1503                         return apu;
1504                 }
1505         }
1506         return -EBUSY;
1507 }
1508
1509 /*
1510  * release APU pair
1511  */
1512 static void snd_es1968_free_apu_pair(struct es1968 *chip, int apu)
1513 {
1514         chip->apu[apu] = chip->apu[apu + 1] = ESM_APU_FREE;
1515 }
1516
1517
1518 /******************
1519  * PCM open/close *
1520  ******************/
1521
1522 static int snd_es1968_playback_open(struct snd_pcm_substream *substream)
1523 {
1524         struct es1968 *chip = snd_pcm_substream_chip(substream);
1525         struct snd_pcm_runtime *runtime = substream->runtime;
1526         struct esschan *es;
1527         int apu1;
1528
1529         /* search 2 APUs */
1530         apu1 = snd_es1968_alloc_apu_pair(chip, ESM_APU_PCM_PLAY);
1531         if (apu1 < 0)
1532                 return apu1;
1533
1534         es = kzalloc(sizeof(*es), GFP_KERNEL);
1535         if (!es) {
1536                 snd_es1968_free_apu_pair(chip, apu1);
1537                 return -ENOMEM;
1538         }
1539
1540         es->apu[0] = apu1;
1541         es->apu[1] = apu1 + 1;
1542         es->apu_mode[0] = 0;
1543         es->apu_mode[1] = 0;
1544         es->running = 0;
1545         es->substream = substream;
1546         es->mode = ESM_MODE_PLAY;
1547
1548         runtime->private_data = es;
1549         runtime->hw = snd_es1968_playback;
1550         runtime->hw.buffer_bytes_max = runtime->hw.period_bytes_max =
1551                 calc_available_memory_size(chip);
1552
1553         spin_lock_irq(&chip->substream_lock);
1554         list_add(&es->list, &chip->substream_list);
1555         spin_unlock_irq(&chip->substream_lock);
1556
1557         return 0;
1558 }
1559
1560 static int snd_es1968_capture_open(struct snd_pcm_substream *substream)
1561 {
1562         struct snd_pcm_runtime *runtime = substream->runtime;
1563         struct es1968 *chip = snd_pcm_substream_chip(substream);
1564         struct esschan *es;
1565         int apu1, apu2;
1566
1567         apu1 = snd_es1968_alloc_apu_pair(chip, ESM_APU_PCM_CAPTURE);
1568         if (apu1 < 0)
1569                 return apu1;
1570         apu2 = snd_es1968_alloc_apu_pair(chip, ESM_APU_PCM_RATECONV);
1571         if (apu2 < 0) {
1572                 snd_es1968_free_apu_pair(chip, apu1);
1573                 return apu2;
1574         }
1575         
1576         es = kzalloc(sizeof(*es), GFP_KERNEL);
1577         if (!es) {
1578                 snd_es1968_free_apu_pair(chip, apu1);
1579                 snd_es1968_free_apu_pair(chip, apu2);
1580                 return -ENOMEM;
1581         }
1582
1583         es->apu[0] = apu1;
1584         es->apu[1] = apu1 + 1;
1585         es->apu[2] = apu2;
1586         es->apu[3] = apu2 + 1;
1587         es->apu_mode[0] = 0;
1588         es->apu_mode[1] = 0;
1589         es->apu_mode[2] = 0;
1590         es->apu_mode[3] = 0;
1591         es->running = 0;
1592         es->substream = substream;
1593         es->mode = ESM_MODE_CAPTURE;
1594
1595         /* get mixbuffer */
1596         if ((es->mixbuf = snd_es1968_new_memory(chip, ESM_MIXBUF_SIZE)) == NULL) {
1597                 snd_es1968_free_apu_pair(chip, apu1);
1598                 snd_es1968_free_apu_pair(chip, apu2);
1599                 kfree(es);
1600                 return -ENOMEM;
1601         }
1602         memset(es->mixbuf->buf.area, 0, ESM_MIXBUF_SIZE);
1603
1604         runtime->private_data = es;
1605         runtime->hw = snd_es1968_capture;
1606         runtime->hw.buffer_bytes_max = runtime->hw.period_bytes_max =
1607                 calc_available_memory_size(chip) - 1024; /* keep MIXBUF size */
1608         snd_pcm_hw_constraint_pow2(runtime, 0, SNDRV_PCM_HW_PARAM_BUFFER_BYTES);
1609
1610         spin_lock_irq(&chip->substream_lock);
1611         list_add(&es->list, &chip->substream_list);
1612         spin_unlock_irq(&chip->substream_lock);
1613
1614         return 0;
1615 }
1616
1617 static int snd_es1968_playback_close(struct snd_pcm_substream *substream)
1618 {
1619         struct es1968 *chip = snd_pcm_substream_chip(substream);
1620         struct esschan *es;
1621
1622         if (substream->runtime->private_data == NULL)
1623                 return 0;
1624         es = substream->runtime->private_data;
1625         spin_lock_irq(&chip->substream_lock);
1626         list_del(&es->list);
1627         spin_unlock_irq(&chip->substream_lock);
1628         snd_es1968_free_apu_pair(chip, es->apu[0]);
1629         kfree(es);
1630
1631         return 0;
1632 }
1633
1634 static int snd_es1968_capture_close(struct snd_pcm_substream *substream)
1635 {
1636         struct es1968 *chip = snd_pcm_substream_chip(substream);
1637         struct esschan *es;
1638
1639         if (substream->runtime->private_data == NULL)
1640                 return 0;
1641         es = substream->runtime->private_data;
1642         spin_lock_irq(&chip->substream_lock);
1643         list_del(&es->list);
1644         spin_unlock_irq(&chip->substream_lock);
1645         snd_es1968_free_memory(chip, es->mixbuf);
1646         snd_es1968_free_apu_pair(chip, es->apu[0]);
1647         snd_es1968_free_apu_pair(chip, es->apu[2]);
1648         kfree(es);
1649
1650         return 0;
1651 }
1652
1653 static struct snd_pcm_ops snd_es1968_playback_ops = {
1654         .open =         snd_es1968_playback_open,
1655         .close =        snd_es1968_playback_close,
1656         .ioctl =        snd_pcm_lib_ioctl,
1657         .hw_params =    snd_es1968_hw_params,
1658         .hw_free =      snd_es1968_hw_free,
1659         .prepare =      snd_es1968_pcm_prepare,
1660         .trigger =      snd_es1968_pcm_trigger,
1661         .pointer =      snd_es1968_pcm_pointer,
1662 };
1663
1664 static struct snd_pcm_ops snd_es1968_capture_ops = {
1665         .open =         snd_es1968_capture_open,
1666         .close =        snd_es1968_capture_close,
1667         .ioctl =        snd_pcm_lib_ioctl,
1668         .hw_params =    snd_es1968_hw_params,
1669         .hw_free =      snd_es1968_hw_free,
1670         .prepare =      snd_es1968_pcm_prepare,
1671         .trigger =      snd_es1968_pcm_trigger,
1672         .pointer =      snd_es1968_pcm_pointer,
1673 };
1674
1675
1676 /*
1677  * measure clock
1678  */
1679 #define CLOCK_MEASURE_BUFSIZE   16768   /* enough large for a single shot */
1680
1681 static void __devinit es1968_measure_clock(struct es1968 *chip)
1682 {
1683         int i, apu;
1684         unsigned int pa, offset, t;
1685         struct esm_memory *memory;
1686         struct timeval start_time, stop_time;
1687
1688         if (chip->clock == 0)
1689                 chip->clock = 48000; /* default clock value */
1690
1691         /* search 2 APUs (although one apu is enough) */
1692         if ((apu = snd_es1968_alloc_apu_pair(chip, ESM_APU_PCM_PLAY)) < 0) {
1693                 snd_printk(KERN_ERR "Hmm, cannot find empty APU pair!?\n");
1694                 return;
1695         }
1696         if ((memory = snd_es1968_new_memory(chip, CLOCK_MEASURE_BUFSIZE)) == NULL) {
1697                 snd_printk(KERN_ERR "cannot allocate dma buffer - using default clock %d\n", chip->clock);
1698                 snd_es1968_free_apu_pair(chip, apu);
1699                 return;
1700         }
1701
1702         memset(memory->buf.area, 0, CLOCK_MEASURE_BUFSIZE);
1703
1704         wave_set_register(chip, apu << 3, (memory->buf.addr - 0x10) & 0xfff8);
1705
1706         pa = (unsigned int)((memory->buf.addr - chip->dma.addr) >> 1);
1707         pa |= 0x00400000;       /* System RAM (Bit 22) */
1708
1709         /* initialize apu */
1710         for (i = 0; i < 16; i++)
1711                 apu_set_register(chip, apu, i, 0x0000);
1712
1713         apu_set_register(chip, apu, 0, 0x400f);
1714         apu_set_register(chip, apu, 4, ((pa >> 16) & 0xff) << 8);
1715         apu_set_register(chip, apu, 5, pa & 0xffff);
1716         apu_set_register(chip, apu, 6, (pa + CLOCK_MEASURE_BUFSIZE/2) & 0xffff);
1717         apu_set_register(chip, apu, 7, CLOCK_MEASURE_BUFSIZE/2);
1718         apu_set_register(chip, apu, 8, 0x0000);
1719         apu_set_register(chip, apu, 9, 0xD000);
1720         apu_set_register(chip, apu, 10, 0x8F08);
1721         apu_set_register(chip, apu, 11, 0x0000);
1722         spin_lock_irq(&chip->reg_lock);
1723         outw(1, chip->io_port + 0x04); /* clear WP interrupts */
1724         outw(inw(chip->io_port + ESM_PORT_HOST_IRQ) | ESM_HIRQ_DSIE, chip->io_port + ESM_PORT_HOST_IRQ); /* enable WP ints */
1725         spin_unlock_irq(&chip->reg_lock);
1726
1727         snd_es1968_apu_set_freq(chip, apu, ((unsigned int)48000 << 16) / chip->clock); /* 48000 Hz */
1728
1729         chip->in_measurement = 1;
1730         chip->measure_apu = apu;
1731         spin_lock_irq(&chip->reg_lock);
1732         snd_es1968_bob_inc(chip, ESM_BOB_FREQ);
1733         __apu_set_register(chip, apu, 5, pa & 0xffff);
1734         snd_es1968_trigger_apu(chip, apu, ESM_APU_16BITLINEAR);
1735         do_gettimeofday(&start_time);
1736         spin_unlock_irq(&chip->reg_lock);
1737         msleep(50);
1738         spin_lock_irq(&chip->reg_lock);
1739         offset = __apu_get_register(chip, apu, 5);
1740         do_gettimeofday(&stop_time);
1741         snd_es1968_trigger_apu(chip, apu, 0); /* stop */
1742         snd_es1968_bob_dec(chip);
1743         chip->in_measurement = 0;
1744         spin_unlock_irq(&chip->reg_lock);
1745
1746         /* check the current position */
1747         offset -= (pa & 0xffff);
1748         offset &= 0xfffe;
1749         offset += chip->measure_count * (CLOCK_MEASURE_BUFSIZE/2);
1750
1751         t = stop_time.tv_sec - start_time.tv_sec;
1752         t *= 1000000;
1753         if (stop_time.tv_usec < start_time.tv_usec)
1754                 t -= start_time.tv_usec - stop_time.tv_usec;
1755         else
1756                 t += stop_time.tv_usec - start_time.tv_usec;
1757         if (t == 0) {
1758                 snd_printk(KERN_ERR "?? calculation error..\n");
1759         } else {
1760                 offset *= 1000;
1761                 offset = (offset / t) * 1000 + ((offset % t) * 1000) / t;
1762                 if (offset < 47500 || offset > 48500) {
1763                         if (offset >= 40000 && offset <= 50000)
1764                                 chip->clock = (chip->clock * offset) / 48000;
1765                 }
1766                 printk(KERN_INFO "es1968: clocking to %d\n", chip->clock);
1767         }
1768         snd_es1968_free_memory(chip, memory);
1769         snd_es1968_free_apu_pair(chip, apu);
1770 }
1771
1772
1773 /*
1774  */
1775
1776 static void snd_es1968_pcm_free(struct snd_pcm *pcm)
1777 {
1778         struct es1968 *esm = pcm->private_data;
1779         snd_es1968_free_dmabuf(esm);
1780         esm->pcm = NULL;
1781 }
1782
1783 static int __devinit
1784 snd_es1968_pcm(struct es1968 *chip, int device)
1785 {
1786         struct snd_pcm *pcm;
1787         int err;
1788
1789         /* get DMA buffer */
1790         if ((err = snd_es1968_init_dmabuf(chip)) < 0)
1791                 return err;
1792
1793         /* set PCMBAR */
1794         wave_set_register(chip, 0x01FC, chip->dma.addr >> 12);
1795         wave_set_register(chip, 0x01FD, chip->dma.addr >> 12);
1796         wave_set_register(chip, 0x01FE, chip->dma.addr >> 12);
1797         wave_set_register(chip, 0x01FF, chip->dma.addr >> 12);
1798
1799         if ((err = snd_pcm_new(chip->card, "ESS Maestro", device,
1800                                chip->playback_streams,
1801                                chip->capture_streams, &pcm)) < 0)
1802                 return err;
1803
1804         pcm->private_data = chip;
1805         pcm->private_free = snd_es1968_pcm_free;
1806
1807         snd_pcm_set_ops(pcm, SNDRV_PCM_STREAM_PLAYBACK, &snd_es1968_playback_ops);
1808         snd_pcm_set_ops(pcm, SNDRV_PCM_STREAM_CAPTURE, &snd_es1968_capture_ops);
1809
1810         pcm->info_flags = 0;
1811
1812         strcpy(pcm->name, "ESS Maestro");
1813
1814         chip->pcm = pcm;
1815
1816         return 0;
1817 }
1818
1819 /*
1820  * update pointer
1821  */
1822 static void snd_es1968_update_pcm(struct es1968 *chip, struct esschan *es)
1823 {
1824         unsigned int hwptr;
1825         unsigned int diff;
1826         struct snd_pcm_substream *subs = es->substream;
1827         
1828         if (subs == NULL || !es->running)
1829                 return;
1830
1831         hwptr = snd_es1968_get_dma_ptr(chip, es) << es->wav_shift;
1832         hwptr %= es->dma_size;
1833
1834         diff = (es->dma_size + hwptr - es->hwptr) % es->dma_size;
1835
1836         es->hwptr = hwptr;
1837         es->count += diff;
1838
1839         if (es->count > es->frag_size) {
1840                 spin_unlock(&chip->substream_lock);
1841                 snd_pcm_period_elapsed(subs);
1842                 spin_lock(&chip->substream_lock);
1843                 es->count %= es->frag_size;
1844         }
1845 }
1846
1847 /*
1848  */
1849 static void es1968_update_hw_volume(unsigned long private_data)
1850 {
1851         struct es1968 *chip = (struct es1968 *) private_data;
1852         int x, val;
1853         unsigned long flags;
1854
1855         /* Figure out which volume control button was pushed,
1856            based on differences from the default register
1857            values. */
1858         x = inb(chip->io_port + 0x1c) & 0xee;
1859         /* Reset the volume control registers. */
1860         outb(0x88, chip->io_port + 0x1c);
1861         outb(0x88, chip->io_port + 0x1d);
1862         outb(0x88, chip->io_port + 0x1e);
1863         outb(0x88, chip->io_port + 0x1f);
1864
1865         if (chip->in_suspend)
1866                 return;
1867
1868         if (! chip->master_switch || ! chip->master_volume)
1869                 return;
1870
1871         /* FIXME: we can't call snd_ac97_* functions since here is in tasklet. */
1872         spin_lock_irqsave(&chip->ac97_lock, flags);
1873         val = chip->ac97->regs[AC97_MASTER];
1874         switch (x) {
1875         case 0x88:
1876                 /* mute */
1877                 val ^= 0x8000;
1878                 chip->ac97->regs[AC97_MASTER] = val;
1879                 outw(val, chip->io_port + ESM_AC97_DATA);
1880                 outb(AC97_MASTER, chip->io_port + ESM_AC97_INDEX);
1881                 snd_ctl_notify(chip->card, SNDRV_CTL_EVENT_MASK_VALUE,
1882                                &chip->master_switch->id);
1883                 break;
1884         case 0xaa:
1885                 /* volume up */
1886                 if ((val & 0x7f) > 0)
1887                         val--;
1888                 if ((val & 0x7f00) > 0)
1889                         val -= 0x0100;
1890                 chip->ac97->regs[AC97_MASTER] = val;
1891                 outw(val, chip->io_port + ESM_AC97_DATA);
1892                 outb(AC97_MASTER, chip->io_port + ESM_AC97_INDEX);
1893                 snd_ctl_notify(chip->card, SNDRV_CTL_EVENT_MASK_VALUE,
1894                                &chip->master_volume->id);
1895                 break;
1896         case 0x66:
1897                 /* volume down */
1898                 if ((val & 0x7f) < 0x1f)
1899                         val++;
1900                 if ((val & 0x7f00) < 0x1f00)
1901                         val += 0x0100;
1902                 chip->ac97->regs[AC97_MASTER] = val;
1903                 outw(val, chip->io_port + ESM_AC97_DATA);
1904                 outb(AC97_MASTER, chip->io_port + ESM_AC97_INDEX);
1905                 snd_ctl_notify(chip->card, SNDRV_CTL_EVENT_MASK_VALUE,
1906                                &chip->master_volume->id);
1907                 break;
1908         }
1909         spin_unlock_irqrestore(&chip->ac97_lock, flags);
1910 }
1911
1912 /*
1913  * interrupt handler
1914  */
1915 static irqreturn_t snd_es1968_interrupt(int irq, void *dev_id)
1916 {
1917         struct es1968 *chip = dev_id;
1918         u32 event;
1919
1920         if (!(event = inb(chip->io_port + 0x1A)))
1921                 return IRQ_NONE;
1922
1923         outw(inw(chip->io_port + 4) & 1, chip->io_port + 4);
1924
1925         if (event & ESM_HWVOL_IRQ)
1926                 tasklet_hi_schedule(&chip->hwvol_tq); /* we'll do this later */
1927
1928         /* else ack 'em all, i imagine */
1929         outb(0xFF, chip->io_port + 0x1A);
1930
1931         if ((event & ESM_MPU401_IRQ) && chip->rmidi) {
1932                 snd_mpu401_uart_interrupt(irq, chip->rmidi->private_data);
1933         }
1934
1935         if (event & ESM_SOUND_IRQ) {
1936                 struct esschan *es;
1937                 spin_lock(&chip->substream_lock);
1938                 list_for_each_entry(es, &chip->substream_list, list) {
1939                         if (es->running)
1940                                 snd_es1968_update_pcm(chip, es);
1941                 }
1942                 spin_unlock(&chip->substream_lock);
1943                 if (chip->in_measurement) {
1944                         unsigned int curp = __apu_get_register(chip, chip->measure_apu, 5);
1945                         if (curp < chip->measure_lastpos)
1946                                 chip->measure_count++;
1947                         chip->measure_lastpos = curp;
1948                 }
1949         }
1950
1951         return IRQ_HANDLED;
1952 }
1953
1954 /*
1955  *  Mixer stuff
1956  */
1957
1958 static int __devinit
1959 snd_es1968_mixer(struct es1968 *chip)
1960 {
1961         struct snd_ac97_bus *pbus;
1962         struct snd_ac97_template ac97;
1963         struct snd_ctl_elem_id id;
1964         int err;
1965         static struct snd_ac97_bus_ops ops = {
1966                 .write = snd_es1968_ac97_write,
1967                 .read = snd_es1968_ac97_read,
1968         };
1969
1970         if ((err = snd_ac97_bus(chip->card, 0, &ops, NULL, &pbus)) < 0)
1971                 return err;
1972         pbus->no_vra = 1; /* ES1968 doesn't need VRA */
1973
1974         memset(&ac97, 0, sizeof(ac97));
1975         ac97.private_data = chip;
1976         if ((err = snd_ac97_mixer(pbus, &ac97, &chip->ac97)) < 0)
1977                 return err;
1978
1979         /* attach master switch / volumes for h/w volume control */
1980         memset(&id, 0, sizeof(id));
1981         id.iface = SNDRV_CTL_ELEM_IFACE_MIXER;
1982         strcpy(id.name, "Master Playback Switch");
1983         chip->master_switch = snd_ctl_find_id(chip->card, &id);
1984         memset(&id, 0, sizeof(id));
1985         id.iface = SNDRV_CTL_ELEM_IFACE_MIXER;
1986         strcpy(id.name, "Master Playback Volume");
1987         chip->master_volume = snd_ctl_find_id(chip->card, &id);
1988
1989         return 0;
1990 }
1991
1992 /*
1993  * reset ac97 codec
1994  */
1995
1996 static void snd_es1968_ac97_reset(struct es1968 *chip)
1997 {
1998         unsigned long ioaddr = chip->io_port;
1999
2000         unsigned short save_ringbus_a;
2001         unsigned short save_68;
2002         unsigned short w;
2003         unsigned int vend;
2004
2005         /* save configuration */
2006         save_ringbus_a = inw(ioaddr + 0x36);
2007
2008         //outw(inw(ioaddr + 0x38) & 0xfffc, ioaddr + 0x38); /* clear second codec id? */
2009         /* set command/status address i/o to 1st codec */
2010         outw(inw(ioaddr + 0x3a) & 0xfffc, ioaddr + 0x3a);
2011         outw(inw(ioaddr + 0x3c) & 0xfffc, ioaddr + 0x3c);
2012
2013         /* disable ac link */
2014         outw(0x0000, ioaddr + 0x36);
2015         save_68 = inw(ioaddr + 0x68);
2016         pci_read_config_word(chip->pci, 0x58, &w);      /* something magical with gpio and bus arb. */
2017         pci_read_config_dword(chip->pci, PCI_SUBSYSTEM_VENDOR_ID, &vend);
2018         if (w & 1)
2019                 save_68 |= 0x10;
2020         outw(0xfffe, ioaddr + 0x64);    /* unmask gpio 0 */
2021         outw(0x0001, ioaddr + 0x68);    /* gpio write */
2022         outw(0x0000, ioaddr + 0x60);    /* write 0 to gpio 0 */
2023         udelay(20);
2024         outw(0x0001, ioaddr + 0x60);    /* write 1 to gpio 1 */
2025         msleep(20);
2026
2027         outw(save_68 | 0x1, ioaddr + 0x68);     /* now restore .. */
2028         outw((inw(ioaddr + 0x38) & 0xfffc) | 0x1, ioaddr + 0x38);
2029         outw((inw(ioaddr + 0x3a) & 0xfffc) | 0x1, ioaddr + 0x3a);
2030         outw((inw(ioaddr + 0x3c) & 0xfffc) | 0x1, ioaddr + 0x3c);
2031
2032         /* now the second codec */
2033         /* disable ac link */
2034         outw(0x0000, ioaddr + 0x36);
2035         outw(0xfff7, ioaddr + 0x64);    /* unmask gpio 3 */
2036         save_68 = inw(ioaddr + 0x68);
2037         outw(0x0009, ioaddr + 0x68);    /* gpio write 0 & 3 ?? */
2038         outw(0x0001, ioaddr + 0x60);    /* write 1 to gpio */
2039         udelay(20);
2040         outw(0x0009, ioaddr + 0x60);    /* write 9 to gpio */
2041         msleep(500);
2042         //outw(inw(ioaddr + 0x38) & 0xfffc, ioaddr + 0x38);
2043         outw(inw(ioaddr + 0x3a) & 0xfffc, ioaddr + 0x3a);
2044         outw(inw(ioaddr + 0x3c) & 0xfffc, ioaddr + 0x3c);
2045
2046 #if 0                           /* the loop here needs to be much better if we want it.. */
2047         snd_printk(KERN_INFO "trying software reset\n");
2048         /* try and do a software reset */
2049         outb(0x80 | 0x7c, ioaddr + 0x30);
2050         for (w = 0;; w++) {
2051                 if ((inw(ioaddr + 0x30) & 1) == 0) {
2052                         if (inb(ioaddr + 0x32) != 0)
2053                                 break;
2054
2055                         outb(0x80 | 0x7d, ioaddr + 0x30);
2056                         if (((inw(ioaddr + 0x30) & 1) == 0)
2057                             && (inb(ioaddr + 0x32) != 0))
2058                                 break;
2059                         outb(0x80 | 0x7f, ioaddr + 0x30);
2060                         if (((inw(ioaddr + 0x30) & 1) == 0)
2061                             && (inb(ioaddr + 0x32) != 0))
2062                                 break;
2063                 }
2064
2065                 if (w > 10000) {
2066                         outb(inb(ioaddr + 0x37) | 0x08, ioaddr + 0x37); /* do a software reset */
2067                         msleep(500);    /* oh my.. */
2068                         outb(inb(ioaddr + 0x37) & ~0x08,
2069                                 ioaddr + 0x37);
2070                         udelay(1);
2071                         outw(0x80, ioaddr + 0x30);
2072                         for (w = 0; w < 10000; w++) {
2073                                 if ((inw(ioaddr + 0x30) & 1) == 0)
2074                                         break;
2075                         }
2076                 }
2077         }
2078 #endif
2079         if (vend == NEC_VERSA_SUBID1 || vend == NEC_VERSA_SUBID2) {
2080                 /* turn on external amp? */
2081                 outw(0xf9ff, ioaddr + 0x64);
2082                 outw(inw(ioaddr + 0x68) | 0x600, ioaddr + 0x68);
2083                 outw(0x0209, ioaddr + 0x60);
2084         }
2085
2086         /* restore.. */
2087         outw(save_ringbus_a, ioaddr + 0x36);
2088
2089         /* Turn on the 978 docking chip.
2090            First frob the "master output enable" bit,
2091            then set most of the playback volume control registers to max. */
2092         outb(inb(ioaddr+0xc0)|(1<<5), ioaddr+0xc0);
2093         outb(0xff, ioaddr+0xc3);
2094         outb(0xff, ioaddr+0xc4);
2095         outb(0xff, ioaddr+0xc6);
2096         outb(0xff, ioaddr+0xc8);
2097         outb(0x3f, ioaddr+0xcf);
2098         outb(0x3f, ioaddr+0xd0);
2099 }
2100
2101 static void snd_es1968_reset(struct es1968 *chip)
2102 {
2103         /* Reset */
2104         outw(ESM_RESET_MAESTRO | ESM_RESET_DIRECTSOUND,
2105              chip->io_port + ESM_PORT_HOST_IRQ);
2106         udelay(10);
2107         outw(0x0000, chip->io_port + ESM_PORT_HOST_IRQ);
2108         udelay(10);
2109 }
2110
2111 /*
2112  * initialize maestro chip
2113  */
2114 static void snd_es1968_chip_init(struct es1968 *chip)
2115 {
2116         struct pci_dev *pci = chip->pci;
2117         int i;
2118         unsigned long iobase  = chip->io_port;
2119         u16 w;
2120         u32 n;
2121
2122         /* We used to muck around with pci config space that
2123          * we had no business messing with.  We don't know enough
2124          * about the machine to know which DMA mode is appropriate, 
2125          * etc.  We were guessing wrong on some machines and making
2126          * them unhappy.  We now trust in the BIOS to do things right,
2127          * which almost certainly means a new host of problems will
2128          * arise with broken BIOS implementations.  screw 'em. 
2129          * We're already intolerant of machines that don't assign
2130          * IRQs.
2131          */
2132         
2133         /* Config Reg A */
2134         pci_read_config_word(pci, ESM_CONFIG_A, &w);
2135
2136         w &= ~DMA_CLEAR;        /* Clear DMA bits */
2137         w &= ~(PIC_SNOOP1 | PIC_SNOOP2);        /* Clear Pic Snoop Mode Bits */
2138         w &= ~SAFEGUARD;        /* Safeguard off */
2139         w |= POST_WRITE;        /* Posted write */
2140         w |= PCI_TIMING;        /* PCI timing on */
2141         /* XXX huh?  claims to be reserved.. */
2142         w &= ~SWAP_LR;          /* swap left/right 
2143                                    seems to only have effect on SB
2144                                    Emulation */
2145         w &= ~SUBTR_DECODE;     /* Subtractive decode off */
2146
2147         pci_write_config_word(pci, ESM_CONFIG_A, w);
2148
2149         /* Config Reg B */
2150
2151         pci_read_config_word(pci, ESM_CONFIG_B, &w);
2152
2153         w &= ~(1 << 15);        /* Turn off internal clock multiplier */
2154         /* XXX how do we know which to use? */
2155         w &= ~(1 << 14);        /* External clock */
2156
2157         w &= ~SPDIF_CONFB;      /* disable S/PDIF output */
2158         w |= HWV_CONFB;         /* HWV on */
2159         w |= DEBOUNCE;          /* Debounce off: easier to push the HW buttons */
2160         w &= ~GPIO_CONFB;       /* GPIO 4:5 */
2161         w |= CHI_CONFB;         /* Disconnect from the CHI.  Enabling this made a dell 7500 work. */
2162         w &= ~IDMA_CONFB;       /* IDMA off (undocumented) */
2163         w &= ~MIDI_FIX;         /* MIDI fix off (undoc) */
2164         w &= ~(1 << 1);         /* reserved, always write 0 */
2165         w &= ~IRQ_TO_ISA;       /* IRQ to ISA off (undoc) */
2166
2167         pci_write_config_word(pci, ESM_CONFIG_B, w);
2168
2169         /* DDMA off */
2170
2171         pci_read_config_word(pci, ESM_DDMA, &w);
2172         w &= ~(1 << 0);
2173         pci_write_config_word(pci, ESM_DDMA, w);
2174
2175         /*
2176          *      Legacy mode
2177          */
2178
2179         pci_read_config_word(pci, ESM_LEGACY_AUDIO_CONTROL, &w);
2180
2181         w |= ESS_DISABLE_AUDIO; /* Disable Legacy Audio */
2182         w &= ~ESS_ENABLE_SERIAL_IRQ;    /* Disable SIRQ */
2183         w &= ~(0x1f);           /* disable mpu irq/io, game port, fm, SB */
2184
2185         pci_write_config_word(pci, ESM_LEGACY_AUDIO_CONTROL, w);
2186
2187         /* Set up 978 docking control chip. */
2188         pci_read_config_word(pci, 0x58, &w);
2189         w|=1<<2;        /* Enable 978. */
2190         w|=1<<3;        /* Turn on 978 hardware volume control. */
2191         w&=~(1<<11);    /* Turn on 978 mixer volume control. */
2192         pci_write_config_word(pci, 0x58, w);
2193         
2194         /* Sound Reset */
2195
2196         snd_es1968_reset(chip);
2197
2198         /*
2199          *      Ring Bus Setup
2200          */
2201
2202         /* setup usual 0x34 stuff.. 0x36 may be chip specific */
2203         outw(0xC090, iobase + ESM_RING_BUS_DEST); /* direct sound, stereo */
2204         udelay(20);
2205         outw(0x3000, iobase + ESM_RING_BUS_CONTR_A); /* enable ringbus/serial */
2206         udelay(20);
2207
2208         /*
2209          *      Reset the CODEC
2210          */
2211          
2212         snd_es1968_ac97_reset(chip);
2213
2214         /* Ring Bus Control B */
2215
2216         n = inl(iobase + ESM_RING_BUS_CONTR_B);
2217         n &= ~RINGB_EN_SPDIF;   /* SPDIF off */
2218         //w |= RINGB_EN_2CODEC; /* enable 2nd codec */
2219         outl(n, iobase + ESM_RING_BUS_CONTR_B);
2220
2221         /* Set hardware volume control registers to midpoints.
2222            We can tell which button was pushed based on how they change. */
2223         outb(0x88, iobase+0x1c);
2224         outb(0x88, iobase+0x1d);
2225         outb(0x88, iobase+0x1e);
2226         outb(0x88, iobase+0x1f);
2227
2228         /* it appears some maestros (dell 7500) only work if these are set,
2229            regardless of wether we use the assp or not. */
2230
2231         outb(0, iobase + ASSP_CONTROL_B);
2232         outb(3, iobase + ASSP_CONTROL_A);       /* M: Reserved bits... */
2233         outb(0, iobase + ASSP_CONTROL_C);       /* M: Disable ASSP, ASSP IRQ's and FM Port */
2234
2235         /*
2236          * set up wavecache
2237          */
2238         for (i = 0; i < 16; i++) {
2239                 /* Write 0 into the buffer area 0x1E0->1EF */
2240                 outw(0x01E0 + i, iobase + WC_INDEX);
2241                 outw(0x0000, iobase + WC_DATA);
2242
2243                 /* The 1.10 test program seem to write 0 into the buffer area
2244                  * 0x1D0-0x1DF too.*/
2245                 outw(0x01D0 + i, iobase + WC_INDEX);
2246                 outw(0x0000, iobase + WC_DATA);
2247         }
2248         wave_set_register(chip, IDR7_WAVE_ROMRAM,
2249                           (wave_get_register(chip, IDR7_WAVE_ROMRAM) & 0xFF00));
2250         wave_set_register(chip, IDR7_WAVE_ROMRAM,
2251                           wave_get_register(chip, IDR7_WAVE_ROMRAM) | 0x100);
2252         wave_set_register(chip, IDR7_WAVE_ROMRAM,
2253                           wave_get_register(chip, IDR7_WAVE_ROMRAM) & ~0x200);
2254         wave_set_register(chip, IDR7_WAVE_ROMRAM,
2255                           wave_get_register(chip, IDR7_WAVE_ROMRAM) | ~0x400);
2256
2257
2258         maestro_write(chip, IDR2_CRAM_DATA, 0x0000);
2259         /* Now back to the DirectSound stuff */
2260         /* audio serial configuration.. ? */
2261         maestro_write(chip, 0x08, 0xB004);
2262         maestro_write(chip, 0x09, 0x001B);
2263         maestro_write(chip, 0x0A, 0x8000);
2264         maestro_write(chip, 0x0B, 0x3F37);
2265         maestro_write(chip, 0x0C, 0x0098);
2266
2267         /* parallel in, has something to do with recording :) */
2268         maestro_write(chip, 0x0C,
2269                       (maestro_read(chip, 0x0C) & ~0xF000) | 0x8000);
2270         /* parallel out */
2271         maestro_write(chip, 0x0C,
2272                       (maestro_read(chip, 0x0C) & ~0x0F00) | 0x0500);
2273
2274         maestro_write(chip, 0x0D, 0x7632);
2275
2276         /* Wave cache control on - test off, sg off, 
2277            enable, enable extra chans 1Mb */
2278
2279         w = inw(iobase + WC_CONTROL);
2280
2281         w &= ~0xFA00;           /* Seems to be reserved? I don't know */
2282         w |= 0xA000;            /* reserved... I don't know */
2283         w &= ~0x0200;           /* Channels 56,57,58,59 as Extra Play,Rec Channel enable
2284                                    Seems to crash the Computer if enabled... */
2285         w |= 0x0100;            /* Wave Cache Operation Enabled */
2286         w |= 0x0080;            /* Channels 60/61 as Placback/Record enabled */
2287         w &= ~0x0060;           /* Clear Wavtable Size */
2288         w |= 0x0020;            /* Wavetable Size : 1MB */
2289         /* Bit 4 is reserved */
2290         w &= ~0x000C;           /* DMA Stuff? I don't understand what the datasheet means */
2291         /* Bit 1 is reserved */
2292         w &= ~0x0001;           /* Test Mode off */
2293
2294         outw(w, iobase + WC_CONTROL);
2295
2296         /* Now clear the APU control ram */
2297         for (i = 0; i < NR_APUS; i++) {
2298                 for (w = 0; w < NR_APU_REGS; w++)
2299                         apu_set_register(chip, i, w, 0);
2300
2301         }
2302 }
2303
2304 /* Enable IRQ's */
2305 static void snd_es1968_start_irq(struct es1968 *chip)
2306 {
2307         unsigned short w;
2308         w = ESM_HIRQ_DSIE | ESM_HIRQ_HW_VOLUME;
2309         if (chip->rmidi)
2310                 w |= ESM_HIRQ_MPU401;
2311         outw(w, chip->io_port + ESM_PORT_HOST_IRQ);
2312 }
2313
2314 #ifdef CONFIG_PM
2315 /*
2316  * PM support
2317  */
2318 static int es1968_suspend(struct pci_dev *pci, pm_message_t state)
2319 {
2320         struct snd_card *card = pci_get_drvdata(pci);
2321         struct es1968 *chip = card->private_data;
2322
2323         if (! chip->do_pm)
2324                 return 0;
2325
2326         chip->in_suspend = 1;
2327         snd_power_change_state(card, SNDRV_CTL_POWER_D3hot);
2328         snd_pcm_suspend_all(chip->pcm);
2329         snd_ac97_suspend(chip->ac97);
2330         snd_es1968_bob_stop(chip);
2331
2332         pci_disable_device(pci);
2333         pci_save_state(pci);
2334         pci_set_power_state(pci, pci_choose_state(pci, state));
2335         return 0;
2336 }
2337
2338 static int es1968_resume(struct pci_dev *pci)
2339 {
2340         struct snd_card *card = pci_get_drvdata(pci);
2341         struct es1968 *chip = card->private_data;
2342         struct esschan *es;
2343
2344         if (! chip->do_pm)
2345                 return 0;
2346
2347         /* restore all our config */
2348         pci_set_power_state(pci, PCI_D0);
2349         pci_restore_state(pci);
2350         if (pci_enable_device(pci) < 0) {
2351                 printk(KERN_ERR "es1968: pci_enable_device failed, "
2352                        "disabling device\n");
2353                 snd_card_disconnect(card);
2354                 return -EIO;
2355         }
2356         pci_set_master(pci);
2357
2358         snd_es1968_chip_init(chip);
2359
2360         /* need to restore the base pointers.. */ 
2361         if (chip->dma.addr) {
2362                 /* set PCMBAR */
2363                 wave_set_register(chip, 0x01FC, chip->dma.addr >> 12);
2364         }
2365
2366         snd_es1968_start_irq(chip);
2367
2368         /* restore ac97 state */
2369         snd_ac97_resume(chip->ac97);
2370
2371         list_for_each_entry(es, &chip->substream_list, list) {
2372                 switch (es->mode) {
2373                 case ESM_MODE_PLAY:
2374                         snd_es1968_playback_setup(chip, es, es->substream->runtime);
2375                         break;
2376                 case ESM_MODE_CAPTURE:
2377                         snd_es1968_capture_setup(chip, es, es->substream->runtime);
2378                         break;
2379                 }
2380         }
2381
2382         /* start timer again */
2383         if (chip->bobclient)
2384                 snd_es1968_bob_start(chip);
2385
2386         snd_power_change_state(card, SNDRV_CTL_POWER_D0);
2387         chip->in_suspend = 0;
2388         return 0;
2389 }
2390 #endif /* CONFIG_PM */
2391
2392 #ifdef SUPPORT_JOYSTICK
2393 #define JOYSTICK_ADDR   0x200
2394 static int __devinit snd_es1968_create_gameport(struct es1968 *chip, int dev)
2395 {
2396         struct gameport *gp;
2397         struct resource *r;
2398         u16 val;
2399
2400         if (!joystick[dev])
2401                 return -ENODEV;
2402
2403         r = request_region(JOYSTICK_ADDR, 8, "ES1968 gameport");
2404         if (!r)
2405                 return -EBUSY;
2406
2407         chip->gameport = gp = gameport_allocate_port();
2408         if (!gp) {
2409                 printk(KERN_ERR "es1968: cannot allocate memory for gameport\n");
2410                 release_and_free_resource(r);
2411                 return -ENOMEM;
2412         }
2413
2414         pci_read_config_word(chip->pci, ESM_LEGACY_AUDIO_CONTROL, &val);
2415         pci_write_config_word(chip->pci, ESM_LEGACY_AUDIO_CONTROL, val | 0x04);
2416
2417         gameport_set_name(gp, "ES1968 Gameport");
2418         gameport_set_phys(gp, "pci%s/gameport0", pci_name(chip->pci));
2419         gameport_set_dev_parent(gp, &chip->pci->dev);
2420         gp->io = JOYSTICK_ADDR;
2421         gameport_set_port_data(gp, r);
2422
2423         gameport_register_port(gp);
2424
2425         return 0;
2426 }
2427
2428 static void snd_es1968_free_gameport(struct es1968 *chip)
2429 {
2430         if (chip->gameport) {
2431                 struct resource *r = gameport_get_port_data(chip->gameport);
2432
2433                 gameport_unregister_port(chip->gameport);
2434                 chip->gameport = NULL;
2435
2436                 release_and_free_resource(r);
2437         }
2438 }
2439 #else
2440 static inline int snd_es1968_create_gameport(struct es1968 *chip, int dev) { return -ENOSYS; }
2441 static inline void snd_es1968_free_gameport(struct es1968 *chip) { }
2442 #endif
2443
2444 static int snd_es1968_free(struct es1968 *chip)
2445 {
2446         if (chip->io_port) {
2447                 synchronize_irq(chip->irq);
2448                 outw(1, chip->io_port + 0x04); /* clear WP interrupts */
2449                 outw(0, chip->io_port + ESM_PORT_HOST_IRQ); /* disable IRQ */
2450         }
2451
2452         if (chip->irq >= 0)
2453                 free_irq(chip->irq, chip);
2454         snd_es1968_free_gameport(chip);
2455         chip->master_switch = NULL;
2456         chip->master_volume = NULL;
2457         pci_release_regions(chip->pci);
2458         pci_disable_device(chip->pci);
2459         kfree(chip);
2460         return 0;
2461 }
2462
2463 static int snd_es1968_dev_free(struct snd_device *device)
2464 {
2465         struct es1968 *chip = device->device_data;
2466         return snd_es1968_free(chip);
2467 }
2468
2469 struct ess_device_list {
2470         unsigned short type;    /* chip type */
2471         unsigned short vendor;  /* subsystem vendor id */
2472 };
2473
2474 static struct ess_device_list pm_whitelist[] __devinitdata = {
2475         { TYPE_MAESTRO2E, 0x0e11 },     /* Compaq Armada */
2476         { TYPE_MAESTRO2E, 0x1028 },
2477         { TYPE_MAESTRO2E, 0x103c },
2478         { TYPE_MAESTRO2E, 0x1179 },
2479         { TYPE_MAESTRO2E, 0x14c0 },     /* HP omnibook 4150 */
2480         { TYPE_MAESTRO2E, 0x1558 },
2481 };
2482
2483 static struct ess_device_list mpu_blacklist[] __devinitdata = {
2484         { TYPE_MAESTRO2, 0x125d },
2485 };
2486
2487 static int __devinit snd_es1968_create(struct snd_card *card,
2488                                        struct pci_dev *pci,
2489                                        int total_bufsize,
2490                                        int play_streams,
2491                                        int capt_streams,
2492                                        int chip_type,
2493                                        int do_pm,
2494                                        struct es1968 **chip_ret)
2495 {
2496         static struct snd_device_ops ops = {
2497                 .dev_free =     snd_es1968_dev_free,
2498         };
2499         struct es1968 *chip;
2500         int i, err;
2501
2502         *chip_ret = NULL;
2503
2504         /* enable PCI device */
2505         if ((err = pci_enable_device(pci)) < 0)
2506                 return err;
2507         /* check, if we can restrict PCI DMA transfers to 28 bits */
2508         if (pci_set_dma_mask(pci, DMA_28BIT_MASK) < 0 ||
2509             pci_set_consistent_dma_mask(pci, DMA_28BIT_MASK) < 0) {
2510                 snd_printk(KERN_ERR "architecture does not support 28bit PCI busmaster DMA\n");
2511                 pci_disable_device(pci);
2512                 return -ENXIO;
2513         }
2514
2515         chip = kzalloc(sizeof(*chip), GFP_KERNEL);
2516         if (! chip) {
2517                 pci_disable_device(pci);
2518                 return -ENOMEM;
2519         }
2520
2521         /* Set Vars */
2522         chip->type = chip_type;
2523         spin_lock_init(&chip->reg_lock);
2524         spin_lock_init(&chip->substream_lock);
2525         INIT_LIST_HEAD(&chip->buf_list);
2526         INIT_LIST_HEAD(&chip->substream_list);
2527         spin_lock_init(&chip->ac97_lock);
2528         mutex_init(&chip->memory_mutex);
2529         tasklet_init(&chip->hwvol_tq, es1968_update_hw_volume, (unsigned long)chip);
2530         chip->card = card;
2531         chip->pci = pci;
2532         chip->irq = -1;
2533         chip->total_bufsize = total_bufsize;    /* in bytes */
2534         chip->playback_streams = play_streams;
2535         chip->capture_streams = capt_streams;
2536
2537         if ((err = pci_request_regions(pci, "ESS Maestro")) < 0) {
2538                 kfree(chip);
2539                 pci_disable_device(pci);
2540                 return err;
2541         }
2542         chip->io_port = pci_resource_start(pci, 0);
2543         if (request_irq(pci->irq, snd_es1968_interrupt, IRQF_SHARED,
2544                         "ESS Maestro", chip)) {
2545                 snd_printk(KERN_ERR "unable to grab IRQ %d\n", pci->irq);
2546                 snd_es1968_free(chip);
2547                 return -EBUSY;
2548         }
2549         chip->irq = pci->irq;
2550                 
2551         /* Clear Maestro_map */
2552         for (i = 0; i < 32; i++)
2553                 chip->maestro_map[i] = 0;
2554
2555         /* Clear Apu Map */
2556         for (i = 0; i < NR_APUS; i++)
2557                 chip->apu[i] = ESM_APU_FREE;
2558
2559         /* just to be sure */
2560         pci_set_master(pci);
2561
2562         if (do_pm > 1) {
2563                 /* disable power-management if not on the whitelist */
2564                 unsigned short vend;
2565                 pci_read_config_word(chip->pci, PCI_SUBSYSTEM_VENDOR_ID, &vend);
2566                 for (i = 0; i < (int)ARRAY_SIZE(pm_whitelist); i++) {
2567                         if (chip->type == pm_whitelist[i].type &&
2568                             vend == pm_whitelist[i].vendor) {
2569                                 do_pm = 1;
2570                                 break;
2571                         }
2572                 }
2573                 if (do_pm > 1) {
2574                         /* not matched; disabling pm */
2575                         printk(KERN_INFO "es1968: not attempting power management.\n");
2576                         do_pm = 0;
2577                 }
2578         }
2579         chip->do_pm = do_pm;
2580
2581         snd_es1968_chip_init(chip);
2582
2583         if ((err = snd_device_new(card, SNDRV_DEV_LOWLEVEL, chip, &ops)) < 0) {
2584                 snd_es1968_free(chip);
2585                 return err;
2586         }
2587
2588         snd_card_set_dev(card, &pci->dev);
2589
2590         *chip_ret = chip;
2591
2592         return 0;
2593 }
2594
2595
2596 /*
2597  */
2598 static int __devinit snd_es1968_probe(struct pci_dev *pci,
2599                                       const struct pci_device_id *pci_id)
2600 {
2601         static int dev;
2602         struct snd_card *card;
2603         struct es1968 *chip;
2604         unsigned int i;
2605         int err;
2606
2607         if (dev >= SNDRV_CARDS)
2608                 return -ENODEV;
2609         if (!enable[dev]) {
2610                 dev++;
2611                 return -ENOENT;
2612         }
2613
2614         card = snd_card_new(index[dev], id[dev], THIS_MODULE, 0);
2615         if (!card)
2616                 return -ENOMEM;
2617                 
2618         if (total_bufsize[dev] < 128)
2619                 total_bufsize[dev] = 128;
2620         if (total_bufsize[dev] > 4096)
2621                 total_bufsize[dev] = 4096;
2622         if ((err = snd_es1968_create(card, pci,
2623                                      total_bufsize[dev] * 1024, /* in bytes */
2624                                      pcm_substreams_p[dev], 
2625                                      pcm_substreams_c[dev],
2626                                      pci_id->driver_data,
2627                                      use_pm[dev],
2628                                      &chip)) < 0) {
2629                 snd_card_free(card);
2630                 return err;
2631         }
2632         card->private_data = chip;
2633
2634         switch (chip->type) {
2635         case TYPE_MAESTRO2E:
2636                 strcpy(card->driver, "ES1978");
2637                 strcpy(card->shortname, "ESS ES1978 (Maestro 2E)");
2638                 break;
2639         case TYPE_MAESTRO2:
2640                 strcpy(card->driver, "ES1968");
2641                 strcpy(card->shortname, "ESS ES1968 (Maestro 2)");
2642                 break;
2643         case TYPE_MAESTRO:
2644                 strcpy(card->driver, "ESM1");
2645                 strcpy(card->shortname, "ESS Maestro 1");
2646                 break;
2647         }
2648
2649         if ((err = snd_es1968_pcm(chip, 0)) < 0) {
2650                 snd_card_free(card);
2651                 return err;
2652         }
2653
2654         if ((err = snd_es1968_mixer(chip)) < 0) {
2655                 snd_card_free(card);
2656                 return err;
2657         }
2658
2659         if (enable_mpu[dev] == 2) {
2660                 /* check the black list */
2661                 unsigned short vend;
2662                 pci_read_config_word(chip->pci, PCI_SUBSYSTEM_VENDOR_ID, &vend);
2663                 for (i = 0; i < ARRAY_SIZE(mpu_blacklist); i++) {
2664                         if (chip->type == mpu_blacklist[i].type &&
2665                             vend == mpu_blacklist[i].vendor) {
2666                                 enable_mpu[dev] = 0;
2667                                 break;
2668                         }
2669                 }
2670         }
2671         if (enable_mpu[dev]) {
2672                 if ((err = snd_mpu401_uart_new(card, 0, MPU401_HW_MPU401,
2673                                                chip->io_port + ESM_MPU401_PORT,
2674                                                MPU401_INFO_INTEGRATED,
2675                                                chip->irq, 0, &chip->rmidi)) < 0) {
2676                         printk(KERN_WARNING "es1968: skipping MPU-401 MIDI support..\n");
2677                 }
2678         }
2679
2680         snd_es1968_create_gameport(chip, dev);
2681
2682         snd_es1968_start_irq(chip);
2683
2684         chip->clock = clock[dev];
2685         if (! chip->clock)
2686                 es1968_measure_clock(chip);
2687
2688         sprintf(card->longname, "%s at 0x%lx, irq %i",
2689                 card->shortname, chip->io_port, chip->irq);
2690
2691         if ((err = snd_card_register(card)) < 0) {
2692                 snd_card_free(card);
2693                 return err;
2694         }
2695         pci_set_drvdata(pci, card);
2696         dev++;
2697         return 0;
2698 }
2699
2700 static void __devexit snd_es1968_remove(struct pci_dev *pci)
2701 {
2702         snd_card_free(pci_get_drvdata(pci));
2703         pci_set_drvdata(pci, NULL);
2704 }
2705
2706 static struct pci_driver driver = {
2707         .name = "ES1968 (ESS Maestro)",
2708         .id_table = snd_es1968_ids,
2709         .probe = snd_es1968_probe,
2710         .remove = __devexit_p(snd_es1968_remove),
2711 #ifdef CONFIG_PM
2712         .suspend = es1968_suspend,
2713         .resume = es1968_resume,
2714 #endif
2715 };
2716
2717 static int __init alsa_card_es1968_init(void)
2718 {
2719         return pci_register_driver(&driver);
2720 }
2721
2722 static void __exit alsa_card_es1968_exit(void)
2723 {
2724         pci_unregister_driver(&driver);
2725 }
2726
2727 module_init(alsa_card_es1968_init)
2728 module_exit(alsa_card_es1968_exit)