summaryrefslogtreecommitdiffstats
path: root/sys/i386/isa/sound/mpu401.c
diff options
context:
space:
mode:
Diffstat (limited to 'sys/i386/isa/sound/mpu401.c')
-rw-r--r--sys/i386/isa/sound/mpu401.c1631
1 files changed, 1631 insertions, 0 deletions
diff --git a/sys/i386/isa/sound/mpu401.c b/sys/i386/isa/sound/mpu401.c
new file mode 100644
index 0000000..0bd1412
--- /dev/null
+++ b/sys/i386/isa/sound/mpu401.c
@@ -0,0 +1,1631 @@
+/*
+ * sound/mpu401.c
+ *
+ * The low level driver for Roland MPU-401 compatible Midi cards.
+ *
+ * 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.
+ */
+
+#define USE_SEQ_MACROS
+#define USE_SIMPLE_MACROS
+
+#include <i386/isa/sound/sound_config.h>
+
+#if (defined(CONFIG_MPU401) || defined(CONFIG_MPU_EMU)) && defined(CONFIG_MIDI)
+#include <i386/isa/sound/coproc.h>
+
+static int init_sequence[20]; /* NOTE! pos 0 = len, start pos 1. */
+
+#ifdef CONFIG_SEQUENCER
+static int timer_mode = TMR_INTERNAL, timer_caps = TMR_INTERNAL;
+
+#endif
+
+struct mpu_config {
+ int base; /* I/O base */
+ int irq;
+ int opened; /* Open mode */
+ int devno;
+ int synthno;
+ int uart_mode;
+ int initialized;
+ int mode;
+#define MODE_MIDI 1
+#define MODE_SYNTH 2
+ u_char version, revision;
+ u_int capabilities;
+#define MPU_CAP_INTLG 0x10000000
+#define MPU_CAP_SYNC 0x00000010
+#define MPU_CAP_FSK 0x00000020
+#define MPU_CAP_CLS 0x00000040
+#define MPU_CAP_SMPTE 0x00000080
+#define MPU_CAP_2PORT 0x00000001
+ int timer_flag;
+
+#define MBUF_MAX 10
+#define BUFTEST(dc) if (dc->m_ptr >= MBUF_MAX || dc->m_ptr < 0) \
+ {printf("MPU: Invalid buffer pointer %d/%d, s=%d\n", dc->m_ptr, dc->m_left, dc->m_state);dc->m_ptr--;}
+ int m_busy;
+ u_char m_buf[MBUF_MAX];
+ int m_ptr;
+ int m_state;
+ int m_left;
+ u_char last_status;
+ void (*inputintr) (int dev, u_char data);
+ int shared_irq;
+ sound_os_info *osp;
+};
+
+#define DATAPORT(base) (base)
+#define COMDPORT(base) (base+1)
+#define STATPORT(base) (base+1)
+
+#define mpu401_status(devc) inb( STATPORT(devc->base))
+#define input_avail(devc) (!(mpu401_status(devc)&INPUT_AVAIL))
+#define output_ready(devc) (!(mpu401_status(devc)&OUTPUT_READY))
+#define write_command(devc, cmd) outb( COMDPORT(devc->base), cmd)
+#define read_data(devc) inb( DATAPORT(devc->base))
+
+#define write_data(devc, byte) outb( DATAPORT(devc->base), byte)
+
+#define OUTPUT_READY 0x40
+#define INPUT_AVAIL 0x80
+#define MPU_ACK 0xFE
+#define MPU_RESET 0xFF
+#define UART_MODE_ON 0x3F
+
+static struct mpu_config dev_conf[MAX_MIDI_DEV] = { {0}};
+
+static int n_mpu_devs = 0;
+static volatile int irq2dev[17] =
+ {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1};
+
+static int reset_mpu401(struct mpu_config * devc);
+static void set_uart_mode(int dev, struct mpu_config * devc, int arg);
+
+static void mpu_timer_init(int midi_dev);
+static void mpu_timer_interrupt(void);
+static void timer_ext_event(struct mpu_config * devc, int event, int parm);
+
+static struct synth_info mpu_synth_info_proto =
+{"MPU-401 MIDI interface", 0, SYNTH_TYPE_MIDI, 0, 0, 128, 0, 128, SYNTH_CAP_INPUT};
+
+static struct synth_info mpu_synth_info[MAX_MIDI_DEV];
+
+/*
+ * States for the input scanner
+ */
+
+#define ST_INIT 0 /* Ready for timing byte or msg */
+#define ST_TIMED 1 /* Leading timing byte rcvd */
+#define ST_DATABYTE 2 /* Waiting for (nr_left) data bytes */
+
+#define ST_SYSMSG 100 /* System message (sysx etc). */
+#define ST_SYSEX 101 /* System exclusive msg */
+#define ST_MTC 102 /* Midi Time Code (MTC) qframe msg */
+#define ST_SONGSEL 103 /* Song select */
+#define ST_SONGPOS 104 /* Song position pointer */
+
+static u_char len_tab[] =/* # of data bytes following a status */
+{
+ 2, /* 8x */
+ 2, /* 9x */
+ 2, /* Ax */
+ 2, /* Bx */
+ 1, /* Cx */
+ 1, /* Dx */
+ 2, /* Ex */
+ 0 /* Fx */
+};
+
+#ifndef CONFIG_SEQUENCER
+#define STORE(cmd)
+#else
+#define STORE(cmd) \
+{ \
+ int len; \
+ u_char obuf[8]; \
+ cmd; \
+ seq_input_event(obuf, len); \
+}
+#endif
+
+#define _seqbuf obuf
+#define _seqbufptr 0
+#define _SEQ_ADVBUF(x) len=x
+
+static int
+mpu_input_scanner(struct mpu_config * devc, u_char midic)
+{
+
+ switch (devc->m_state) {
+ case ST_INIT:
+ switch (midic) {
+ case 0xf8:
+ /* Timer overflow */
+ break;
+
+ case 0xfc:
+ printf("<all end>");
+ break;
+
+ case 0xfd:
+ if (devc->timer_flag)
+ mpu_timer_interrupt();
+ break;
+
+ case 0xfe:
+ return MPU_ACK;
+ break;
+
+ case 0xf0:
+ case 0xf1:
+ case 0xf2:
+ case 0xf3:
+ case 0xf4:
+ case 0xf5:
+ case 0xf6:
+ case 0xf7:
+ printf("<Trk data rq #%d>", midic & 0x0f);
+ break;
+
+ case 0xf9:
+ printf("<conductor rq>");
+ break;
+
+ case 0xff:
+ devc->m_state = ST_SYSMSG;
+ break;
+
+ default:
+ if (midic <= 0xef) {
+ /* printf("mpu time: %d ", midic); */
+ devc->m_state = ST_TIMED;
+ } else
+ printf("<MPU: Unknown event %02x> ", midic);
+ }
+ break;
+
+ case ST_TIMED:
+ {
+ int msg = ((int) (midic & 0xf0) >> 4);
+
+ devc->m_state = ST_DATABYTE;
+
+ if (msg < 8) { /* Data byte */
+ /* printf("midi msg (running status) "); */
+ msg = ((int) (devc->last_status & 0xf0) >> 4);
+ msg -= 8;
+ devc->m_left = len_tab[msg] - 1;
+
+ devc->m_ptr = 2;
+ devc->m_buf[0] = devc->last_status;
+ devc->m_buf[1] = midic;
+
+ if (devc->m_left <= 0) {
+ devc->m_state = ST_INIT;
+ do_midi_msg(devc->synthno, devc->m_buf, devc->m_ptr);
+ devc->m_ptr = 0;
+ }
+ } else if (msg == 0xf) { /* MPU MARK */
+ devc->m_state = ST_INIT;
+
+ switch (midic) {
+ case 0xf8:
+ /* printf("NOP "); */
+ break;
+
+ case 0xf9:
+ /* printf("meas end "); */
+ break;
+
+ case 0xfc:
+ /* printf("data end "); */
+ break;
+
+ default:
+ printf("Unknown MPU mark %02x\n", midic);
+ }
+ } else {
+ devc->last_status = midic;
+ /* printf ("midi msg "); */
+ msg -= 8;
+ devc->m_left = len_tab[msg];
+
+ devc->m_ptr = 1;
+ devc->m_buf[0] = midic;
+
+ if (devc->m_left <= 0) {
+ devc->m_state = ST_INIT;
+ do_midi_msg(devc->synthno, devc->m_buf, devc->m_ptr);
+ devc->m_ptr = 0;
+ }
+ }
+ }
+ break;
+
+ case ST_SYSMSG:
+ switch (midic) {
+ case 0xf0:
+ printf("<SYX>");
+ devc->m_state = ST_SYSEX;
+ break;
+
+ case 0xf1:
+ devc->m_state = ST_MTC;
+ break;
+
+ case 0xf2:
+ devc->m_state = ST_SONGPOS;
+ devc->m_ptr = 0;
+ break;
+
+ case 0xf3:
+ devc->m_state = ST_SONGSEL;
+ break;
+
+ case 0xf6:
+ /* printf("tune_request\n"); */
+ devc->m_state = ST_INIT;
+ /* XXX do we need a break here ? - lr 970710 */
+
+ /*
+ * Real time messages
+ */
+ case 0xf8:
+ /* midi clock */
+ devc->m_state = ST_INIT;
+ timer_ext_event(devc, TMR_CLOCK, 0);
+ break;
+
+ case 0xfA:
+ devc->m_state = ST_INIT;
+ timer_ext_event(devc, TMR_START, 0);
+ break;
+
+ case 0xFB:
+ devc->m_state = ST_INIT;
+ timer_ext_event(devc, TMR_CONTINUE, 0);
+ break;
+
+ case 0xFC:
+ devc->m_state = ST_INIT;
+ timer_ext_event(devc, TMR_STOP, 0);
+ break;
+
+ case 0xFE:
+ /* active sensing */
+ devc->m_state = ST_INIT;
+ break;
+
+ case 0xff:
+ /* printf("midi hard reset"); */
+ devc->m_state = ST_INIT;
+ break;
+
+ default:
+ printf("unknown MIDI sysmsg %0x\n", midic);
+ devc->m_state = ST_INIT;
+ }
+ break;
+
+ case ST_MTC:
+ devc->m_state = ST_INIT;
+ printf("MTC frame %x02\n", midic);
+ break;
+
+ case ST_SYSEX:
+ if (midic == 0xf7) {
+ printf("<EOX>");
+ devc->m_state = ST_INIT;
+ } else
+ printf("%02x ", midic);
+ break;
+
+ case ST_SONGPOS:
+ BUFTEST(devc);
+ devc->m_buf[devc->m_ptr++] = midic;
+ if (devc->m_ptr == 2) {
+ devc->m_state = ST_INIT;
+ devc->m_ptr = 0;
+ timer_ext_event(devc, TMR_SPP,
+ ((devc->m_buf[1] & 0x7f) << 7) | (devc->m_buf[0] & 0x7f));
+ }
+ break;
+
+ case ST_DATABYTE:
+ BUFTEST(devc);
+ devc->m_buf[devc->m_ptr++] = midic;
+ if ((--devc->m_left) <= 0) {
+ devc->m_state = ST_INIT;
+ do_midi_msg(devc->synthno, devc->m_buf, devc->m_ptr);
+ devc->m_ptr = 0;
+ }
+ break;
+
+ default:
+ printf("Bad state %d ", devc->m_state);
+ devc->m_state = ST_INIT;
+ }
+
+ return 1;
+}
+
+static void
+mpu401_input_loop(struct mpu_config * devc)
+{
+ u_long flags;
+ int n, busy;
+
+ flags = splhigh();
+ busy = devc->m_busy;
+ devc->m_busy = 1;
+ splx(flags);
+
+ if (busy) /* Already inside the scanner */
+ return;
+
+ n = 50;
+
+ while (input_avail(devc) && n-- > 0) {
+ u_char c = read_data(devc);
+
+ if (devc->mode == MODE_SYNTH) {
+ mpu_input_scanner(devc, c);
+ } else if (devc->opened & OPEN_READ && devc->inputintr != NULL)
+ devc->inputintr(devc->devno, c);
+ }
+
+ devc->m_busy = 0;
+}
+
+void
+mpuintr(int irq)
+{
+ struct mpu_config *devc;
+ int dev;
+
+ /*
+ * FreeBSD (and some others) pass unit number to the interrupt
+ * handler. In this case we have to scan the table for first handler.
+ */
+
+ if (irq < 1 || irq > 15) {
+ dev = -1;
+ } else
+ dev = irq2dev[irq];
+
+ if (dev == -1) {
+ int origirq = irq;
+
+ for (irq = 0; irq <= 16; irq++)
+ if (irq2dev[irq] != -1)
+ break;
+ if (irq > 15) {
+ printf("MPU-401: Bogus interrupt #%d?\n", origirq);
+ return;
+ }
+ dev = irq2dev[irq];
+ devc = &dev_conf[dev];
+ } else
+ devc = &dev_conf[dev];
+
+ if (input_avail(devc))
+ if (devc->base != 0 && (devc->opened & OPEN_READ || devc->mode == MODE_SYNTH))
+ mpu401_input_loop(devc);
+ else {
+ /* Dummy read (just to acknowledge the interrupt) */
+ read_data(devc);
+ }
+
+}
+
+static int
+mpu401_open(int dev, int mode,
+ void (*input) (int dev, u_char data), void (*output) (int dev))
+{
+ int err;
+ struct mpu_config *devc;
+
+ if (dev < 0 || dev >= num_midis)
+ return -(ENXIO);
+
+ devc = &dev_conf[dev];
+
+ if (devc->opened) {
+ printf("MPU-401: Midi busy\n");
+ return -(EBUSY);
+ }
+ /*
+ * Verify that the device is really running. Some devices (such as
+ * Ensoniq SoundScape don't work before the on board processor (OBP)
+ * is initialized by downloading its microcode.
+ */
+
+ if (!devc->initialized) {
+ if (mpu401_status(devc) == 0xff) { /* Bus float */
+ printf("MPU-401: Device not initialized properly\n");
+ return -(EIO);
+ }
+ reset_mpu401(devc);
+ }
+ irq2dev[devc->irq] = dev;
+
+ if (midi_devs[dev]->coproc)
+ if ((err = midi_devs[dev]->coproc->
+ open(midi_devs[dev]->coproc->devc, COPR_MIDI)) < 0) {
+ printf("MPU-401: Can't access coprocessor device\n");
+
+ return err;
+ }
+ set_uart_mode(dev, devc, 1);
+ devc->mode = MODE_MIDI;
+ devc->synthno = 0;
+
+ mpu401_input_loop(devc);
+
+ devc->inputintr = input;
+ devc->opened = mode;
+
+ return 0;
+}
+
+static void
+mpu401_close(int dev)
+{
+ struct mpu_config *devc;
+
+ devc = &dev_conf[dev];
+
+ if (devc->uart_mode)
+ reset_mpu401(devc); /* This disables the UART mode */
+ devc->mode = 0;
+
+ devc->inputintr = NULL;
+
+ if (midi_devs[dev]->coproc)
+ midi_devs[dev]->coproc->close(midi_devs[dev]->coproc->devc, COPR_MIDI);
+ devc->opened = 0;
+}
+
+static int
+mpu401_out(int dev, u_char midi_byte)
+{
+ int timeout;
+ u_long flags;
+
+ struct mpu_config *devc;
+
+ devc = &dev_conf[dev];
+
+ /*
+ * Sometimes it takes about 13000 loops before the output becomes
+ * ready (After reset). Normally it takes just about 10 loops.
+ */
+
+ for (timeout = 3000; timeout > 0 && !output_ready(devc); timeout--);
+
+ flags = splhigh();
+ if (!output_ready(devc)) {
+ printf("MPU-401: Send data timeout\n");
+ splx(flags);
+ return 0;
+ }
+ write_data(devc, midi_byte);
+ splx(flags);
+ return 1;
+}
+
+static int
+mpu401_command(int dev, mpu_command_rec * cmd)
+{
+ int i, timeout, ok;
+ int ret = 0;
+ u_long flags;
+ struct mpu_config *devc;
+
+ devc = &dev_conf[dev];
+
+ if (devc->uart_mode) { /* Not possible in UART mode */
+ printf("MPU-401 commands not possible in the UART mode\n");
+ return -(EINVAL);
+ }
+ /*
+ * Test for input since pending input seems to block the output.
+ */
+ if (input_avail(devc))
+ mpu401_input_loop(devc);
+
+ /*
+ * Sometimes it takes about 30000 loops before the output becomes
+ * ready (After reset). Normally it takes just about 10 loops.
+ */
+
+ timeout = 30000;
+retry:
+ if (timeout-- <= 0) {
+ printf("MPU-401: Command (0x%x) timeout\n", (int) cmd->cmd);
+ return -(EIO);
+ }
+ flags = splhigh();
+
+ if (!output_ready(devc)) {
+ splx(flags);
+ goto retry;
+ }
+ write_command(devc, cmd->cmd);
+ ok = 0;
+ for (timeout = 50000; timeout > 0 && !ok; timeout--)
+ if (input_avail(devc))
+ if (devc->opened && devc->mode == MODE_SYNTH) {
+ if (mpu_input_scanner(devc, read_data(devc)) == MPU_ACK)
+ ok = 1;
+ } else {/* Device is not currently open. Use simplier method */
+ if (read_data(devc) == MPU_ACK)
+ ok = 1;
+ }
+
+ if (!ok) {
+ splx(flags);
+ /* printf ("MPU: No ACK to command (0x%x)\n", (int) cmd->cmd); */
+ return -(EIO);
+ }
+ if (cmd->nr_args)
+ for (i = 0; i < cmd->nr_args; i++) {
+ for (timeout = 3000; timeout > 0 && !output_ready(devc); timeout--);
+ if (!mpu401_out(dev, cmd->data[i])) {
+ splx(flags);
+ printf("MPU: Command (0x%x), parm send failed.\n", (int) cmd->cmd);
+ return -(EIO);
+ }
+ }
+
+ ret = 0;
+ cmd->data[0] = 0;
+
+ if (cmd->nr_returns)
+ for (i = 0; i < cmd->nr_returns; i++) {
+ ok = 0;
+ for (timeout = 5000; timeout > 0 && !ok; timeout--)
+ if (input_avail(devc)) {
+ cmd->data[i] = read_data(devc);
+ ok = 1;
+ }
+ if (!ok) {
+ splx(flags);
+ /* printf ("MPU: No response(%d) to command (0x%x)\n",
+ * i, (int) cmd->cmd);
+ */
+ return -(EIO);
+ }
+ }
+
+ splx(flags);
+
+ return ret;
+}
+
+static int
+mpu_cmd(int dev, int cmd, int data)
+{
+ int ret;
+
+ static mpu_command_rec rec;
+
+ rec.cmd = cmd & 0xff;
+ rec.nr_args = ((cmd & 0xf0) == 0xE0);
+ rec.nr_returns = ((cmd & 0xf0) == 0xA0);
+ rec.data[0] = data & 0xff;
+
+ if ((ret = mpu401_command(dev, &rec)) < 0) {
+ return ret;
+ }
+ return (u_char) rec.data[0];
+}
+
+static int
+mpu401_prefix_cmd(int dev, u_char status)
+{
+ struct mpu_config *devc = &dev_conf[dev];
+
+ if (devc->uart_mode)
+ return 1;
+
+ if (status < 0xf0) {
+ if (mpu_cmd(dev, 0xD0, 0) < 0) {
+ return 0;
+ }
+ return 1;
+ }
+ switch (status) {
+ case 0xF0:
+ if (mpu_cmd(dev, 0xDF, 0) < 0) {
+ return 0;
+ }
+ return 1;
+ break;
+
+ default:
+ return 0;
+ }
+
+}
+
+static int
+mpu401_start_read(int dev)
+{
+ return 0;
+}
+
+static int
+mpu401_end_read(int dev)
+{
+ return 0;
+}
+
+static int
+mpu401_ioctl(int dev, u_int cmd, ioctl_arg arg)
+{
+ struct mpu_config *devc;
+
+ devc = &dev_conf[dev];
+
+ switch (cmd) {
+ case 1:
+ bcopy(&(((char *) arg)[0]), (char *) init_sequence, sizeof(init_sequence));
+ return 0;
+ break;
+
+ case SNDCTL_MIDI_MPUMODE:
+ if (!(devc->capabilities & MPU_CAP_INTLG)) { /* No intelligent mode */
+ printf("MPU-401: Intelligent mode not supported by the HW\n");
+ return -(EINVAL);
+ }
+ set_uart_mode(dev, devc, !(*(int *) arg));
+ return 0;
+ break;
+
+ case SNDCTL_MIDI_MPUCMD:
+ {
+ int ret;
+ mpu_command_rec rec;
+
+ bcopy(&(((char *) arg)[0]), (char *) &rec, sizeof(rec));
+
+ if ((ret = mpu401_command(dev, &rec)) < 0)
+ return ret;
+ bcopy((char *) &rec, &(((char *) arg)[0]), sizeof(rec));
+ return 0;
+ }
+ break;
+
+ default:
+ return -(EINVAL);
+ }
+}
+
+static void
+mpu401_kick(int dev)
+{
+}
+
+static int
+mpu401_buffer_status(int dev)
+{
+ return 0; /* No data in buffers */
+}
+
+static int
+mpu_synth_ioctl(int dev,
+ u_int cmd, ioctl_arg arg)
+{
+ int midi_dev;
+ struct mpu_config *devc;
+
+ midi_dev = synth_devs[dev]->midi_dev;
+
+ if (midi_dev < 0 || midi_dev > num_midis)
+ return -(ENXIO);
+
+ devc = &dev_conf[midi_dev];
+
+ switch (cmd) {
+
+ case SNDCTL_SYNTH_INFO:
+ bcopy(&mpu_synth_info[midi_dev], &(((char *) arg)[0]), sizeof(struct synth_info));
+ return 0;
+ break;
+
+ case SNDCTL_SYNTH_MEMAVL:
+ return 0x7fffffff;
+ break;
+
+ default:
+ return -(EINVAL);
+ }
+}
+
+static int
+mpu_synth_open(int dev, int mode)
+{
+ int midi_dev, err;
+ struct mpu_config *devc;
+
+ midi_dev = synth_devs[dev]->midi_dev;
+
+ if (midi_dev < 0 || midi_dev > num_midis) {
+ return -(ENXIO);
+ }
+ devc = &dev_conf[midi_dev];
+
+ /*
+ * Verify that the device is really running. Some devices (such as
+ * Ensoniq SoundScape don't work before the on board processor (OBP)
+ * is initialized by downloading its microcode.
+ */
+
+ if (!devc->initialized) {
+ if (mpu401_status(devc) == 0xff) { /* Bus float */
+ printf("MPU-401: Device not initialized properly\n");
+ return -(EIO);
+ }
+ reset_mpu401(devc);
+ }
+ if (devc->opened) {
+ printf("MPU-401: Midi busy\n");
+ return -(EBUSY);
+ }
+ devc->mode = MODE_SYNTH;
+ devc->synthno = dev;
+
+ devc->inputintr = NULL;
+ irq2dev[devc->irq] = midi_dev;
+
+ if (midi_devs[midi_dev]->coproc)
+ if ((err = midi_devs[midi_dev]->coproc->
+ open(midi_devs[midi_dev]->coproc->devc, COPR_MIDI)) < 0) {
+ printf("MPU-401: Can't access coprocessor device\n");
+
+ return err;
+ }
+ devc->opened = mode;
+ reset_mpu401(devc);
+
+ if (mode & OPEN_READ) {
+ mpu_cmd(midi_dev, 0x8B, 0); /* Enable data in stop mode */
+ mpu_cmd(midi_dev, 0x34, 0); /* Return timing bytes in stop mode */
+ }
+ return 0;
+}
+
+static void
+mpu_synth_close(int dev)
+{
+ int midi_dev;
+ struct mpu_config *devc;
+
+ midi_dev = synth_devs[dev]->midi_dev;
+
+ devc = &dev_conf[midi_dev];
+ mpu_cmd(midi_dev, 0x15, 0); /* Stop recording, playback and MIDI */
+ mpu_cmd(midi_dev, 0x8a, 0); /* Disable data in stopped mode */
+
+ devc->inputintr = NULL;
+
+ if (midi_devs[midi_dev]->coproc)
+ midi_devs[midi_dev]->coproc->close(midi_devs[midi_dev]->coproc->devc, COPR_MIDI);
+ devc->opened = 0;
+ devc->mode = 0;
+}
+
+#define MIDI_SYNTH_NAME "MPU-401 UART Midi"
+#define MIDI_SYNTH_CAPS SYNTH_CAP_INPUT
+#include <i386/isa/sound/midi_synth.h>
+
+static struct synth_operations mpu401_synth_proto =
+{
+ NULL,
+ 0,
+ SYNTH_TYPE_MIDI,
+ 0,
+ mpu_synth_open,
+ mpu_synth_close,
+ mpu_synth_ioctl,
+ midi_synth_kill_note,
+ midi_synth_start_note,
+ midi_synth_set_instr,
+ midi_synth_reset,
+ midi_synth_hw_control,
+ midi_synth_load_patch,
+ midi_synth_aftertouch,
+ midi_synth_controller,
+ midi_synth_panning,
+ NULL,
+ midi_synth_patchmgr,
+ midi_synth_bender,
+ NULL, /* alloc */
+ midi_synth_setup_voice,
+ midi_synth_send_sysex
+};
+
+static struct synth_operations *mpu401_synth_operations[MAX_MIDI_DEV];
+
+static struct midi_operations mpu401_midi_proto =
+{
+ {"MPU-401 Midi", 0, MIDI_CAP_MPU401, SNDCARD_MPU401},
+ NULL,
+ {0},
+ mpu401_open,
+ mpu401_close,
+ mpu401_ioctl,
+ mpu401_out,
+ mpu401_start_read,
+ mpu401_end_read,
+ mpu401_kick,
+ NULL,
+ mpu401_buffer_status,
+ mpu401_prefix_cmd
+};
+
+static struct midi_operations mpu401_midi_operations[MAX_MIDI_DEV];
+
+static void
+mpu401_chk_version(struct mpu_config * devc)
+{
+ int tmp;
+
+ devc->version = devc->revision = 0;
+
+ if ((tmp = mpu_cmd(num_midis, 0xAC, 0)) < 0)
+ return;
+
+ if ((tmp & 0xf0) > 0x20)/* Why is it larger than 2.x ??? */
+ return;
+
+ devc->version = tmp;
+
+ if ((tmp = mpu_cmd(num_midis, 0xAD, 0)) < 0) {
+ devc->version = 0;
+ return;
+ }
+ devc->revision = tmp;
+}
+
+void
+attach_mpu401(struct address_info * hw_config)
+{
+ u_long flags;
+ char revision_char;
+
+ struct mpu_config *devc;
+
+ if (num_midis >= MAX_MIDI_DEV) {
+ printf("MPU-401: Too many midi devices detected\n");
+ return ;
+ }
+ devc = &dev_conf[num_midis];
+
+ devc->base = hw_config->io_base;
+ devc->osp = hw_config->osp;
+ devc->irq = hw_config->irq;
+ devc->opened = 0;
+ devc->uart_mode = 0;
+ devc->initialized = 0;
+ devc->version = 0;
+ devc->revision = 0;
+ devc->capabilities = 0;
+ devc->timer_flag = 0;
+ devc->m_busy = 0;
+ devc->m_state = ST_INIT;
+ devc->shared_irq = hw_config->always_detect;
+ devc->irq = hw_config->irq;
+
+ if (devc->irq < 0) {
+ devc->irq *= -1;
+ devc->shared_irq = 1;
+ }
+ irq2dev[devc->irq] = num_midis;
+
+ if (!hw_config->always_detect) {
+ /* Verify the hardware again */
+ if (!reset_mpu401(devc))
+ return ;
+
+ if (!devc->shared_irq)
+ if (snd_set_irq_handler(devc->irq, mpuintr, devc->osp) < 0) {
+ return ;
+ }
+ flags = splhigh();
+ mpu401_chk_version(devc);
+ if (devc->version == 0)
+ mpu401_chk_version(devc);
+ splx(flags);
+ };
+
+ if (devc->version != 0)
+ if (mpu_cmd(num_midis, 0xC5, 0) >= 0) /* Set timebase OK */
+ if (mpu_cmd(num_midis, 0xE0, 120) >= 0) /* Set tempo OK */
+ devc->capabilities |= MPU_CAP_INTLG; /* Supports intelligent
+ * mode */
+
+ mpu401_synth_operations[num_midis] = (struct synth_operations *) malloc(sizeof(struct synth_operations), M_DEVBUF, M_NOWAIT);
+
+ if (!mpu401_synth_operations[num_midis])
+ panic("SOUND: Cannot allocate memory\n");
+
+ if (mpu401_synth_operations[num_midis] == NULL) {
+ printf("mpu401: Can't allocate memory\n");
+ return ;
+ }
+ if (!(devc->capabilities & MPU_CAP_INTLG)) { /* No intelligent mode */
+ bcopy((char *) &std_midi_synth, (char *) mpu401_synth_operations[num_midis], sizeof(struct synth_operations));
+ } else {
+ bcopy((char *) &mpu401_synth_proto, (char *) mpu401_synth_operations[num_midis], sizeof(struct synth_operations));
+ }
+
+ bcopy((char *) &mpu401_midi_proto, (char *) &mpu401_midi_operations[num_midis], sizeof(struct midi_operations));
+
+ mpu401_midi_operations[num_midis].converter =
+ mpu401_synth_operations[num_midis];
+
+ bcopy((char *) &mpu_synth_info_proto, (char *) &mpu_synth_info[num_midis], sizeof(struct synth_info));
+
+ n_mpu_devs++;
+
+ if (devc->version == 0x20 && devc->revision >= 0x07) { /* MusicQuest interface */
+ int ports = (devc->revision & 0x08) ? 32 : 16;
+
+ devc->capabilities |= MPU_CAP_SYNC | MPU_CAP_SMPTE |
+ MPU_CAP_CLS | MPU_CAP_2PORT;
+
+ revision_char = (devc->revision == 0x7f) ? 'M' : ' ';
+ snprintf(mpu_synth_info[num_midis].name,
+ sizeof(mpu_synth_info[num_midis].name),
+ "MQX-%d%c MIDI Interface #%d",
+ ports,
+ revision_char,
+ n_mpu_devs);
+ } else {
+
+ revision_char = devc->revision ? devc->revision + '@' : ' ';
+ if ((int) devc->revision > ('Z' - '@'))
+ revision_char = '+';
+
+ devc->capabilities |= MPU_CAP_SYNC | MPU_CAP_FSK;
+
+ snprintf(mpu_synth_info[num_midis].name,
+ sizeof(mpu_synth_info[num_midis].name),
+ "MPU-401 %d.%d%c Midi interface #%d",
+ (int) (devc->version & 0xf0) >> 4,
+ devc->version & 0x0f,
+ revision_char,
+ n_mpu_devs);
+ }
+
+ strcpy(mpu401_midi_operations[num_midis].info.name,
+ mpu_synth_info[num_midis].name);
+
+ conf_printf(mpu_synth_info[num_midis].name, hw_config);
+
+ mpu401_synth_operations[num_midis]->midi_dev = devc->devno = num_midis;
+ mpu401_synth_operations[devc->devno]->info =
+ &mpu_synth_info[devc->devno];
+
+ if (devc->capabilities & MPU_CAP_INTLG) /* Intelligent mode */
+ mpu_timer_init(num_midis);
+
+ irq2dev[devc->irq] = num_midis;
+ midi_devs[num_midis++] = &mpu401_midi_operations[devc->devno];
+ return ;
+}
+
+static int
+reset_mpu401(struct mpu_config * devc)
+{
+ u_long flags;
+ int ok, timeout, n;
+ int timeout_limit;
+
+ /*
+ * Send the RESET command. Try again if no success at the first time.
+ * (If the device is in the UART mode, it will not ack the reset
+ * cmd).
+ */
+
+ ok = 0;
+
+ timeout_limit = devc->initialized ? 30000 : 100000;
+ devc->initialized = 1;
+
+ for (n = 0; n < 2 && !ok; n++) {
+ for (timeout = timeout_limit; timeout > 0 && !ok; timeout--)
+ ok = output_ready(devc);
+
+ write_command(devc, MPU_RESET); /* Send MPU-401 RESET Command */
+
+ /*
+ * Wait at least 25 msec. This method is not accurate so
+ * let's make the loop bit longer. Cannot sleep since this is
+ * called during boot.
+ */
+
+ for (timeout = timeout_limit * 2; timeout > 0 && !ok; timeout--) {
+ flags = splhigh();
+ if ( (input_avail(devc)) && (read_data(devc) == MPU_ACK) )
+ ok = 1;
+ splx(flags);
+ }
+
+ }
+
+ devc->m_state = ST_INIT;
+ devc->m_ptr = 0;
+ devc->m_left = 0;
+ devc->last_status = 0;
+ devc->uart_mode = 0;
+
+ return ok;
+}
+
+static void
+set_uart_mode(int dev, struct mpu_config * devc, int arg)
+{
+ if (!arg && (devc->capabilities & MPU_CAP_INTLG))
+ return;
+ if ((devc->uart_mode == 0) == (arg == 0))
+ return; /* Already set */
+ reset_mpu401(devc); /* This exits the uart mode */
+
+ if (arg && (mpu_cmd(dev, UART_MODE_ON, 0) < 0) ) {
+ printf("MPU%d: Can't enter UART mode\n", devc->devno);
+ devc->uart_mode = 0;
+ return;
+ }
+ devc->uart_mode = arg;
+}
+
+int
+probe_mpu401(struct address_info * hw_config)
+{
+ int ok = 0;
+ struct mpu_config tmp_devc;
+
+ tmp_devc.base = hw_config->io_base;
+ tmp_devc.irq = hw_config->irq;
+ tmp_devc.initialized = 0;
+ tmp_devc.opened = 0;
+ tmp_devc.osp = hw_config->osp;
+
+#if defined(CONFIG_AEDSP16) && defined(AEDSP16_MPU401)
+ /*
+ * Initialize Audio Excel DSP 16 to MPU-401, before any operation.
+ */
+ InitAEDSP16_MPU401(hw_config);
+#endif
+
+ if (hw_config->always_detect)
+ return 1;
+
+ if (inb(hw_config->io_base + 1) == 0xff) {
+ DDB(printf("MPU401: Port %x looks dead.\n", hw_config->io_base));
+ return 0; /* Just bus float? */
+ }
+ ok = reset_mpu401(&tmp_devc);
+
+ if (!ok) {
+ DDB(printf("MPU401: Reset failed on port %x\n", hw_config->io_base));
+ }
+ return ok;
+}
+
+
+/*
+ * Timer stuff
+ */
+
+#if defined(CONFIG_SEQUENCER)
+
+static volatile int timer_initialized = 0, timer_open = 0, tmr_running = 0;
+static volatile int curr_tempo, curr_timebase, hw_timebase;
+static int max_timebase = 8; /* 8*24=192 ppqn */
+static volatile u_long next_event_time;
+static volatile u_long curr_ticks, curr_clocks;
+static u_long prev_event_time;
+static int metronome_mode;
+
+static u_long
+clocks2ticks(u_long clocks)
+{
+ /*
+ * The MPU-401 supports just a limited set of possible timebase
+ * values. Since the applications require more choices, the driver
+ * has to program the HW to do its best and to convert between the
+ * HW and actual timebases.
+ */
+
+ return ((clocks * curr_timebase) + (hw_timebase / 2)) / hw_timebase;
+}
+
+static void
+set_timebase(int midi_dev, int val)
+{
+ int hw_val;
+
+ if (val < 48)
+ val = 48;
+ if (val > 1000)
+ val = 1000;
+
+ hw_val = val;
+ hw_val = (hw_val + 12) / 24;
+ if (hw_val > max_timebase)
+ hw_val = max_timebase;
+
+ if (mpu_cmd(midi_dev, 0xC0 | (hw_val & 0x0f), 0) < 0) {
+ printf("MPU: Can't set HW timebase to %d\n", hw_val * 24);
+ return;
+ }
+ hw_timebase = hw_val * 24;
+ curr_timebase = val;
+}
+
+static void
+tmr_reset(void)
+{
+ u_long flags;
+
+ flags = splhigh();
+ next_event_time = 0xffffffff;
+ prev_event_time = 0;
+ curr_ticks = curr_clocks = 0;
+ splx(flags);
+}
+
+static void
+set_timer_mode(int midi_dev)
+{
+ if (timer_mode & TMR_MODE_CLS)
+ mpu_cmd(midi_dev, 0x3c, 0); /* Use CLS sync */
+ else if (timer_mode & TMR_MODE_SMPTE)
+ mpu_cmd(midi_dev, 0x3d, 0); /* Use SMPTE sync */
+
+ if (timer_mode & TMR_INTERNAL)
+ mpu_cmd(midi_dev, 0x80, 0); /* Use MIDI sync */
+ else {
+ if (timer_mode & (TMR_MODE_MIDI | TMR_MODE_CLS)) {
+ mpu_cmd(midi_dev, 0x82, 0); /* Use MIDI sync */
+ mpu_cmd(midi_dev, 0x91, 0); /* Enable ext MIDI ctrl */
+ } else if (timer_mode & TMR_MODE_FSK)
+ mpu_cmd(midi_dev, 0x81, 0); /* Use FSK sync */
+ }
+}
+
+static void
+stop_metronome(int midi_dev)
+{
+ mpu_cmd(midi_dev, 0x84, 0); /* Disable metronome */
+}
+
+static void
+setup_metronome(int midi_dev)
+{
+ int numerator, denominator;
+ int clks_per_click, num_32nds_per_beat;
+ int beats_per_measure;
+
+ numerator = ((u_int) metronome_mode >> 24) & 0xff;
+ denominator = ((u_int) metronome_mode >> 16) & 0xff;
+ clks_per_click = ((u_int) metronome_mode >> 8) & 0xff;
+ num_32nds_per_beat = (u_int) metronome_mode & 0xff;
+ beats_per_measure = (numerator * 4) >> denominator;
+
+ if (!metronome_mode)
+ mpu_cmd(midi_dev, 0x84, 0); /* Disable metronome */
+ else {
+ mpu_cmd(midi_dev, 0xE4, clks_per_click);
+ mpu_cmd(midi_dev, 0xE6, beats_per_measure);
+ mpu_cmd(midi_dev, 0x83, 0); /* Enable metronome without
+ * accents */
+ }
+}
+
+static int
+mpu_start_timer(int midi_dev)
+{
+ tmr_reset();
+ set_timer_mode(midi_dev);
+
+ if (tmr_running)
+ return TIMER_NOT_ARMED; /* Already running */
+
+ if (timer_mode & TMR_INTERNAL) {
+ mpu_cmd(midi_dev, 0x02, 0); /* Send MIDI start */
+ tmr_running = 1;
+ return TIMER_NOT_ARMED;
+ } else {
+ mpu_cmd(midi_dev, 0x35, 0); /* Enable mode messages to PC */
+ mpu_cmd(midi_dev, 0x38, 0); /* Enable sys common messages to PC */
+ mpu_cmd(midi_dev, 0x39, 0); /* Enable real time messages to PC */
+ mpu_cmd(midi_dev, 0x97, 0); /* Enable system exclusive
+ * messages to PC */
+ }
+
+ return TIMER_ARMED;
+}
+
+static int
+mpu_timer_open(int dev, int mode)
+{
+ int midi_dev = sound_timer_devs[dev]->devlink;
+
+ if (timer_open)
+ return -(EBUSY);
+
+ tmr_reset();
+ curr_tempo = 50;
+ mpu_cmd(midi_dev, 0xE0, 50);
+ curr_timebase = hw_timebase = 120;
+ set_timebase(midi_dev, 120);
+ timer_open = 1;
+ metronome_mode = 0;
+ set_timer_mode(midi_dev);
+
+ mpu_cmd(midi_dev, 0xe7, 0x04); /* Send all clocks to host */
+ mpu_cmd(midi_dev, 0x95, 0); /* Enable clock to host */
+
+ return 0;
+}
+
+static void
+mpu_timer_close(int dev)
+{
+ int midi_dev = sound_timer_devs[dev]->devlink;
+
+ timer_open = tmr_running = 0;
+ mpu_cmd(midi_dev, 0x15, 0); /* Stop all */
+ mpu_cmd(midi_dev, 0x94, 0); /* Disable clock to host */
+ mpu_cmd(midi_dev, 0x8c, 0); /* Disable measure end messages to
+ * host */
+ stop_metronome(midi_dev);
+}
+
+static int
+mpu_timer_event(int dev, u_char *event)
+{
+ u_char command = event[1];
+ u_long parm = *(u_int *) &event[4];
+ int midi_dev = sound_timer_devs[dev]->devlink;
+
+ switch (command) {
+ case TMR_WAIT_REL:
+ parm += prev_event_time;
+ case TMR_WAIT_ABS:
+ if (parm > 0) {
+ long time;
+
+ if (parm <= curr_ticks) /* It's the time */
+ return TIMER_NOT_ARMED;
+
+ time = parm;
+ next_event_time = prev_event_time = time;
+
+ return TIMER_ARMED;
+ }
+ break;
+
+ case TMR_START:
+ if (tmr_running)
+ break;
+ return mpu_start_timer(midi_dev);
+ break;
+
+ case TMR_STOP:
+ mpu_cmd(midi_dev, 0x01, 0); /* Send MIDI stop */
+ stop_metronome(midi_dev);
+ tmr_running = 0;
+ break;
+
+ case TMR_CONTINUE:
+ if (tmr_running)
+ break;
+ mpu_cmd(midi_dev, 0x03, 0); /* Send MIDI continue */
+ setup_metronome(midi_dev);
+ tmr_running = 1;
+ break;
+
+ case TMR_TEMPO:
+ if (parm) {
+ if (parm < 8)
+ parm = 8;
+ if (parm > 250)
+ parm = 250;
+
+ if (mpu_cmd(midi_dev, 0xE0, parm) < 0)
+ printf("MPU: Can't set tempo to %d\n", (int) parm);
+ curr_tempo = parm;
+ }
+ break;
+
+ case TMR_ECHO:
+ seq_copy_to_input(event, 8);
+ break;
+
+ case TMR_TIMESIG:
+ if (metronome_mode) { /* Metronome enabled */
+ metronome_mode = parm;
+ setup_metronome(midi_dev);
+ }
+ break;
+
+ default:;
+ }
+
+ return TIMER_NOT_ARMED;
+}
+
+static u_long
+mpu_timer_get_time(int dev)
+{
+ if (!timer_open)
+ return 0;
+
+ return curr_ticks;
+}
+
+static int
+mpu_timer_ioctl(int dev, u_int command, ioctl_arg arg)
+{
+ int midi_dev = sound_timer_devs[dev]->devlink;
+
+ switch (command) {
+ case SNDCTL_TMR_SOURCE:
+ {
+ int parm = (int) (*(int *) arg) & timer_caps;
+
+ if (parm != 0) {
+ timer_mode = parm;
+
+ if (timer_mode & TMR_MODE_CLS)
+ mpu_cmd(midi_dev, 0x3c, 0); /* Use CLS sync */
+ else if (timer_mode & TMR_MODE_SMPTE)
+ mpu_cmd(midi_dev, 0x3d, 0); /* Use SMPTE sync */
+ }
+ return *(int *) arg = timer_mode;
+ }
+ break;
+
+ case SNDCTL_TMR_START:
+ mpu_start_timer(midi_dev);
+ return 0;
+ break;
+
+ case SNDCTL_TMR_STOP:
+ tmr_running = 0;
+ mpu_cmd(midi_dev, 0x01, 0); /* Send MIDI stop */
+ stop_metronome(midi_dev);
+ return 0;
+ break;
+
+ case SNDCTL_TMR_CONTINUE:
+ if (tmr_running)
+ return 0;
+ tmr_running = 1;
+ mpu_cmd(midi_dev, 0x03, 0); /* Send MIDI continue */
+ return 0;
+ break;
+
+ case SNDCTL_TMR_TIMEBASE:
+ {
+ int val = (int) (*(int *) arg);
+
+ if (val)
+ set_timebase(midi_dev, val);
+
+ return *(int *) arg = curr_timebase;
+ }
+ break;
+
+ case SNDCTL_TMR_TEMPO:
+ {
+ int val = (int) (*(int *) arg);
+ int ret;
+
+ if (val) {
+ RANGE (val, 8 , 250 );
+ if ((ret = mpu_cmd(midi_dev, 0xE0, val)) < 0) {
+ printf("MPU: Can't set tempo to %d\n", (int) val);
+ return ret;
+ }
+ curr_tempo = val;
+ }
+ return *(int *) arg = curr_tempo;
+ }
+ break;
+
+ case SNDCTL_SEQ_CTRLRATE:
+ if ((*(int *) arg) != 0) /* Can't change */
+ return -(EINVAL);
+
+ return *(int *) arg = ((curr_tempo * curr_timebase) + 30) / 60;
+ break;
+
+ case SNDCTL_TMR_METRONOME:
+ metronome_mode = (int) (*(int *) arg);
+ setup_metronome(midi_dev);
+ return 0;
+ break;
+
+ default:;
+ }
+
+ return -(EINVAL);
+}
+
+static void
+mpu_timer_arm(int dev, long time)
+{
+ if (time < 0)
+ time = curr_ticks + 1;
+ else if (time <= curr_ticks) /* It's the time */
+ return;
+
+ next_event_time = prev_event_time = time;
+
+ return;
+}
+
+static struct sound_timer_operations mpu_timer =
+{
+ {"MPU-401 Timer", 0},
+ 10, /* Priority */
+ 0, /* Local device link */
+ mpu_timer_open,
+ mpu_timer_close,
+ mpu_timer_event,
+ mpu_timer_get_time,
+ mpu_timer_ioctl,
+ mpu_timer_arm
+};
+
+static void
+mpu_timer_interrupt(void)
+{
+
+ if (!timer_open)
+ return;
+
+ if (!tmr_running)
+ return;
+
+ curr_clocks++;
+ curr_ticks = clocks2ticks(curr_clocks);
+
+ if (curr_ticks >= next_event_time) {
+ next_event_time = 0xffffffff;
+ sequencer_timer(0);
+ }
+}
+
+static void
+timer_ext_event(struct mpu_config * devc, int event, int parm)
+{
+ int midi_dev = devc->devno;
+
+ if (!devc->timer_flag)
+ return;
+
+ switch (event) {
+ case TMR_CLOCK:
+ printf("<MIDI clk>");
+ break;
+
+ case TMR_START:
+ printf("Ext MIDI start\n");
+ if (!tmr_running)
+ if (timer_mode & TMR_EXTERNAL) {
+ tmr_running = 1;
+ setup_metronome(midi_dev);
+ next_event_time = 0;
+ STORE(SEQ_START_TIMER());
+ }
+ break;
+
+ case TMR_STOP:
+ printf("Ext MIDI stop\n");
+ if (timer_mode & TMR_EXTERNAL) {
+ tmr_running = 0;
+ stop_metronome(midi_dev);
+ STORE(SEQ_STOP_TIMER());
+ }
+ break;
+
+ case TMR_CONTINUE:
+ printf("Ext MIDI continue\n");
+ if (timer_mode & TMR_EXTERNAL) {
+ tmr_running = 1;
+ setup_metronome(midi_dev);
+ STORE(SEQ_CONTINUE_TIMER());
+ }
+ break;
+
+ case TMR_SPP:
+ printf("Songpos: %d\n", parm);
+ if (timer_mode & TMR_EXTERNAL) {
+ STORE(SEQ_SONGPOS(parm));
+ }
+ break;
+ }
+}
+
+static void
+mpu_timer_init(int midi_dev)
+{
+ struct mpu_config *devc;
+ int n;
+
+ devc = &dev_conf[midi_dev];
+
+ if (timer_initialized)
+ return; /* There is already a similar timer */
+
+ timer_initialized = 1;
+
+ mpu_timer.devlink = midi_dev;
+ dev_conf[midi_dev].timer_flag = 1;
+
+ if (num_sound_timers >= MAX_TIMER_DEV)
+ n = 0; /* Overwrite the system timer */
+ else
+ n = num_sound_timers++;
+ sound_timer_devs[n] = &mpu_timer;
+
+ if (devc->version < 0x20) /* Original MPU-401 */
+ timer_caps = TMR_INTERNAL | TMR_EXTERNAL | TMR_MODE_FSK | TMR_MODE_MIDI;
+ else {
+ /*
+ * The version number 2.0 is used (at least) by the
+ * MusicQuest cards and the Roland Super-MPU.
+ *
+ * MusicQuest has given a special meaning to the bits of the
+ * revision number. The Super-MPU returns 0.
+ */
+
+ if (devc->revision)
+ timer_caps |= TMR_EXTERNAL | TMR_MODE_MIDI;
+
+ if (devc->revision & 0x02)
+ timer_caps |= TMR_MODE_CLS;
+
+
+ if (devc->revision & 0x40)
+ max_timebase = 10; /* Has the 216 and 240 ppqn modes */
+ }
+ timer_mode = (TMR_INTERNAL | TMR_MODE_MIDI) & timer_caps;
+}
+
+#endif
+
+#endif
OpenPOWER on IntegriCloud