sys/dev/sound/pci/als4000.c

   1 /*-
   2  * Copyright (c) 2001 Orion Hodson <oho@acm.org>
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHERIN CONTRACT, STRICT
  22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THEPOSSIBILITY OF
  24  * SUCH DAMAGE.
  25  */
  26
  27 /*
  28  * als4000.c - driver for the Avance Logic ALS 4000 chipset.
  29  *
  30  * The ALS4000 is effectively an SB16 with a PCI interface.
  31  *
  32  * This driver derives from ALS4000a.PDF, Bart Hartgers alsa driver, and
  33  * SB16 register descriptions.
  34  */
  35
  36 #ifdef HAVE_KERNEL_OPTION_HEADERS
  37 #include "opt_snd.h"
  38 #endif
  39
  40 #include <dev/sound/pcm/sound.h>
  41 #include <dev/sound/pci/sb.h>
  42 #include <dev/sound/pci/als4000.h>
  43
  44 #include <dev/pci/pcireg.h>
  45 #include <dev/pci/pcivar.h>
  46
  47 #include "mixer_if.h"
  48
  49 SND_DECLARE_FILE("$FreeBSD: head/sys/dev/sound/pci/als4000.c 274035 2014-11-03 11:11:45Z bapt $");
  50
  51 /* Debugging macro's */
  52 #undef DEB
  53 #ifndef DEB
  54 #define DEB(x)  /* x */
  55 #endif /* DEB */
  56
  57 #define ALS_DEFAULT_BUFSZ 16384
  58
  59 /* ------------------------------------------------------------------------- */
  60 /* Structures */
  61
  62 struct sc_info;
  63
  64 struct sc_chinfo {
  65         struct sc_info          *parent;
  66         struct pcm_channel      *channel;
  67         struct snd_dbuf         *buffer;
  68         u_int32_t               format, speed, phys_buf, bps;
  69         u_int32_t               dma_active:1, dma_was_active:1;
  70         u_int8_t                gcr_fifo_status;
  71         int                     dir;
  72 };
  73
  74 struct sc_info {
  75         device_t                dev;
  76         bus_space_tag_t         st;
  77         bus_space_handle_t      sh;
  78         bus_dma_tag_t           parent_dmat;
  79         struct resource         *reg, *irq;
  80         int                     regid, irqid;
  81         void                    *ih;
  82         struct mtx              *lock;
  83
  84         unsigned int            bufsz;
  85         struct sc_chinfo        pch, rch;
  86 };
  87
  88 /* Channel caps */
  89
  90 static u_int32_t als_format[] = {
  91         SND_FORMAT(AFMT_U8, 1, 0),
  92         SND_FORMAT(AFMT_U8, 2, 0),
  93         SND_FORMAT(AFMT_S16_LE, 1, 0),
  94         SND_FORMAT(AFMT_S16_LE, 2, 0),
  95         0
  96 };
  97
  98 /*
  99  * I don't believe this rotten soundcard can do 48k, really,
 100  * trust me.
 101  */
 102 static struct pcmchan_caps als_caps = { 4000, 44100, als_format, 0 };
 103
 104 /* ------------------------------------------------------------------------- */
 105 /* Register Utilities */
 106
 107 static u_int32_t
 108 als_gcr_rd(struct sc_info *sc, int index)
 109 {
 110         bus_space_write_1(sc->st, sc->sh, ALS_GCR_INDEX, index);
 111         return bus_space_read_4(sc->st, sc->sh, ALS_GCR_DATA);
 112 }
 113
 114 static void
 115 als_gcr_wr(struct sc_info *sc, int index, int data)
 116 {
 117         bus_space_write_1(sc->st, sc->sh, ALS_GCR_INDEX, index);
 118         bus_space_write_4(sc->st, sc->sh, ALS_GCR_DATA, data);
 119 }
 120
 121 static u_int8_t
 122 als_intr_rd(struct sc_info *sc)
 123 {
 124         return bus_space_read_1(sc->st, sc->sh, ALS_SB_MPU_IRQ);
 125 }
 126
 127 static void
 128 als_intr_wr(struct sc_info *sc, u_int8_t data)
 129 {
 130         bus_space_write_1(sc->st, sc->sh, ALS_SB_MPU_IRQ, data);
 131 }
 132
 133 static u_int8_t
 134 als_mix_rd(struct sc_info *sc, u_int8_t index)
 135 {
 136         bus_space_write_1(sc->st, sc->sh, ALS_MIXER_INDEX, index);
 137         return bus_space_read_1(sc->st, sc->sh, ALS_MIXER_DATA);
 138 }
 139
 140 static void
 141 als_mix_wr(struct sc_info *sc, u_int8_t index, u_int8_t data)
 142 {
 143         bus_space_write_1(sc->st, sc->sh, ALS_MIXER_INDEX, index);
 144         bus_space_write_1(sc->st, sc->sh, ALS_MIXER_DATA, data);
 145 }
 146
 147 static void
 148 als_esp_wr(struct sc_info *sc, u_int8_t data)
 149 {
 150         u_int32_t       tries, v;
 151
 152         tries = 1000;
 153         do {
 154                 v = bus_space_read_1(sc->st, sc->sh, ALS_ESP_WR_STATUS);
 155                 if (~v & 0x80)
 156                         break;
 157                 DELAY(20);
 158         } while (--tries != 0);
 159
 160         if (tries == 0)
 161                 device_printf(sc->dev, "als_esp_wr timeout");
 162
 163         bus_space_write_1(sc->st, sc->sh, ALS_ESP_WR_DATA, data);
 164 }
 165
 166 static int
 167 als_esp_reset(struct sc_info *sc)
 168 {
 169         u_int32_t       tries, u, v;
 170
 171         bus_space_write_1(sc->st, sc->sh, ALS_ESP_RST, 1);
 172         DELAY(10);
 173         bus_space_write_1(sc->st, sc->sh, ALS_ESP_RST, 0);
 174         DELAY(30);
 175
 176         tries = 1000;
 177         do {
 178                 u = bus_space_read_1(sc->st, sc->sh, ALS_ESP_RD_STATUS8);
 179                 if (u & 0x80) {
 180                         v = bus_space_read_1(sc->st, sc->sh, ALS_ESP_RD_DATA);
 181                         if (v == 0xaa)
 182                                 return 0;
 183                         else
 184                                 break;
 185                 }
 186                 DELAY(20);
 187         } while (--tries != 0);
 188
 189         if (tries == 0)
 190                 device_printf(sc->dev, "als_esp_reset timeout");
 191         return 1;
 192 }
 193
 194 static u_int8_t
 195 als_ack_read(struct sc_info *sc, u_int8_t addr)
 196 {
 197         u_int8_t r = bus_space_read_1(sc->st, sc->sh, addr);
 198         return r;
 199 }
 200
 201 /* ------------------------------------------------------------------------- */
 202 /* Common pcm channel implementation */
 203
 204 static void *
 205 alschan_init(kobj_t obj, void *devinfo,
 206              struct snd_dbuf *b, struct pcm_channel *c, int dir)
 207 {
 208         struct  sc_info *sc = devinfo;
 209         struct  sc_chinfo *ch;
 210
 211         snd_mtxlock(sc->lock);
 212         if (dir == PCMDIR_PLAY) {
 213                 ch = &sc->pch;
 214                 ch->gcr_fifo_status = ALS_GCR_FIFO0_STATUS;
 215         } else {
 216                 ch = &sc->rch;
 217                 ch->gcr_fifo_status = ALS_GCR_FIFO1_STATUS;
 218         }
 219         ch->dir = dir;
 220         ch->parent = sc;
 221         ch->channel = c;
 222         ch->bps = 1;
 223         ch->format = SND_FORMAT(AFMT_U8, 1, 0);
 224         ch->speed = DSP_DEFAULT_SPEED;
 225         ch->buffer = b;
 226         snd_mtxunlock(sc->lock);
 227
 228         if (sndbuf_alloc(ch->buffer, sc->parent_dmat, 0, sc->bufsz) != 0)
 229                 return NULL;
 230
 231         return ch;
 232 }
 233
 234 static int
 235 alschan_setformat(kobj_t obj, void *data, u_int32_t format)
 236 {
 237         struct  sc_chinfo *ch = data;
 238
 239         ch->format = format;
 240         return 0;
 241 }
 242
 243 static u_int32_t
 244 alschan_setspeed(kobj_t obj, void *data, u_int32_t speed)
 245 {
 246         struct  sc_chinfo *ch = data, *other;
 247         struct  sc_info *sc = ch->parent;
 248
 249         other = (ch->dir == PCMDIR_PLAY) ? &sc->rch : &sc->pch;
 250
 251         /* Deny request if other dma channel is active */
 252         if (other->dma_active) {
 253                 ch->speed = other->speed;
 254                 return other->speed;
 255         }
 256
 257         ch->speed = speed;
 258         return speed;
 259 }
 260
 261 static u_int32_t
 262 alschan_setblocksize(kobj_t obj, void *data, u_int32_t blocksize)
 263 {
 264         struct  sc_chinfo *ch = data;
 265         struct  sc_info *sc = ch->parent;
 266
 267         if (blocksize > sc->bufsz / 2) {
 268                 blocksize = sc->bufsz / 2;
 269         }
 270         sndbuf_resize(ch->buffer, 2, blocksize);
 271         return blocksize;
 272 }
 273
 274 static u_int32_t
 275 alschan_getptr(kobj_t obj, void *data)
 276 {
 277         struct sc_chinfo *ch = data;
 278         struct sc_info *sc = ch->parent;
 279         int32_t pos, sz;
 280
 281         snd_mtxlock(sc->lock);
 282         pos = als_gcr_rd(ch->parent, ch->gcr_fifo_status) & 0xffff;
 283         snd_mtxunlock(sc->lock);
 284         sz  = sndbuf_getsize(ch->buffer);
 285         return (2 * sz - pos - 1) % sz;
 286 }
 287
 288 static struct pcmchan_caps*
 289 alschan_getcaps(kobj_t obj, void *data)
 290 {
 291         return &als_caps;
 292 }
 293
 294 static void
 295 als_set_speed(struct sc_chinfo *ch)
 296 {
 297         struct sc_info *sc = ch->parent;
 298         struct sc_chinfo *other;
 299
 300         other = (ch->dir == PCMDIR_PLAY) ? &sc->rch : &sc->pch;
 301         if (other->dma_active == 0) {
 302                 als_esp_wr(sc, ALS_ESP_SAMPLE_RATE);
 303                 als_esp_wr(sc, ch->speed >> 8);
 304                 als_esp_wr(sc, ch->speed & 0xff);
 305         } else {
 306                 DEB(printf("speed locked at %d (tried %d)\n",
 307                            other->speed, ch->speed));
 308         }
 309 }
 310
 311 /* ------------------------------------------------------------------------- */
 312 /* Playback channel implementation */
 313
 314 #define ALS_8BIT_CMD(x, y)  { (x), (y), DSP_DMA8,  DSP_CMD_DMAPAUSE_8  }
 315 #define ALS_16BIT_CMD(x, y) { (x), (y), DSP_DMA16, DSP_CMD_DMAPAUSE_16 }
 316
 317 struct playback_command {
 318         u_int32_t pcm_format;   /* newpcm format */
 319         u_int8_t  format_val;   /* sb16 format value */
 320         u_int8_t  dma_prog;     /* sb16 dma program */
 321         u_int8_t  dma_stop;     /* sb16 stop register */
 322 } static const playback_cmds[] = {
 323         ALS_8BIT_CMD(SND_FORMAT(AFMT_U8, 1, 0), DSP_MODE_U8MONO),
 324         ALS_8BIT_CMD(SND_FORMAT(AFMT_U8, 2, 0), DSP_MODE_U8STEREO),
 325         ALS_16BIT_CMD(SND_FORMAT(AFMT_S16_LE, 1, 0), DSP_MODE_S16MONO),
 326         ALS_16BIT_CMD(SND_FORMAT(AFMT_S16_LE, 2, 0), DSP_MODE_S16STEREO),
 327 };
 328
 329 static const struct playback_command*
 330 als_get_playback_command(u_int32_t format)
 331 {
 332         u_int32_t i, n;
 333
 334         n = sizeof(playback_cmds) / sizeof(playback_cmds[0]);
 335         for (i = 0; i < n; i++) {
 336                 if (playback_cmds[i].pcm_format == format) {
 337                         return &playback_cmds[i];
 338                 }
 339         }
 340         DEB(printf("als_get_playback_command: invalid format 0x%08x\n",
 341                    format));
 342         return &playback_cmds[0];
 343 }
 344
 345 static void
 346 als_playback_start(struct sc_chinfo *ch)
 347 {
 348         const struct playback_command *p;
 349         struct  sc_info *sc = ch->parent;
 350         u_int32_t       buf, bufsz, count, dma_prog;
 351
 352         buf = sndbuf_getbufaddr(ch->buffer);
 353         bufsz = sndbuf_getsize(ch->buffer);
 354         count = bufsz / 2;
 355         if (ch->format & AFMT_16BIT)
 356                 count /= 2;
 357         count--;
 358
 359         als_esp_wr(sc, DSP_CMD_SPKON);
 360         als_set_speed(ch);
 361
 362         als_gcr_wr(sc, ALS_GCR_DMA0_START, buf);
 363         als_gcr_wr(sc, ALS_GCR_DMA0_MODE, (bufsz - 1) | 0x180000);
 364
 365         p = als_get_playback_command(ch->format);
 366         dma_prog = p->dma_prog | DSP_F16_DAC | DSP_F16_AUTO | DSP_F16_FIFO_ON;
 367
 368         als_esp_wr(sc, dma_prog);
 369         als_esp_wr(sc, p->format_val);
 370         als_esp_wr(sc, count & 0xff);
 371         als_esp_wr(sc, count >> 8);
 372
 373         ch->dma_active = 1;
 374 }
 375
 376 static int
 377 als_playback_stop(struct sc_chinfo *ch)
 378 {
 379         const struct playback_command *p;
 380         struct sc_info *sc = ch->parent;
 381         u_int32_t active;
 382
 383         active = ch->dma_active;
 384         if (active) {
 385                 p = als_get_playback_command(ch->format);
 386                 als_esp_wr(sc, p->dma_stop);
 387         }
 388         ch->dma_active = 0;
 389         return active;
 390 }
 391
 392 static int
 393 alspchan_trigger(kobj_t obj, void *data, int go)
 394 {
 395         struct  sc_chinfo *ch = data;
 396         struct sc_info *sc = ch->parent;
 397
 398         if (!PCMTRIG_COMMON(go))
 399                 return 0;
 400
 401         snd_mtxlock(sc->lock);
 402         switch(go) {
 403         case PCMTRIG_START:
 404                 als_playback_start(ch);
 405                 break;
 406         case PCMTRIG_STOP:
 407         case PCMTRIG_ABORT:
 408                 als_playback_stop(ch);
 409                 break;
 410         default:
 411                 break;
 412         }
 413         snd_mtxunlock(sc->lock);
 414         return 0;
 415 }
 416
 417 static kobj_method_t alspchan_methods[] = {
 418         KOBJMETHOD(channel_init,                alschan_init),
 419         KOBJMETHOD(channel_setformat,           alschan_setformat),
 420         KOBJMETHOD(channel_setspeed,            alschan_setspeed),
 421         KOBJMETHOD(channel_setblocksize,        alschan_setblocksize),
 422         KOBJMETHOD(channel_trigger,             alspchan_trigger),
 423         KOBJMETHOD(channel_getptr,              alschan_getptr),
 424         KOBJMETHOD(channel_getcaps,             alschan_getcaps),
 425         KOBJMETHOD_END
 426 };
 427 CHANNEL_DECLARE(alspchan);
 428
 429 /* ------------------------------------------------------------------------- */
 430 /* Capture channel implementation */
 431
 432 static u_int8_t
 433 als_get_fifo_format(struct sc_info *sc, u_int32_t format)
 434 {
 435         switch (format) {
 436         case SND_FORMAT(AFMT_U8, 1, 0):
 437                 return ALS_FIFO1_8BIT;
 438         case SND_FORMAT(AFMT_U8, 2, 0):
 439                 return ALS_FIFO1_8BIT | ALS_FIFO1_STEREO;
 440         case SND_FORMAT(AFMT_S16_LE, 1, 0):
 441                 return ALS_FIFO1_SIGNED;
 442         case SND_FORMAT(AFMT_S16_LE, 2, 0):
 443                 return ALS_FIFO1_SIGNED | ALS_FIFO1_STEREO;
 444         }
 445         device_printf(sc->dev, "format not found: 0x%08x\n", format);
 446         return ALS_FIFO1_8BIT;
 447 }
 448
 449 static void
 450 als_capture_start(struct sc_chinfo *ch)
 451 {
 452         struct  sc_info *sc = ch->parent;
 453         u_int32_t       buf, bufsz, count, dma_prog;
 454
 455         buf = sndbuf_getbufaddr(ch->buffer);
 456         bufsz = sndbuf_getsize(ch->buffer);
 457         count = bufsz / 2;
 458         if (ch->format & AFMT_16BIT)
 459                 count /= 2;
 460         count--;
 461
 462         als_esp_wr(sc, DSP_CMD_SPKON);
 463         als_set_speed(ch);
 464
 465         als_gcr_wr(sc, ALS_GCR_FIFO1_START, buf);
 466         als_gcr_wr(sc, ALS_GCR_FIFO1_COUNT, (bufsz - 1));
 467
 468         als_mix_wr(sc, ALS_FIFO1_LENGTH_LO, count & 0xff);
 469         als_mix_wr(sc, ALS_FIFO1_LENGTH_HI, count >> 8);
 470
 471         dma_prog = ALS_FIFO1_RUN | als_get_fifo_format(sc, ch->format);
 472         als_mix_wr(sc, ALS_FIFO1_CONTROL, dma_prog);
 473
 474         ch->dma_active = 1;
 475 }
 476
 477 static int
 478 als_capture_stop(struct sc_chinfo *ch)
 479 {
 480         struct sc_info *sc = ch->parent;
 481         u_int32_t active;
 482
 483         active = ch->dma_active;
 484         if (active) {
 485                 als_mix_wr(sc, ALS_FIFO1_CONTROL, ALS_FIFO1_STOP);
 486         }
 487         ch->dma_active = 0;
 488         return active;
 489 }
 490
 491 static int
 492 alsrchan_trigger(kobj_t obj, void *data, int go)
 493 {
 494         struct  sc_chinfo *ch = data;
 495         struct sc_info *sc = ch->parent;
 496
 497         snd_mtxlock(sc->lock);
 498         switch(go) {
 499         case PCMTRIG_START:
 500                 als_capture_start(ch);
 501                 break;
 502         case PCMTRIG_STOP:
 503         case PCMTRIG_ABORT:
 504                 als_capture_stop(ch);
 505                 break;
 506         }
 507         snd_mtxunlock(sc->lock);
 508         return 0;
 509 }
 510
 511 static kobj_method_t alsrchan_methods[] = {
 512         KOBJMETHOD(channel_init,                alschan_init),
 513         KOBJMETHOD(channel_setformat,           alschan_setformat),
 514         KOBJMETHOD(channel_setspeed,            alschan_setspeed),
 515         KOBJMETHOD(channel_setblocksize,        alschan_setblocksize),
 516         KOBJMETHOD(channel_trigger,             alsrchan_trigger),
 517         KOBJMETHOD(channel_getptr,              alschan_getptr),
 518         KOBJMETHOD(channel_getcaps,             alschan_getcaps),
 519         KOBJMETHOD_END
 520 };
 521 CHANNEL_DECLARE(alsrchan);
 522
 523 /* ------------------------------------------------------------------------- */
 524 /* Mixer related */
 525
 526 /*
 527  * ALS4000 has an sb16 mixer, with some additional controls that we do
 528  * not yet a means to support.
 529  */
 530
 531 struct sb16props {
 532         u_int8_t lreg;
 533         u_int8_t rreg;
 534         u_int8_t bits;
 535         u_int8_t oselect;
 536         u_int8_t iselect; /* left input mask */
 537 } static const amt[SOUND_MIXER_NRDEVICES] = {
 538         [SOUND_MIXER_VOLUME]  = { 0x30, 0x31, 5, 0x00, 0x00 },
 539         [SOUND_MIXER_PCM]     = { 0x32, 0x33, 5, 0x00, 0x00 },
 540         [SOUND_MIXER_SYNTH]   = { 0x34, 0x35, 5, 0x60, 0x40 },
 541         [SOUND_MIXER_CD]      = { 0x36, 0x37, 5, 0x06, 0x04 },
 542         [SOUND_MIXER_LINE]    = { 0x38, 0x39, 5, 0x18, 0x10 },
 543         [SOUND_MIXER_MIC]     = { 0x3a, 0x00, 5, 0x01, 0x01 },
 544         [SOUND_MIXER_SPEAKER] = { 0x3b, 0x00, 2, 0x00, 0x00 },
 545         [SOUND_MIXER_IGAIN]   = { 0x3f, 0x40, 2, 0x00, 0x00 },
 546         [SOUND_MIXER_OGAIN]   = { 0x41, 0x42, 2, 0x00, 0x00 },
 547         /* The following have register values but no h/w implementation */
 548         [SOUND_MIXER_TREBLE]  = { 0x44, 0x45, 4, 0x00, 0x00 },
 549         [SOUND_MIXER_BASS]    = { 0x46, 0x47, 4, 0x00, 0x00 }
 550 };
 551
 552 static int
 553 alsmix_init(struct snd_mixer *m)
 554 {
 555         u_int32_t i, v;
 556
 557         for (i = v = 0; i < SOUND_MIXER_NRDEVICES; i++) {
 558                 if (amt[i].bits) v |= 1 << i;
 559         }
 560         mix_setdevs(m, v);
 561
 562         for (i = v = 0; i < SOUND_MIXER_NRDEVICES; i++) {
 563                 if (amt[i].iselect) v |= 1 << i;
 564         }
 565         mix_setrecdevs(m, v);
 566         return 0;
 567 }
 568
 569 static int
 570 alsmix_set(struct snd_mixer *m, unsigned dev, unsigned left, unsigned right)
 571 {
 572         struct sc_info *sc = mix_getdevinfo(m);
 573         u_int32_t r, l, v, mask;
 574
 575         /* Fill upper n bits in mask with 1's */
 576         mask = ((1 << amt[dev].bits) - 1) << (8 - amt[dev].bits);
 577
 578         l = (left * mask / 100) & mask;
 579         v = als_mix_rd(sc, amt[dev].lreg) & ~mask;
 580         als_mix_wr(sc, amt[dev].lreg, l | v);
 581
 582         if (amt[dev].rreg) {
 583                 r = (right * mask / 100) & mask;
 584                 v = als_mix_rd(sc, amt[dev].rreg) & ~mask;
 585                 als_mix_wr(sc, amt[dev].rreg, r | v);
 586         } else {
 587                 r = 0;
 588         }
 589
 590         /* Zero gain does not mute channel from output, but this does. */
 591         v = als_mix_rd(sc, SB16_OMASK);
 592         if (l == 0 && r == 0) {
 593                 v &= ~amt[dev].oselect;
 594         } else {
 595                 v |= amt[dev].oselect;
 596         }
 597         als_mix_wr(sc, SB16_OMASK, v);
 598         return 0;
 599 }
 600
 601 static u_int32_t
 602 alsmix_setrecsrc(struct snd_mixer *m, u_int32_t src)
 603 {
 604         struct sc_info *sc = mix_getdevinfo(m);
 605         u_int32_t i, l, r;
 606
 607         for (i = l = r = 0; i < SOUND_MIXER_NRDEVICES; i++) {
 608                 if (src & (1 << i)) {
 609                         if (amt[i].iselect == 1) {      /* microphone */
 610                                 l |= amt[i].iselect;
 611                                 r |= amt[i].iselect;
 612                         } else {
 613                                 l |= amt[i].iselect;
 614                                 r |= amt[i].iselect >> 1;
 615                         }
 616                 }
 617         }
 618
 619         als_mix_wr(sc, SB16_IMASK_L, l);
 620         als_mix_wr(sc, SB16_IMASK_R, r);
 621         return src;
 622 }
 623
 624 static kobj_method_t als_mixer_methods[] = {
 625         KOBJMETHOD(mixer_init,          alsmix_init),
 626         KOBJMETHOD(mixer_set,           alsmix_set),
 627         KOBJMETHOD(mixer_setrecsrc,     alsmix_setrecsrc),
 628         KOBJMETHOD_END
 629 };
 630 MIXER_DECLARE(als_mixer);
 631
 632 /* ------------------------------------------------------------------------- */
 633 /* Interrupt Handler */
 634
 635 static void
 636 als_intr(void *p)
 637 {
 638         struct sc_info *sc = (struct sc_info *)p;
 639         u_int8_t intr, sb_status;
 640
 641         snd_mtxlock(sc->lock);
 642         intr = als_intr_rd(sc);
 643
 644         if (intr & 0x80) {
 645                 snd_mtxunlock(sc->lock);
 646                 chn_intr(sc->pch.channel);
 647                 snd_mtxlock(sc->lock);
 648         }
 649
 650         if (intr & 0x40) {
 651                 snd_mtxunlock(sc->lock);
 652                 chn_intr(sc->rch.channel);
 653                 snd_mtxlock(sc->lock);
 654         }
 655
 656         /* ACK interrupt in PCI core */
 657         als_intr_wr(sc, intr);
 658
 659         /* ACK interrupt in SB core */
 660         sb_status = als_mix_rd(sc, IRQ_STAT);
 661
 662         if (sb_status & ALS_IRQ_STATUS8)
 663                 als_ack_read(sc, ALS_ESP_RD_STATUS8);
 664         if (sb_status & ALS_IRQ_STATUS16)
 665                 als_ack_read(sc, ALS_ESP_RD_STATUS16);
 666         if (sb_status & ALS_IRQ_MPUIN)
 667                 als_ack_read(sc, ALS_MIDI_DATA);
 668         if (sb_status & ALS_IRQ_CR1E)
 669                 als_ack_read(sc, ALS_CR1E_ACK_PORT);
 670
 671         snd_mtxunlock(sc->lock);
 672         return;
 673 }
 674
 675 /* ------------------------------------------------------------------------- */
 676 /* H/W initialization */
 677
 678 static int
 679 als_init(struct sc_info *sc)
 680 {
 681         u_int32_t i, v;
 682
 683         /* Reset Chip */
 684         if (als_esp_reset(sc)) {
 685                 return 1;
 686         }
 687
 688         /* Enable write on DMA_SETUP register */
 689         v = als_mix_rd(sc, ALS_SB16_CONFIG);
 690         als_mix_wr(sc, ALS_SB16_CONFIG, v | 0x80);
 691
 692         /* Select DMA0 */
 693         als_mix_wr(sc, ALS_SB16_DMA_SETUP, 0x01);
 694
 695         /* Disable write on DMA_SETUP register */
 696         als_mix_wr(sc, ALS_SB16_CONFIG, v & 0x7f);
 697
 698         /* Enable interrupts */
 699         v  = als_gcr_rd(sc, ALS_GCR_MISC);
 700         als_gcr_wr(sc, ALS_GCR_MISC, v | 0x28000);
 701
 702         /* Black out GCR DMA registers */
 703         for (i = 0x91; i <= 0x96; i++) {
 704                 als_gcr_wr(sc, i, 0);
 705         }
 706
 707         /* Emulation mode */
 708         v = als_gcr_rd(sc, ALS_GCR_DMA_EMULATION);
 709         als_gcr_wr(sc, ALS_GCR_DMA_EMULATION, v);
 710         DEB(printf("GCR_DMA_EMULATION 0x%08x\n", v));
 711         return 0;
 712 }
 713
 714 static void
 715 als_uninit(struct sc_info *sc)
 716 {
 717         /* Disable interrupts */
 718         als_gcr_wr(sc, ALS_GCR_MISC, 0);
 719 }
 720
 721 /* ------------------------------------------------------------------------- */
 722 /* Probe and attach card */
 723
 724 static int
 725 als_pci_probe(device_t dev)
 726 {
 727         if (pci_get_devid(dev) == ALS_PCI_ID0) {
 728                 device_set_desc(dev, "Avance Logic ALS4000");
 729                 return BUS_PROBE_DEFAULT;
 730         }
 731         return ENXIO;
 732 }
 733
 734 static void
 735 als_resource_free(device_t dev, struct sc_info *sc)
 736 {
 737         if (sc->reg) {
 738                 bus_release_resource(dev, SYS_RES_IOPORT, sc->regid, sc->reg);
 739                 sc->reg = 0;
 740         }
 741         if (sc->ih) {
 742                 bus_teardown_intr(dev, sc->irq, sc->ih);
 743                 sc->ih = 0;
 744         }
 745         if (sc->irq) {
 746                 bus_release_resource(dev, SYS_RES_IRQ, sc->irqid, sc->irq);
 747                 sc->irq = 0;
 748         }
 749         if (sc->parent_dmat) {
 750                 bus_dma_tag_destroy(sc->parent_dmat);
 751                 sc->parent_dmat = 0;
 752         }
 753         if (sc->lock) {
 754                 snd_mtxfree(sc->lock);
 755                 sc->lock = NULL;
 756         }
 757 }
 758
 759 static int
 760 als_resource_grab(device_t dev, struct sc_info *sc)
 761 {
 762         sc->regid = PCIR_BAR(0);
 763         sc->reg = bus_alloc_resource(dev, SYS_RES_IOPORT, &sc->regid, 0, ~0,
 764                                      ALS_CONFIG_SPACE_BYTES, RF_ACTIVE);
 765         if (sc->reg == 0) {
 766                 device_printf(dev, "unable to allocate register space\n");
 767                 goto bad;
 768         }
 769         sc->st = rman_get_bustag(sc->reg);
 770         sc->sh = rman_get_bushandle(sc->reg);
 771
 772         sc->irq = bus_alloc_resource_any(dev, SYS_RES_IRQ, &sc->irqid,
 773                                          RF_ACTIVE | RF_SHAREABLE);
 774         if (sc->irq == 0) {
 775                 device_printf(dev, "unable to allocate interrupt\n");
 776                 goto bad;
 777         }
 778
 779         if (snd_setup_intr(dev, sc->irq, INTR_MPSAFE, als_intr,
 780                            sc, &sc->ih)) {
 781                 device_printf(dev, "unable to setup interrupt\n");
 782                 goto bad;
 783         }
 784
 785         sc->bufsz = pcm_getbuffersize(dev, 4096, ALS_DEFAULT_BUFSZ, 65536);
 786
 787         if (bus_dma_tag_create(/*parent*/bus_get_dma_tag(dev),
 788                                /*alignment*/2, /*boundary*/0,
 789                                /*lowaddr*/BUS_SPACE_MAXADDR_24BIT,
 790                                /*highaddr*/BUS_SPACE_MAXADDR,
 791                                /*filter*/NULL, /*filterarg*/NULL,
 792                                /*maxsize*/sc->bufsz,
 793                                /*nsegments*/1, /*maxsegz*/0x3ffff,
 794                                /*flags*/0, /*lockfunc*/NULL,
 795                                /*lockarg*/NULL, &sc->parent_dmat) != 0) {
 796                 device_printf(dev, "unable to create dma tag\n");
 797                 goto bad;
 798         }
 799         return 0;
 800  bad:
 801         als_resource_free(dev, sc);
 802         return ENXIO;
 803 }
 804
 805 static int
 806 als_pci_attach(device_t dev)
 807 {
 808         struct sc_info *sc;
 809         char status[SND_STATUSLEN];
 810
 811         sc = malloc(sizeof(*sc), M_DEVBUF, M_WAITOK | M_ZERO);
 812         sc->lock = snd_mtxcreate(device_get_nameunit(dev), "snd_als4000 softc");
 813         sc->dev = dev;
 814
 815         pci_enable_busmaster(dev);
 816         /*
 817          * By default the power to the various components on the
 818          * ALS4000 is entirely controlled by the pci powerstate.  We
 819          * could attempt finer grained control by setting GCR6.31.
 820          */
 821         if (pci_get_powerstate(dev) != PCI_POWERSTATE_D0) {
 822                 /* Reset the power state. */
 823                 device_printf(dev, "chip is in D%d power mode "
 824                               "-- setting to D0\n", pci_get_powerstate(dev));
 825                 pci_set_powerstate(dev, PCI_POWERSTATE_D0);
 826         }
 827
 828         if (als_resource_grab(dev, sc)) {
 829                 device_printf(dev, "failed to allocate resources\n");
 830                 goto bad_attach;
 831         }
 832
 833         if (als_init(sc)) {
 834                 device_printf(dev, "failed to initialize hardware\n");
 835                 goto bad_attach;
 836         }
 837
 838         if (mixer_init(dev, &als_mixer_class, sc)) {
 839                 device_printf(dev, "failed to initialize mixer\n");
 840                 goto bad_attach;
 841         }
 842
 843         if (pcm_register(dev, sc, 1, 1)) {
 844                 device_printf(dev, "failed to register pcm entries\n");
 845                 goto bad_attach;
 846         }
 847
 848         pcm_addchan(dev, PCMDIR_PLAY, &alspchan_class, sc);
 849         pcm_addchan(dev, PCMDIR_REC,  &alsrchan_class, sc);
 850
 851         snprintf(status, SND_STATUSLEN, "at io 0x%lx irq %ld %s",
 852                  rman_get_start(sc->reg), rman_get_start(sc->irq),PCM_KLDSTRING(snd_als4000));
 853         pcm_setstatus(dev, status);
 854         return 0;
 855
 856  bad_attach:
 857         als_resource_free(dev, sc);
 858         free(sc, M_DEVBUF);
 859         return ENXIO;
 860 }
 861
 862 static int
 863 als_pci_detach(device_t dev)
 864 {
 865         struct sc_info *sc;
 866         int r;
 867
 868         r = pcm_unregister(dev);
 869         if (r)
 870                 return r;
 871
 872         sc = pcm_getdevinfo(dev);
 873         als_uninit(sc);
 874         als_resource_free(dev, sc);
 875         free(sc, M_DEVBUF);
 876         return 0;
 877 }
 878
 879 static int
 880 als_pci_suspend(device_t dev)
 881 {
 882         struct sc_info *sc = pcm_getdevinfo(dev);
 883
 884         snd_mtxlock(sc->lock);
 885         sc->pch.dma_was_active = als_playback_stop(&sc->pch);
 886         sc->rch.dma_was_active = als_capture_stop(&sc->rch);
 887         als_uninit(sc);
 888         snd_mtxunlock(sc->lock);
 889         return 0;
 890 }
 891
 892 static int
 893 als_pci_resume(device_t dev)
 894 {
 895         struct sc_info *sc = pcm_getdevinfo(dev);
 896
 897
 898         snd_mtxlock(sc->lock);
 899         if (als_init(sc) != 0) {
 900                 device_printf(dev, "unable to reinitialize the card\n");
 901                 snd_mtxunlock(sc->lock);
 902                 return ENXIO;
 903         }
 904
 905         if (mixer_reinit(dev) != 0) {
 906                 device_printf(dev, "unable to reinitialize the mixer\n");
 907                 snd_mtxunlock(sc->lock);
 908                 return ENXIO;
 909         }
 910
 911         if (sc->pch.dma_was_active) {
 912                 als_playback_start(&sc->pch);
 913         }
 914
 915         if (sc->rch.dma_was_active) {
 916                 als_capture_start(&sc->rch);
 917         }
 918         snd_mtxunlock(sc->lock);
 919
 920         return 0;
 921 }
 922
 923 static device_method_t als_methods[] = {
 924         /* Device interface */
 925         DEVMETHOD(device_probe,         als_pci_probe),
 926         DEVMETHOD(device_attach,        als_pci_attach),
 927         DEVMETHOD(device_detach,        als_pci_detach),
 928         DEVMETHOD(device_suspend,       als_pci_suspend),
 929         DEVMETHOD(device_resume,        als_pci_resume),
 930         { 0, 0 }
 931 };
 932
 933 static driver_t als_driver = {
 934         "pcm",
 935         als_methods,
 936         PCM_SOFTC_SIZE,
 937 };
 938
 939 DRIVER_MODULE(snd_als4000, pci, als_driver, pcm_devclass, 0, 0);
 940 MODULE_DEPEND(snd_als4000, sound, SOUND_MINVER, SOUND_PREFVER, SOUND_MAXVER);
 941 MODULE_VERSION(snd_als4000, 1);