[qemu.git] / hw / sb16.c

/*
 * 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);
}
Commit	Line	Data
27503323 FB	1	/*
	2	* QEMU Soundblaster 16 emulation
	3	*
	4	* Copyright (c) 2003 Vassili Karpov (malc)
	5	*
	6	* Permission is hereby granted, free of charge, to any person obtaining a copy
	7	* of this software and associated documentation files (the "Software"), to deal
	8	* in the Software without restriction, including without limitation the rights
	9	* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
	10	* copies of the Software, and to permit persons to whom the Software is
	11	* furnished to do so, subject to the following conditions:
	12	*
	13	* The above copyright notice and this permission notice shall be included in
	14	* all copies or substantial portions of the Software.
	15	*
	16	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
	17	* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
	18	* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
	19	* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
	20	* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
	21	* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
	22	* THE SOFTWARE.
	23	*/
	24	#include <stdio.h>
	25	#include <stdlib.h>
	26	#include <inttypes.h>
	27
	28	#include "vl.h"
	29
	30	#define MIN(a, b) ((a)>(b)?(b):(a))
	31	#define LENOFA(a) ((int) (sizeof(a)/sizeof(a[0])))
	32
	33	#define DEREF(x) (void)x
	34	#define log(...) fprintf (stderr, "sb16: " __VA_ARGS__)
	35	#define Fail(...) do { \
	36	fprintf (stderr, "sb16: " __VA_ARGS__); \
	37	abort (); \
	38	} while (0)
	39
	40	#ifdef DEBUG_SB16
	41	#define lwarn(...) fprintf (stderr, "sb16: " __VA_ARGS__)
	42	#define linfo(...) fprintf (stderr, "sb16: " __VA_ARGS__)
	43	#define ldebug(...) fprintf (stderr, "sb16: " __VA_ARGS__)
	44	#else
	45	#define lwarn(...)
	46	#define linfo(...)
	47	#define ldebug(...)
	48	#endif
	49
	50	#define IO_READ_PROTO(name) \
	51	uint32_t name (struct CPUX86State *env, uint32_t nport)
	52	#define IO_WRITE_PROTO(name) \
	53	void name (struct CPUX86State *env, uint32_t nport, uint32_t val)
	54
	55	static struct {
	56	int ver_lo;
	57	int ver_hi;
	58	int irq;
	59	int dma;
	60	int hdma;
	61	int port;
	62	int mix_block;
	63	} sb = {4, 5, 5, 1, 5, 0x220, -1};
	64
