db90128160
cloning infrastructure standard in kern_conf. Modules are now the same with or without devfs support. If you need to detect if devfs is present, in modules or elsewhere, check the integer variable "devfs_present". This happily removes an ugly hack from kern/vfs_conf.c. This forces a rename of the eventhandler and the standard clone helper function. Include <sys/eventhandler.h> in <sys/conf.h>: it's a helper #include like <sys/queue.h> Remove all #includes of opt_devfs.h they no longer matter.
834 lines
18 KiB
C
834 lines
18 KiB
C
/*
|
|
* The low level driver for Roland MPU-401 compatible Midi interfaces.
|
|
*
|
|
* Copyright by Hannu Savolainen 1993
|
|
*
|
|
* 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.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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.
|
|
*
|
|
* Modified: Riccardo Facchetti 24 Mar 1995 - Added the Audio Excel DSP 16
|
|
* initialization routine.
|
|
*
|
|
* Ported to the new Audio Driver by Luigi Rizzo:
|
|
* (C) 1999 Seigo Tanimura
|
|
*
|
|
* This is the MPU401 midi interface driver for FreeBSD, based on the Luigi Sound Driver.
|
|
* This handles io against /dev/midi, the midi {in, out}put event queues
|
|
* and the event/message transmittion to/from an MPU401 interface.
|
|
*
|
|
* $FreeBSD$
|
|
*
|
|
*/
|
|
|
|
#include <dev/sound/midi/midi.h>
|
|
#include <dev/sound/chip.h>
|
|
#include <machine/cpufunc.h>
|
|
|
|
#include <isa/isavar.h>
|
|
#include <isa/sioreg.h>
|
|
#include <isa/ic/ns16550.h>
|
|
|
|
#define MPU_USEMICROTIMER 0
|
|
|
|
static devclass_t midi_devclass;
|
|
|
|
#ifndef DDB
|
|
#undef DDB
|
|
#define DDB(x)
|
|
#endif /* DDB */
|
|
|
|
#define MPU_DATAPORT 0
|
|
#define MPU_CMDPORT 1
|
|
#define MPU_STATPORT 1
|
|
|
|
#define MPU_RESET 0xff
|
|
#define MPU_UART 0x3f
|
|
#define MPU_ACK 0xfe
|
|
|
|
#define MPU_STATMASK 0xc0
|
|
#define MPU_OUTPUTBUSY 0x40
|
|
#define MPU_INPUTBUSY 0x80
|
|
|
|
#define MPU_TRYDATA 50
|
|
#define MPU_DELAY 25000
|
|
|
|
/* Device flag. */
|
|
#define MPU_DF_NO_IRQ 1
|
|
|
|
extern synthdev_info midisynth_op_desc;
|
|
|
|
/* PnP IDs */
|
|
static struct isa_pnp_id mpu_ids[] = {
|
|
{0x01200001, "@H@2001 Midi Interface"}, /* @H@2001 */
|
|
{0x01100001, "@H@1001 Midi Interface"}, /* @H@1001 */
|
|
#if notdef
|
|
/* TODO: write bridge driver for these devices */
|
|
{0x0000630e, "CSC0000 Midi Interface"}, /* CSC0000 */
|
|
{0x2100a865, "YMH0021 Midi Interface"}, /* YMH0021 */
|
|
{0x80719304, "ADS7180 Midi Interface"}, /* ADS7180 */
|
|
{0x0300561e, "GRV0003 Midi Interface"}, /* GRV0003 */
|
|
#endif
|
|
};
|
|
|
|
/* These are the synthesizer and the midi interface information. */
|
|
static struct synth_info mpu_synthinfo = {
|
|
"MPU401 MIDI",
|
|
0,
|
|
SYNTH_TYPE_MIDI,
|
|
0,
|
|
0,
|
|
128,
|
|
128,
|
|
128,
|
|
SYNTH_CAP_INPUT,
|
|
};
|
|
|
|
static struct midi_info mpu_midiinfo = {
|
|
"MPU401 MIDI",
|
|
0,
|
|
0,
|
|
0,
|
|
};
|
|
|
|
/*
|
|
* These functions goes into mpu_op_desc to get called
|
|
* from sound.c.
|
|
*/
|
|
|
|
static int mpu_probe(device_t dev);
|
|
static int mpu_probe1(device_t dev);
|
|
static int mpu_probe2(device_t dev);
|
|
static int mpu_attach(device_t dev);
|
|
static int mpusbc_probe(device_t dev);
|
|
static int mpusbc_attach(device_t dev);
|
|
|
|
static d_ioctl_t mpu_ioctl;
|
|
static driver_intr_t mpu_intr;
|
|
static midi_callback_t mpu_callback;
|
|
|
|
/* Here is the parameter structure per a device. */
|
|
struct mpu_softc {
|
|
device_t dev; /* device information */
|
|
mididev_info *devinfo; /* midi device information */
|
|
|
|
struct resource *io; /* Base of io port */
|
|
int io_rid; /* Io resource ID */
|
|
u_long irq_val; /* Irq value */
|
|
struct resource *irq; /* Irq */
|
|
int irq_rid; /* Irq resource ID */
|
|
void *ih; /* Interrupt cookie */
|
|
|
|
struct callout_handle dh; /* Callout handler for delay */
|
|
|
|
int fflags; /* File flags */
|
|
};
|
|
|
|
typedef struct mpu_softc *sc_p;
|
|
|
|
/* These functions are local. */
|
|
static void mpu_startplay(sc_p scp);
|
|
static void mpu_xmit(sc_p scp);
|
|
#if MPU_USEMICROTIMER
|
|
static void mpu_timeout(sc_p scp);
|
|
static timeout_t mpu_timer;
|
|
#endif /* MPU_USEMICROTIMER */
|
|
static int mpu_resetmode(sc_p scp);
|
|
static int mpu_uartmode(sc_p scp);
|
|
static int mpu_waitack(sc_p scp);
|
|
static int mpu_status(sc_p scp);
|
|
static int mpu_command(sc_p scp, u_int8_t value);
|
|
static int mpu_readdata(sc_p scp);
|
|
static int mpu_writedata(sc_p scp, u_int8_t value);
|
|
static u_int mpu_readport(sc_p scp, int off);
|
|
static void mpu_writeport(sc_p scp, int off, u_int8_t value);
|
|
static int mpu_allocres(sc_p scp, device_t dev);
|
|
static void mpu_releaseres(sc_p scp, device_t dev);
|
|
|
|
/*
|
|
* This is the device descriptor for the midi device.
|
|
*/
|
|
static mididev_info mpu_op_desc = {
|
|
"MPU401 midi",
|
|
|
|
SNDCARD_MPU401,
|
|
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
mpu_ioctl,
|
|
NULL,
|
|
|
|
mpu_callback,
|
|
|
|
MIDI_BUFFSIZE, /* Queue Length */
|
|
|
|
0, /* XXX This is not an *audio* device! */
|
|
};
|
|
|
|
/*
|
|
* Here are the main functions to interact to the user process.
|
|
*/
|
|
|
|
static int
|
|
mpu_probe(device_t dev)
|
|
{
|
|
sc_p scp;
|
|
int ret;
|
|
|
|
/* Check isapnp ids */
|
|
if (isa_get_logicalid(dev) != 0)
|
|
return (ISA_PNP_PROBE(device_get_parent(dev), dev, mpu_ids));
|
|
|
|
scp = device_get_softc(dev);
|
|
|
|
device_set_desc(dev, mpu_op_desc.name);
|
|
bzero(scp, sizeof(*scp));
|
|
|
|
scp->io_rid = 0;
|
|
ret = mpu_probe1(dev);
|
|
if (ret != 0)
|
|
return (ret);
|
|
ret = mpu_probe2(dev);
|
|
if (ret != 0)
|
|
return (ret);
|
|
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* Make sure this is an MPU401, not an 16550 uart.
|
|
* Called only for non-pnp devices.
|
|
*/
|
|
static int
|
|
mpu_probe1(device_t dev)
|
|
{
|
|
sc_p scp;
|
|
int iir;
|
|
struct resource *io;
|
|
|
|
scp = device_get_softc(dev);
|
|
|
|
/*
|
|
* If an MPU401 is ready to both input and output,
|
|
* the status register value is zero, which may
|
|
* confuse an 16550 uart to probe as an MPU401.
|
|
* We read the IIR (base + 2), which is not used
|
|
* by an MPU401.
|
|
*/
|
|
io = bus_alloc_resource(dev, SYS_RES_IOPORT, &scp->io_rid, 0, ~0, 3, RF_ACTIVE);
|
|
iir = bus_space_read_1(rman_get_bustag(io), rman_get_bushandle(io), com_iir) & 0xff;
|
|
bus_release_resource(dev, SYS_RES_IOPORT, scp->io_rid, io);
|
|
if ((iir & ~(IIR_IMASK | IIR_FIFO_MASK)) == 0)
|
|
/* Likely to be an 16550. */
|
|
return (ENXIO);
|
|
|
|
return (0);
|
|
}
|
|
|
|
/* Look up the irq. */
|
|
static int
|
|
mpu_probe2(device_t dev)
|
|
{
|
|
sc_p scp;
|
|
int unit, i;
|
|
intrmask_t irqp0, irqp1;
|
|
|
|
scp = device_get_softc(dev);
|
|
unit = device_get_unit(dev);
|
|
|
|
scp->io = bus_alloc_resource(dev, SYS_RES_IOPORT, &scp->io_rid, 0, ~0, 2, RF_ACTIVE);
|
|
if (scp->io == NULL)
|
|
return (ENXIO);
|
|
|
|
DEB(printf("mpu%d: probing.\n", unit));
|
|
|
|
/* Reset the interface. */
|
|
if (mpu_resetmode(scp) != 0 || mpu_waitack(scp) != 0) {
|
|
printf("mpu%d: reset failed.\n", unit);
|
|
mpu_releaseres(scp, dev);
|
|
return (ENXIO);
|
|
}
|
|
|
|
/*
|
|
* At this point, we are likely to have an interface.
|
|
*
|
|
* Switching the interface to uart mode gives us an interrupt.
|
|
* We can make use of it to determine the irq.
|
|
* Idea-stolen-from: sys/isa/sio.c:sioprobe()
|
|
*/
|
|
|
|
disable_intr();
|
|
|
|
/*
|
|
* See the initial irq. We have to do this now,
|
|
* otherwise a midi module/instrument might send
|
|
* an active sensing, to mess up the irq.
|
|
*/
|
|
irqp0 = isa_irq_pending();
|
|
irqp1 = 0;
|
|
|
|
/* Switch to uart mode. */
|
|
if (mpu_uartmode(scp) != 0) {
|
|
enable_intr();
|
|
printf("mpu%d: mode switching failed.\n", unit);
|
|
mpu_releaseres(scp, dev);
|
|
return (ENXIO);
|
|
}
|
|
|
|
if (device_get_flags(dev) & MPU_DF_NO_IRQ) {
|
|
irqp0 = irqp1 = 0;
|
|
goto no_irq;
|
|
}
|
|
|
|
/* See which irq we have now. */
|
|
for (i = 0 ; i < MPU_TRYDATA ; i++) {
|
|
DELAY(MPU_DELAY);
|
|
irqp1 = isa_irq_pending();
|
|
if (irqp1 != irqp0)
|
|
break;
|
|
}
|
|
if (irqp1 == irqp0) {
|
|
enable_intr();
|
|
printf("mpu%d: switching the mode gave no interrupt.\n", unit);
|
|
mpu_releaseres(scp, dev);
|
|
return (ENXIO);
|
|
}
|
|
|
|
no_irq:
|
|
/* Wait to see an ACK. */
|
|
if (mpu_waitack(scp) != 0) {
|
|
enable_intr();
|
|
printf("mpu%d: not acked.\n", unit);
|
|
mpu_releaseres(scp, dev);
|
|
return (ENXIO);
|
|
}
|
|
|
|
enable_intr();
|
|
|
|
if (device_get_flags(dev) & MPU_DF_NO_IRQ)
|
|
scp->irq_val = 0;
|
|
else
|
|
/* We have found the irq. */
|
|
scp->irq_val = ffs(~irqp0 & irqp1) - 1;
|
|
|
|
DEB(printf("mpu%d: probed.\n", unit));
|
|
|
|
return (0);
|
|
}
|
|
|
|
static int
|
|
mpusbc_probe(device_t dev)
|
|
{
|
|
char *s;
|
|
sc_p scp;
|
|
struct sndcard_func *func;
|
|
|
|
/* The parent device has already been probed. */
|
|
|
|
func = device_get_ivars(dev);
|
|
if (func == NULL || func->func != SCF_MIDI)
|
|
return (ENXIO);
|
|
|
|
s = "SB Midi Interface";
|
|
|
|
scp = device_get_softc(dev);
|
|
bzero(scp, sizeof(*scp));
|
|
scp->io_rid = 1;
|
|
scp->irq_rid = 0;
|
|
device_set_desc(dev, s);
|
|
return (0);
|
|
}
|
|
|
|
static int
|
|
mpu_attach(device_t dev)
|
|
{
|
|
sc_p scp;
|
|
mididev_info *devinfo;
|
|
int unit;
|
|
|
|
scp = device_get_softc(dev);
|
|
unit = device_get_unit(dev);
|
|
|
|
DEB(printf("mpu%d: attaching.\n", unit));
|
|
|
|
/* Allocate the resources, switch to uart mode. */
|
|
if (mpu_allocres(scp, dev) || mpu_uartmode(scp)) {
|
|
mpu_releaseres(scp, dev);
|
|
return (ENXIO);
|
|
}
|
|
|
|
/* mpu_probe() has put the interface to uart mode. */
|
|
|
|
/* Fill the softc. */
|
|
scp->dev = dev;
|
|
scp->devinfo = devinfo = &midi_info[unit];
|
|
callout_handle_init(&scp->dh);
|
|
|
|
/* Fill the midi info. */
|
|
bcopy(&mpu_op_desc, devinfo, sizeof(mpu_op_desc));
|
|
midiinit(devinfo, dev);
|
|
devinfo->flags = 0;
|
|
bcopy(&midisynth_op_desc, &devinfo->synth, sizeof(midisynth_op_desc));
|
|
if (scp->irq != NULL)
|
|
snprintf(devinfo->midistat, sizeof(devinfo->midistat), "at 0x%x irq %d",
|
|
(u_int)rman_get_start(scp->io), (int)rman_get_start(scp->irq));
|
|
else
|
|
snprintf(devinfo->midistat, sizeof(devinfo->midistat), "at 0x%x",
|
|
(u_int)rman_get_start(scp->io));
|
|
|
|
/* Init the queue. */
|
|
devinfo->midi_dbuf_in.unit_size = devinfo->midi_dbuf_out.unit_size = 1;
|
|
midibuf_init(&devinfo->midi_dbuf_in);
|
|
midibuf_init(&devinfo->midi_dbuf_out);
|
|
|
|
/* Increase the number of midi devices. */
|
|
nmidi++;
|
|
|
|
/* Now we can handle the interrupts. */
|
|
if (scp->irq != NULL)
|
|
bus_setup_intr(dev, scp->irq, INTR_TYPE_TTY, mpu_intr, scp,
|
|
&scp->ih);
|
|
|
|
DEB(printf("mpu%d: attached.\n", unit));
|
|
|
|
return (0);
|
|
}
|
|
|
|
static int
|
|
mpusbc_attach(device_t dev)
|
|
{
|
|
sc_p scp;
|
|
int unit;
|
|
|
|
scp = device_get_softc(dev);
|
|
unit = device_get_unit(dev);
|
|
|
|
mpu_attach(dev);
|
|
|
|
return (0);
|
|
}
|
|
|
|
static int
|
|
mpu_ioctl(dev_t i_dev, u_long cmd, caddr_t arg, int mode, struct proc *p)
|
|
{
|
|
sc_p scp;
|
|
mididev_info *devinfo;
|
|
int unit;
|
|
struct synth_info *synthinfo;
|
|
struct midi_info *midiinfo;
|
|
|
|
unit = MIDIUNIT(i_dev);
|
|
|
|
if (unit >= nmidi + nsynth) {
|
|
DEB(printf("mpu_ioctl: unit %d does not exist.\n", unit));
|
|
return (ENXIO);
|
|
}
|
|
|
|
devinfo = get_mididev_info(i_dev, &unit);
|
|
if (devinfo == NULL) {
|
|
DEB(printf("mpu_ioctl: unit %d is not configured.\n", unit));
|
|
return (ENXIO);
|
|
}
|
|
scp = devinfo->softc;
|
|
|
|
switch (cmd) {
|
|
case SNDCTL_SYNTH_INFO:
|
|
synthinfo = (struct synth_info *)arg;
|
|
if (synthinfo->device > nmidi + nsynth || synthinfo->device != unit)
|
|
return (ENXIO);
|
|
bcopy(&mpu_synthinfo, synthinfo, sizeof(mpu_synthinfo));
|
|
synthinfo->device = unit;
|
|
return (0);
|
|
break;
|
|
case SNDCTL_MIDI_INFO:
|
|
midiinfo = (struct midi_info *)arg;
|
|
if (midiinfo->device > nmidi + nsynth || midiinfo->device != unit)
|
|
return (ENXIO);
|
|
bcopy(&mpu_midiinfo, midiinfo, sizeof(mpu_midiinfo));
|
|
midiinfo->device = unit;
|
|
return (0);
|
|
break;
|
|
default:
|
|
return (ENOSYS);
|
|
}
|
|
/* NOTREACHED */
|
|
return (EINVAL);
|
|
}
|
|
|
|
static void
|
|
mpu_intr(void *arg)
|
|
{
|
|
sc_p scp;
|
|
u_char c;
|
|
mididev_info *devinfo;
|
|
|
|
scp = (sc_p)arg;
|
|
devinfo = scp->devinfo;
|
|
|
|
/* Read the received data. */
|
|
while ((mpu_status(scp) & MPU_INPUTBUSY) == 0) {
|
|
/* Receive the data. */
|
|
c = mpu_readdata(scp);
|
|
/* Queue into the passthru buffer and start transmitting if we can. */
|
|
if ((devinfo->flags & MIDI_F_PASSTHRU) != 0 && ((devinfo->flags & MIDI_F_BUSY) == 0 || (devinfo->fflags & FWRITE) == 0)) {
|
|
midibuf_input_intr(&devinfo->midi_dbuf_passthru, &c, sizeof(c));
|
|
devinfo->callback(devinfo, MIDI_CB_START | MIDI_CB_WR);
|
|
}
|
|
/* Queue if we are reading. Discard an active sensing. */
|
|
if ((devinfo->flags & MIDI_F_READING) != 0 && c != 0xfe)
|
|
midibuf_input_intr(&devinfo->midi_dbuf_in, &c, sizeof(c));
|
|
}
|
|
|
|
/* Invoke the upper layer. */
|
|
midi_intr(devinfo);
|
|
|
|
}
|
|
|
|
static int
|
|
mpu_callback(mididev_info *d, int reason)
|
|
{
|
|
int unit;
|
|
sc_p scp;
|
|
|
|
if (d == NULL) {
|
|
DEB(printf("mpu_callback: device not configured.\n"));
|
|
return (ENXIO);
|
|
}
|
|
|
|
unit = d->unit;
|
|
scp = d->softc;
|
|
|
|
switch (reason & MIDI_CB_REASON_MASK) {
|
|
case MIDI_CB_START:
|
|
if ((reason & MIDI_CB_RD) != 0 && (d->flags & MIDI_F_READING) == 0)
|
|
/* Begin recording. */
|
|
d->flags |= MIDI_F_READING;
|
|
if ((reason & MIDI_CB_WR) != 0 && (d->flags & MIDI_F_WRITING) == 0)
|
|
/* Start playing. */
|
|
mpu_startplay(scp);
|
|
break;
|
|
case MIDI_CB_STOP:
|
|
case MIDI_CB_ABORT:
|
|
if ((reason & MIDI_CB_RD) != 0 && (d->flags & MIDI_F_READING) != 0)
|
|
/* Stop recording. */
|
|
d->flags &= ~MIDI_F_READING;
|
|
if ((reason & MIDI_CB_WR) != 0 && (d->flags & MIDI_F_WRITING) != 0)
|
|
/* Stop Playing. */
|
|
d->flags &= ~MIDI_F_WRITING;
|
|
break;
|
|
}
|
|
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* The functions below here are the libraries for the above ones.
|
|
*/
|
|
|
|
/*
|
|
* Starts to play the data in the output queue.
|
|
* Call this at >=splclock.
|
|
*/
|
|
static void
|
|
mpu_startplay(sc_p scp)
|
|
{
|
|
mididev_info *devinfo;
|
|
|
|
devinfo = scp->devinfo;
|
|
|
|
/* Can we play now? */
|
|
if (devinfo->midi_dbuf_out.rl == 0)
|
|
return;
|
|
|
|
devinfo->flags |= MIDI_F_WRITING;
|
|
#if MPU_USEMICROTIMER
|
|
mpu_timeout(scp);
|
|
#else
|
|
mpu_xmit(scp);
|
|
#endif /* MPU_USEMICROTIMER */
|
|
}
|
|
|
|
static void
|
|
mpu_xmit(sc_p scp)
|
|
{
|
|
register mididev_info *devinfo;
|
|
register midi_dbuf *dbuf;
|
|
u_char c;
|
|
|
|
devinfo = scp->devinfo;
|
|
|
|
/* See which source to use. */
|
|
if ((devinfo->flags & MIDI_F_PASSTHRU) == 0 || ((devinfo->flags & MIDI_F_BUSY) != 0 && (devinfo->fflags & FWRITE) != 0))
|
|
dbuf = &devinfo->midi_dbuf_out;
|
|
else
|
|
dbuf = &devinfo->midi_dbuf_passthru;
|
|
|
|
/* Transmit the data in the queue. */
|
|
#if MPU_USEMICROTIMER
|
|
while ((devinfo->flags & MIDI_F_WRITING) != 0 && (mpu_status(scp) & MPU_OUTPUTBUSY) == 0) {
|
|
/* Do we have the data to transmit? */
|
|
if (dbuf->rl == 0) {
|
|
/* Stop playing. */
|
|
devinfo->flags &= ~MIDI_F_WRITING;
|
|
break;
|
|
} else {
|
|
/* Send the data. */
|
|
midibuf_output_intr(dbuf, &c, sizeof(c));
|
|
mpu_writedata(scp, c);
|
|
/* We are playing now. */
|
|
devinfo->flags |= MIDI_F_WRITING;
|
|
}
|
|
}
|
|
|
|
/* De we have still more? */
|
|
if ((devinfo->flags & MIDI_F_WRITING) != 0)
|
|
/* Handle them on the next interrupt. */
|
|
mpu_timeout(scp);
|
|
#else
|
|
while ((devinfo->flags & MIDI_F_WRITING) != 0 && dbuf->rl > 0) {
|
|
/* XXX Wait until we can write the data. */
|
|
while ((mpu_status(scp) & MPU_OUTPUTBUSY) != 0);
|
|
/* Send the data. */
|
|
midibuf_output_intr(dbuf, &c, sizeof(c));
|
|
mpu_writedata(scp, c);
|
|
/* We are playing now. */
|
|
devinfo->flags |= MIDI_F_WRITING;
|
|
}
|
|
/* Stop playing. */
|
|
devinfo->flags &= ~MIDI_F_WRITING;
|
|
#endif /* MPU_USEMICROTIMER */
|
|
}
|
|
|
|
#if MPU_USEMICROTIMER
|
|
/* Arm a timer. */
|
|
static void
|
|
mpu_timeout(sc_p scp)
|
|
{
|
|
microtimeout(mpu_timer, scp, hz * hzmul / 3125);
|
|
}
|
|
|
|
/* Called when a timer has beeped. */
|
|
static void
|
|
mpu_timer(void *arg)
|
|
{
|
|
sc_p scp;
|
|
|
|
scp = arg;
|
|
mpu_xmit(scp);
|
|
}
|
|
#endif /* MPU_USEMICROTIMER */
|
|
|
|
/* Reset mpu. */
|
|
static int
|
|
mpu_resetmode(sc_p scp)
|
|
{
|
|
int i, resp;
|
|
|
|
/* Reset the mpu. */
|
|
resp = 0;
|
|
for (i = 0 ; i < MPU_TRYDATA ; i++) {
|
|
resp = mpu_command(scp, MPU_RESET);
|
|
if (resp == 0)
|
|
break;
|
|
}
|
|
if (resp != 0)
|
|
return (1);
|
|
|
|
DELAY(MPU_DELAY);
|
|
return (0);
|
|
}
|
|
|
|
/* Switch to uart mode. */
|
|
static int
|
|
mpu_uartmode(sc_p scp)
|
|
{
|
|
int i, resp;
|
|
|
|
/* Switch to uart mode. */
|
|
resp = 0;
|
|
for (i = 0 ; i < MPU_TRYDATA ; i++) {
|
|
resp = mpu_command(scp, MPU_UART);
|
|
if (resp == 0)
|
|
break;
|
|
}
|
|
if (resp != 0)
|
|
return (1);
|
|
|
|
DELAY(MPU_DELAY);
|
|
return (0);
|
|
}
|
|
|
|
/* Wait to see an ACK. */
|
|
static int
|
|
mpu_waitack(sc_p scp)
|
|
{
|
|
int i, resp;
|
|
|
|
resp = 0;
|
|
for (i = 0 ; i < MPU_TRYDATA ; i++) {
|
|
resp = mpu_readdata(scp);
|
|
if (resp >= 0)
|
|
break;
|
|
}
|
|
if (resp != MPU_ACK)
|
|
return (1);
|
|
|
|
DELAY(MPU_DELAY);
|
|
return (0);
|
|
}
|
|
|
|
/* Reads the status. */
|
|
static int
|
|
mpu_status(sc_p scp)
|
|
{
|
|
return mpu_readport(scp, MPU_STATPORT);
|
|
}
|
|
|
|
/* Writes a command. */
|
|
static int
|
|
mpu_command(sc_p scp, u_int8_t value)
|
|
{
|
|
u_int status;
|
|
|
|
/* Is the interface ready to write? */
|
|
status = mpu_status(scp);
|
|
if ((status & MPU_OUTPUTBUSY) != 0)
|
|
/* The interface is busy. */
|
|
return (EAGAIN);
|
|
|
|
mpu_writeport(scp, MPU_CMDPORT, value);
|
|
|
|
return (0);
|
|
}
|
|
|
|
/* Reads a byte of data. */
|
|
static int
|
|
mpu_readdata(sc_p scp)
|
|
{
|
|
u_int status;
|
|
|
|
/* Is the interface ready to write? */
|
|
status = mpu_status(scp);
|
|
if ((status & MPU_INPUTBUSY) != 0)
|
|
/* The interface is busy. */
|
|
return (-EAGAIN);
|
|
|
|
return (int)mpu_readport(scp, MPU_DATAPORT) & 0xff;
|
|
}
|
|
|
|
/* Writes a byte of data. */
|
|
static int
|
|
mpu_writedata(sc_p scp, u_int8_t value)
|
|
{
|
|
u_int status;
|
|
|
|
/* Is the interface ready to write? */
|
|
status = mpu_status(scp);
|
|
if ((status & MPU_OUTPUTBUSY) != 0)
|
|
/* The interface is busy. */
|
|
return (EAGAIN);
|
|
|
|
mpu_writeport(scp, MPU_DATAPORT, value);
|
|
|
|
return (0);
|
|
}
|
|
|
|
/* Reads from a port. */
|
|
static u_int
|
|
mpu_readport(sc_p scp, int off)
|
|
{
|
|
return bus_space_read_1(rman_get_bustag(scp->io), rman_get_bushandle(scp->io), off) & 0xff;
|
|
}
|
|
|
|
/* Writes to a port. */
|
|
static void
|
|
mpu_writeport(sc_p scp, int off, u_int8_t value)
|
|
{
|
|
bus_space_write_1(rman_get_bustag(scp->io), rman_get_bushandle(scp->io), off, value);
|
|
}
|
|
|
|
/* Allocates resources. */
|
|
static int
|
|
mpu_allocres(sc_p scp, device_t dev)
|
|
{
|
|
if (scp->io == NULL) {
|
|
scp->io = bus_alloc_resource(dev, SYS_RES_IOPORT, &scp->io_rid, 0, ~0, 2, RF_ACTIVE);
|
|
if (scp->io == NULL)
|
|
return (1);
|
|
}
|
|
if (scp->irq == NULL && !(device_get_flags(dev) & MPU_DF_NO_IRQ)) {
|
|
if (scp->irq_val == 0)
|
|
scp->irq = bus_alloc_resource(dev, SYS_RES_IRQ, &scp->irq_rid, 0, ~0, 1, RF_ACTIVE | RF_SHAREABLE);
|
|
else
|
|
scp->irq = bus_alloc_resource(dev, SYS_RES_IRQ, &scp->irq_rid, scp->irq_val, scp->irq_val, 1, RF_ACTIVE | RF_SHAREABLE);
|
|
if (scp->irq == NULL)
|
|
return (1);
|
|
}
|
|
|
|
return (0);
|
|
}
|
|
|
|
/* Releases resources. */
|
|
static void
|
|
mpu_releaseres(sc_p scp, device_t dev)
|
|
{
|
|
if (scp->irq != NULL) {
|
|
bus_release_resource(dev, SYS_RES_IRQ, scp->irq_rid, scp->irq);
|
|
scp->irq = NULL;
|
|
}
|
|
if (scp->io != NULL) {
|
|
bus_release_resource(dev, SYS_RES_IOPORT, scp->io_rid, scp->io);
|
|
scp->io = NULL;
|
|
}
|
|
}
|
|
|
|
static device_method_t mpu_methods[] = {
|
|
/* Device interface */
|
|
DEVMETHOD(device_probe , mpu_probe ),
|
|
DEVMETHOD(device_attach, mpu_attach),
|
|
|
|
{ 0, 0 },
|
|
};
|
|
|
|
static driver_t mpu_driver = {
|
|
"midi",
|
|
mpu_methods,
|
|
sizeof(struct mpu_softc),
|
|
};
|
|
|
|
DRIVER_MODULE(mpu, isa, mpu_driver, midi_devclass, 0, 0);
|
|
|
|
static device_method_t mpusbc_methods[] = {
|
|
/* Device interface */
|
|
DEVMETHOD(device_probe , mpusbc_probe ),
|
|
DEVMETHOD(device_attach, mpusbc_attach),
|
|
|
|
{ 0, 0 },
|
|
};
|
|
|
|
static driver_t mpusbc_driver = {
|
|
"midi",
|
|
mpusbc_methods,
|
|
sizeof(struct mpu_softc),
|
|
};
|
|
|
|
DRIVER_MODULE(mpusbc, sbc, mpusbc_driver, midi_devclass, 0, 0);
|