1 /* $NetBSD: vidcaudio.c,v 1.43 2005/12/11 12:16:47 christos Exp $ */ 2 3 /* 4 * Copyright (c) 1995 Melvin Tang-Richardson 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 3. All advertising materials mentioning features or use of this software 15 * must display the following acknowledgement: 16 * This product includes software developed by the RiscBSD team. 17 * 4. The name of the author may not be used to endorse or promote products 18 * derived from this software without specific prior written permission. 19 * 20 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 21 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 22 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 23 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 24 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 25 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 26 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 27 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 28 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 29 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 30 */ 31 32 /*- 33 * Copyright (c) 2003 Ben Harris 34 * All rights reserved. 35 * 36 * Redistribution and use in source and binary forms, with or without 37 * modification, are permitted provided that the following conditions 38 * are met: 39 * 1. Redistributions of source code must retain the above copyright 40 * notice, this list of conditions and the following disclaimer. 41 * 2. Redistributions in binary form must reproduce the above copyright 42 * notice, this list of conditions and the following disclaimer in the 43 * documentation and/or other materials provided with the distribution. 44 * 3. The name of the author may not be used to endorse or promote products 45 * derived from this software without specific prior written permission. 46 * 47 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 48 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 49 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 50 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 51 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 52 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 53 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 54 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 55 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 56 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 57 */ 58 59 /* 60 * audio driver for the RiscPC 8/16 bit sound 61 * 62 * Interfaces with the NetBSD generic audio driver to provide SUN 63 * /dev/audio (partial) compatibility. 64 */ 65 66 #include <sys/param.h> /* proc.h */ 67 68 __KERNEL_RCSID(0, "$NetBSD: vidcaudio.c,v 1.43 2005/12/11 12:16:47 christos Exp $"); 69 70 #include <sys/audioio.h> 71 #include <sys/conf.h> /* autoconfig functions */ 72 #include <sys/device.h> /* device calls */ 73 #include <sys/errno.h> 74 #include <sys/malloc.h> 75 #include <sys/proc.h> /* device calls */ 76 #include <sys/systm.h> 77 78 #include <uvm/uvm_extern.h> 79 80 #include <dev/audio_if.h> 81 #include <dev/audiobellvar.h> 82 #include <dev/auconv.h> 83 #include <dev/mulaw.h> 84 85 #include <machine/intr.h> 86 #include <machine/machdep.h> 87 #include <arm/arm32/katelib.h> 88 89 #include <arm/iomd/vidcaudiovar.h> 90 #include <arm/iomd/iomdreg.h> 91 #include <arm/iomd/iomdvar.h> 92 #include <arm/iomd/vidc.h> 93 #include <arm/mainbus/mainbus.h> 94 95 #include "pckbd.h" 96 #if NPCKBD > 0 97 #include <dev/pckbport/pckbdvar.h> 98 #endif 99 100 #include "rpckbd.h" 101 #if NRPCKBD > 0 102 #include <arm/iomd/rpckbdvar.h> 103 #endif 104 105 #include "vt.h" 106 #if NVT > 0 107 extern void vt_hookup_bell(void (*)(void *, u_int, u_int, u_int, int), void *); 108 #endif 109 110 extern int *vidc_base; 111 112 #ifdef VIDCAUDIO_DEBUG 113 #define DPRINTF(x) printf x 114 #else 115 #define DPRINTF(x) 116 #endif 117 118 struct vidcaudio_softc { 119 struct device sc_dev; 120 121 irqhandler_t sc_ih; 122 int sc_dma_intr; 123 124 int sc_is16bit; 125 126 size_t sc_pblksize; 127 vm_offset_t sc_poffset; 128 vm_offset_t sc_pbufsize; 129 paddr_t *sc_ppages; 130 void (*sc_pintr)(void *); 131 void *sc_parg; 132 int sc_pcountdown; 133 }; 134 135 static int vidcaudio_probe(struct device *, struct cfdata *, void *); 136 static void vidcaudio_attach(struct device *, struct device *, void *); 137 static void vidcaudio_close(void *); 138 139 static int vidcaudio_intr(void *); 140 static void vidcaudio_rate(int); 141 static void vidcaudio_ctrl(int); 142 static void vidcaudio_stereo(int, int); 143 static stream_filter_factory_t mulaw_to_vidc; 144 static stream_filter_factory_t mulaw_to_vidc_stereo; 145 static int mulaw_to_vidc_fetch_to(stream_fetcher_t *, audio_stream_t *, int); 146 static int mulaw_to_vidc_stereo_fetch_to(stream_fetcher_t *, 147 audio_stream_t *, int); 148 149 CFATTACH_DECL(vidcaudio, sizeof(struct vidcaudio_softc), 150 vidcaudio_probe, vidcaudio_attach, NULL, NULL); 151 152 static int vidcaudio_query_encoding(void *, struct audio_encoding *); 153 static int vidcaudio_set_params(void *, int, int, audio_params_t *, 154 audio_params_t *, stream_filter_list_t *, stream_filter_list_t *); 155 static int vidcaudio_round_blocksize(void *, int, int, const audio_params_t *); 156 static int vidcaudio_trigger_output(void *, void *, void *, int, 157 void (*)(void *), void *, const audio_params_t *); 158 static int vidcaudio_trigger_input(void *, void *, void *, int, 159 void (*)(void *), void *, const audio_params_t *); 160 static int vidcaudio_halt_output(void *); 161 static int vidcaudio_halt_input(void *); 162 static int vidcaudio_getdev(void *, struct audio_device *); 163 static int vidcaudio_set_port(void *, mixer_ctrl_t *); 164 static int vidcaudio_get_port(void *, mixer_ctrl_t *); 165 static int vidcaudio_query_devinfo(void *, mixer_devinfo_t *); 166 static int vidcaudio_get_props(void *); 167 168 static struct audio_device vidcaudio_device = { 169 "ARM VIDC", 170 "", 171 "vidcaudio" 172 }; 173 174 static const struct audio_hw_if vidcaudio_hw_if = { 175 NULL, /* open */ 176 vidcaudio_close, 177 NULL, 178 vidcaudio_query_encoding, 179 vidcaudio_set_params, 180 vidcaudio_round_blocksize, 181 NULL, 182 NULL, 183 NULL, 184 NULL, 185 NULL, 186 vidcaudio_halt_output, 187 vidcaudio_halt_input, 188 NULL, 189 vidcaudio_getdev, 190 NULL, 191 vidcaudio_set_port, 192 vidcaudio_get_port, 193 vidcaudio_query_devinfo, 194 NULL, 195 NULL, 196 NULL, 197 NULL, 198 vidcaudio_get_props, 199 vidcaudio_trigger_output, 200 vidcaudio_trigger_input, 201 NULL, 202 }; 203 204 static int 205 vidcaudio_probe(struct device *parent, struct cfdata *cf, void *aux) 206 { 207 int id; 208 209 id = IOMD_ID; 210 211 /* So far I only know about this IOMD */ 212 switch (id) { 213 case RPC600_IOMD_ID: 214 case ARM7500_IOC_ID: 215 case ARM7500FE_IOC_ID: 216 return 1; 217 default: 218 aprint_error("vidcaudio: Unknown IOMD id=%04x", id); 219 return 0; 220 } 221 } 222 223 224 static void 225 vidcaudio_attach(struct device *parent, struct device *self, void *aux) 226 { 227 struct vidcaudio_softc *sc; 228 struct device *beepdev; 229 230 sc = (void *)self; 231 switch (IOMD_ID) { 232 #ifndef EB7500ATX 233 case RPC600_IOMD_ID: 234 sc->sc_is16bit = (cmos_read(0xc4) >> 5) & 1; 235 sc->sc_dma_intr = IRQ_DMASCH0; 236 break; 237 #endif 238 case ARM7500_IOC_ID: 239 case ARM7500FE_IOC_ID: 240 sc->sc_is16bit = TRUE; 241 sc->sc_dma_intr = IRQ_SDMA; 242 break; 243 default: 244 aprint_error(": strange IOMD\n"); 245 return; 246 } 247 248 if (sc->sc_is16bit) 249 aprint_normal(": 16-bit external DAC\n"); 250 else 251 aprint_normal(": 8-bit internal DAC\n"); 252 253 /* Install the irq handler for the DMA interrupt */ 254 sc->sc_ih.ih_func = vidcaudio_intr; 255 sc->sc_ih.ih_arg = sc; 256 sc->sc_ih.ih_level = IPL_AUDIO; 257 sc->sc_ih.ih_name = self->dv_xname; 258 259 if (irq_claim(sc->sc_dma_intr, &sc->sc_ih) != 0) { 260 aprint_error("%s: couldn't claim IRQ %d\n", 261 self->dv_xname, sc->sc_dma_intr); 262 return; 263 } 264 265 disable_irq(sc->sc_dma_intr); 266 267 beepdev = audio_attach_mi(&vidcaudio_hw_if, sc, self); 268 #if NPCKBD > 0 269 pckbd_hookup_bell(audiobell, beepdev); 270 #endif 271 #if NRPCKBD > 0 272 rpckbd_hookup_bell(audiobell, beepdev); 273 #endif 274 #if NVT > 0 275 vt_hookup_bell(audiobell, beepdev); 276 #endif 277 } 278 279 static void 280 vidcaudio_close(void *addr) 281 { 282 struct vidcaudio_softc *sc; 283 284 DPRINTF(("DEBUG: vidcaudio_close called\n")); 285 sc = addr; 286 /* 287 * We do this here rather than in vidcaudio_halt_output() 288 * because the latter can be called from interrupt context 289 * (audio_pint()->audio_clear()->vidcaudio_halt_output()). 290 */ 291 if (sc->sc_ppages != NULL) { 292 free(sc->sc_ppages, M_DEVBUF); 293 sc->sc_ppages = NULL; 294 } 295 } 296 297 /* 298 * Interface to the generic audio driver 299 */ 300 301 static int 302 vidcaudio_query_encoding(void *addr, struct audio_encoding *fp) 303 { 304 struct vidcaudio_softc *sc; 305 306 sc = addr; 307 switch (fp->index) { 308 case 0: 309 strcpy(fp->name, AudioEmulaw); 310 fp->encoding = AUDIO_ENCODING_ULAW; 311 fp->precision = 8; 312 fp->flags = AUDIO_ENCODINGFLAG_EMULATED; 313 break; 314 315 case 1: 316 if (sc->sc_is16bit) { 317 strcpy(fp->name, AudioEslinear_le); 318 fp->encoding = AUDIO_ENCODING_SLINEAR_LE; 319 fp->precision = 16; 320 fp->flags = 0; 321 break; 322 } 323 /* FALLTHROUGH */ 324 default: 325 return EINVAL; 326 } 327 return 0; 328 } 329 330 #define MULAW_TO_VIDC(m) (~((m) << 1 | (m) >> 7)) 331 332 static stream_filter_t * 333 mulaw_to_vidc(struct audio_softc *sc, const audio_params_t *from, 334 const audio_params_t *to) 335 { 336 337 return auconv_nocontext_filter_factory(mulaw_to_vidc_fetch_to); 338 } 339 340 static int 341 mulaw_to_vidc_fetch_to(stream_fetcher_t *self, audio_stream_t *dst, int max_used) 342 { 343 stream_filter_t *this; 344 int m, err; 345 346 this = (stream_filter_t *)self; 347 if ((err = this->prev->fetch_to(this->prev, this->src, max_used))) 348 return err; 349 m = dst->end - dst->start; 350 m = min(m, max_used); 351 FILTER_LOOP_PROLOGUE(this->src, 1, dst, 1, m) { 352 *d = MULAW_TO_VIDC(*s); 353 } FILTER_LOOP_EPILOGUE(this->src, dst); 354 return 0; 355 } 356 357 static stream_filter_t * 358 mulaw_to_vidc_stereo(struct audio_softc *sc, const audio_params_t *from, 359 const audio_params_t *to) 360 { 361 362 return auconv_nocontext_filter_factory(mulaw_to_vidc_stereo_fetch_to); 363 } 364 365 static int 366 mulaw_to_vidc_stereo_fetch_to(stream_fetcher_t *self, audio_stream_t *dst, 367 int max_used) 368 { 369 stream_filter_t *this; 370 int m, err; 371 372 this = (stream_filter_t *)self; 373 max_used = (max_used + 1) & ~1; 374 if ((err = this->prev->fetch_to(this->prev, this->src, max_used / 2))) 375 return err; 376 m = (dst->end - dst->start) & ~1; 377 m = min(m, max_used); 378 FILTER_LOOP_PROLOGUE(this->src, 1, dst, 2, m) { 379 d[0] = d[1] = MULAW_TO_VIDC(*s); 380 } FILTER_LOOP_EPILOGUE(this->src, dst); 381 return 0; 382 } 383 384 static int 385 vidcaudio_set_params(void *addr, int setmode, int usemode, 386 audio_params_t *p, audio_params_t *r, 387 stream_filter_list_t *pfil, stream_filter_list_t *rfil) 388 { 389 audio_params_t hw; 390 struct vidcaudio_softc *sc; 391 int sample_period, ch; 392 393 if ((setmode & AUMODE_PLAY) == 0) 394 return 0; 395 396 sc = addr; 397 if (sc->sc_is16bit) { 398 /* ARM7500ish, 16-bit, two-channel */ 399 hw = *p; 400 if (p->encoding == AUDIO_ENCODING_ULAW && p->precision == 8) { 401 hw.encoding = AUDIO_ENCODING_SLINEAR_LE; 402 hw.precision = hw.validbits = 16; 403 pfil->append(pfil, mulaw_to_linear16, &hw); 404 } else if (p->encoding != AUDIO_ENCODING_SLINEAR_LE || 405 p->precision != 16) 406 return EINVAL; 407 sample_period = 705600 / 4 / p->sample_rate; 408 if (sample_period < 3) sample_period = 3; 409 vidcaudio_rate(sample_period - 2); 410 vidcaudio_ctrl(SCR_SERIAL); 411 hw.sample_rate = 705600 / 4 / sample_period; 412 hw.channels = 2; 413 pfil->append(pfil, aurateconv, &hw); 414 } else { 415 /* VIDC20ish, u-law, 8-channel */ 416 if (p->encoding != AUDIO_ENCODING_ULAW || p->precision != 8) 417 return EINVAL; 418 /* 419 * We always use two hardware channels, because using 420 * one at 8kHz gives a nasty whining sound from the 421 * speaker. The aurateconv mechanism doesn't support 422 * ulaw, so we do the channel duplication ourselves, 423 * and don't try to do rate conversion. 424 */ 425 sample_period = 1000000 / 2 / p->sample_rate; 426 if (sample_period < 3) sample_period = 3; 427 p->sample_rate = 1000000 / 2 / sample_period; 428 hw = *p; 429 hw.encoding = AUDIO_ENCODING_NONE; 430 hw.precision = 8; 431 vidcaudio_rate(sample_period - 2); 432 vidcaudio_ctrl(SCR_SDAC | SCR_CLKSEL); 433 if (p->channels == 1) { 434 pfil->append(pfil, mulaw_to_vidc_stereo, &hw); 435 for (ch = 0; ch < 8; ch++) 436 vidcaudio_stereo(ch, SIR_CENTRE); 437 } else { 438 pfil->append(pfil, mulaw_to_vidc, &hw); 439 for (ch = 0; ch < 8; ch += 2) 440 vidcaudio_stereo(ch, SIR_LEFT_100); 441 for (ch = 1; ch < 8; ch += 2) 442 vidcaudio_stereo(ch, SIR_RIGHT_100); 443 } 444 } 445 return 0; 446 } 447 448 static int 449 vidcaudio_round_blocksize(void *addr, int wantblk, 450 int mode, const audio_params_t *param) 451 { 452 int blk; 453 454 /* 455 * Find the smallest power of two that's larger than the 456 * requested block size, but don't allow < 32 (DMA burst is 16 457 * bytes, and single bursts are tricky) or > PAGE_SIZE (DMA is 458 * confined to a page). 459 */ 460 461 for (blk = 32; blk < PAGE_SIZE; blk <<= 1) 462 if (blk >= wantblk) 463 return blk; 464 return blk; 465 } 466 467 static int 468 vidcaudio_trigger_output(void *addr, void *start, void *end, int blksize, 469 void (*intr)(void *), void *arg, const audio_params_t *params) 470 { 471 struct vidcaudio_softc *sc; 472 size_t npages, i; 473 474 DPRINTF(("vidcaudio_trigger_output %p-%p/0x%x\n", 475 start, end, blksize)); 476 477 sc = addr; 478 KASSERT(blksize == vidcaudio_round_blocksize(addr, blksize, 0, NULL)); 479 KASSERT((vaddr_t)start % blksize == 0); 480 481 sc->sc_pblksize = blksize; 482 sc->sc_pbufsize = (char *)end - (char *)start; 483 npages = sc->sc_pbufsize >> PGSHIFT; 484 if (sc->sc_ppages != NULL) 485 free(sc->sc_ppages, M_DEVBUF); 486 sc->sc_ppages = malloc(npages * sizeof(paddr_t), M_DEVBUF, M_WAITOK); 487 if (sc->sc_ppages == NULL) return ENOMEM; 488 for (i = 0; i < npages; i++) 489 if (!pmap_extract(pmap_kernel(), 490 (vaddr_t)start + i * PAGE_SIZE, &sc->sc_ppages[i])) 491 return EIO; 492 sc->sc_poffset = 0; 493 sc->sc_pintr = intr; 494 sc->sc_parg = arg; 495 496 IOMD_WRITE_WORD(IOMD_SD0CR, IOMD_DMACR_CLEAR | IOMD_DMACR_QUADWORD); 497 IOMD_WRITE_WORD(IOMD_SD0CR, IOMD_DMACR_ENABLE | IOMD_DMACR_QUADWORD); 498 499 /* 500 * Queue up the first two blocks, but don't tell audio code 501 * we're finished with them yet. 502 */ 503 sc->sc_pcountdown = 2; 504 505 enable_irq(sc->sc_dma_intr); 506 507 return 0; 508 } 509 510 static int 511 vidcaudio_trigger_input(void *addr, void *start, void *end, int blksize, 512 void (*intr)(void *), void *arg, const audio_params_t *params) 513 { 514 515 return ENODEV; 516 } 517 518 static int 519 vidcaudio_halt_output(void *addr) 520 { 521 struct vidcaudio_softc *sc; 522 523 DPRINTF(("vidcaudio_halt_output\n")); 524 sc = addr; 525 disable_irq(sc->sc_dma_intr); 526 IOMD_WRITE_WORD(IOMD_SD0CR, IOMD_DMACR_CLEAR | IOMD_DMACR_QUADWORD); 527 return 0; 528 } 529 530 static int 531 vidcaudio_halt_input(void *addr) 532 { 533 534 return ENODEV; 535 } 536 537 static int 538 vidcaudio_getdev(void *addr, struct audio_device *retp) 539 { 540 541 *retp = vidcaudio_device; 542 return 0; 543 } 544 545 546 static int 547 vidcaudio_set_port(void *addr, mixer_ctrl_t *cp) 548 { 549 550 return EINVAL; 551 } 552 553 static int 554 vidcaudio_get_port(void *addr, mixer_ctrl_t *cp) 555 { 556 557 return EINVAL; 558 } 559 560 static int 561 vidcaudio_query_devinfo(void *addr, mixer_devinfo_t *dip) 562 { 563 564 return ENXIO; 565 } 566 567 static int 568 vidcaudio_get_props(void *addr) 569 { 570 571 return 0; 572 } 573 574 static void 575 vidcaudio_rate(int rate) 576 { 577 578 WriteWord(vidc_base, VIDC_SFR | rate); 579 } 580 581 static void 582 vidcaudio_ctrl(int ctrl) 583 { 584 585 WriteWord(vidc_base, VIDC_SCR | ctrl); 586 } 587 588 static void 589 vidcaudio_stereo(int channel, int position) 590 { 591 592 channel = channel << 24 | VIDC_SIR0; 593 WriteWord(vidc_base, channel | position); 594 } 595 596 static int 597 vidcaudio_intr(void *arg) 598 { 599 struct vidcaudio_softc *sc; 600 int status; 601 paddr_t pnext, pend; 602 603 sc = arg; 604 status = IOMD_READ_BYTE(IOMD_SD0ST); 605 DPRINTF(("I[%x]", status)); 606 if ((status & IOMD_DMAST_INT) == 0) 607 return 0; 608 609 pnext = sc->sc_ppages[sc->sc_poffset >> PGSHIFT] | 610 (sc->sc_poffset & PGOFSET); 611 pend = (pnext + sc->sc_pblksize - 16) & IOMD_DMAEND_OFFSET; 612 613 switch (status & 614 (IOMD_DMAST_OVERRUN | IOMD_DMAST_INT | IOMD_DMAST_BANKB)) { 615 616 case (IOMD_DMAST_INT | IOMD_DMAST_BANKA): 617 case (IOMD_DMAST_OVERRUN | IOMD_DMAST_INT | IOMD_DMAST_BANKB): 618 DPRINTF(("B<0x%08lx,0x%03lx>", pnext, pend)); 619 IOMD_WRITE_WORD(IOMD_SD0CURB, pnext); 620 IOMD_WRITE_WORD(IOMD_SD0ENDB, pend); 621 break; 622 623 case (IOMD_DMAST_INT | IOMD_DMAST_BANKB): 624 case (IOMD_DMAST_OVERRUN | IOMD_DMAST_INT | IOMD_DMAST_BANKA): 625 DPRINTF(("A<0x%08lx,0x%03lx>", pnext, pend)); 626 IOMD_WRITE_WORD(IOMD_SD0CURA, pnext); 627 IOMD_WRITE_WORD(IOMD_SD0ENDA, pend); 628 break; 629 } 630 631 sc->sc_poffset += sc->sc_pblksize; 632 if (sc->sc_poffset >= sc->sc_pbufsize) 633 sc->sc_poffset = 0; 634 635 if (sc->sc_pcountdown > 0) 636 sc->sc_pcountdown--; 637 else 638 (*sc->sc_pintr)(sc->sc_parg); 639 640 return 1; 641 } 642