65	static int mix_block, noirq;
66
67	static struct mixer {
68	int nreg;
69	uint8_t regs[0x83];
70	} mixer;
71
72	static struct dsp {
73	int in_index;
74	int out_data_len;
75	int fmt_stereo;
76	int fmt_signed;
77	int fmt_bits;
78	int dma_auto;
79	int dma_buffer_size;
80	int fifo;
81	int freq;
82	int time_const;
83	int speaker;
84	int needed_bytes;
85	int cmd;
86	int dma_pos;
87	int use_hdma;
88
89	int v2x6;
90
91	uint8_t in_data[10];
92	uint8_t out_data[10];
93
94	int left_till_irq;
95	} dsp;
96
97	#define nocmd ~0
98
99	static void log_dsp (const char *cap)
100	{
101	DEREF (cap);
102
103	linfo ("%c:%c:%d:%c:dmabuf=%d:pos=%d:freq=%d:timeconst=%d:speaker=%d\n",
104	dsp.fmt_stereo ? 'S' : 'M',
105	dsp.fmt_signed ? 'S' : 'U',
106	dsp.fmt_bits,
107	dsp.dma_auto ? 'a' : 's',
108	dsp.dma_buffer_size,
109	dsp.dma_pos,
110	dsp.freq,
111	dsp.time_const,
112	dsp.speaker);
113	}
114
115	static void control (int hold)
116	{
117	linfo ("%d high %d\n", hold, dsp.use_hdma);
118	if (hold) {
119	if (dsp.use_hdma)
120	DMA_hold_DREQ (sb.hdma);
121	else
122	DMA_hold_DREQ (sb.dma);
123	}
124	else {
125	if (dsp.use_hdma)
126	DMA_release_DREQ (sb.hdma);
127	else
128	DMA_release_DREQ (sb.dma);
129	}
130	}
131
132	static void dma_cmd (uint8_t cmd, uint8_t d0, int dma_len)
133	{
134	int bps;
135	audfmt_e fmt;
136
137	dsp.use_hdma = cmd < 0xc0;
138	dsp.fifo = (cmd >> 1) & 1;
139	dsp.dma_auto = (cmd >> 2) & 1;
140
141	switch (cmd >> 4) {
142	case 11:
143	dsp.fmt_bits = 16;
144	break;
145
146	case 12:
147	dsp.fmt_bits = 8;
148	break;
149	}
150
151	dsp.fmt_signed = (d0 >> 4) & 1;
152	dsp.fmt_stereo = (d0 >> 5) & 1;
153
154	if (-1 != dsp.time_const) {
155	int tmp;
156
157	tmp = 256 - dsp.time_const;
158	dsp.freq = (1000000 + (tmp / 2)) / tmp;
159	}
160	bps = 1 << (16 == dsp.fmt_bits);
161
162	if (-1 != dma_len)
163	dsp.dma_buffer_size = (dma_len + 1) * bps;
164
165	linfo ("frequency %d, stereo %d, signed %d, bits %d, size %d, auto %d\n",
166	dsp.freq, dsp.fmt_stereo, dsp.fmt_signed, dsp.fmt_bits,
167	dsp.dma_buffer_size, dsp.dma_auto);
168
169	if (16 == dsp.fmt_bits) {
170	if (dsp.fmt_signed) {
171	fmt = AUD_FMT_S16;
172	}
173	else {
174	fmt = AUD_FMT_U16;
175	}
176	}
177	else {
178	if (dsp.fmt_signed) {
179	fmt = AUD_FMT_S8;
180	}
181	else {
182	fmt = AUD_FMT_U8;
183	}
184	}
185
186	dsp.dma_pos = 0;
187	dsp.left_till_irq = dsp.dma_buffer_size;
188
189	if (sb.mix_block) {
190	mix_block = sb.mix_block;
191	}
192	else {
193	int align;
194
195	align = bps << dsp.fmt_stereo;
196	mix_block = ((dsp.freq * align) / 100) & ~(align - 1);
197	}
198
199	AUD_reset (dsp.freq, 1 << dsp.fmt_stereo, fmt);
200	control (1);
201	dsp.speaker = 1;
202	}
203
204	static void command (uint8_t cmd)
205	{
206	char *msg;
207
208	msg = (char *)-1;
209
210	linfo ("%#x\n", cmd);
211
212	if (cmd > 0xaf && cmd < 0xd0) {
213	if (cmd & 8)
214	goto error;
215
216	switch (cmd >> 4) {
217	case 11:
218	case 12:
219	break;
220	default:
221	msg = "wrong bits";
222	goto error;
223	}
224	dsp.needed_bytes = 3;
225	}
226	else {
227	switch (cmd) {
228	case 0x10:
229	dsp.needed_bytes = 1;
230	break;
231
232	case 0x14:
233	dsp.needed_bytes = 2;
234	dsp.dma_buffer_size = 0;
235	break;
236
237	case 0x20:
238	dsp.out_data[dsp.out_data_len++] = 0xff;
239	break;
240
241	case 0x35:
242	lwarn ("MIDI commands not implemented\n");
243	break;
244
245	case 0x40:
246	dsp.freq = -1;
247	dsp.time_const = -1;
248	dsp.needed_bytes = 1;
249	break;
250
251	case 0x41:
252	case 0x42:
253	dsp.freq = -1;
254	dsp.time_const = -1;
255	dsp.needed_bytes = 2;
256	break;
257
258	case 0x47: /* Continue Auto-Initialize DMA 16bit */
259	break;
260
261	case 0x48:
262	dsp.needed_bytes = 2;
263	break;
264
265	case 0x27: /* ????????? */
266	case 0x4e:
267	return;
268
269	case 0x80:
270	cmd = nocmd;
271	break;
272
273	case 0x90:
274	case 0x91:
275	{
276	uint8_t d0;
277
278	d0 = 4;
279	if (dsp.fmt_signed) d0 \|= 16;
280	if (dsp.fmt_stereo) d0 \|= 32;
281	dma_cmd (cmd == 0x90 ? 0xc4 : 0xc0, d0, -1);
282	cmd = nocmd;
283	break;
284	}
285
286	case 0xd0: /* XXX */
287	control (0);
288	return;
289
290	case 0xd1:
291	dsp.speaker = 1;
292	break;
293
294	case 0xd3:
295	dsp.speaker = 0;
296	return;
297
298	case 0xd4:
299	control (1);
300	break;
301
302	case 0xd5:
303	control (0);
304	break;
305
306	case 0xd6:
307	control (1);
308	break;
309
310	case 0xd9:
311	control (0);
312	dsp.dma_auto = 0;
313	return;
314
315	case 0xda:
316	control (0);
317	dsp.dma_auto = 0;
318	break;
319
320	case 0xe0:
321	dsp.needed_bytes = 1;
322	break;
323
324	case 0xe1:
325	dsp.out_data[dsp.out_data_len++] = sb.ver_lo;
326	dsp.out_data[dsp.out_data_len++] = sb.ver_hi;
327	return;
328
329	case 0xf2:
330	dsp.out_data[dsp.out_data_len++] = 0xaa;
331	mixer.regs[0x82] \|= 1;
332	pic_set_irq (sb.irq, 1);
333	return;
334
335	default:
336	msg = "is unknown";
337	goto error;
338	}
339	}
340	dsp.cmd = cmd;
341	return;
342
343	error:
344	Fail ("%#x %s", cmd, msg);
345	return;
346	}
347
348	static void complete (void)
349	{
350	linfo ("complete command %#x, in_index %d, needed_bytes %d\n",
351	dsp.cmd, dsp.in_index, dsp.needed_bytes);
352
353	if (dsp.cmd > 0xaf && dsp.cmd < 0xd0) {
354	int d0, d1, d2;
355
356	d0 = dsp.in_data[0];
357	d1 = dsp.in_data[1];
358	d2 = dsp.in_data[2];
359
360	ldebug ("d0 = %d, d1 = %d, d2 = %d\n",
361	d0, d1, d2);
362	dma_cmd (dsp.cmd, d0, d1 + (d2 << 8));
363	}
364	else {
365	switch (dsp.cmd) {
366
367	case 0x10:
368	break;
369
370	case 0x14:
371	{
372	int d0, d1;
373	int save_left;
374	int save_pos;
375
376	d0 = dsp.in_data[0];
377	d1 = dsp.in_data[1];
378
379	save_left = dsp.left_till_irq;
380	save_pos = dsp.dma_pos;
381	dma_cmd (0xc0, 0, d0 + (d1 << 8));
382	dsp.left_till_irq = save_left;
383	dsp.dma_pos = save_pos;
384
385	linfo ("set buffer size data[%d, %d] %d pos %d\n",
386	d0, d1, dsp.dma_buffer_size, dsp.dma_pos);
387	break;
388	}
389
390	case 0x40:
391	dsp.time_const = dsp.in_data[0];
392	linfo ("set time const %d\n", dsp.time_const);
393	break;
394
395	case 0x41:
396	case 0x42:
397	dsp.freq = dsp.in_data[1] + (dsp.in_data[0] << 8);
398	linfo ("set freq %#x, %#x = %d\n",
399	dsp.in_data[1], dsp.in_data[0], dsp.freq);
400	break;
401
402	case 0x48:
403	dsp.dma_buffer_size = dsp.in_data[1] + (dsp.in_data[0] << 8);
404	linfo ("set dma len %#x, %#x = %d\n",
405	dsp.in_data[1], dsp.in_data[0], dsp.dma_buffer_size);
406	break;
407
408	case 0xe0:
409	dsp.out_data_len = 1;
410	linfo ("data = %#x\n", dsp.in_data[0]);
411	dsp.out_data[0] = dsp.in_data[0] ^ 0xff;
412	break;
413
414	default:
415	goto error;
416	}
417	}
418
419	dsp.cmd = -1;
420	return;
421
422	error:
423	Fail ("unrecognized command %#x", dsp.cmd);
424	}
425
426	static IO_WRITE_PROTO (dsp_write)
427	{
428	int iport;
429
430	iport = nport - sb.port;
431
432	switch (iport) {
433	case 0x6:
434	if (0 == val)
435	dsp.v2x6 = 0;
436	else if ((1 == val) && (0 == dsp.v2x6)) {
437	dsp.v2x6 = 1;
438	dsp.out_data[dsp.out_data_len++] = 0xaa;
439	}
440	else
441	dsp.v2x6 = ~0;
442	break;
443
444	case 0xc: /* write data or command \| write status */
445	if (0 == dsp.needed_bytes) {
446	command (val);
447	if (0 == dsp.needed_bytes) {
448	log_dsp (__func__);
449	}
450	}
451	else {
452	dsp.in_data[dsp.in_index++] = val;
453	if (dsp.in_index == dsp.needed_bytes) {
454	dsp.needed_bytes = 0;
455	dsp.in_index = 0;
456	complete ();
457	log_dsp (__func__);
458	}
459	}
460	break;
461
462	default:
463	Fail ("(nport=%#x, val=%#x)", nport, val);
464	}
465	}
466
467	static IO_READ_PROTO (dsp_read)
468	{
469	char *msg;
470	int iport, retval;
471
472	msg = (char *) -1;
473	iport = nport - sb.port;
474
475	switch (iport) {
476
477	case 0x6: /* reset */
478	return 0;
479
480	case 0xa: /* read data */
481	if (dsp.out_data_len) {
482	retval = dsp.out_data[--dsp.out_data_len];
483	}
484	else {
485	#if 1
486	lwarn ("empty output buffer\n");
487	retval = 0;
488	#else
489	msg = "empty output buffer";
490	goto error;
491	#endif
492	}
493	break;
494
495	case 0xc: /* 0 can write */
496	retval = 0;
497	break;
498
499	case 0xd: /* timer interrupt clear */
500	goto error;
501
502	case 0xe: /* data available status \| irq 8 ack */
503	retval = (0 == dsp.out_data_len) ? 0 : 0x80;
504	break;
505
506	case 0xf: /* irq 16 ack */
507	retval = 0xff;
508	mixer.regs[0x82] &= ~2;
509	ldebug ("16 ack\n");
510	break;
511
512	default:
513	goto error;
514	}
515
516	if ((0xc != iport) && (0xe != iport)) {
517	ldebug ("(nport=%#x, size=%d) iport %#x = %#x\n",
518	nport, size, iport, retval);
519	}
520
521	return retval;
522
523	error:
524	Fail ("(nport=%#x) %s", nport, msg);
525	}
526
527	static IO_WRITE_PROTO(mixer_write_indexb)
528	{
529	mixer.nreg = val & 0xff;
530	}
531
532	static IO_WRITE_PROTO(mixer_write_datab)
533	{
534	mixer.regs[mixer.nreg] = val;
535	}
536
537	static IO_WRITE_PROTO(mixer_write_indexw)
538	{
539	mixer_write_indexb (env, nport, val & 0xff);
540	mixer_write_datab (env, nport, (val >> 8) & 0xff);
541	}
542
543	static IO_READ_PROTO(mixer_read)
544	{
545	return mixer.regs[mixer.nreg];
546	}
547
548	void SB16_run (void)
549	{
550	if (0 == dsp.speaker)
551	return;
552
553	AUD_run ();
554	}
555
556	static int write_audio (uint32_t addr, int len, int size)
557	{
558	int temp, net;
559
560	temp = size;
561
562	net = 0;
563
564	while (temp) {
565	int left_till_end;
566	int to_copy;
567	int copied;
568
569	left_till_end = len - dsp.dma_pos;
570
571	to_copy = MIN (temp, left_till_end);
572
573	copied = AUD_write ((void *) (addr + dsp.dma_pos), to_copy);
574
575	temp -= copied;
576	dsp.dma_pos += copied;
577
578	if (dsp.dma_pos == len) {
579	dsp.dma_pos = 0;
580	}
581
582	net += copied;
583
584	if (copied != to_copy)
585	return net;
586	}
587
588	return net;
589	}
590
591	static int SB_read_DMA (uint32_t addr, int size, int *_irq)
592	{
593	int free, till, copy, written;
594
595	if (0 == dsp.speaker)
596	return 0;
597
598	if (dsp.left_till_irq < 0) {
599	dsp.left_till_irq += dsp.dma_buffer_size;
600	return dsp.dma_pos;
601	}
602
603	free = AUD_get_free ();
604
605	if ((free <= 0) \|\| (0 == size)) {
606	return dsp.dma_pos;
607	}
608
609	if (mix_block > 0) {
610	copy = MIN (free, mix_block);
611	}
612	else {
613	copy = free;
614	}
615
616	till = dsp.left_till_irq;
617
618	ldebug ("addr:%#010x free:%d till:%d size:%d\n",
619	addr, free, till, size);
620	/* linfo ("pos %d free %d size %d till %d copy %d auto %d noirq %d\n", */
621	/* dsp.dma_pos, free, size, till, copy, dsp.dma_auto, noirq); */
622	if (till <= copy) {
623	if (0 == dsp.dma_auto) {
624	copy = till;
625	}
626	}
627
628	written = write_audio (addr, size, copy);
629	dsp.left_till_irq -= written;
630	AUD_adjust_estimate (free - written);
631
632	if (dsp.left_till_irq <= 0) {
633	mixer.regs[0x82] \|= mixer.regs[0x80];
634	if (0 == noirq)
635	*_irq = sb.irq;
636
637	if (0 == dsp.dma_auto) {
638	control (0);
639	}
640	}
641
642	ldebug ("pos %5d free %5d size %5d till % 5d copy %5d dma size %5d\n",
643	dsp.dma_pos, free, size, dsp.left_till_irq, copy,
644	dsp.dma_buffer_size);
645
646	if (dsp.left_till_irq <= 0) {
647	dsp.left_till_irq += dsp.dma_buffer_size;
648	}
649
650	return dsp.dma_pos;
651	}
652
653	static int dma_misc_handler (int moo)
654	{
655	return -1;
656	}
657
658	static int magic_of_irq (int irq)
659	{
660	switch (irq) {
661	case 2:
662	return 1;
663	case 5:
664	return 2;
665	case 7:
666	return 4;
667	case 10:
668	return 8;
669	default:
670	log ("bad irq %d\n", irq);
671	return 2;
672	}
673	}
674
675	static int irq_of_magic (int magic)
676	{
677	switch (magic) {
678	case 1:
679	return 2;
680	case 2:
681	return 5;
682	case 4:
683	return 7;
684	case 8:
685	return 10;
686	default:
687	log ("bad irq magic %d\n", magic);
688	return 2;
689	}
690	}
691
692	void SB16_init (void)
693	{
694	int i;
695	static const uint8_t dsp_write_ports[] = {0x6, 0xc};
696	static const uint8_t dsp_read_ports[] = {0x6, 0xa, 0xc, 0xd, 0xe, 0xf};
697
698	mixer.regs[0x0e] = ~0;
699	mixer.regs[0x80] = magic_of_irq (sb.irq);
700	mixer.regs[0x81] = 0x20 \| (sb.dma << 1);
701
702	DEREF (irq_of_magic);
703
704	for (i = 0x30; i < 0x48; i++) {
705	mixer.regs[i] = 0x20;
706	}
707
708	for (i = 0; i < LENOFA (dsp_write_ports); i++) {
709	register_ioport_write (sb.port + dsp_write_ports[i], 1, dsp_write, 1);
710	}
711
712	for (i = 0; i < LENOFA (dsp_read_ports); i++) {
713	register_ioport_read (sb.port + dsp_read_ports[i], 1, dsp_read, 1);
714	}
715
716	register_ioport_write (sb.port + 0x4, 1, mixer_write_indexb, 1);
717	register_ioport_write (sb.port + 0x4, 1, mixer_write_indexw, 2);
718	register_ioport_read (sb.port + 0x5, 1, mixer_read, 1);
719	register_ioport_write (sb.port + 0x5, 1, mixer_write_datab, 1);
720
721	DMA_register_channel (sb.hdma, SB_read_DMA, dma_misc_handler);
722	DMA_register_channel (sb.dma, SB_read_DMA, dma_misc_handler);
723	}