hw/audio/adlib.c

   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 "hw/hw.h"
  26 #include "hw/audio/audio.h"
  27 #include "audio/audio.h"
  28 #include "hw/isa/isa.h"
  29
  30 //#define DEBUG
  31
  32 #define ADLIB_KILL_TIMERS 1
  33
  34 #ifdef DEBUG
  35 #include "qemu/timer.h"
  36 #endif
  37
  38 #define dolog(...) AUD_log ("adlib", __VA_ARGS__)
  39 #ifdef DEBUG
  40 #define ldebug(...) dolog (__VA_ARGS__)
  41 #else
  42 #define ldebug(...)
  43 #endif
  44
  45 #ifdef HAS_YMF262
  46 #include "ymf262.h"
  47 void YMF262UpdateOneQEMU (int which, INT16 *dst, int length);
  48 #define SHIFT 2
  49 #else
  50 #include "fmopl.h"
  51 #define SHIFT 1
  52 #endif
  53
  54 #define IO_READ_PROTO(name) \
  55     uint32_t name (void *opaque, uint32_t nport)
  56 #define IO_WRITE_PROTO(name) \
  57     void name (void *opaque, uint32_t nport, uint32_t val)
  58
  59 static struct {
  60     int port;
  61     int freq;
  62 } conf = {0x220, 44100};
  63
  64 typedef struct {
  65     QEMUSoundCard card;
  66     int ticking[2];
  67     int enabled;
  68     int active;
  69     int bufpos;
  70 #ifdef DEBUG
  71     int64_t exp[2];
  72 #endif
  73     int16_t *mixbuf;
  74     uint64_t dexp[2];
  75     SWVoiceOut *voice;
  76     int left, pos, samples;
  77     QEMUAudioTimeStamp ats;
  78 #ifndef HAS_YMF262
  79     FM_OPL *opl;
  80 #endif
  81 } AdlibState;
  82
  83 static AdlibState glob_adlib;
  84
  85 static void adlib_stop_opl_timer (AdlibState *s, size_t n)
  86 {
  87 #ifdef HAS_YMF262
  88     YMF262TimerOver (0, n);
  89 #else
  90     OPLTimerOver (s->opl, n);
  91 #endif
  92     s->ticking[n] = 0;
  93 }
  94
  95 static void adlib_kill_timers (AdlibState *s)
  96 {
  97     size_t i;
  98
  99     for (i = 0; i < 2; ++i) {
 100         if (s->ticking[i]) {
 101             uint64_t delta;
 102
 103             delta = AUD_get_elapsed_usec_out (s->voice, &s->ats);
 104             ldebug (
 105                 "delta = %f dexp = %f expired => %d\n",
 106                 delta / 1000000.0,
 107                 s->dexp[i] / 1000000.0,
 108                 delta >= s->dexp[i]
 109                 );
 110             if (ADLIB_KILL_TIMERS || delta >= s->dexp[i]) {
 111                 adlib_stop_opl_timer (s, i);
 112                 AUD_init_time_stamp_out (s->voice, &s->ats);
 113             }
 114         }
 115     }
 116 }
 117
 118 static IO_WRITE_PROTO (adlib_write)
 119 {
 120     AdlibState *s = opaque;
 121     int a = nport & 3;
 122
 123     s->active = 1;
 124     AUD_set_active_out (s->voice, 1);
 125
 126     adlib_kill_timers (s);
 127
 128 #ifdef HAS_YMF262
 129     YMF262Write (0, a, val);
 130 #else
 131     OPLWrite (s->opl, a, val);
 132 #endif
 133 }
 134
 135 static IO_READ_PROTO (adlib_read)
 136 {
 137     AdlibState *s = opaque;
 138     uint8_t data;
 139     int a = nport & 3;
 140
 141     adlib_kill_timers (s);
 142
 143 #ifdef HAS_YMF262
 144     data = YMF262Read (0, a);
 145 #else
 146     data = OPLRead (s->opl, a);
 147 #endif
 148     return data;
 149 }
 150
 151 static void timer_handler (int c, double interval_Sec)
 152 {
 153     AdlibState *s = &glob_adlib;
 154     unsigned n = c & 1;
 155 #ifdef DEBUG
 156     double interval;
 157     int64_t exp;
 158 #endif
 159
 160     if (interval_Sec == 0.0) {
 161         s->ticking[n] = 0;
 162         return;
 163     }
 164
 165     s->ticking[n] = 1;
 166 #ifdef DEBUG
 167     interval = get_ticks_per_sec () * interval_Sec;
 168     exp = qemu_get_clock_ns (vm_clock) + interval;
 169     s->exp[n] = exp;
 170 #endif
 171
 172     s->dexp[n] = interval_Sec * 1000000.0;
 173     AUD_init_time_stamp_out (s->voice, &s->ats);
 174 }
 175
 176 static int write_audio (AdlibState *s, int samples)
 177 {
 178     int net = 0;
 179     int pos = s->pos;
 180
 181     while (samples) {
 182         int nbytes, wbytes, wsampl;
 183
 184         nbytes = samples << SHIFT;
 185         wbytes = AUD_write (
 186             s->voice,
 187             s->mixbuf + (pos << (SHIFT - 1)),
 188             nbytes
 189             );
 190
 191         if (wbytes) {
 192             wsampl = wbytes >> SHIFT;
 193
 194             samples -= wsampl;
 195             pos = (pos + wsampl) % s->samples;
 196
 197             net += wsampl;
 198         }
 199         else {
 200             break;
 201         }
 202     }
 203
 204     return net;
 205 }
 206
 207 static void adlib_callback (void *opaque, int free)
 208 {
 209     AdlibState *s = opaque;
 210     int samples, net = 0, to_play, written;
 211
 212     samples = free >> SHIFT;
 213     if (!(s->active && s->enabled) || !samples) {
 214         return;
 215     }
 216
 217     to_play = audio_MIN (s->left, samples);
 218     while (to_play) {
 219         written = write_audio (s, to_play);
 220
 221         if (written) {
 222             s->left -= written;
 223             samples -= written;
 224             to_play -= written;
 225             s->pos = (s->pos + written) % s->samples;
 226         }
 227         else {
 228             return;
 229         }
 230     }
 231
 232     samples = audio_MIN (samples, s->samples - s->pos);
 233     if (!samples) {
 234         return;
 235     }
 236
 237 #ifdef HAS_YMF262
 238     YMF262UpdateOneQEMU (0, s->mixbuf + s->pos * 2, samples);
 239 #else
 240     YM3812UpdateOne (s->opl, s->mixbuf + s->pos, samples);
 241 #endif
 242
 243     while (samples) {
 244         written = write_audio (s, samples);
 245
 246         if (written) {
 247             net += written;
 248             samples -= written;
 249             s->pos = (s->pos + written) % s->samples;
 250         }
 251         else {
 252             s->left = samples;
 253             return;
 254         }
 255     }
 256 }
 257
 258 static void Adlib_fini (AdlibState *s)
 259 {
 260 #ifdef HAS_YMF262
 261     YMF262Shutdown ();
 262 #else
 263     if (s->opl) {
 264         OPLDestroy (s->opl);
 265         s->opl = NULL;
 266     }
 267 #endif
 268
 269     if (s->mixbuf) {
 270         g_free (s->mixbuf);
 271     }
 272
 273     s->active = 0;
 274     s->enabled = 0;
 275     AUD_remove_card (&s->card);
 276 }
 277
 278 int Adlib_init (ISABus *bus)
 279 {
 280     AdlibState *s = &glob_adlib;
 281     struct audsettings as;
 282
 283 #ifdef HAS_YMF262
 284     if (YMF262Init (1, 14318180, conf.freq)) {
 285         dolog ("YMF262Init %d failed\n", conf.freq);
 286         return -1;
 287     }
 288     else {
 289         YMF262SetTimerHandler (0, timer_handler, 0);
 290         s->enabled = 1;
 291     }
 292 #else
 293     s->opl = OPLCreate (OPL_TYPE_YM3812, 3579545, conf.freq);
 294     if (!s->opl) {
 295         dolog ("OPLCreate %d failed\n", conf.freq);
 296         return -1;
 297     }
 298     else {
 299         OPLSetTimerHandler (s->opl, timer_handler, 0);
 300         s->enabled = 1;
 301     }
 302 #endif
 303
 304     as.freq = conf.freq;
 305     as.nchannels = SHIFT;
 306     as.fmt = AUD_FMT_S16;
 307     as.endianness = AUDIO_HOST_ENDIANNESS;
 308
 309     AUD_register_card ("adlib", &s->card);
 310
 311     s->voice = AUD_open_out (
 312         &s->card,
 313         s->voice,
 314         "adlib",
 315         s,
 316         adlib_callback,
 317         &as
 318         );
 319     if (!s->voice) {
 320         Adlib_fini (s);
 321         return -1;
 322     }
 323
 324     s->samples = AUD_get_buffer_size_out (s->voice) >> SHIFT;
 325     s->mixbuf = g_malloc0 (s->samples << SHIFT);
 326
 327     register_ioport_read (0x388, 4, 1, adlib_read, s);
 328     register_ioport_write (0x388, 4, 1, adlib_write, s);
 329
 330     register_ioport_read (conf.port, 4, 1, adlib_read, s);
 331     register_ioport_write (conf.port, 4, 1, adlib_write, s);
 332
 333     register_ioport_read (conf.port + 8, 2, 1, adlib_read, s);
 334     register_ioport_write (conf.port + 8, 2, 1, adlib_write, s);
 335
 336     return 0;
 337 }