16/adplug/adplug/src/flash.cpp

   1 /*
   2  * Adplug - Replayer for many OPL2/OPL3 audio file formats.
   3  * Copyright (C) 1999 - 2003 Simon Peter, <dn.tlp@gmx.net>, et al.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18  *
  19  * [xad] FLASH player, by Riven the Mage <riven@ok.ru>
  20  */
  21
  22 /*
  23     - discovery -
  24
  25   file(s) : LA-INTRO.EXE
  26      type : Lunatic Asylum BBStro
  27      tune : by Rogue [Logic Design]
  28    player : by Flash [Logic Design]
  29 */
  30
  31 #include "flash.h"
  32 #include "debug.h"
  33
  34 const unsigned char CxadflashPlayer::flash_adlib_registers[99] =
  35 {
  36   0x23, 0x20, 0x43, 0x40, 0x63, 0x60, 0x83, 0x80, 0xC0, 0xE3, 0xE0,
  37   0x24, 0x21, 0x44, 0x41, 0x64, 0x61, 0x84, 0x81, 0xC1, 0xE4, 0xE1,
  38   0x25, 0x22, 0x45, 0x42, 0x65, 0x62, 0x85, 0x82, 0xC2, 0xE5, 0xE2,
  39   0x2B, 0x28, 0x4B, 0x48, 0x6B, 0x68, 0x8B, 0x88, 0xC3, 0xEB, 0xE8,
  40   0x2C, 0x29, 0x4C, 0x49, 0x6C, 0x69, 0x8C, 0x89, 0xC4, 0xEC, 0xE9,
  41   0x2D, 0x2A, 0x4D, 0x4A, 0x6D, 0x6A, 0x8D, 0x8A, 0xC5, 0xED, 0xEA,
  42   0x33, 0x30, 0x53, 0x50, 0x73, 0x70, 0x93, 0x90, 0xC6, 0xF3, 0xF0,
  43   0x34, 0x31, 0x54, 0x51, 0x74, 0x71, 0x94, 0x91, 0xC7, 0xF4, 0xF1,
  44   0x35, 0x32, 0x55, 0x52, 0x75, 0x72, 0x95, 0x92, 0xC8, 0xF5, 0xF2
  45 };
  46
  47 const unsigned short CxadflashPlayer::flash_notes_encoded[268] =
  48 {
  49   0x000,
  50   0x100, 0x200, 0x300, 0x400, 0x500, 0x600, 0x700, 0x800, 0x900, 0xA00, 0xB00, 0xC00,
  51   0x101, 0x201, 0x301, 0x401, 0x501, 0x601, 0x701, 0x801, 0x901, 0xA01, 0xB01, 0xC01,
  52   0x102, 0x202, 0x302, 0x402, 0x502, 0x602, 0x702, 0x802, 0x902, 0xA02, 0xB02, 0xC02,
  53   0x103, 0x203, 0x303, 0x403, 0x503, 0x603, 0x703, 0x803, 0x903, 0xA03, 0xB03, 0xC03,
  54   0x104, 0x204, 0x304, 0x404, 0x504, 0x604, 0x704, 0x804, 0x904, 0xA04, 0xB04, 0xC04,
  55   0x105, 0x205, 0x305, 0x405, 0x505, 0x605, 0x705, 0x805, 0x905, 0xA05, 0xB05, 0xC05,
  56   0x106, 0x206, 0x306, 0x406, 0x506, 0x606, 0x706, 0x806, 0x906, 0xA06, 0xB06, 0xC06,
  57   0x107, 0x207, 0x307, 0x407, 0x507, 0x607, 0x707, 0x807, 0x907, 0xA07, 0xB07, 0xC07,
  58   0x108, 0x208, 0x308, 0x408, 0x508, 0x608, 0x708, 0x808, 0x908, 0xA08, 0xB08, 0xC08,
  59   0x109, 0x209, 0x309, 0x409, 0x509, 0x609, 0x709, 0x809, 0x909, 0xA09, 0xB09, 0xC09,
  60   0x10A, 0x20A, 0x30A, 0x40A, 0x50A, 0x60A, 0x70A, 0x80A, 0x90A, 0xA0A, 0xB0A, 0xC0A,
  61   0x10B, 0x20B, 0x30B, 0x40B, 0x50B, 0x60B, 0x70B, 0x80B, 0x90B, 0xA0B, 0xB0B, 0xC0B,
  62   0x10C, 0x20C, 0x30C, 0x40C, 0x50C, 0x60C, 0x70C, 0x80C, 0x90C, 0xA0C, 0xB0C, 0xC0C,
  63   0x10D, 0x20D, 0x30D, 0x40D, 0x50D, 0x60D, 0x70D, 0x80D, 0x90D, 0xA0D, 0xB0D, 0xC0D,
  64   0x10E, 0x20E, 0x30E, 0x40E, 0x50E, 0x60E, 0x70E, 0x80E, 0x90E, 0xA0E, 0xB0E, 0xC0E,
  65   0x10F, 0x20F, 0x30F, 0x40F, 0x50F, 0x60F, 0x70F, 0x80F, 0x90F, 0xA0F, 0xB0F, 0xC0F,
  66   0x110, 0x210, 0x310, 0x410, 0x510, 0x610, 0x710, 0x810, 0x910, 0xA10, 0xB10, 0xC10,
  67   0x111, 0x211, 0x311, 0x411, 0x511, 0x611, 0x711, 0x811, 0x911, 0xA11, 0xB11, 0xC11,
  68   0x112, 0x212, 0x312, 0x412, 0x512, 0x612, 0x712, 0x812, 0x912, 0xA12, 0xB12, 0xC12,
  69   0x113, 0x213, 0x313, 0x413, 0x513, 0x613, 0x713, 0x813, 0x913, 0xA13, 0xB13, 0xC13,
  70   0x114, 0x214, 0x314, 0x414, 0x514, 0x614, 0x714, 0x814, 0x914, 0xA14, 0xB14, 0xC14,
  71   0x115, 0x215, 0x315
  72 };
  73
  74 const unsigned short CxadflashPlayer::flash_notes[12] =
  75 {
  76   0x157, 0x16B, 0x181, 0x198, 0x1B0, 0x1CA, 0x1E5, 0x202, 0x220, 0x241, 0x263, 0x287
  77 };
  78
  79 const unsigned char CxadflashPlayer::flash_default_instrument[8] =
  80 {
  81   0x00, 0x00, 0x3F, 0x3F, 0xFF, 0xFF, 0xFF, 0xFF
  82 };
  83
  84 CPlayer *CxadflashPlayer::factory(Copl *newopl)
  85 {
  86   return new CxadflashPlayer(newopl);
  87 }
  88
  89 void CxadflashPlayer::xadplayer_rewind(int subsong)
  90 {
  91   int i;
  92
  93   plr.speed = xad.speed;
  94
  95   flash.order_pos = 0;
  96   flash.pattern_pos = 0;
  97
  98   opl_write(0x08, 0x00);
  99   opl_write(0xBD, 0x00);
 100
 101   // assign default instrument
 102   for(i=0; i<9; i++)
 103   {
 104     opl_write(0xA0+i, 0x00);
 105     opl_write(0xB0+i, 0x00);
 106   }
 107
 108   // assign instruments
 109   for(i=0; i<9; i++)
 110     for(int j=0; j<11; j++)
 111       opl_write(flash_adlib_registers[i*11+j], tune[i*12+j]);
 112 }
 113
 114 void CxadflashPlayer::xadplayer_update()
 115 {
 116   unsigned short event_pos = (tune[0x600+flash.order_pos]*1152) + \
 117                              (flash.pattern_pos*18) + \
 118                               0x633;
 119
 120   for (int i=0; i<9; i++)
 121   {
 122     unsigned short flash_channel_freq = (adlib[0xB0+i] << 8) + adlib[0xA0+i];
 123
 124     unsigned char event_b0 = tune[event_pos++];
 125     unsigned char event_b1 = tune[event_pos++];
 126 #ifdef DEBUG
 127   AdPlug_LogWrite("channel %02X, event %02X %02X:\n",i+1,event_b0,event_b1);
 128 #endif
 129
 130     if (event_b0 == 0x80)               // 0.0x80: Set Instrument
 131     {
 132       for(int j=0; j<11; j++)
 133         opl_write(flash_adlib_registers[i*11+j], tune[event_b1*12+j]);
 134     }
 135     else
 136     {
 137       if (event_b1 == 0x01)
 138         flash.pattern_pos = 0x3F;       // 1.0x01: Pattern Break
 139
 140       unsigned char fx = (event_b1 >> 4);
 141       unsigned char fx_p = (event_b1 & 0x0F);
 142
 143       switch(fx)
 144       {
 145         case 0x0A:                      // 1.0xAy: Set Carrier volume
 146           opl_write(flash_adlib_registers[11*i+2], fx_p << 2);
 147           break;
 148         case 0x0B:                      // 1.0xBy: Set Modulator volume
 149           opl_write(flash_adlib_registers[11*i+3], fx_p << 2);
 150           break;
 151         case 0x0C:                      // 1.0xCy: Set both operators volume
 152           opl_write(flash_adlib_registers[11*i+2], fx_p << 2);
 153           opl_write(flash_adlib_registers[11*i+3], fx_p << 2);
 154           break;
 155 //      case 0x0E:                      // 1.0xEy: ? (increase some value)
 156         case 0x0F:                      // 1.0xFy: Set Speed
 157           plr.speed = (fx_p + 1);
 158           break;
 159       }
 160
 161       if (event_b0)
 162       {
 163         // mute channel
 164         opl_write(0xA0+i, adlib[0xA0+i]);
 165         opl_write(0xB0+i, adlib[0xB0+i] & 0xDF);
 166
 167         // is note ?
 168         if (event_b0 != 0x7F)
 169         {
 170           unsigned short note_encoded = flash_notes_encoded[event_b0];
 171           unsigned short freq = flash_notes[(note_encoded >> 8) - 1];
 172
 173           flash_channel_freq = freq | ((note_encoded & 0xFF) << 10) | 0x2000;
 174
 175           opl_write(0xA0+i, flash_channel_freq & 0xFF);
 176           opl_write(0xB0+i, flash_channel_freq >> 8);
 177         }
 178       }
 179
 180       if (fx == 0x01)                   // 1.0x1y: Fine Frequency Slide Up
 181       {
 182         flash_channel_freq += (fx_p << 1);
 183
 184         opl_write(0xA0+i, flash_channel_freq & 0xFF);
 185         opl_write(0xB0+i, flash_channel_freq >> 8);
 186       }
 187       else if (fx == 0x02)              // 1.0x2y: Fine Frequency Slide Down
 188       {
 189         flash_channel_freq -= (fx_p << 1);
 190
 191         opl_write(0xA0+i, flash_channel_freq & 0xFF);
 192         opl_write(0xB0+i, flash_channel_freq >> 8);
 193       }
 194     }
 195   }
 196
 197   // next row
 198   flash.pattern_pos++;
 199
 200   // end of pattern ?
 201   if (flash.pattern_pos >= 0x40)
 202   {
 203     flash.pattern_pos = 0;
 204
 205     flash.order_pos++;
 206
 207     // end of module ?
 208     if (tune[0x600+flash.order_pos] == 0xFF)
 209     {
 210       flash.order_pos = 0;
 211
 212       plr.looping = 1;
 213     }
 214   }
 215 }
 216
 217 float CxadflashPlayer::xadplayer_getrefresh()
 218 {
 219   return 17.5f;
 220 }
 221
 222 std::string CxadflashPlayer::xadplayer_gettype()
 223 {
 224   return std::string("xad: flash player");
 225 }
 226
 227 unsigned int CxadflashPlayer::xadplayer_getinstruments()
 228 {
 229   return 32;
 230 }