Added NSF decoder plugin. Fixes 151192.

Original commit message from CVS:
Based on patches by: Johan Dahlin <johan at gnome dot org>
Ronald Bultje <rbultje at ronald dot bitfreak dot net>
* configure.ac:
* gst/nsf/Makefile.am:
* gst/nsf/dis6502.h:
* gst/nsf/fds_snd.c:
* gst/nsf/fds_snd.h:
* gst/nsf/fmopl.c:
* gst/nsf/fmopl.h:
* gst/nsf/gstnsf.c:
* gst/nsf/gstnsf.h:
* gst/nsf/log.c:
* gst/nsf/log.h:
* gst/nsf/memguard.c:
* gst/nsf/memguard.h:
* gst/nsf/mmc5_snd.c:
* gst/nsf/mmc5_snd.h:
* gst/nsf/nes6502.c:
* gst/nsf/nes6502.h:
* gst/nsf/nes_apu.c:
* gst/nsf/nes_apu.h:
* gst/nsf/nsf.c:
* gst/nsf/nsf.h:
* gst/nsf/osd.h:
* gst/nsf/types.h:
* gst/nsf/vrc7_snd.c:
* gst/nsf/vrc7_snd.h:
* gst/nsf/vrcvisnd.c:
* gst/nsf/vrcvisnd.h:
Added NSF decoder plugin. Fixes 151192.

1 files changed, 376 insertions, 0 deletions

