aboutsummaryrefslogtreecommitdiff
path: root/hw/sb16.c
diff options
context:
space:
mode:
Diffstat (limited to 'hw/sb16.c')
-rw-r--r--hw/sb16.c723
1 files changed, 723 insertions, 0 deletions
diff --git a/hw/sb16.c b/hw/sb16.c
new file mode 100644
index 0000000000..a577548395
--- /dev/null
+++ b/hw/sb16.c
@@ -0,0 +1,723 @@
+/*
+ * QEMU Soundblaster 16 emulation
+ *
+ * Copyright (c) 2003 Vassili Karpov (malc)
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ * THE SOFTWARE.
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <inttypes.h>
+
+#include "vl.h"
+
+#define MIN(a, b) ((a)>(b)?(b):(a))
+#define LENOFA(a) ((int) (sizeof(a)/sizeof(a[0])))
+
+#define DEREF(x) (void)x
+#define log(...) fprintf (stderr, "sb16: " __VA_ARGS__)
+#define Fail(...) do { \
+ fprintf (stderr, "sb16: " __VA_ARGS__); \
+ abort (); \
+} while (0)
+
+#ifdef DEBUG_SB16
+#define lwarn(...) fprintf (stderr, "sb16: " __VA_ARGS__)
+#define linfo(...) fprintf (stderr, "sb16: " __VA_ARGS__)
+#define ldebug(...) fprintf (stderr, "sb16: " __VA_ARGS__)
+#else
+#define lwarn(...)
+#define linfo(...)
+#define ldebug(...)
+#endif
+
+#define IO_READ_PROTO(name) \
+ uint32_t name (struct CPUX86State *env, uint32_t nport)
+#define IO_WRITE_PROTO(name) \
+ void name (struct CPUX86State *env, uint32_t nport, uint32_t val)
+
+static struct {
+ int ver_lo;
+ int ver_hi;
+ int irq;
+ int dma;
+ int hdma;
+ int port;
+ int mix_block;
+} sb = {4, 5, 5, 1, 5, 0x220, -1};
+
+static int mix_block, noirq;
+
+static struct mixer {
+ int nreg;
+ uint8_t regs[0x83];
+} mixer;
+
+static struct dsp {
+ int in_index;
+ int out_data_len;
+ int fmt_stereo;
+ int fmt_signed;
+ int fmt_bits;
+ int dma_auto;
+ int dma_buffer_size;
+ int fifo;
+ int freq;
+ int time_const;
+ int speaker;
+ int needed_bytes;
+ int cmd;
+ int dma_pos;
+ int use_hdma;
+
+ int v2x6;
+
+ uint8_t in_data[10];
+ uint8_t out_data[10];
+
+ int left_till_irq;
+} dsp;
+
+#define nocmd ~0
+
+static void log_dsp (const char *cap)
+{
+ DEREF (cap);
+
+ linfo ("%c:%c:%d:%c:dmabuf=%d:pos=%d:freq=%d:timeconst=%d:speaker=%d\n",
+ dsp.fmt_stereo ? 'S' : 'M',
+ dsp.fmt_signed ? 'S' : 'U',
+ dsp.fmt_bits,
+ dsp.dma_auto ? 'a' : 's',
+ dsp.dma_buffer_size,
+ dsp.dma_pos,
+ dsp.freq,
+ dsp.time_const,
+ dsp.speaker);
+}
+
+static void control (int hold)
+{
+ linfo ("%d high %d\n", hold, dsp.use_hdma);
+ if (hold) {
+ if (dsp.use_hdma)
+ DMA_hold_DREQ (sb.hdma);
+ else
+ DMA_hold_DREQ (sb.dma);
+ }
+ else {
+ if (dsp.use_hdma)
+ DMA_release_DREQ (sb.hdma);
+ else
+ DMA_release_DREQ (sb.dma);
+ }
+}
+
+static void dma_cmd (uint8_t cmd, uint8_t d0, int dma_len)
+{
+ int bps;
+ audfmt_e fmt;
+
+ dsp.use_hdma = cmd < 0xc0;
+ dsp.fifo = (cmd >> 1) & 1;
+ dsp.dma_auto = (cmd >> 2) & 1;
+
+ switch (cmd >> 4) {
+ case 11:
+ dsp.fmt_bits = 16;
+ break;
+
+ case 12:
+ dsp.fmt_bits = 8;
+ break;
+ }
+
+ dsp.fmt_signed = (d0 >> 4) & 1;
+ dsp.fmt_stereo = (d0 >> 5) & 1;
+
+ if (-1 != dsp.time_const) {
+ int tmp;
+
+ tmp = 256 - dsp.time_const;
+ dsp.freq = (1000000 + (tmp / 2)) / tmp;
+ }
+ bps = 1 << (16 == dsp.fmt_bits);
+
+ if (-1 != dma_len)
+ dsp.dma_buffer_size = (dma_len + 1) * bps;
+
+ linfo ("frequency %d, stereo %d, signed %d, bits %d, size %d, auto %d\n",
+ dsp.freq, dsp.fmt_stereo, dsp.fmt_signed, dsp.fmt_bits,
+ dsp.dma_buffer_size, dsp.dma_auto);
+
+ if (16 == dsp.fmt_bits) {
+ if (dsp.fmt_signed) {
+ fmt = AUD_FMT_S16;
+ }
+ else {
+ fmt = AUD_FMT_U16;
+ }
+ }
+ else {
+ if (dsp.fmt_signed) {
+ fmt = AUD_FMT_S8;
+ }
+ else {
+ fmt = AUD_FMT_U8;
+ }
+ }
+
+ dsp.dma_pos = 0;
+ dsp.left_till_irq = dsp.dma_buffer_size;
+
+ if (sb.mix_block) {
+ mix_block = sb.mix_block;
+ }
+ else {
+ int align;
+
+ align = bps << dsp.fmt_stereo;
+ mix_block = ((dsp.freq * align) / 100) & ~(align - 1);
+ }
+
+ AUD_reset (dsp.freq, 1 << dsp.fmt_stereo, fmt);
+ control (1);
+ dsp.speaker = 1;
+}
+
+static void command (uint8_t cmd)
+{
+ char *msg;
+
+ msg = (char *)-1;
+
+ linfo ("%#x\n", cmd);
+
+ if (cmd > 0xaf && cmd < 0xd0) {
+ if (cmd & 8)
+ goto error;
+
+ switch (cmd >> 4) {
+ case 11:
+ case 12:
+ break;
+ default:
+ msg = "wrong bits";
+ goto error;
+ }
+ dsp.needed_bytes = 3;
+ }
+ else {
+ switch (cmd) {
+ case 0x10:
+ dsp.needed_bytes = 1;
+ break;
+
+ case 0x14:
+ dsp.needed_bytes = 2;
+ dsp.dma_buffer_size = 0;
+ break;
+
+ case 0x20:
+ dsp.out_data[dsp.out_data_len++] = 0xff;
+ break;
+
+ case 0x35:
+ lwarn ("MIDI commands not implemented\n");
+ break;
+
+ case 0x40:
+ dsp.freq = -1;
+ dsp.time_const = -1;
+ dsp.needed_bytes = 1;
+ break;
+
+ case 0x41:
+ case 0x42:
+ dsp.freq = -1;
+ dsp.time_const = -1;
+ dsp.needed_bytes = 2;
+ break;
+
+ case 0x47: /* Continue Auto-Initialize DMA 16bit */
+ break;
+
+ case 0x48:
+ dsp.needed_bytes = 2;
+ break;
+
+ case 0x27: /* ????????? */
+ case 0x4e:
+ return;
+
+ case 0x80:
+ cmd = nocmd;
+ break;
+
+ case 0x90:
+ case 0x91:
+ {
+ uint8_t d0;
+
+ d0 = 4;
+ if (dsp.fmt_signed) d0 |= 16;
+ if (dsp.fmt_stereo) d0 |= 32;
+ dma_cmd (cmd == 0x90 ? 0xc4 : 0xc0, d0, -1);
+ cmd = nocmd;
+ break;
+ }
+
+ case 0xd0: /* XXX */
+ control (0);
+ return;
+
+ case 0xd1:
+ dsp.speaker = 1;
+ break;
+
+ case 0xd3:
+ dsp.speaker = 0;
+ return;
+
+ case 0xd4:
+ control (1);
+ break;
+
+ case 0xd5:
+ control (0);
+ break;
+
+ case 0xd6:
+ control (1);
+ break;
+
+ case 0xd9:
+ control (0);
+ dsp.dma_auto = 0;
+ return;
+
+ case 0xda:
+ control (0);
+ dsp.dma_auto = 0;
+ break;
+
+ case 0xe0:
+ dsp.needed_bytes = 1;
+ break;
+
+ case 0xe1:
+ dsp.out_data[dsp.out_data_len++] = sb.ver_lo;
+ dsp.out_data[dsp.out_data_len++] = sb.ver_hi;
+ return;
+
+ case 0xf2:
+ dsp.out_data[dsp.out_data_len++] = 0xaa;
+ mixer.regs[0x82] |= 1;
+ pic_set_irq (sb.irq, 1);
+ return;
+
+ default:
+ msg = "is unknown";
+ goto error;
+ }
+ }
+ dsp.cmd = cmd;
+ return;
+
+ error:
+ Fail ("%#x %s", cmd, msg);
+ return;
+}
+
+static void complete (void)
+{
+ linfo ("complete command %#x, in_index %d, needed_bytes %d\n",
+ dsp.cmd, dsp.in_index, dsp.needed_bytes);
+
+ if (dsp.cmd > 0xaf && dsp.cmd < 0xd0) {
+ int d0, d1, d2;
+
+ d0 = dsp.in_data[0];
+ d1 = dsp.in_data[1];
+ d2 = dsp.in_data[2];
+
+ ldebug ("d0 = %d, d1 = %d, d2 = %d\n",
+ d0, d1, d2);
+ dma_cmd (dsp.cmd, d0, d1 + (d2 << 8));
+ }
+ else {
+ switch (dsp.cmd) {
+
+ case 0x10:
+ break;
+
+ case 0x14:
+ {
+ int d0, d1;
+ int save_left;
+ int save_pos;
+
+ d0 = dsp.in_data[0];
+ d1 = dsp.in_data[1];
+
+ save_left = dsp.left_till_irq;
+ save_pos = dsp.dma_pos;
+ dma_cmd (0xc0, 0, d0 + (d1 << 8));
+ dsp.left_till_irq = save_left;
+ dsp.dma_pos = save_pos;
+
+ linfo ("set buffer size data[%d, %d] %d pos %d\n",
+ d0, d1, dsp.dma_buffer_size, dsp.dma_pos);
+ break;
+ }
+
+ case 0x40:
+ dsp.time_const = dsp.in_data[0];
+ linfo ("set time const %d\n", dsp.time_const);
+ break;
+
+ case 0x41:
+ case 0x42:
+ dsp.freq = dsp.in_data[1] + (dsp.in_data[0] << 8);
+ linfo ("set freq %#x, %#x = %d\n",
+ dsp.in_data[1], dsp.in_data[0], dsp.freq);
+ break;
+
+ case 0x48:
+ dsp.dma_buffer_size = dsp.in_data[1] + (dsp.in_data[0] << 8);
+ linfo ("set dma len %#x, %#x = %d\n",
+ dsp.in_data[1], dsp.in_data[0], dsp.dma_buffer_size);
+ break;
+
+ case 0xe0:
+ dsp.out_data_len = 1;
+ linfo ("data = %#x\n", dsp.in_data[0]);
+ dsp.out_data[0] = dsp.in_data[0] ^ 0xff;
+ break;
+
+ default:
+ goto error;
+ }
+ }
+
+ dsp.cmd = -1;
+ return;
+
+ error:
+ Fail ("unrecognized command %#x", dsp.cmd);
+}
+
+static IO_WRITE_PROTO (dsp_write)
+{
+ int iport;
+
+ iport = nport - sb.port;
+
+ switch (iport) {
+ case 0x6:
+ if (0 == val)
+ dsp.v2x6 = 0;
+ else if ((1 == val) && (0 == dsp.v2x6)) {
+ dsp.v2x6 = 1;
+ dsp.out_data[dsp.out_data_len++] = 0xaa;
+ }
+ else
+ dsp.v2x6 = ~0;
+ break;
+
+ case 0xc: /* write data or command | write status */
+ if (0 == dsp.needed_bytes) {
+ command (val);
+ if (0 == dsp.needed_bytes) {
+ log_dsp (__func__);
+ }
+ }
+ else {
+ dsp.in_data[dsp.in_index++] = val;
+ if (dsp.in_index == dsp.needed_bytes) {
+ dsp.needed_bytes = 0;
+ dsp.in_index = 0;
+ complete ();
+ log_dsp (__func__);
+ }
+ }
+ break;
+
+ default:
+ Fail ("(nport=%#x, val=%#x)", nport, val);
+ }
+}
+
+static IO_READ_PROTO (dsp_read)
+{
+ char *msg;
+ int iport, retval;
+
+ msg = (char *) -1;
+ iport = nport - sb.port;
+
+ switch (iport) {
+
+ case 0x6: /* reset */
+ return 0;
+
+ case 0xa: /* read data */
+ if (dsp.out_data_len) {
+ retval = dsp.out_data[--dsp.out_data_len];
+ }
+ else {
+#if 1
+ lwarn ("empty output buffer\n");
+ retval = 0;
+#else
+ msg = "empty output buffer";
+ goto error;
+#endif
+ }
+ break;
+
+ case 0xc: /* 0 can write */
+ retval = 0;
+ break;
+
+ case 0xd: /* timer interrupt clear */
+ goto error;
+
+ case 0xe: /* data available status | irq 8 ack */
+ retval = (0 == dsp.out_data_len) ? 0 : 0x80;
+ break;
+
+ case 0xf: /* irq 16 ack */
+ retval = 0xff;
+ mixer.regs[0x82] &= ~2;
+ ldebug ("16 ack\n");
+ break;
+
+ default:
+ goto error;
+ }
+
+ if ((0xc != iport) && (0xe != iport)) {
+ ldebug ("(nport=%#x, size=%d) iport %#x = %#x\n",
+ nport, size, iport, retval);
+ }
+
+ return retval;
+
+ error:
+ Fail ("(nport=%#x) %s", nport, msg);
+}
+
+static IO_WRITE_PROTO(mixer_write_indexb)
+{
+ mixer.nreg = val & 0xff;
+}
+
+static IO_WRITE_PROTO(mixer_write_datab)
+{
+ mixer.regs[mixer.nreg] = val;
+}
+
+static IO_WRITE_PROTO(mixer_write_indexw)
+{
+ mixer_write_indexb (env, nport, val & 0xff);
+ mixer_write_datab (env, nport, (val >> 8) & 0xff);
+}
+
+static IO_READ_PROTO(mixer_read)
+{
+ return mixer.regs[mixer.nreg];
+}
+
+void SB16_run (void)
+{
+ if (0 == dsp.speaker)
+ return;
+
+ AUD_run ();
+}
+
+static int write_audio (uint32_t addr, int len, int size)
+{
+ int temp, net;
+
+ temp = size;
+
+ net = 0;
+
+ while (temp) {
+ int left_till_end;
+ int to_copy;
+ int copied;
+
+ left_till_end = len - dsp.dma_pos;
+
+ to_copy = MIN (temp, left_till_end);
+
+ copied = AUD_write ((void *) (addr + dsp.dma_pos), to_copy);
+
+ temp -= copied;
+ dsp.dma_pos += copied;
+
+ if (dsp.dma_pos == len) {
+ dsp.dma_pos = 0;
+ }
+
+ net += copied;
+
+ if (copied != to_copy)
+ return net;
+ }
+
+ return net;
+}
+
+static int SB_read_DMA (uint32_t addr, int size, int *_irq)
+{
+ int free, till, copy, written;
+
+ if (0 == dsp.speaker)
+ return 0;
+
+ if (dsp.left_till_irq < 0) {
+ dsp.left_till_irq += dsp.dma_buffer_size;
+ return dsp.dma_pos;
+ }
+
+ free = AUD_get_free ();
+
+ if ((free <= 0) || (0 == size)) {
+ return dsp.dma_pos;
+ }
+
+ if (mix_block > 0) {
+ copy = MIN (free, mix_block);
+ }
+ else {
+ copy = free;
+ }
+
+ till = dsp.left_till_irq;
+
+ ldebug ("addr:%#010x free:%d till:%d size:%d\n",
+ addr, free, till, size);
+/* linfo ("pos %d free %d size %d till %d copy %d auto %d noirq %d\n", */
+/* dsp.dma_pos, free, size, till, copy, dsp.dma_auto, noirq); */
+ if (till <= copy) {
+ if (0 == dsp.dma_auto) {
+ copy = till;
+ }
+ }
+
+ written = write_audio (addr, size, copy);
+ dsp.left_till_irq -= written;
+ AUD_adjust_estimate (free - written);
+
+ if (dsp.left_till_irq <= 0) {
+ mixer.regs[0x82] |= mixer.regs[0x80];
+ if (0 == noirq)
+ *_irq = sb.irq;
+
+ if (0 == dsp.dma_auto) {
+ control (0);
+ }
+ }
+
+ ldebug ("pos %5d free %5d size %5d till % 5d copy %5d dma size %5d\n",
+ dsp.dma_pos, free, size, dsp.left_till_irq, copy,
+ dsp.dma_buffer_size);
+
+ if (dsp.left_till_irq <= 0) {
+ dsp.left_till_irq += dsp.dma_buffer_size;
+ }
+
+ return dsp.dma_pos;
+}
+
+static int dma_misc_handler (int moo)
+{
+ return -1;
+}
+
+static int magic_of_irq (int irq)
+{
+ switch (irq) {
+ case 2:
+ return 1;
+ case 5:
+ return 2;
+ case 7:
+ return 4;
+ case 10:
+ return 8;
+ default:
+ log ("bad irq %d\n", irq);
+ return 2;
+ }
+}
+
+static int irq_of_magic (int magic)
+{
+ switch (magic) {
+ case 1:
+ return 2;
+ case 2:
+ return 5;
+ case 4:
+ return 7;
+ case 8:
+ return 10;
+ default:
+ log ("bad irq magic %d\n", magic);
+ return 2;
+ }
+}
+
+void SB16_init (void)
+{
+ int i;
+ static const uint8_t dsp_write_ports[] = {0x6, 0xc};
+ static const uint8_t dsp_read_ports[] = {0x6, 0xa, 0xc, 0xd, 0xe, 0xf};
+
+ mixer.regs[0x0e] = ~0;
+ mixer.regs[0x80] = magic_of_irq (sb.irq);
+ mixer.regs[0x81] = 0x20 | (sb.dma << 1);
+
+ DEREF (irq_of_magic);
+
+ for (i = 0x30; i < 0x48; i++) {
+ mixer.regs[i] = 0x20;
+ }
+
+ for (i = 0; i < LENOFA (dsp_write_ports); i++) {
+ register_ioport_write (sb.port + dsp_write_ports[i], 1, dsp_write, 1);
+ }
+
+ for (i = 0; i < LENOFA (dsp_read_ports); i++) {
+ register_ioport_read (sb.port + dsp_read_ports[i], 1, dsp_read, 1);
+ }
+
+ register_ioport_write (sb.port + 0x4, 1, mixer_write_indexb, 1);
+ register_ioport_write (sb.port + 0x4, 1, mixer_write_indexw, 2);
+ register_ioport_read (sb.port + 0x5, 1, mixer_read, 1);
+ register_ioport_write (sb.port + 0x5, 1, mixer_write_datab, 1);
+
+ DMA_register_channel (sb.hdma, SB_read_DMA, dma_misc_handler);
+ DMA_register_channel (sb.dma, SB_read_DMA, dma_misc_handler);
+}
generated by cgit v1.2.3 (git 2.26.2) at 2024-12-19 13:01:21 +0000