/* * Adplug - Replayer for many OPL2/OPL3 audio file formats. * Copyright (C) 1999 - 2003 Simon Peter, , et al. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library 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 * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * [xad] FLASH player, by Riven the Mage */ /* - discovery - file(s) : LA-INTRO.EXE type : Lunatic Asylum BBStro tune : by Rogue [Logic Design] player : by Flash [Logic Design] */ #include "flash.h" #include "debug.h" const unsigned char CxadflashPlayer::flash_adlib_registers[99] = { 0x23, 0x20, 0x43, 0x40, 0x63, 0x60, 0x83, 0x80, 0xC0, 0xE3, 0xE0, 0x24, 0x21, 0x44, 0x41, 0x64, 0x61, 0x84, 0x81, 0xC1, 0xE4, 0xE1, 0x25, 0x22, 0x45, 0x42, 0x65, 0x62, 0x85, 0x82, 0xC2, 0xE5, 0xE2, 0x2B, 0x28, 0x4B, 0x48, 0x6B, 0x68, 0x8B, 0x88, 0xC3, 0xEB, 0xE8, 0x2C, 0x29, 0x4C, 0x49, 0x6C, 0x69, 0x8C, 0x89, 0xC4, 0xEC, 0xE9, 0x2D, 0x2A, 0x4D, 0x4A, 0x6D, 0x6A, 0x8D, 0x8A, 0xC5, 0xED, 0xEA, 0x33, 0x30, 0x53, 0x50, 0x73, 0x70, 0x93, 0x90, 0xC6, 0xF3, 0xF0, 0x34, 0x31, 0x54, 0x51, 0x74, 0x71, 0x94, 0x91, 0xC7, 0xF4, 0xF1, 0x35, 0x32, 0x55, 0x52, 0x75, 0x72, 0x95, 0x92, 0xC8, 0xF5, 0xF2 }; const unsigned short CxadflashPlayer::flash_notes_encoded[268] = { 0x000, 0x100, 0x200, 0x300, 0x400, 0x500, 0x600, 0x700, 0x800, 0x900, 0xA00, 0xB00, 0xC00, 0x101, 0x201, 0x301, 0x401, 0x501, 0x601, 0x701, 0x801, 0x901, 0xA01, 0xB01, 0xC01, 0x102, 0x202, 0x302, 0x402, 0x502, 0x602, 0x702, 0x802, 0x902, 0xA02, 0xB02, 0xC02, 0x103, 0x203, 0x303, 0x403, 0x503, 0x603, 0x703, 0x803, 0x903, 0xA03, 0xB03, 0xC03, 0x104, 0x204, 0x304, 0x404, 0x504, 0x604, 0x704, 0x804, 0x904, 0xA04, 0xB04, 0xC04, 0x105, 0x205, 0x305, 0x405, 0x505, 0x605, 0x705, 0x805, 0x905, 0xA05, 0xB05, 0xC05, 0x106, 0x206, 0x306, 0x406, 0x506, 0x606, 0x706, 0x806, 0x906, 0xA06, 0xB06, 0xC06, 0x107, 0x207, 0x307, 0x407, 0x507, 0x607, 0x707, 0x807, 0x907, 0xA07, 0xB07, 0xC07, 0x108, 0x208, 0x308, 0x408, 0x508, 0x608, 0x708, 0x808, 0x908, 0xA08, 0xB08, 0xC08, 0x109, 0x209, 0x309, 0x409, 0x509, 0x609, 0x709, 0x809, 0x909, 0xA09, 0xB09, 0xC09, 0x10A, 0x20A, 0x30A, 0x40A, 0x50A, 0x60A, 0x70A, 0x80A, 0x90A, 0xA0A, 0xB0A, 0xC0A, 0x10B, 0x20B, 0x30B, 0x40B, 0x50B, 0x60B, 0x70B, 0x80B, 0x90B, 0xA0B, 0xB0B, 0xC0B, 0x10C, 0x20C, 0x30C, 0x40C, 0x50C, 0x60C, 0x70C, 0x80C, 0x90C, 0xA0C, 0xB0C, 0xC0C, 0x10D, 0x20D, 0x30D, 0x40D, 0x50D, 0x60D, 0x70D, 0x80D, 0x90D, 0xA0D, 0xB0D, 0xC0D, 0x10E, 0x20E, 0x30E, 0x40E, 0x50E, 0x60E, 0x70E, 0x80E, 0x90E, 0xA0E, 0xB0E, 0xC0E, 0x10F, 0x20F, 0x30F, 0x40F, 0x50F, 0x60F, 0x70F, 0x80F, 0x90F, 0xA0F, 0xB0F, 0xC0F, 0x110, 0x210, 0x310, 0x410, 0x510, 0x610, 0x710, 0x810, 0x910, 0xA10, 0xB10, 0xC10, 0x111, 0x211, 0x311, 0x411, 0x511, 0x611, 0x711, 0x811, 0x911, 0xA11, 0xB11, 0xC11, 0x112, 0x212, 0x312, 0x412, 0x512, 0x612, 0x712, 0x812, 0x912, 0xA12, 0xB12, 0xC12, 0x113, 0x213, 0x313, 0x413, 0x513, 0x613, 0x713, 0x813, 0x913, 0xA13, 0xB13, 0xC13, 0x114, 0x214, 0x314, 0x414, 0x514, 0x614, 0x714, 0x814, 0x914, 0xA14, 0xB14, 0xC14, 0x115, 0x215, 0x315 }; const unsigned short CxadflashPlayer::flash_notes[12] = { 0x157, 0x16B, 0x181, 0x198, 0x1B0, 0x1CA, 0x1E5, 0x202, 0x220, 0x241, 0x263, 0x287 }; const unsigned char CxadflashPlayer::flash_default_instrument[8] = { 0x00, 0x00, 0x3F, 0x3F, 0xFF, 0xFF, 0xFF, 0xFF }; CPlayer *CxadflashPlayer::factory(Copl *newopl) { return new CxadflashPlayer(newopl); } void CxadflashPlayer::xadplayer_rewind(int subsong) { int i; plr.speed = xad.speed; flash.order_pos = 0; flash.pattern_pos = 0; opl_write(0x08, 0x00); opl_write(0xBD, 0x00); // assign default instrument for(i=0; i<9; i++) { opl_write(0xA0+i, 0x00); opl_write(0xB0+i, 0x00); } // assign instruments for(i=0; i<9; i++) for(int j=0; j<11; j++) opl_write(flash_adlib_registers[i*11+j], tune[i*12+j]); } void CxadflashPlayer::xadplayer_update() { unsigned short event_pos = (tune[0x600+flash.order_pos]*1152) + \ (flash.pattern_pos*18) + \ 0x633; for (int i=0; i<9; i++) { unsigned short flash_channel_freq = (adlib[0xB0+i] << 8) + adlib[0xA0+i]; unsigned char event_b0 = tune[event_pos++]; unsigned char event_b1 = tune[event_pos++]; #ifdef DEBUG AdPlug_LogWrite("channel %02X, event %02X %02X:\n",i+1,event_b0,event_b1); #endif if (event_b0 == 0x80) // 0.0x80: Set Instrument { for(int j=0; j<11; j++) opl_write(flash_adlib_registers[i*11+j], tune[event_b1*12+j]); } else { if (event_b1 == 0x01) flash.pattern_pos = 0x3F; // 1.0x01: Pattern Break unsigned char fx = (event_b1 >> 4); unsigned char fx_p = (event_b1 & 0x0F); switch(fx) { case 0x0A: // 1.0xAy: Set Carrier volume opl_write(flash_adlib_registers[11*i+2], fx_p << 2); break; case 0x0B: // 1.0xBy: Set Modulator volume opl_write(flash_adlib_registers[11*i+3], fx_p << 2); break; case 0x0C: // 1.0xCy: Set both operators volume opl_write(flash_adlib_registers[11*i+2], fx_p << 2); opl_write(flash_adlib_registers[11*i+3], fx_p << 2); break; // case 0x0E: // 1.0xEy: ? (increase some value) case 0x0F: // 1.0xFy: Set Speed plr.speed = (fx_p + 1); break; } if (event_b0) { // mute channel opl_write(0xA0+i, adlib[0xA0+i]); opl_write(0xB0+i, adlib[0xB0+i] & 0xDF); // is note ? if (event_b0 != 0x7F) { unsigned short note_encoded = flash_notes_encoded[event_b0]; unsigned short freq = flash_notes[(note_encoded >> 8) - 1]; flash_channel_freq = freq | ((note_encoded & 0xFF) << 10) | 0x2000; opl_write(0xA0+i, flash_channel_freq & 0xFF); opl_write(0xB0+i, flash_channel_freq >> 8); } } if (fx == 0x01) // 1.0x1y: Fine Frequency Slide Up { flash_channel_freq += (fx_p << 1); opl_write(0xA0+i, flash_channel_freq & 0xFF); opl_write(0xB0+i, flash_channel_freq >> 8); } else if (fx == 0x02) // 1.0x2y: Fine Frequency Slide Down { flash_channel_freq -= (fx_p << 1); opl_write(0xA0+i, flash_channel_freq & 0xFF); opl_write(0xB0+i, flash_channel_freq >> 8); } } } // next row flash.pattern_pos++; // end of pattern ? if (flash.pattern_pos >= 0x40) { flash.pattern_pos = 0; flash.order_pos++; // end of module ? if (tune[0x600+flash.order_pos] == 0xFF) { flash.order_pos = 0; plr.looping = 1; } } } float CxadflashPlayer::xadplayer_getrefresh() { return 17.5f; } const char * CxadflashPlayer::xadplayer_gettype() { return "xad: flash player"; } unsigned int CxadflashPlayer::xadplayer_getinstruments() { return 32; }