diff --git a/gst/nsf/vrc7_snd.c b/gst/nsf/vrc7_snd.c
new file mode 100644
index 00000000..07d27514
--- /dev/null
+++ b/gst/nsf/vrc7_snd.c
@@ -0,0 +1,376 @@
+/*
+** Nofrendo (c) 1998-2000 Matthew Conte (matt@conte.com)
+**
+**
+** This program is free software; you can redistribute it and/or
+** modify it under the terms of version 2 of the GNU Library General 
+** Public License as published by the Free Software Foundation.
+**
+** This program is distributed in the hope that it will be useful, 
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
+** Library General Public License for more details.  To obtain a 
+** copy of the GNU Library General Public License, write to the Free 
+** Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+**
+** Any permitted reproduction of these routines, in whole or in part,
+** must bear this legend.
+**
+**
+** vrc7_snd.c
+**
+** VRCVII sound hardware emulation
+** Thanks to Charles MacDonald (cgfm2@hooked.net) for donating code.
+** $Id$
+*/
+
+#include <stdio.h>
+#include "types.h"
+#include "vrc7_snd.h"
+#include "fmopl.h"
+
+
+static int buflen;
+static int16 *buffer;
+
+#define OPL_WRITE(opl, r, d) \
+{ \
+   OPLWrite((opl)->ym3812, 0, (r)); \
+   OPLWrite((opl)->ym3812, 1, (d)); \
+}
+
+static vrc7_t vrc7;
+
+/* Fixed instrument settings, from MAME's YM2413 emulation */
+/* This might need some tweaking... */
+unsigned char table[16][11] = {
+  /*   20    23    40    43    60    63    80    83    E0    E3    C0 */
+  {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00},
+
+  /* MAME */
+  {0x01, 0x22, 0x23, 0x07, 0xF0, 0xF0, 0x07, 0x18, 0x00, 0x00, 0x00},   /* Violin */
+  {0x23, 0x01, 0x68, 0x05, 0xF2, 0x74, 0x6C, 0x89, 0x00, 0x00, 0x00},   /* Acoustic Guitar(steel) */
+  {0x13, 0x11, 0x25, 0x00, 0xD2, 0xB2, 0xF4, 0xF4, 0x00, 0x00, 0x00},   /* Acoustic Grand */
+  {0x22, 0x21, 0x1B, 0x05, 0xC0, 0xA1, 0x18, 0x08, 0x00, 0x00, 0x00},   /* Flute */
+  {0x22, 0x21, 0x2C, 0x03, 0xD2, 0xA1, 0x18, 0x57, 0x00, 0x00, 0x00},   /* Clarinet */
+  {0x01, 0x22, 0xBA, 0x01, 0xF1, 0xF1, 0x1E, 0x04, 0x00, 0x00, 0x00},   /* Oboe */
+  {0x21, 0x21, 0x28, 0x06, 0xF1, 0xF1, 0x6B, 0x3E, 0x00, 0x00, 0x00},   /* Trumpet */
+  {0x27, 0x21, 0x60, 0x00, 0xF0, 0xF0, 0x0D, 0x0F, 0x00, 0x00, 0x00},   /* Church Organ */
+  {0x20, 0x21, 0x2B, 0x06, 0x85, 0xF1, 0x6D, 0x89, 0x00, 0x00, 0x00},   /* French Horn */
+  {0x01, 0x21, 0xBF, 0x02, 0x53, 0x62, 0x5F, 0xAE, 0x01, 0x00, 0x00},   /* Synth Voice */
+  {0x23, 0x21, 0x70, 0x07, 0xD4, 0xA3, 0x4E, 0x64, 0x01, 0x00, 0x00},   /* Harpsichord */
+  {0x2B, 0x21, 0xA4, 0x07, 0xF6, 0x93, 0x5C, 0x4D, 0x00, 0x00, 0x00},   /* Vibraphone */
+  {0x21, 0x23, 0xAD, 0x07, 0x77, 0xF1, 0x18, 0x37, 0x00, 0x00, 0x00},   /* Synth Bass 1 */
+  {0x21, 0x21, 0x2A, 0x03, 0xF3, 0xE2, 0x29, 0x46, 0x00, 0x00, 0x00},   /* Acoustic Bass */
+  {0x21, 0x23, 0x37, 0x03, 0xF3, 0xE2, 0x29, 0x46, 0x00, 0x00, 0x00},   /* Electric Guitar(clean) */
+
+
+#if 0
+  /* Horton, try 1 */
+  {0x05, 0x03, 0x10, 0x06, 0x74, 0xA1, 0x13, 0xF4, 0x00, 0x00, 0x00},
+  {0x05, 0x01, 0x16, 0x00, 0xF9, 0xA2, 0x15, 0xF5, 0x00, 0x00, 0x00},
+  {0x01, 0x41, 0x11, 0x00, 0xA0, 0xA0, 0x83, 0x95, 0x00, 0x00, 0x00},
+  {0x01, 0x41, 0x17, 0x00, 0x60, 0xF0, 0x83, 0x95, 0x00, 0x00, 0x00},
+  {0x24, 0x41, 0x1F, 0x00, 0x50, 0xB0, 0x94, 0x94, 0x00, 0x00, 0x00},
+  {0x05, 0x01, 0x0B, 0x04, 0x65, 0xA0, 0x54, 0x95, 0x00, 0x00, 0x00},
+  {0x11, 0x41, 0x0E, 0x04, 0x70, 0xC7, 0x13, 0x10, 0x00, 0x00, 0x00},
+  {0x02, 0x44, 0x16, 0x06, 0xE0, 0xE0, 0x31, 0x35, 0x00, 0x00, 0x00},
+  {0x48, 0x22, 0x22, 0x07, 0x50, 0xA1, 0xA5, 0xF4, 0x00, 0x00, 0x00},
+  {0x05, 0xA1, 0x18, 0x00, 0xA2, 0xA2, 0xF5, 0xF5, 0x00, 0x00, 0x00},
+  {0x07, 0x81, 0x2B, 0x05, 0xA5, 0xA5, 0x03, 0x03, 0x00, 0x00, 0x00},
+  {0x01, 0x41, 0x08, 0x08, 0xA0, 0xA0, 0x83, 0x95, 0x00, 0x00, 0x00},
+  {0x21, 0x61, 0x12, 0x00, 0x93, 0x92, 0x74, 0x75, 0x00, 0x00, 0x00},
+  {0x21, 0x62, 0x21, 0x00, 0x84, 0x85, 0x34, 0x15, 0x00, 0x00, 0x00},
+  {0x21, 0x62, 0x0E, 0x00, 0xA1, 0xA0, 0x34, 0x15, 0x00, 0x00, 0x00},
+#endif
+
+#if 0
+  /* Horton try 2 */
+  {0x31, 0x22, 0x23, 0x07, 0xF0, 0xF0, 0xE8, 0xF7, 0x00, 0x00, 0x00},
+  {0x03, 0x31, 0x68, 0x05, 0xF2, 0x74, 0x79, 0x9C, 0x00, 0x00, 0x00},
+  {0x01, 0x51, 0x72, 0x04, 0xF1, 0xD3, 0x9D, 0x8B, 0x00, 0x00, 0x00},
+  {0x22, 0x61, 0x1B, 0x05, 0xC0, 0xA1, 0xF8, 0xE8, 0x00, 0x00, 0x00},
+  {0x22, 0x61, 0x2C, 0x03, 0xD2, 0xA1, 0xA7, 0xE8, 0x00, 0x00, 0x00},
+  {0x31, 0x22, 0xFA, 0x01, 0xF1, 0xF1, 0xF4, 0xEE, 0x00, 0x00, 0x00},
+  {0x21, 0x61, 0x28, 0x06, 0xF1, 0xF1, 0xCE, 0x9B, 0x00, 0x00, 0x00},
+  {0x27, 0x61, 0x60, 0x00, 0xF0, 0xF0, 0xFF, 0xFD, 0x00, 0x00, 0x00},
+  {0x60, 0x21, 0x2B, 0x06, 0x85, 0xF1, 0x79, 0x9D, 0x00, 0x00, 0x00},
+  {0x31, 0xA1, 0xFF, 0x0A, 0x53, 0x62, 0x5E, 0xAF, 0x00, 0x00, 0x00},
+  {0x03, 0xA1, 0x70, 0x0F, 0xD4, 0xA3, 0x94, 0xBE, 0x00, 0x00, 0x00},
+  {0x2B, 0x61, 0xE4, 0x07, 0xF6, 0x93, 0xBD, 0xAC, 0x00, 0x00, 0x00},
+  {0x21, 0x63, 0xED, 0x07, 0x77, 0xF1, 0xC7, 0xE8, 0x00, 0x00, 0x00},
+  {0x21, 0x61, 0x2A, 0x03, 0xF3, 0xE2, 0xB6, 0xD9, 0x00, 0x00, 0x00},
+  {0x21, 0x63, 0x37, 0x03, 0xF3, 0xE2, 0xB6, 0xD9, 0x00, 0x00, 0x00},
+#endif
+};
+
+static void
+vrc7_reset (void)
+{
+  int n;
+
+  /* Point to current VRC7 context */
+  vrc7_t *opll = &vrc7;
+
+  /* Clear all YM3812 registers */
+  for (n = 0; n < 0x100; n++)
+    OPL_WRITE (opll, n, 0x00);
+
+  /* Turn off rhythm mode and key-on bits */
+  OPL_WRITE (opll, 0xBD, 0xC0);
+
+  /* Enable waveform select */
+  OPL_WRITE (opll, 0x01, 0x20);
+}
+
+static void
+vrc7_init (void)
+{
+  vrc7.ym3812 =
+      OPLCreate (OPL_TYPE_YM3812, 3579545, apu_getcontext ()->sample_rate);
+  ASSERT (vrc7.ym3812);
+  buflen = apu_getcontext ()->num_samples;
+  buffer = malloc (buflen * 2);
+  ASSERT (buffer);
+  vrc7_reset ();
+}
+
+static void
+vrc7_shutdown (void)
+{
+  void *t = buffer;
+
+  vrc7_reset ();
+  OPLDestroy (vrc7.ym3812);
+  free (t);
+}
+
+/* channel (0-9), instrument (0-F), volume (0-3F, YM3812 format) */
+static void
+load_instrument (uint8 ch, uint8 inst, uint8 vol)
+{
+  /* Point to current VRC7 context */
+  vrc7_t *opll = &vrc7;
+
+  /* Point to fixed instrument or user table */
+  uint8 *param = (inst == 0) ? &opll->user[0] : &table[inst][0];
+
+  /* Maps channels to operator registers */
+  uint8 ch2op[] = { 0, 1, 2, 8, 9, 10, 16, 17, 18 };
+
+  /* Make operator offset from requested channel */
+  uint8 op = ch2op[ch];
+
+  /* Store volume level */
+  opll->channel[ch].volume = (vol & 0x3F);
+
+  /* Store instrument number */
+  opll->channel[ch].instrument = (inst & 0x0F);
+
+  /* Update instrument settings, except frequency registers */
+  OPL_WRITE (opll, 0x20 + op, param[0]);
+  OPL_WRITE (opll, 0x23 + op, param[1]);
+  OPL_WRITE (opll, 0x40 + op, param[2]);
+  OPL_WRITE (opll, 0x43 + op, (param[3] & 0xC0) | opll->channel[ch].volume);
+  OPL_WRITE (opll, 0x60 + op, param[4]);
+  OPL_WRITE (opll, 0x63 + op, param[5]);
+  OPL_WRITE (opll, 0x80 + op, param[6]);
+  OPL_WRITE (opll, 0x83 + op, param[7]);
+  OPL_WRITE (opll, 0xE0 + op, param[8]);
+  OPL_WRITE (opll, 0xE3 + op, param[9]);
+  OPL_WRITE (opll, 0xC0 + ch, param[10]);
+}
+
+static void
+vrc7_write (uint32 address, uint8 data)
+{
+  /* Point to current VRC7 context */
+  vrc7_t *opll = &vrc7;
+
+  if (address & 0x0020) {       /* data port */
+    /* Store register data */
+    opll->reg[opll->latch] = data;
+
+    switch (opll->latch & 0x30) {
+      case 0x00:               /* User instrument registers */
+        switch (opll->latch & 0x0F) {
+          case 0x00:           /* Misc. ctrl. (modulator) */
+          case 0x01:           /* Misc. ctrl. (carrier) */
+          case 0x02:           /* Key scale level and total level (modulator) */
+          case 0x04:           /* Attack / Decay (modulator) */
+          case 0x05:           /* Attack / Decay (carrier) */
+          case 0x06:           /* Sustain / Release (modulator) */
+          case 0x07:           /* Sustain / Release (carrier) */
+            opll->user[(opll->latch & 0x07)] = data;
+            break;
+
+          case 0x03:           /* Key scale level, carrier/modulator waveform, feedback */
+
+            /* Key scale level (carrier) */
+            /* Don't touch the total level (channel volume) */
+            opll->user[3] = (opll->user[3] & 0x3F) | (data & 0xC0);
+
+            /* Waveform select for the modulator */
+            opll->user[8] = (data >> 3) & 1;
+
+            /* Waveform select for the carrier */
+            opll->user[9] = (data >> 4) & 1;
+
+            /* Store feedback level in YM3812 format */
+            opll->user[10] = ((data & 0x07) << 1) & 0x0E;
+            break;
+        }
+
+        /* If the user instrument registers were accessed, then
+           go through each channel and update the ones that were
+           currently using the user instrument. We can skip the
+           last three channels in rhythm mode since they can
+           only use percussion sounds anyways. */
+        if (opll->latch <= 0x05) {
+          uint8 x;
+
+          for (x = 0; x < 6; x++)
+            if (opll->channel[x].instrument == 0x00)
+              load_instrument (x, 0x00, opll->channel[x].volume);
+        }
+        break;
+
+      case 0x10:               /* Channel Frequency (LSB) */
+      case 0x20:               /* Channel Frequency (MSB) + key-on and sustain control */
+      {
+        uint8 block;
+        uint16 frequency;
+        uint8 ch = (opll->latch & 0x0F);
+
+        /* Ensure proper channel range */
+        if (ch > 0x05)
+          break;
+
+        /* Get VRC7 channel frequency */
+        frequency =
+            ((opll->reg[0x10 + ch] & 0xFF) | ((opll->reg[0x20 +
+                        ch] & 0x01) << 8));
+
+        /* Scale 9 bit frequency to 10 bits */
+        frequency = (frequency << 1) & 0x1FFF;
+
+        /* Get VRC7 block */
+        block = (opll->reg[0x20 + ch] >> 1) & 7;
+
+        /* Add in block */
+        frequency |= (block << 10);
+
+        /* Add key-on flag */
+        if (opll->reg[0x20 + ch] & 0x10)
+          frequency |= 0x2000;
+
+        /* Save current frequency/block/key-on setting */
+        opll->channel[ch].frequency = (frequency & 0x3FFF);
+
+        /* Write changes to YM3812 */
+        OPL_WRITE (opll, 0xA0 + ch, (opll->channel[ch].frequency >> 0) & 0xFF);
+        OPL_WRITE (opll, 0xB0 + ch, (opll->channel[ch].frequency >> 8) & 0xFF);
+      }
+        break;
+
+      case 0x30:               /* Channel Volume Level and Instrument Select */
+
+        /* Ensure proper channel range */
+        if (opll->latch > 0x35)
+          break;
+
+        {
+          uint8 ch = (opll->latch & 0x0F);
+          uint8 inst = (data >> 4) & 0x0F;
+          uint8 vol = (data & 0x0F) << 2;
+
+          load_instrument (ch, inst, vol);
+        }
+
+        break;
+    }
+  } else {                      /* Register latch */
+
+    opll->latch = (data & 0x3F);
+  }
+}
+
+static int32
+vrc7_process (void)
+{
+  static int sample = 0;
+
+  /* update a large chunk at once */
+  if (sample >= buflen) {
+    sample -= buflen;
+    YM3812UpdateOne (vrc7.ym3812, buffer, buflen);
+  }
+
+  return (int32) ((int16 *) buffer)[sample++];
+}
+
+static apu_memwrite vrc7_memwrite[] = {
+  {0x9010, 0x9010, vrc7_write},
+  {0x9030, 0x9030, vrc7_write},
+  {-1, -1, NULL}
+};
+
+apuext_t vrc7_ext = {
+  vrc7_init,
+  vrc7_shutdown,
+  vrc7_reset,
+  vrc7_process,
+  NULL,                         /* no reads */
+  vrc7_memwrite
+};
+
+/*
+** $Log$
+** Revision 1.1  2006/07/13 15:07:28  wtay
+** Based on patches by: Johan Dahlin <johan at gnome dot org>
+** Ronald Bultje <rbultje at ronald dot bitfreak dot net>
+** * configure.ac:
+** * gst/nsf/Makefile.am:
+** * gst/nsf/dis6502.h:
+** * gst/nsf/fds_snd.c:
+** * gst/nsf/fds_snd.h:
+** * gst/nsf/fmopl.c:
+** * gst/nsf/fmopl.h:
+** * gst/nsf/gstnsf.c:
+** * gst/nsf/gstnsf.h:
+** * gst/nsf/log.c:
+** * gst/nsf/log.h:
+** * gst/nsf/memguard.c:
+** * gst/nsf/memguard.h:
+** * gst/nsf/mmc5_snd.c:
+** * gst/nsf/mmc5_snd.h:
+** * gst/nsf/nes6502.c:
+** * gst/nsf/nes6502.h:
+** * gst/nsf/nes_apu.c:
+** * gst/nsf/nes_apu.h:
+** * gst/nsf/nsf.c:
+** * gst/nsf/nsf.h:
+** * gst/nsf/osd.h:
+** * gst/nsf/types.h:
+** * gst/nsf/vrc7_snd.c:
+** * gst/nsf/vrc7_snd.h:
+** * gst/nsf/vrcvisnd.c:
+** * gst/nsf/vrcvisnd.h:
+** Added NSF decoder plugin. Fixes 151192.
+**
+** Revision 1.5  2000/07/04 04:51:02  matt
+** made data types stricter
+**
+** Revision 1.4  2000/07/03 02:18:53  matt
+** much better external module exporting
+**
+** Revision 1.3  2000/06/20 20:45:09  matt
+** minor cleanups
+**
+** Revision 1.2  2000/06/20 04:06:16  matt
+** migrated external sound definition to apu module
+**
+** Revision 1.1  2000/06/20 00:06:47  matt
+** initial revision
+**
+*/