qemu

1
/*
2
 * QEMU Proxy for OPL2/3 emulation by MAME team
3
 *
4
 * Copyright (c) 2004-2005 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

25
#include "qemu/osdep.h"
26
#include "qapi/error.h"
27
#include "qemu/module.h"
28
#include "hw/audio/soundhw.h"
29
#include "audio/audio.h"
30
#include "hw/isa/isa.h"
31
#include "hw/qdev-properties.h"
32
#include "qom/object.h"
33

34
//#define DEBUG
35

36
#define ADLIB_KILL_TIMERS 1
37

38
#define ADLIB_DESC "Yamaha YM3812 (OPL2)"
39

40
#ifdef DEBUG
41
#include "qemu/timer.h"
42
#endif
43

44
#define dolog(...) AUD_log ("adlib", __VA_ARGS__)
45
#ifdef DEBUG
46
#define ldebug(...) dolog (__VA_ARGS__)
47
#else
48
#define ldebug(...)
49
#endif
50

51
#include "fmopl.h"
52
#define SHIFT 1
53

54
#define TYPE_ADLIB "adlib"
55
OBJECT_DECLARE_SIMPLE_TYPE(AdlibState, ADLIB)
56

57
struct AdlibState {
58
    ISADevice parent_obj;
59

60
    QEMUSoundCard card;
61
    uint32_t freq;
62
    uint32_t port;
63
    int ticking[2];
64
    int enabled;
65
    int active;
66
    int bufpos;
67
#ifdef DEBUG
68
    int64_t exp[2];
69
#endif
70
    int16_t *mixbuf;
71
    uint64_t dexp[2];
72
    SWVoiceOut *voice;
73
    int left, pos, samples;
74
    QEMUAudioTimeStamp ats;
75
    FM_OPL *opl;
76
    PortioList port_list;
77
};
78

79
static void adlib_stop_opl_timer (AdlibState *s, size_t n)
80
{
81
    OPLTimerOver (s->opl, n);
82
    s->ticking[n] = 0;
83
}
84

85
static void adlib_kill_timers (AdlibState *s)
86
{
87
    size_t i;
88

89
    for (i = 0; i < 2; ++i) {
90
        if (s->ticking[i]) {
91
            uint64_t delta;
92

93
            delta = AUD_get_elapsed_usec_out (s->voice, &s->ats);
94
            ldebug (
95
                "delta = %f dexp = %f expired => %d\n",
96
                delta / 1000000.0,
97
                s->dexp[i] / 1000000.0,
98
                delta >= s->dexp[i]
99
                );
100
            if (ADLIB_KILL_TIMERS || delta >= s->dexp[i]) {
101
                adlib_stop_opl_timer (s, i);
102
                AUD_init_time_stamp_out (s->voice, &s->ats);
103
            }
104
        }
105
    }
106
}
107

108
static void adlib_write(void *opaque, uint32_t nport, uint32_t val)
109
{
110
    AdlibState *s = opaque;
111
    int a = nport & 3;
112

113
    s->active = 1;
114
    AUD_set_active_out (s->voice, 1);
115

116
    adlib_kill_timers (s);
117

118
    OPLWrite (s->opl, a, val);
119
}
120

121
static uint32_t adlib_read(void *opaque, uint32_t nport)
122
{
123
    AdlibState *s = opaque;
124
    int a = nport & 3;
125

126
    adlib_kill_timers (s);
127
    return OPLRead (s->opl, a);
128
}
129

130
static void timer_handler (void *opaque, int c, double interval_Sec)
131
{
132
    AdlibState *s = opaque;
133
    unsigned n = c & 1;
134
#ifdef DEBUG
135
    double interval;
136
    int64_t exp;
137
#endif
138

139
    if (interval_Sec == 0.0) {
140
        s->ticking[n] = 0;
141
        return;
142
    }
143

144
    s->ticking[n] = 1;
145
#ifdef DEBUG
146
    interval = NANOSECONDS_PER_SECOND * interval_Sec;
147
    exp = qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL) + interval;
148
    s->exp[n] = exp;
149
#endif
150

151
    s->dexp[n] = interval_Sec * 1000000.0;
152
    AUD_init_time_stamp_out (s->voice, &s->ats);
153
}
154

155
static int write_audio (AdlibState *s, int samples)
156
{
157
    int net = 0;
158
    int pos = s->pos;
159

160
    while (samples) {
161
        int nbytes, wbytes, wsampl;
162

163
        nbytes = samples << SHIFT;
164
        wbytes = AUD_write (
165
            s->voice,
166
            s->mixbuf + (pos << (SHIFT - 1)),
167
            nbytes
168
            );
169

170
        if (wbytes) {
171
            wsampl = wbytes >> SHIFT;
172

173
            samples -= wsampl;
174
            pos = (pos + wsampl) % s->samples;
175

176
            net += wsampl;
177
        }
178
        else {
179
            break;
180
        }
181
    }
182

183
    return net;
184
}
185

186
static void adlib_callback (void *opaque, int free)
187
{
188
    AdlibState *s = opaque;
189
    int samples, to_play, written;
190

191
    samples = free >> SHIFT;
192
    if (!(s->active && s->enabled) || !samples) {
193
        return;
194
    }
195

196
    to_play = MIN (s->left, samples);
197
    while (to_play) {
198
        written = write_audio (s, to_play);
199

200
        if (written) {
201
            s->left -= written;
202
            samples -= written;
203
            to_play -= written;
204
            s->pos = (s->pos + written) % s->samples;
205
        }
206
        else {
207
            return;
208
        }
209
    }
210

211
    samples = MIN (samples, s->samples - s->pos);
212
    if (!samples) {
213
        return;
214
    }
215

216
    YM3812UpdateOne (s->opl, s->mixbuf + s->pos, samples);
217

218
    while (samples) {
219
        written = write_audio (s, samples);
220

221
        if (written) {
222
            samples -= written;
223
            s->pos = (s->pos + written) % s->samples;
224
        }
225
        else {
226
            s->left = samples;
227
            return;
228
        }
229
    }
230
}
231

232
static void Adlib_fini (AdlibState *s)
233
{
234
    if (s->opl) {
235
        OPLDestroy (s->opl);
236
        s->opl = NULL;
237
    }
238

239
    g_free(s->mixbuf);
240

241
    s->active = 0;
242
    s->enabled = 0;
243
    AUD_remove_card (&s->card);
244
}
245

246
static MemoryRegionPortio adlib_portio_list[] = {
247
    { 0, 4, 1, .read = adlib_read, .write = adlib_write, },
248
    { 0, 2, 1, .read = adlib_read, .write = adlib_write, },
249
    { 0x388, 4, 1, .read = adlib_read, .write = adlib_write, },
250
    PORTIO_END_OF_LIST(),
251
};
252

253
static void adlib_realizefn (DeviceState *dev, Error **errp)
254
{
255
    AdlibState *s = ADLIB(dev);
256
    struct audsettings as;
257

258
    if (!AUD_register_card ("adlib", &s->card, errp)) {
259
        return;
260
    }
261

262
    s->opl = OPLCreate (3579545, s->freq);
263
    if (!s->opl) {
264
        error_setg (errp, "OPLCreate %d failed", s->freq);
265
        return;
266
    }
267
    else {
268
        OPLSetTimerHandler(s->opl, timer_handler, s);
269
        s->enabled = 1;
270
    }
271

272
    as.freq = s->freq;
273
    as.nchannels = SHIFT;
274
    as.fmt = AUDIO_FORMAT_S16;
275
    as.endianness = AUDIO_HOST_ENDIANNESS;
276

277
    s->voice = AUD_open_out (
278
        &s->card,
279
        s->voice,
280
        "adlib",
281
        s,
282
        adlib_callback,
283
        &as
284
        );
285
    if (!s->voice) {
286
        Adlib_fini (s);
287
        error_setg (errp, "Initializing audio voice failed");
288
        return;
289
    }
290

291
    s->samples = AUD_get_buffer_size_out (s->voice) >> SHIFT;
292
    s->mixbuf = g_malloc0 (s->samples << SHIFT);
293

294
    adlib_portio_list[0].offset = s->port;
295
    adlib_portio_list[1].offset = s->port + 8;
296
    portio_list_init (&s->port_list, OBJECT(s), adlib_portio_list, s, "adlib");
297
    portio_list_add (&s->port_list, isa_address_space_io(&s->parent_obj), 0);
298
}
299

300
static Property adlib_properties[] = {
301
    DEFINE_AUDIO_PROPERTIES(AdlibState, card),
302
    DEFINE_PROP_UINT32 ("iobase",  AdlibState, port, 0x220),
303
    DEFINE_PROP_UINT32 ("freq",    AdlibState, freq,  44100),
304
    DEFINE_PROP_END_OF_LIST (),
305
};
306

307
static void adlib_class_initfn (ObjectClass *klass, void *data)
308
{
309
    DeviceClass *dc = DEVICE_CLASS (klass);
310

311
    dc->realize = adlib_realizefn;
312
    set_bit(DEVICE_CATEGORY_SOUND, dc->categories);
313
    dc->desc = ADLIB_DESC;
314
    device_class_set_props(dc, adlib_properties);
315
}
316

317
static const TypeInfo adlib_info = {
318
    .name          = TYPE_ADLIB,
319
    .parent        = TYPE_ISA_DEVICE,
320
    .instance_size = sizeof (AdlibState),
321
    .class_init    = adlib_class_initfn,
322
};
323

324
static void adlib_register_types (void)
325
{
326
    type_register_static (&adlib_info);
327
    deprecated_register_soundhw("adlib", ADLIB_DESC, 1, TYPE_ADLIB);
328
}
329

330
type_init (adlib_register_types)
331