NetBSD/sys/arch/i386/isa/sb.c

665 lines
16 KiB
C

/*
* Copyright (c) 1991-1993 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the Computer Systems
* Engineering Group at Lawrence Berkeley Laboratory.
* 4. Neither the name of the University nor of the Laboratory may be used
* to endorse or promote products derived from this software without
* specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* $Id: sb.c,v 1.3 1994/01/28 03:40:18 deraadt Exp $
*/
#include "sb.h"
#if NSB > 0
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/errno.h>
#include <sys/ioctl.h>
#include <sys/syslog.h>
#include <machine/cpu.h>
#include <machine/pio.h>
#include <i386/isa/isa.h>
#include <i386/isa/isa_device.h>
#include <i386/isa/icu.h>
#include "sbreg.h"
/*
* Software state, per SoundBlaster card.
* The soundblaster has multiple functionality, which we must demultiplex.
* One approach is to have one major device number for the soundblaster card,
* and use different minor numbers to indicate which hardware function
* we want. This would make for one large driver. Instead our approach
* is to partition the design into a set of drivers that share an underlying
* piece of hardware. Most things are hard to share, for example, the audio
* and midi ports. For audio, we might want to mix two processes' signals,
* and for midi we might want to merge streams (this is hard due to
* running status). Moreover, we should be able to re-use the high-level
* modules with other kinds of hardware. In this module, we only handle the
* most basic communications with the sb card.
*/
struct sb_softc {
#ifdef NEWCONFIG
struct device sc_dev; /* base device */
struct isadev sc_id; /* ISA device */
struct intrhand sc_ih; /* interrupt vectoring */
#endif
u_short sc_open; /* reference count of open calls */
u_short sc_dmachan; /* dma channel */
u_long sc_locked; /* true when doing HS DMA */
u_long sc_base; /* I/O port base address */
u_short sc_adacmode; /* low/high speed mode indicator */
#define SB_ADAC_LS 0
#define SB_ADAC_HS 1
u_short sc_adactc; /* current adac time constant */
u_long sc_interrupts; /* number of interrupts taken */
void (*sc_intr)(void*); /* dma completion intr handler */
void (*sc_mintr)(void*, int);/* midi input intr handler */
void *sc_arg; /* arg for sc_intr() */
};
int sbreset(u_long);
void sb_spkron(struct sb_softc *);
void sb_spkroff(struct sb_softc *);
static int wdsp(u_long base, int v);
static int rdsp(u_long base);
/* XXX */
#define splsb splhigh
/* XXX */
struct sb_softc *sb_softc;
#ifndef NEWCONFIG
struct sb_softc sb_softcs[NSB];
#define at_dma(flags, ptr, cc, chan) isa_dmastart(flags, ptr, cc, chan)
#endif
struct {
int wdsp;
int rdsp;
int wmidi;
} sberr;
#ifdef NEWCONFIG
int sbintr(struct sb_softc *);
int sbprobe(struct device *, struct cfdata *, void *);
void sbattach(struct device *, struct device *, void *);
void sbforceintr(void *);
struct cfdriver sbcd =
{ NULL, "sb", sbprobe, sbattach, sizeof(struct sb_softc) };
int
sbprobe(struct device *parent, struct cfdata *cf, void *aux)
{
register struct isa_attach_args *ia = (struct isa_attach_args *)aux;
register int base = ia->ia_iobase;
if (!SB_BASE_VALID(base)) {
printf("sb: configured dma chan %d invalid\n", ia->ia_drq);
return (0);
}
ia->ia_iosize = SB_NPORT;
if (sbreset(base) < 0) {
printf("sb: couldn't reset card\n");
return (0);
}
/*
* Cannot auto-discover DMA channel.
*/
if (!SB_DRQ_VALID(ia->ia_drq)) {
printf("sb: configured dma chan %d invalid\n", ia->ia_drq);
return (0);
}
/*
* If the IRQ wasn't compiled in, auto-detect it.
*/
if (ia->ia_irq == IRQUNK) {
ia->ia_irq = isa_discoverintr(sbforceintr, aux);
sbreset(base);
if (!SB_IRQ_VALID(ia->ia_irq)) {
printf("sb: couldn't auto-detect interrupt");
return (0);
}
} else if (!SB_IRQ_VALID(ia->ia_irq)) {
int irq = ffs(ia->ia_irq) - 1;
printf("sb: configured irq %d invalid\n", irq);
}
return (1);
}
void
sbforceintr(void *arg)
{
static char dmabuf;
struct isa_attach_args *ia = (struct isa_attach_args *)arg;
int base = ia->ia_iobase;
/*
* Set up a DMA read of one byte.
* XXX Note that at this point we haven't called
* at_setup_dmachan(). This is okay because it just
* allocates a buffer in case it needs to make a copy,
* and it won't need to make a copy for a 1 byte buffer.
* (I think that calling at_setup_dmachan() should be optional;
* if you don't call it, it will be called the first time
* it is needed (and you pay the latency). Also, you might
* never need the buffer anyway.)
*/
at_dma(1, &dmabuf, 1, ia->ia_drq);
if (wdsp(base, SB_DSP_RDMA) == 0) {
(void)wdsp(base, 0);
(void)wdsp(base, 0);
}
}
void
sbattach(parent, self, aux)
struct device *parent, *self;
void *aux;
{
register struct sb_softc *sc = (struct sb_softc *)self;
struct isa_attach_args *ia = (struct isa_attach_args *)aux;
register int base = ia->ia_iobase;
register int vers;
/* XXX */
sb_softc = sc;
sc->sc_base = base;
sc->sc_dmachan = ia->ia_drq;
sc->sc_locked = 0;
isa_establish(&sc->sc_id, &sc->sc_dev);
sc->sc_ih.ih_fun = sbintr;
sc->sc_ih.ih_arg = (void *)sc;
/* XXX DV_TAPE? */
intr_establish(ia->ia_irq, &sc->sc_ih, DV_TAPE);
/*
* We limit DMA transfers to a page, and use the generic DMA handling
* code in isa.c. This code can end up copying a buffer, but since
* the audio driver uses relative small buffers this isn't likely.
*
* This allocation scheme means that the maximum transfer is limited
* by the page size (rather than 64k). This is reasonable. For 4K
* pages, the transfer time at 48KHz is 4096 / 48000 = 85ms. This
* is plenty long enough to amortize any fixed time overhead.
*/
at_setup_dmachan(sc->sc_dmachan, NBPG);
vers = sbversion(base);
printf(" dsp v%d.%d\n", vers >> 8, vers & 0xff);
}
#endif
#ifndef NEWCONFIG
int sbintr(int unit);
int sbprobe(struct isa_device *dev);
int sbattach(struct isa_device *dev);
struct isa_driver sbdriver = { sbprobe, sbattach, "sb" };
int
sbprobe(struct isa_device *dev)
{
register int base = dev->id_iobase;
if (!SB_BASE_VALID(base)) {
printf("sb: configured dma chan %d invalid\n", dev->id_drq);
return (0);
}
if (sbreset(base) < 0) {
printf("sb: couldn't reset card\n");
return (0);
}
/*
* Cannot auto-discover DMA channel.
*/
if (!SB_DRQ_VALID(dev->id_drq)) {
printf("sb: configured dma chan %d invalid\n", dev->id_drq);
return (0);
}
/*
* If the IRQ wasn't compiled in, auto-detect it.
*/
if (dev->id_irq == 0) {
printf("sb: no irq configured\n");
return (0);
} else if (!SB_IRQ_VALID(dev->id_irq)) {
int irq = ffs(dev->id_irq) - 1;
printf("sb: configured irq %d invalid\n", irq);
return (0);
}
return (1);
}
#define UNIT(x) (minor(x) & 0xf)
int
sbattach(struct isa_device *dev)
{
int unit = UNIT(dev->id_unit);
register struct sb_softc *sc = &sb_softcs[unit];
register int base = dev->id_iobase;
register int vers;
/* XXX */
sb_softc = sc;
sc->sc_base = base;
sc->sc_dmachan = dev->id_drq;
sc->sc_locked = 0;
vers = sbversion(base);
printf("sb%d: dsp v%d.%d\n", unit, vers >> 8, vers & 0xff);
}
#endif
struct sb_softc *
sbopen()
{
struct sb_softc *sc = sb_softc;
if (sc == 0)
return 0;
if (sc->sc_open == 0 && sbreset(sc->sc_base) == 0) {
sc->sc_open = 1;
sc->sc_mintr = 0;
sc->sc_intr = 0;
return (sc);
}
return (0);
}
void
sbclose(struct sb_softc *sc)
{
sc->sc_open = 0;
sb_spkroff(sc);
sc->sc_intr = 0;
sc->sc_mintr = 0;
/* XXX this will turn off any dma */
sbreset(sc->sc_base);
}
/*
* Write a byte to the dsp.
* XXX We are at the mercy of the card as we use a
* polling loop and wait until it can take the byte.
*/
static int
wdsp(u_long base, int v)
{
register int i;
for (i = 100; --i >= 0; ) {
if ((inb(base + SBP_DSP_WSTAT) & SB_DSP_BUSY) != 0)
continue;
outb(base + SBP_DSP_WRITE, v);
return (0);
}
++sberr.wdsp;
return (-1);
}
/*
* Read a byte from the DSP, using polling.
*/
int
rdsp(u_long base)
{
register int i;
for (i = 100; --i >= 0; ) {
if ((inb(base + SBP_DSP_RSTAT) & SB_DSP_READY) == 0)
continue;
return (inb(base + SBP_DSP_READ));
}
++sberr.rdsp;
return (-1);
}
/*
* Reset the card.
* Return non-zero if the card isn't detected.
*/
int
sbreset(register u_long base)
{
register int i;
/*
* See SBK, section 11.3.
* We pulse a reset signal into the card.
* Gee, what a brilliant hardware design.
*/
outb(base + SBP_DSP_RESET, 1);
DELAY(3);
outb(base + SBP_DSP_RESET, 0);
if (rdsp(base) != SB_MAGIC)
return (-1);
return (0);
}
/*
* Turn on the speaker. The SBK documention says this operation
* can take up to 1/10 of a second. Higher level layers should
* probably let the task sleep for this amount of time after
* calling here. Otherwise, things might not work (because
* wdsp() and rdsp() will probably timeout.)
*
* These engineers had their heads up their ass when
* they designed this card.
*/
void
sb_spkron(struct sb_softc *sc)
{
(void)wdsp(sc->sc_base, SB_DSP_SPKR_ON);
DELAY(1000);
}
/*
* Turn off the speaker; see comment above.
*/
void
sb_spkroff(struct sb_softc *sc)
{
(void)wdsp(sc->sc_base, SB_DSP_SPKR_OFF);
}
/*
* Read the version number out of the card. Return major code
* in high byte, and minor code in low byte.
*/
int
sbversion(register u_long base)
{
int v;
if (wdsp(base, SB_DSP_VERSION) < 0)
return (0);
v = rdsp(base) << 8;
v |= rdsp(base);
return ((v >= 0) ? v : 0);
}
/*
* Halt a DMA in progress. A low-speed transfer can be
* resumed with sb_contdma().
*/
void
sb_haltdma(struct sb_softc *sc)
{
if (sc->sc_locked)
sbreset(sc->sc_base);
else
(void)wdsp(sc->sc_base, SB_DSP_HALT);
}
void
sb_contdma(struct sb_softc *sc)
{
(void)wdsp(sc->sc_base, SB_DSP_CONT);
}
/*
* Time constant routines follow. See SBK, section 12.
* Although they don't come out and say it (in the docs),
* the card clearly uses a 1MHz countdown timer, as the
* low-speed formula (p. 12-4) is:
* tc = 256 - 10^6 / sr
* In high-speed mode, the constant is the upper byte of a 16-bit counter,
* and a 256MHz clock is used:
* tc = 65536 - 256 * 10^ 6 / sr
* Since we can only use the upper byte of the HS TC, the two formulae
* are equivalent. (Why didn't they say so?) E.g.,
* (65536 - 256 * 10 ^ 6 / x) >> 8 = 256 - 10^6 / x
*
* The crossover point (from low- to high-speed modes) is different
* for the SBPRO and SB20. The table on p. 12-5 gives the following data:
*
* SBPRO SB20
* ----- --------
* input ls min 4 KHz 4 HJz
* input ls max 23 KHz 13 KHz
* input hs max 44.1 KHz 15 KHz
* output ls min 4 KHz 4 KHz
* output ls max 23 KHz 23 KHz
* output hs max 44.1 KHz 44.1 KHz
*/
#define SB_LS_MIN 0x06 /* 4000 Hz */
#ifdef SBPRO
#define SB_ADC_LS_MAX 0xd4 /* 22727 Hz */
#define SB_ADC_HS_MAX 0xe9 /* 43478 Hz */
#else
#define SB_ADC_LS_MAX 0xb3 /* 12987 Hz */
#define SB_ADC_HS_MAX 0xbd /* 14925 Hz */
#endif
#define SB_DAC_LS_MAX 0xd4 /* 22727 Hz */
#define SB_DAC_HS_MAX 0xe9 /* 43478 Hz */
/*
* Convert a linear sampling rate into the DAC time constant.
* Set *mode to indicate the high/low-speed DMA operation.
* Because of limitations of the card, not all rates are possible.
* We return the time constant of the closest possible rate.
* The sampling rate limits are different for the DAC and ADC,
* so isdac indicates output, and !isdac indicates input.
*/
int
sb_srtotc(int sr, int *mode, int isdac)
{
register int tc = 256 - 1000000 / sr;
if (tc < SB_LS_MIN) {
tc = SB_LS_MIN;
*mode = SB_ADAC_LS;
} else if (isdac) {
if (tc < SB_DAC_LS_MAX)
*mode = SB_ADAC_LS;
else {
*mode = SB_ADAC_HS;
if (tc > SB_DAC_HS_MAX)
tc = SB_DAC_HS_MAX;
}
} else {
if (tc < SB_ADC_LS_MAX)
*mode = SB_ADAC_LS;
else {
*mode = SB_ADAC_HS;
if (tc > SB_ADC_HS_MAX)
tc = SB_ADC_HS_MAX;
}
}
return (tc);
}
/*
* Convert a DAC time constant to a sampling rate.
* See SBK, section 12.
*/
int
sb_tctosr(int tc)
{
return (1000000 / (256 - tc));
}
int
sb_set_sr(register struct sb_softc *sc, u_long *sr, int isdac)
{
register int tc;
int mode;
tc = sb_srtotc(*sr, &mode, isdac);
if (wdsp(sc->sc_base, SB_DSP_TIMECONST) < 0 ||
wdsp(sc->sc_base, tc) < 0)
return (-1);
*sr = sb_tctosr(tc);
sc->sc_adacmode = mode;
sc->sc_adactc = tc;
return (0);
}
int
sb_round_sr(u_long sr, int isdac)
{
int mode, tc;
tc = sb_srtotc(sr, &mode, isdac);
return (sb_tctosr(tc));
}
int
sb_dma_input(struct sb_softc *sc, void *p, int cc, void (*intr)(), void *arg)
{
register int base;
at_dma(1, p, cc, sc->sc_dmachan);
sc->sc_intr = intr;
sc->sc_arg = arg;
base = sc->sc_base;
--cc;
if (sc->sc_adacmode == SB_ADAC_LS) {
if (wdsp(base, SB_DSP_RDMA) < 0 ||
wdsp(base, cc) < 0 ||
wdsp(base, cc >> 8) < 0) {
sbreset(sc->sc_base);
return (EIO);
}
} else {
if (wdsp(base, SB_DSP_BLOCKSIZE) < 0 ||
wdsp(base, cc) < 0 ||
wdsp(base, cc >> 8) < 0 ||
wdsp(base, SB_DSP_HS_INPUT) < 0) {
sbreset(sc->sc_base);
return (EIO);
}
sc->sc_locked = 1;
}
return (0);
}
int
sb_dma_output(struct sb_softc *sc, void *p, int cc, void (*intr)(), void *arg)
{
register int base;
at_dma(0, p, cc, sc->sc_dmachan);
sc->sc_intr = intr;
sc->sc_arg = arg;
base = sc->sc_base;
--cc;
if (sc->sc_adacmode == SB_ADAC_LS) {
if (wdsp(base, SB_DSP_WDMA) < 0 ||
wdsp(base, cc) < 0 ||
wdsp(base, cc >> 8) < 0) {
sbreset(sc->sc_base);
return (EIO);
}
} else {
if (wdsp(base, SB_DSP_BLOCKSIZE) < 0 ||
wdsp(base, cc) < 0 ||
wdsp(base, cc >> 8) < 0 ||
wdsp(base, SB_DSP_HS_OUTPUT) < 0) {
sbreset(sc->sc_base);
return (EIO);
}
sc->sc_locked = 1;
}
return (0);
}
/*
* Only the DSP unit on the sound blaster generates interrupts.
* There are three cases of interrupt: reception of a midi byte
* (when mode is enabled), completion of dma transmission, or
* completion of a dma reception. The three modes are mutually
* exclusive so we know a priori which event has occurred.
*/
#ifdef NEWCONFIG
int
sbintr(struct sb_softc *sc)
{
#else
int
sbintr(int unit)
{
register struct sb_softc *sc = &sb_softcs[UNIT(unit)];
#endif
sc->sc_locked = 0;
/* clear interrupt */
inb(sc->sc_base + SBP_DSP_RSTAT);
if (sc->sc_mintr != 0) {
int c = rdsp(sc->sc_base);
(*sc->sc_mintr)(sc->sc_arg, c);
} else if(sc->sc_intr != 0) {
(*sc->sc_intr)(sc->sc_arg);
} else
return (0);
return (1);
}
/*
* Enter midi uart mode and arrange for read interrupts
* to vector to `intr'. This puts the card in a mode
* which allows only midi I/O; the card must be reset
* to leave this mode. Unfortunately, the card does not
* use transmit interrupts, so bytes must be output
* using polling. To keep the polling overhead to a
* minimum, output should be driven off a timer.
* This is a little tricky since only 320us separate
* consecutive midi bytes.
*/
void
sb_set_midi_mode(struct sb_softc *sc, void (*intr)(), void *arg)
{
wdsp(sc->sc_base, SB_MIDI_UART_INTR);
sc->sc_mintr = intr;
sc->sc_intr = 0;
sc->sc_arg = arg;
}
/*
* Write a byte to the midi port, when in midi uart mode.
*/
void
sb_midi_output(struct sb_softc *sc, int v)
{
if (wdsp(sc->sc_base, v) < 0)
++sberr.wmidi;
}
#endif