/* * Adplug - Replayer for many OPL2/OPL3 audio file formats. * Copyright (C) 1999 - 2003, 2006 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] BMF player, by Riven the Mage */ /* - discovery - file(s) : GAMESNET.COM type : GamesNet advertising intro tune : by (?)The Brain [Razor 1911] player : ver.0.9b by Hammer file(s) : 2FAST4U.COM type : Ford Knox BBStro tune : by The Brain [Razor 1911] player : ver.1.1 by ? comment : in original player at 9th channel the feedback adlib register is not C8 but C6. file(s) : DATURA.COM type : Datura BBStro tune : by The Brain [Razor 1911] player : ver.1.2 by ? comment : inaccurate replaying, because constant outport; in original player it can be 380 or 382. */ #include #include "bmf.h" #include "debug.h" const unsigned char CxadbmfPlayer::bmf_adlib_registers[117] = { 0x20, 0x23, 0x40, 0x43, 0x60, 0x63, 0x80, 0x83, 0xA0, 0xB0, 0xC0, 0xE0, 0xE3, 0x21, 0x24, 0x41, 0x44, 0x61, 0x64, 0x81, 0x84, 0xA1, 0xB1, 0xC1, 0xE1, 0xE4, 0x22, 0x25, 0x42, 0x45, 0x62, 0x65, 0x82, 0x85, 0xA2, 0xB2, 0xC2, 0xE2, 0xE5, 0x28, 0x2B, 0x48, 0x4B, 0x68, 0x6B, 0x88, 0x8B, 0xA3, 0xB3, 0xC3, 0xE8, 0xEB, 0x29, 0x2C, 0x49, 0x4C, 0x69, 0x6C, 0x89, 0x8C, 0xA4, 0xB4, 0xC4, 0xE9, 0xEC, 0x2A, 0x2D, 0x4A, 0x4D, 0x6A, 0x6D, 0x8A, 0x8D, 0xA5, 0xB5, 0xC5, 0xEA, 0xED, 0x30, 0x33, 0x50, 0x53, 0x70, 0x73, 0x90, 0x93, 0xA6, 0xB6, 0xC6, 0xF0, 0xF3, 0x31, 0x34, 0x51, 0x54, 0x71, 0x74, 0x91, 0x94, 0xA7, 0xB7, 0xC7, 0xF1, 0xF4, 0x32, 0x35, 0x52, 0x55, 0x72, 0x75, 0x92, 0x95, 0xA8, 0xB8, 0xC8, 0xF2, 0xF5 }; const unsigned short CxadbmfPlayer::bmf_notes[12] = { 0x157, 0x16B, 0x181, 0x198, 0x1B0, 0x1CA, 0x1E5, 0x202, 0x220, 0x241, 0x263, 0x287 }; /* for 1.1 */ const unsigned short CxadbmfPlayer::bmf_notes_2[12] = { 0x159, 0x16D, 0x183, 0x19A, 0x1B2, 0x1CC, 0x1E8, 0x205, 0x223, 0x244, 0x267, 0x28B }; const unsigned char CxadbmfPlayer::bmf_default_instrument[13] = { 0x01, 0x01, 0x3F, 0x3F, 0x00, 0x00, 0xF0, 0xF0, 0x00, 0x00, 0x00, 0x00, 0x00 }; CPlayer *CxadbmfPlayer::factory(Copl *newopl) { return new CxadbmfPlayer(newopl); } bool CxadbmfPlayer::xadplayer_load() { unsigned short ptr = 0; int i; if(xad.fmt != BMF) return false; #ifdef DEBUG AdPlug_LogWrite("\nbmf_load():\n\n"); #endif if (!strncmp((char *)&tune[0],"BMF1.2",6)) { bmf.version = BMF1_2; bmf.timer = 70.0f; } else if (!strncmp((char *)&tune[0],"BMF1.1",6)) { bmf.version = BMF1_1; bmf.timer = 60.0f; } else { bmf.version = BMF0_9B; bmf.timer = 18.2f; } // copy title & author if (bmf.version > BMF0_9B) { ptr = 6; strncpy(bmf.title,(char *)&tune[ptr],36); while (tune[ptr]) { ptr++; } ptr++; strncpy(bmf.author,(char *)&tune[ptr],36); while (tune[ptr]) { ptr++; } ptr++; } else { strncpy(bmf.title,xad.title,36); strncpy(bmf.author,xad.author,36); } // speed if (bmf.version > BMF0_9B) bmf.speed = tune[ptr++]; else bmf.speed = ((tune[ptr++] << 8) / 3) >> 8; // strange, yeh ? // load instruments if (bmf.version > BMF0_9B) { unsigned long iflags = (tune[ptr] << 24) | (tune[ptr+1] << 16) | (tune[ptr+2] << 8) | tune[ptr+3]; ptr+=4; for(i=0;i<32;i++) if (iflags & (1 << (31-i))) { strcpy(bmf.instruments[i].name, (char *)&tune[ptr]); memcpy(bmf.instruments[i].data, &tune[ptr+11], 13); ptr += 24; } else { bmf.instruments[i].name[0] = 0; if (bmf.version == BMF1_1) for(int j=0;j<13;j++) bmf.instruments[i].data[j] = bmf_default_instrument[j]; else for(int j=0;j<13;j++) bmf.instruments[i].data[j] = 0; } } else { ptr = 6; for(i=0;i<32;i++) { bmf.instruments[i].name[0] = 0; memcpy(bmf.instruments[tune[ptr]].data, &tune[ptr+2],13); // bug no.1 (no instrument-table-end detection) ptr+=15; } } // load streams if (bmf.version > BMF0_9B) { unsigned long sflags = (tune[ptr] << 24) | (tune[ptr+1] << 16) | (tune[ptr+2] << 8) | tune[ptr+3]; ptr+=4; for(i=0;i<9;i++) if (sflags & (1 << (31-i))) ptr+=__bmf_convert_stream(&tune[ptr],i); else bmf.streams[i][0].cmd = 0xFF; } else { for(i=0;i BMF0_9B) { opl_write(0x01, 0x20); /* 1.1 */ if (bmf.version == BMF1_1) for(i=0;i<9;i++) for(j=0;j<13;j++) opl_write(bmf_adlib_registers[13*i+j], bmf_default_instrument[j]); /* 1.2 */ else if (bmf.version == BMF1_2) for(i=0x20; i<0x100; i++) opl_write(i,0xFF); // very interesting, really! } /* ALL */ opl_write(0x08, 0x00); opl_write(0xBD, 0xC0); } void CxadbmfPlayer::xadplayer_update() { for(int i=0;i<9;i++) if (bmf.channel[i].stream_position != 0xFFFF) if (bmf.channel[i].delay) bmf.channel[i].delay--; else { #ifdef DEBUG AdPlug_LogWrite("channel %02X:\n", i); #endif bmf_event event; // process so-called cross-events while (true) { memcpy(&event, &bmf.streams[i][bmf.channel[i].stream_position], sizeof(bmf_event)); #ifdef DEBUG AdPlug_LogWrite("%02X %02X %02X %02X %02X %02X\n", event.note,event.delay,event.volume,event.instrument, event.cmd,event.cmd_data); #endif if (event.cmd == 0xFF) { bmf.channel[i].stream_position = 0xFFFF; bmf.active_streams--; break; } else if (event.cmd == 0xFE) { bmf.channel[i].loop_position = bmf.channel[i].stream_position+1; bmf.channel[i].loop_counter = event.cmd_data; } else if (event.cmd == 0xFD) { if (bmf.channel[i].loop_counter) { bmf.channel[i].stream_position = bmf.channel[i].loop_position-1; bmf.channel[i].loop_counter--; } } else break; bmf.channel[i].stream_position++; } // while (true) // process normal event unsigned short pos = bmf.channel[i].stream_position; if (pos != 0xFFFF) { bmf.channel[i].delay = bmf.streams[i][pos].delay; // command ? if (bmf.streams[i][pos].cmd) { unsigned char cmd = bmf.streams[i][pos].cmd; // 0x01: Set Modulator Volume if (cmd == 0x01) { unsigned char reg = bmf_adlib_registers[13*i+2]; opl_write(reg, (adlib[reg] | 0x3F) - bmf.streams[i][pos].cmd_data); } // 0x10: Set Speed else if (cmd == 0x10) { plr.speed = bmf.streams[i][pos].cmd_data; plr.speed_counter = plr.speed; } } // if (bmf.streams[i][pos].cmd) // instrument ? if (bmf.streams[i][pos].instrument) { unsigned char ins = bmf.streams[i][pos].instrument-1; if (bmf.version != BMF1_1) opl_write(0xB0+i, adlib[0xB0+i] & 0xDF); for(int j=0;j<13;j++) opl_write(bmf_adlib_registers[i*13+j], bmf.instruments[ins].data[j]); } // if (bmf.streams[i][pos].instrument) // volume ? if (bmf.streams[i][pos].volume) { unsigned char vol = bmf.streams[i][pos].volume-1; unsigned char reg = bmf_adlib_registers[13*i+3]; opl_write(reg, (adlib[reg] | 0x3F) - vol); } // if (bmf.streams[i][pos].volume) // note ? if (bmf.streams[i][pos].note) { unsigned short note = bmf.streams[i][pos].note; unsigned short freq = 0; // mute channel opl_write(0xB0+i, adlib[0xB0+i] & 0xDF); // get frequency if (bmf.version == BMF1_1) { if (note <= 0x60) freq = bmf_notes_2[--note % 12]; } else { if (note != 0x7F) freq = bmf_notes[--note % 12]; } // play note if (freq) { opl_write(0xB0+i, (freq >> 8) | ((note / 12) << 2) | 0x20); opl_write(0xA0+i, freq & 0xFF); } } // if (bmf.streams[i][pos].note) bmf.channel[i].stream_position++; } // if (pos != 0xFFFF) } // if (!bmf.channel[i].delay) // is module loop ? if (!bmf.active_streams) { for(int j=0;j<9;j++) bmf.channel[j].stream_position = 0; bmf.active_streams = 9; plr.looping = 1; } } float CxadbmfPlayer::xadplayer_getrefresh() { return bmf.timer; } const char * CxadbmfPlayer::xadplayer_gettype() { return "xad: BMF Adlib Tracker"; } const char * CxadbmfPlayer::xadplayer_gettitle() { return bmf.title; } const char * CxadbmfPlayer::xadplayer_getauthor() { return bmf.author; } unsigned int CxadbmfPlayer::xadplayer_getinstruments() { return 32; } const char * CxadbmfPlayer::xadplayer_getinstrument(unsigned int i) { return bmf.instruments[i].name; } /* -------- Internal Functions ---------------------------- */ int CxadbmfPlayer::__bmf_convert_stream(unsigned char *stream, int channel) { #ifdef DEBUG AdPlug_LogWrite("channel %02X (note,delay,volume,instrument,command,command_data):\n",channel); unsigned char *last = stream; #endif unsigned char *stream_start = stream; int pos = 0; while (true) { memset(&bmf.streams[channel][pos], 0, sizeof(bmf_event)); bool is_cmd = false; if (*stream == 0xFE) { // 0xFE -> 0xFF: End of Stream bmf.streams[channel][pos].cmd = 0xFF; stream++; break; } else if (*stream == 0xFC) { // 0xFC -> 0xFE xx: Save Loop Position bmf.streams[channel][pos].cmd = 0xFE; bmf.streams[channel][pos].cmd_data = (*(stream+1) & ((bmf.version == BMF0_9B) ? 0x7F : 0x3F)) - 1; stream+=2; } else if (*stream == 0x7D) { // 0x7D -> 0xFD: Loop Saved Position bmf.streams[channel][pos].cmd = 0xFD; stream++; } else { if (*stream & 0x80) { if (*(stream+1) & 0x80) { if (*(stream+1) & 0x40) { // byte0: 1aaaaaaa = NOTE bmf.streams[channel][pos].note = *stream & 0x7F; // byte1: 11bbbbbb = DELAY bmf.streams[channel][pos].delay = *(stream+1) & 0x3F; // byte2: cccccccc = COMMAND stream+=2; is_cmd = true; } else { // byte0: 1aaaaaaa = NOTE bmf.streams[channel][pos].note = *stream & 0x7F; // byte1: 11bbbbbb = DELAY bmf.streams[channel][pos].delay = *(stream+1) & 0x3F; stream+=2; } // if (*(stream+1) & 0x40) } else { // byte0: 1aaaaaaa = NOTE bmf.streams[channel][pos].note = *stream & 0x7F; // byte1: 0bbbbbbb = COMMAND stream++; is_cmd = true; } // if (*(stream+1) & 0x80) } else { // byte0: 0aaaaaaa = NOTE bmf.streams[channel][pos].note = *stream & 0x7F; stream++; } // if (*stream & 0x80) } // if (*stream == 0xFE) // is command ? if (is_cmd) { /* ALL */ if ((0x20 <= *stream) && (*stream <= 0x3F)) { // 0x20 or higher; 0x3F or lower: Set Instrument bmf.streams[channel][pos].instrument = *stream - 0x20 + 1; stream++; } else if (0x40 <= *stream) { // 0x40 or higher: Set Volume bmf.streams[channel][pos].volume = *stream - 0x40 + 1; stream++; } else { /* 0.9b */ if (bmf.version == BMF0_9B) if (*stream < 0x20) { // 0x1F or lower: ? stream++; } /* 1.2 */ if (bmf.version == BMF1_2) if (*stream == 0x01) { // 0x01: Set Modulator Volume -> 0x01 bmf.streams[channel][pos].cmd = 0x01; bmf.streams[channel][pos].cmd_data = *(stream+1); stream+=2; } else if (*stream == 0x02) { // 0x02: ? stream+=2; } else if (*stream == 0x03) { // 0x03: ? stream+=2; } else if (*stream == 0x04) { // 0x04: Set Speed -> 0x10 bmf.streams[channel][pos].cmd = 0x10; bmf.streams[channel][pos].cmd_data = *(stream+1); stream+=2; } else if (*stream == 0x05) { // 0x05: Set Carrier Volume (port 380) bmf.streams[channel][pos].volume = *(stream+1) + 1; stream+=2; } else if (*stream == 0x06) { // 0x06: Set Carrier Volume (port 382) bmf.streams[channel][pos].volume = *(stream+1) + 1; stream+=2; } // if (bmf.version == BMF1_2) } // if ((0x20 <= *stream) && (*stream <= 0x3F)) } // if (is_cmd) #ifdef DEBUG AdPlug_LogWrite("%02X %02X %02X %02X %02X %02X <---- ", bmf.streams[channel][pos].note, bmf.streams[channel][pos].delay, bmf.streams[channel][pos].volume, bmf.streams[channel][pos].instrument, bmf.streams[channel][pos].cmd, bmf.streams[channel][pos].cmd_data ); for(int zz=0;zz<(stream-last);zz++) AdPlug_LogWrite("%02X ",last[zz]); AdPlug_LogWrite("\n"); last=stream; #endif pos++; } // while (true) return (stream - stream_start); }