2 * QEMU Proxy for OPL2/3 emulation by MAME team
4 * Copyright (c) 2004-2005 Vassili Karpov (malc)
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:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
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
25 #include "qemu/osdep.h"
26 #include "qapi/error.h"
28 #include "hw/audio/soundhw.h"
29 #include "audio/audio.h"
30 #include "hw/isa/isa.h"
34 #define ADLIB_KILL_TIMERS 1
36 #define ADLIB_DESC "Yamaha YM3812 (OPL2)"
39 #include "qemu/timer.h"
42 #define dolog(...) AUD_log ("adlib", __VA_ARGS__)
44 #define ldebug(...) dolog (__VA_ARGS__)
52 #define TYPE_ADLIB "adlib"
53 #define ADLIB(obj) OBJECT_CHECK(AdlibState, (obj), TYPE_ADLIB)
71 int left
, pos
, samples
;
72 QEMUAudioTimeStamp ats
;
77 static AdlibState
*glob_adlib
;
79 static void adlib_stop_opl_timer (AdlibState
*s
, size_t n
)
81 OPLTimerOver (s
->opl
, n
);
85 static void adlib_kill_timers (AdlibState
*s
)
89 for (i
= 0; i
< 2; ++i
) {
93 delta
= AUD_get_elapsed_usec_out (s
->voice
, &s
->ats
);
95 "delta = %f dexp = %f expired => %d\n",
97 s
->dexp
[i
] / 1000000.0,
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
);
108 static void adlib_write(void *opaque
, uint32_t nport
, uint32_t val
)
110 AdlibState
*s
= opaque
;
114 AUD_set_active_out (s
->voice
, 1);
116 adlib_kill_timers (s
);
118 OPLWrite (s
->opl
, a
, val
);
121 static uint32_t adlib_read(void *opaque
, uint32_t nport
)
123 AdlibState
*s
= opaque
;
127 adlib_kill_timers (s
);
128 data
= OPLRead (s
->opl
, a
);
133 static void timer_handler (int c
, double interval_Sec
)
135 AdlibState
*s
= glob_adlib
;
142 if (interval_Sec
== 0.0) {
149 interval
= NANOSECONDS_PER_SECOND
* interval_Sec
;
150 exp
= qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL
) + interval
;
154 s
->dexp
[n
] = interval_Sec
* 1000000.0;
155 AUD_init_time_stamp_out (s
->voice
, &s
->ats
);
158 static int write_audio (AdlibState
*s
, int samples
)
164 int nbytes
, wbytes
, wsampl
;
166 nbytes
= samples
<< SHIFT
;
169 s
->mixbuf
+ (pos
<< (SHIFT
- 1)),
174 wsampl
= wbytes
>> SHIFT
;
177 pos
= (pos
+ wsampl
) % s
->samples
;
189 static void adlib_callback (void *opaque
, int free
)
191 AdlibState
*s
= opaque
;
192 int samples
, net
= 0, to_play
, written
;
194 samples
= free
>> SHIFT
;
195 if (!(s
->active
&& s
->enabled
) || !samples
) {
199 to_play
= audio_MIN (s
->left
, samples
);
201 written
= write_audio (s
, to_play
);
207 s
->pos
= (s
->pos
+ written
) % s
->samples
;
214 samples
= audio_MIN (samples
, s
->samples
- s
->pos
);
219 YM3812UpdateOne (s
->opl
, s
->mixbuf
+ s
->pos
, samples
);
222 written
= write_audio (s
, samples
);
227 s
->pos
= (s
->pos
+ written
) % s
->samples
;
236 static void Adlib_fini (AdlibState
*s
)
247 AUD_remove_card (&s
->card
);
250 static MemoryRegionPortio adlib_portio_list
[] = {
251 { 0, 4, 1, .read
= adlib_read
, .write
= adlib_write
, },
252 { 0, 2, 1, .read
= adlib_read
, .write
= adlib_write
, },
253 { 0x388, 4, 1, .read
= adlib_read
, .write
= adlib_write
, },
254 PORTIO_END_OF_LIST(),
257 static void adlib_realizefn (DeviceState
*dev
, Error
**errp
)
259 AdlibState
*s
= ADLIB(dev
);
260 struct audsettings as
;
263 error_setg (errp
, "Cannot create more than 1 adlib device");
268 s
->opl
= OPLCreate (3579545, s
->freq
);
270 error_setg (errp
, "OPLCreate %d failed", s
->freq
);
274 OPLSetTimerHandler (s
->opl
, timer_handler
, 0);
279 as
.nchannels
= SHIFT
;
280 as
.fmt
= AUD_FMT_S16
;
281 as
.endianness
= AUDIO_HOST_ENDIANNESS
;
283 AUD_register_card ("adlib", &s
->card
);
285 s
->voice
= AUD_open_out (
295 error_setg (errp
, "Initializing audio voice failed");
299 s
->samples
= AUD_get_buffer_size_out (s
->voice
) >> SHIFT
;
300 s
->mixbuf
= g_malloc0 (s
->samples
<< SHIFT
);
302 adlib_portio_list
[0].offset
= s
->port
;
303 adlib_portio_list
[1].offset
= s
->port
+ 8;
304 portio_list_init (&s
->port_list
, OBJECT(s
), adlib_portio_list
, s
, "adlib");
305 portio_list_add (&s
->port_list
, isa_address_space_io(&s
->parent_obj
), 0);
308 static Property adlib_properties
[] = {
309 DEFINE_PROP_UINT32 ("iobase", AdlibState
, port
, 0x220),
310 DEFINE_PROP_UINT32 ("freq", AdlibState
, freq
, 44100),
311 DEFINE_PROP_END_OF_LIST (),
314 static void adlib_class_initfn (ObjectClass
*klass
, void *data
)
316 DeviceClass
*dc
= DEVICE_CLASS (klass
);
318 dc
->realize
= adlib_realizefn
;
319 set_bit(DEVICE_CATEGORY_SOUND
, dc
->categories
);
320 dc
->desc
= ADLIB_DESC
;
321 dc
->props
= adlib_properties
;
324 static const TypeInfo adlib_info
= {
326 .parent
= TYPE_ISA_DEVICE
,
327 .instance_size
= sizeof (AdlibState
),
328 .class_init
= adlib_class_initfn
,
331 static int Adlib_init (ISABus
*bus
)
333 isa_create_simple (bus
, TYPE_ADLIB
);
337 static void adlib_register_types (void)
339 type_register_static (&adlib_info
);
340 isa_register_soundhw("adlib", ADLIB_DESC
, Adlib_init
);
343 type_init (adlib_register_types
)