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.c283
1 files changed, 283 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..0b1685d
--- /dev/null
+++ b/sys/i386/isa/sound/mpu401.c
@@ -0,0 +1,283 @@
+/*
+ * sound/mpu401.c
+ *
+ * The low level driver for Roland MPU-401 compatible Midi cards.
+ *
+ * This version supports just the DUMB UART mode.
+ *
+ * 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.
+ *
+ * $Id$
+ */
+
+#include "sound_config.h"
+
+#ifdef CONFIGURE_SOUNDCARD
+
+#if !defined(EXCLUDE_MPU401) && !defined(EXCLUDE_MIDI)
+
+#define DATAPORT (mpu401_base)/* MPU-401 Data I/O Port on IBM */
+#define COMDPORT (mpu401_base+1) /* MPU-401 Command Port on IBM */
+#define STATPORT (mpu401_base+1) /* MPU-401 Status Port on IBM */
+
+#define mpu401_status() INB(STATPORT)
+#define input_avail() (!(mpu401_status()&INPUT_AVAIL))
+#define output_ready() (!(mpu401_status()&OUTPUT_READY))
+#define mpu401_cmd(cmd) OUTB(cmd, COMDPORT)
+#define mpu401_read() INB(DATAPORT)
+#define mpu401_write(byte) OUTB(byte, DATAPORT)
+
+#define OUTPUT_READY 0x40 /* Mask for Data Read Redy Bit */
+#define INPUT_AVAIL 0x80 /* Mask for Data Send Ready Bit */
+#define MPU_ACK 0xFE /* MPU-401 Acknowledge Response */
+#define MPU_RESET 0xFF /* MPU-401 Total Reset Command */
+#define UART_MODE_ON 0x3F /* MPU-401 "Dumb UART Mode" */
+
+static int mpu401_opened = 0;
+static int mpu401_base = 0x330;
+static int mpu401_irq;
+static int mpu401_detected = 0;
+static int my_dev;
+
+static int reset_mpu401 (void);
+static void (*midi_input_intr) (int dev, unsigned char data);
+
+void
+mpuintr (int unit)
+{
+ while (input_avail ())
+ {
+ unsigned char c = mpu401_read ();
+
+ if (mpu401_opened & OPEN_READ)
+ midi_input_intr (my_dev, c);
+ }
+}
+
+static int
+mpu401_open (int dev, int mode,
+ void (*input) (int dev, unsigned char data),
+ void (*output) (int dev)
+)
+{
+ if (mpu401_opened)
+ {
+ printk ("MPU-401: Midi busy\n");
+ return RET_ERROR (EBUSY);
+ }
+
+ mpuintr (0);
+
+ midi_input_intr = input;
+ mpu401_opened = mode;
+
+ return 0;
+}
+
+static void
+mpu401_close (int dev)
+{
+ mpu401_opened = 0;
+}
+
+static int
+mpu401_out (int dev, unsigned char midi_byte)
+{
+ int timeout;
+ unsigned long flags;
+
+ /*
+ * Test for input since pending input seems to block the output.
+ */
+
+ DISABLE_INTR (flags);
+
+ if (input_avail ())
+ mpuintr (0);
+
+ RESTORE_INTR (flags);
+
+ /*
+ * Sometimes it takes about 13000 loops before the output becomes ready
+ * (After reset). Normally it takes just about 10 loops.
+ */
+
+ for (timeout = 30000; timeout > 0 && !output_ready (); timeout--); /* Wait */
+
+ if (!output_ready ())
+ {
+ printk ("MPU-401: Timeout\n");
+ return 0;
+ }
+
+ mpu401_write (midi_byte);
+ return 1;
+}
+
+static int
+mpu401_command (int dev, unsigned char midi_byte)
+{
+ return 1;
+}
+
+static int
+mpu401_start_read (int dev)
+{
+ return 0;
+}
+
+static int
+mpu401_end_read (int dev)
+{
+ return 0;
+}
+
+static int
+mpu401_ioctl (int dev, unsigned cmd, unsigned arg)
+{
+ return RET_ERROR (EINVAL);
+}
+
+static void
+mpu401_kick (int dev)
+{
+}
+
+static int
+mpu401_buffer_status (int dev)
+{
+ return 0; /* No data in buffers */
+}
+
+static struct midi_operations mpu401_operations =
+{
+ {"MPU-401", 0, 0, SNDCARD_MPU401},
+ mpu401_open,
+ mpu401_close,
+ mpu401_ioctl,
+ mpu401_out,
+ mpu401_start_read,
+ mpu401_end_read,
+ mpu401_kick,
+ mpu401_command,
+ mpu401_buffer_status
+};
+
+
+long
+attach_mpu401 (long mem_start, struct address_info *hw_config)
+{
+ int ok, timeout;
+ unsigned long flags;
+
+ mpu401_base = hw_config->io_base;
+ mpu401_irq = hw_config->irq;
+
+ if (!mpu401_detected)
+ return RET_ERROR (EIO);
+
+ DISABLE_INTR (flags);
+ for (timeout = 30000; timeout < 0 && !output_ready (); timeout--); /* Wait */
+ mpu401_cmd (UART_MODE_ON);
+
+ ok = 0;
+ for (timeout = 50000; timeout > 0 && !ok; timeout--)
+ if (input_avail ())
+ if (mpu401_read () == MPU_ACK)
+ ok = 1;
+
+ RESTORE_INTR (flags);
+
+#ifdef __FreeBSD__
+ printk ("snd5: <Roland MPU-401>");
+#else
+ printk (" <Roland MPU-401>");
+#endif
+
+ my_dev = num_midis;
+ mpu401_dev = num_midis;
+ midi_devs[num_midis++] = &mpu401_operations;
+ return mem_start;
+}
+
+static int
+reset_mpu401 (void)
+{
+ unsigned long flags;
+ int ok, timeout, n;
+
+ /*
+ * Send the RESET command. Try again if no success at the first time.
+ */
+
+ ok = 0;
+
+ DISABLE_INTR (flags);
+
+ for (n = 0; n < 2 && !ok; n++)
+ {
+ for (timeout = 30000; timeout < 0 && !output_ready (); timeout--); /* Wait */
+ mpu401_cmd (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 = 50000; timeout > 0 && !ok; timeout--)
+ if (input_avail ())
+ if (mpu401_read () == MPU_ACK)
+ ok = 1;
+
+ }
+
+ mpu401_opened = 0;
+ if (ok)
+ mpuintr (0); /* Flush input before enabling interrupts */
+
+ RESTORE_INTR (flags);
+
+ return ok;
+}
+
+
+int
+probe_mpu401 (struct address_info *hw_config)
+{
+ int ok = 0;
+
+ mpu401_base = hw_config->io_base;
+ mpu401_irq = hw_config->irq;
+
+ if (snd_set_irq_handler (mpu401_irq, mpuintr) < 0)
+ return 0;
+
+ ok = reset_mpu401 ();
+
+ mpu401_detected = ok;
+ return ok;
+}
+
+#endif
+
+#endif
OpenPOWER on IntegriCloud