freebsd-skq/sys/i386/isa/sound/sb16_midi.c
Mark Murray 415d4cb37a Bring our sound sources up to the level of Amancio's latest-and-greatest.
This corresponds to Voxware 3.5-alpha-<something> and Amancio's guspnp21.
There was a bit of a FUBAR during the commmit, so not all files are
mentioned in this commit's mail.

X-rant:	I have just started to _*HATE*_ CVS...
1997-10-31 17:25:35 +00:00

300 lines
6.4 KiB
C

/*
* sound/sb16_midi.c
*
* The low level driver for the MPU-401 UART emulation of the SB16.
*
* 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.
*
*/
#include <i386/isa/sound/sound_config.h>
#include <i386/isa/sound/sbcard.h>
#if defined(CONFIG_SB) && defined(CONFIG_SB16) && defined(CONFIG_MIDI)
#include "sb.h"
#define DATAPORT (sb16midi_base)
#define COMDPORT (sb16midi_base+1)
#define STATPORT (sb16midi_base+1)
extern sound_os_info *sb_osp;
#define sb16midi_status() inb( STATPORT)
#define input_avail() (!(sb16midi_status()&INPUT_AVAIL))
#define output_ready() (!(sb16midi_status()&OUTPUT_READY))
#define sb16midi_cmd(cmd) outb( COMDPORT, cmd)
#define sb16midi_read() inb( DATAPORT)
#define sb16midi_write(byte) outb( DATAPORT, byte)
#define OUTPUT_READY 0x40
#define INPUT_AVAIL 0x80
#define MPU_ACK 0xFE
#define MPU_RESET 0xFF
#define UART_MODE_ON 0x3F
static int sb16midi_opened = 0;
static int sb16midi_base = 0x330;
static int sb16midi_detected = 0;
static int my_dev;
extern int sbc_base;
static int reset_sb16midi(void);
static void (*midi_input_intr) (int dev, u_char data);
static volatile u_char input_byte;
static void
sb16midi_input_loop(void)
{
while (input_avail()) {
u_char c = sb16midi_read();
if (c == MPU_ACK)
input_byte = c;
else if (sb16midi_opened & OPEN_READ && midi_input_intr)
midi_input_intr(my_dev, c);
}
}
void
sb16midiintr(int unit)
{
if (input_avail())
sb16midi_input_loop();
}
static int
sb16midi_open(int dev, int mode,
void (*input) (int dev, u_char data),
void (*output) (int dev)
)
{
if (sb16midi_opened) {
return -(EBUSY);
}
sb16midi_input_loop();
midi_input_intr = input;
sb16midi_opened = mode;
return 0;
}
static void
sb16midi_close(int dev)
{
sb16midi_opened = 0;
}
static int
sb16midi_out(int dev, u_char midi_byte)
{
int timeout;
u_long flags;
/*
* Test for input since pending input seems to block the output.
*/
flags = splhigh();
if (input_avail())
sb16midi_input_loop();
splx(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()) {
printf("MPU-401: Timeout\n");
return 0;
}
sb16midi_write(midi_byte);
return 1;
}
static int
sb16midi_start_read(int dev)
{
return 0;
}
static int
sb16midi_end_read(int dev)
{
return 0;
}
static int
sb16midi_ioctl(int dev, u_int cmd, ioctl_arg arg)
{
return -(EINVAL);
}
static void
sb16midi_kick(int dev)
{
}
static int
sb16midi_buffer_status(int dev)
{
return 0; /* No data in buffers */
}
#define MIDI_SYNTH_NAME "SoundBlaster 16 Midi"
#define MIDI_SYNTH_CAPS SYNTH_CAP_INPUT
#include <i386/isa/sound/midi_synth.h>
static struct midi_operations sb16midi_operations =
{
{"SoundBlaster 16 Midi", 0, 0, SNDCARD_SB16MIDI},
&std_midi_synth,
{0},
sb16midi_open,
sb16midi_close,
sb16midi_ioctl,
sb16midi_out,
sb16midi_start_read,
sb16midi_end_read,
sb16midi_kick,
NULL,
sb16midi_buffer_status,
NULL
};
void
attach_sb16midi(struct address_info * hw_config)
{
int ok, timeout;
u_long flags;
sb16midi_base = hw_config->io_base;
if (!sb16midi_detected)
return;
flags = splhigh();
for (timeout = 30000; timeout < 0 && !output_ready(); timeout--); /* Wait */
input_byte = 0;
sb16midi_cmd(UART_MODE_ON);
ok = 0;
for (timeout = 50000; timeout > 0 && !ok; timeout--)
if (input_byte == MPU_ACK)
ok = 1;
else if (input_avail())
if (sb16midi_read() == MPU_ACK)
ok = 1;
splx(flags);
if (num_midis >= MAX_MIDI_DEV) {
printf("Sound: Too many midi devices detected\n");
return;
}
conf_printf("SoundBlaster MPU-401", hw_config);
std_midi_synth.midi_dev = my_dev = num_midis;
midi_devs[num_midis++] = &sb16midi_operations;
return;
}
static int
reset_sb16midi(void)
{
int ok, timeout, n;
/*
* Send the RESET command. Try again if no success at the first time.
*/
if (inb(STATPORT) == 0xff)
return 0;
ok = 0;
/* flags = splhigh(); */
for (n = 0; n < 2 && !ok; n++) {
for (timeout = 30000; timeout < 0 && !output_ready(); timeout--); /* Wait */
input_byte = 0;
sb16midi_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_byte == MPU_ACK) /* Interrupt */
ok = 1;
else if (input_avail())
if (sb16midi_read() == MPU_ACK)
ok = 1;
}
sb16midi_opened = 0;
if (ok)
sb16midi_input_loop(); /* Flush input before enabling
* interrupts */
/* splx(flags); */
return ok;
}
int
probe_sb16midi(struct address_info * hw_config)
{
int ok = 0;
struct address_info *sb_config;
if (sbc_major < 4)
return 0; /* Not a SB16 */
if (!(sb_config = sound_getconf(SNDCARD_SB))) {
printf("SB16 Error: Plain SB not configured\n");
return 0;
}
sb16midi_base = hw_config->io_base;
ok = reset_sb16midi();
sb16midi_detected = ok;
return ok;
}
#endif