Mercurial > audlegacy
view Plugins/Input/adplug/core/rix.cpp @ 507:b3dd43f37b81 trunk
[svn] documentation updates.
author | nenolod |
---|---|
date | Wed, 25 Jan 2006 22:42:38 -0800 |
parents | 15ca2ea93a30 |
children | 0a73d1faeb4e |
line wrap: on
line source
/* * Adplug - Replayer for many OPL2/OPL3 audio file formats. * Copyright (C) 1999 - 2005 Simon Peter, <dn.tlp@gmx.net>, 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 * * rix.c - Dayu OPL Format Player by palxex <palxex@163.com/palxex.ys168.com> */ #include "rix.h" #include <binfile.h> const unsigned char CrixPlayer::adflag[] = {0,0,0,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1}; const unsigned char CrixPlayer::reg_data[] = {0,1,2,3,4,5,8,9,10,11,12,13,16,17,18,19,20,21}; const unsigned char CrixPlayer::ad_C0_offs[] = {0,1,2,0,1,2,3,4,5,3,4,5,6,7,8,6,7,8}; const unsigned char CrixPlayer::modify[] = {0,3,1,4,2,5,6,9,7,10,8,11,12,15,13,16,14,17,12,\ 15,16,0,14,0,17,0,13,0}; const unsigned char CrixPlayer::bd_reg_data[] = {\ 0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x08,0x04,0x02,0x01,\ 0x00,0x01,0x01,0x03,0x0F,0x05,0x00,0x01,0x03,0x0F,0x00,\ 0x00,0x00,0x01,0x00,0x00,0x01,0x01,0x0F,0x07,0x00,0x02,\ 0x04,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x0A,\ 0x04,0x00,0x08,0x0C,0x0B,0x00,0x00,0x00,0x01,0x00,0x00,\ 0x00,0x00,0x0D,0x04,0x00,0x06,0x0F,0x00,0x00,0x00,0x00,\ 0x01,0x00,0x00,0x0C,0x00,0x0F,0x0B,0x00,0x08,0x05,0x00,\ 0x00,0x00,0x00,0x00,0x00,0x00,0x04,0x00,0x0F,0x0B,0x00,\ 0x07,0x05,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x00,\ 0x0F,0x0B,0x00,0x05,0x05,0x00,0x00,0x00,0x00,0x00,0x00,\ 0x00,0x01,0x00,0x0F,0x0B,0x00,0x07,0x05,0x00,0x00,0x00,\ 0x00,0x00,0x00}; unsigned char CrixPlayer::for40reg[] = {0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,\ 0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F,0x7F}; unsigned short CrixPlayer::mus_time = 0x4268; /*** public methods *************************************/ CPlayer *CrixPlayer::factory(Copl *newopl) { return new CrixPlayer(newopl); } bool CrixPlayer::load(const std::string &filename, const CFileProvider &fp) { binistream *f = fp.open(filename); if(!f) return false; unsigned long i=0; if(f->readInt(2)!=0x55aa) {fp.close(f);return false; } buf_addr[i++]=0xaa;buf_addr[i++]=0x55; while(!f->eof()) buf_addr[i++]=f->readInt(1); length=i; fp.close(f); set_new_int(); data_initial(); while(!dro_end) int_08h_entry(); length=T; mode = (OplMode)1; // Type of opl data this can contain // binofstream *g=new binofstream(filename+string(".dro")); // g->writeString("DBRAWOPL",8); // g->writeInt(mstotal,4); // g->writeInt(length+1,4); // g->writeInt(1,1); // for(int t=0;t<length;t++) // g->writeInt(dro[t],1); // g->close(); // delete g; rewind(0); return true; } bool CrixPlayer::update() { if (delay>500) { delay-=500; return true; } else delay=1; while (pos < length) { unsigned char cmd = dro[pos++]; switch(cmd) { case 0: delay = 1 + dro[pos++]; return true; case 1: delay = 1 + dro[pos] + (dro[pos+1]<<8); pos+=2; return true; case 2: index = 0; opl->setchip(0); break; case 3: index = 1; opl->setchip(1); break; default: if(index == 0 || opl3_mode) opl->write(cmd,dro[pos++]); break; } } return pos<length; } void CrixPlayer::rewind(int subsong) { delay=1; pos = index = 0; opl->init(); opl->write(1,32); // go to OPL2 mode } float CrixPlayer::getrefresh() { if (delay > 500) return 1000 / 500; else return 1000 / (double)delay; } /*------------------Implemention----------------------------*/ inline void CrixPlayer::set_new_int() { if(!ad_initial()) exit(1); prep_int(); } /*----------------------------------------------------------*/ inline void CrixPlayer::Pause() { register unsigned short i; pause_flag = 1; for(i=0;i<11;i++) switch_ad_bd(i); } /*----------------------------------------------------------*/ inline void CrixPlayer::ad_a0b0l_reg_(unsigned short index,unsigned short p2,unsigned short p3) { unsigned short i = p2+a0b0_data2[index]; a0b0_data4[index] = p3; a0b0_data3[index] = p2; } inline void CrixPlayer::data_initial() { rhythm = buf_addr[2]; mus_block = (buf_addr[0x0D]<<8)+buf_addr[0x0C]; ins_block = (buf_addr[0x09]<<8)+buf_addr[0x08]; I = mus_block+1; if(rhythm != 0) { // ad_a0b0_reg(6); // ad_a0b0_reg(7); // ad_a0b0_reg(8); ad_a0b0l_reg_(8,0x18,0); ad_a0b0l_reg_(7,0x1F,0); } bd_modify = 0; // ad_bd_reg(); band = 0; music_on = 1; } /*----------------------------------------------------------*/ inline unsigned short CrixPlayer::ad_initial() { register unsigned short i,j,k = 0; for(i=0;i<25;i++) crc_trans(i,i*4); for(i=0;i<8;i++) for(j=0;j<12;j++) { a0b0_data5[k] = i; addrs_head[k] = j; k++; } //ad_bd_reg(); //ad_08_reg(); //for(i=0;i<9;i++) ad_a0b0_reg(i); e0_reg_flag = 0x20; //for(i=0;i<18;i++) ad_bop(0xE0+reg_data[i],0); //ad_bop(1,e0_reg_flag); return 1;//ad_test(); } /*----------------------------------------------------------*/ inline void CrixPlayer::crc_trans(unsigned short index,unsigned short v) { register unsigned short i; unsigned int res; unsigned short low; res = strm_and_fr(v); low = res; buffer[index*12] = (low+4)>>3; for(i=1;i<=11;i++) { res *= 1.06; buffer[index*12+i] = res>>3; } } /*----------------------------------------------------------*/ inline void CrixPlayer::prep_int() { mutex = 0; } /*----------------------------------------------------------*/ inline void CrixPlayer::ad_bop(unsigned short reg,unsigned short value) { dro[T++]=reg;dro[T++]=value; } /*------------------------------------------------------*/ inline unsigned short CrixPlayer::ad_test() /* Test the SoundCard */ { ad_bop(0x04,0x60); ad_bop(0x04,0x80); ad_bop(0x02,0xFF); ad_bop(0x04,0x21); ad_bop(0x04,0x60); ad_bop(0x04,0x80); return 1; } /*--------------------------------------------------------------*/ inline void CrixPlayer::int_08h_entry() { unsigned short band_sus = 1; while(band_sus) { if(sustain <= 0 && mutex == 0) { mutex++; band_sus = rix_proc(); if(band_sus) sustain += band_sus * 1.06; mstotal+=sustain; dro[T++]=(sustain>=0x100?1:0); dro[T++]=sustain&0xff; if(sustain>=0x100) dro[T++]=(sustain>>8)&0xff; mutex--; if(band_sus == 0) { dro_end=1; break; } } else { if(band_sus) sustain -= 14; /* aging */ break; } } } /*--------------------------------------------------------------*/ inline unsigned short CrixPlayer::rix_proc() { unsigned char ctrl = 0; if(music_on == 0||pause_flag == 1) return 0; band = 0; while(buf_addr[I] != 0x80 && I<length-1) { band_low = buf_addr[I-1]; ctrl = buf_addr[I]; I+=2; switch(ctrl&0xF0) { case 0x90: rix_get_ins(); rix_90_pro(ctrl&0x0F); break; case 0xA0: rix_A0_pro(ctrl&0x0F,((unsigned short)band_low)<<6); break; case 0xB0: rix_B0_pro(ctrl&0x0F,band_low); break; case 0xC0: switch_ad_bd(ctrl&0x0F); if(band_low != 0) rix_C0_pro(ctrl&0x0F,band_low); break; default: band = (ctrl<<8)+band_low; break; } if(band != 0) return band; } music_ctrl(); I = mus_block+1; band = 0; music_on = 1; return 0; } /*--------------------------------------------------------------*/ inline void CrixPlayer::rix_get_ins() { memcpy(insbuf,(&buf_addr[ins_block])+(band_low<<6),56); } /*--------------------------------------------------------------*/ inline void CrixPlayer::rix_90_pro(unsigned short ctrl_l) { if(rhythm == 0 || ctrl_l < 6) { ins_to_reg(modify[ctrl_l*2],insbuf,insbuf[26]); ins_to_reg(modify[ctrl_l*2+1],insbuf+13,insbuf[27]); return; } else { if(ctrl_l > 6) { ins_to_reg(modify[ctrl_l*2+6],insbuf,insbuf[26]); return; } else { ins_to_reg(12,insbuf,insbuf[26]); ins_to_reg(15,insbuf+13,insbuf[27]); return; } } } /*--------------------------------------------------------------*/ inline void CrixPlayer::rix_A0_pro(unsigned short ctrl_l,unsigned short index) { if(rhythm == 0 || ctrl_l <= 6) { prepare_a0b0(ctrl_l,index>0x3FFF?0x3FFF:index); ad_a0b0l_reg(ctrl_l,a0b0_data3[ctrl_l],a0b0_data4[ctrl_l]); } else return; } /*--------------------------------------------------------------*/ inline void CrixPlayer::prepare_a0b0(unsigned short index,unsigned short v) /* important !*/ { short high = 0,low = 0; unsigned int res; low = ((unsigned short)(v-0x2000))*0x19; high = ((short)v)<0x2000?0xFFFF:0; if(low == 0xFF && high == 0) return; res = ((((unsigned int)high)<<16)|low)/0x2000; low = res&0xFFFF; if(low < 0) { low = 0x18-low; high = (signed short)low<0?0xFFFF:0; res = high; res<<=16; res+=low; low = ((signed short)res)/(signed short)0xFFE7; a0b0_data2[index] = low; low = res; res = low - 0x18; high = (signed short)res%0x19; low = (signed short)res/0x19; if(high != 0) {low = 0x19; low = low-high;} } else { res = high = low; low = (signed short)res/(signed short)0x19; a0b0_data2[index] = low; res = high; low = (signed short)res%(signed short)0x19; } low = (signed short)low*(signed short)0x18; displace[index] = low; } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_a0b0l_reg(unsigned short index,unsigned short p2,unsigned short p3) { unsigned short data; unsigned short i = p2+a0b0_data2[index]; a0b0_data4[index] = p3; a0b0_data3[index] = p2; i = ((signed short)i<=0x5F?i:0x5F); i = ((signed short)i>=0?i:0); data = buffer[addrs_head[i]+displace[index]/2]; ad_bop(0xA0+index,data); data = a0b0_data5[i]*4+(p3<1?0:0x20)+((data>>8)&3); ad_bop(0xB0+index,data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::rix_B0_pro(unsigned short ctrl_l,unsigned short index) { register int temp = 0; if(rhythm == 0 || ctrl_l < 6) temp = modify[ctrl_l*2+1]; else { temp = ctrl_l > 6?ctrl_l*2:ctrl_l*2+1; temp = modify[temp+6]; } for40reg[temp] = index>0x7F?0x7F:index; ad_40_reg(temp); } /*--------------------------------------------------------------*/ inline void CrixPlayer::rix_C0_pro(unsigned short ctrl_l,unsigned short index) { register unsigned short i = index>=12?index-12:0; if(ctrl_l < 6 || rhythm == 0) { ad_a0b0l_reg(ctrl_l,i,1); return; } else { if(ctrl_l != 6) { if(ctrl_l == 8) { ad_a0b0l_reg(ctrl_l,i,0); ad_a0b0l_reg(7,i+7,0); } } else ad_a0b0l_reg(ctrl_l,i,0); bd_modify |= bd_reg_data[ctrl_l]; ad_bd_reg(); return; } } /*--------------------------------------------------------------*/ inline void CrixPlayer::switch_ad_bd(unsigned short index) { if(rhythm == 0 || index < 6) ad_a0b0l_reg(index,a0b0_data3[index],0); else { bd_modify &= (~bd_reg_data[index]), ad_bd_reg(); } } /*--------------------------------------------------------------*/ inline void CrixPlayer::ins_to_reg(unsigned short index,unsigned short* insb,unsigned short value) { register unsigned short i; for(i=0;i<13;i++) reg_bufs[index].v[i] = insb[i]; reg_bufs[index].v[13] = value&3; ad_bd_reg(),ad_08_reg(), ad_40_reg(index),ad_C0_reg(index),ad_60_reg(index), ad_80_reg(index),ad_20_reg(index),ad_E0_reg(index); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_E0_reg(unsigned short index) { unsigned short data = e0_reg_flag == 0?0:(reg_bufs[index].v[13]&3); ad_bop(0xE0+reg_data[index],data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_20_reg(unsigned short index) { unsigned short data = (reg_bufs[index].v[9] < 1?0:0x80); data += (reg_bufs[index].v[10] < 1?0:0x40); data += (reg_bufs[index].v[5] < 1?0:0x20); data += (reg_bufs[index].v[11] < 1?0:0x10); data += (reg_bufs[index].v[1]&0x0F); ad_bop(0x20+reg_data[index],data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_80_reg(unsigned short index) { unsigned short data = (reg_bufs[index].v[7]&0x0F),temp = reg_bufs[index].v[4]; data |= (temp << 4); ad_bop(0x80+reg_data[index],data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_60_reg(unsigned short index) { unsigned short data = reg_bufs[index].v[6]&0x0F,temp = reg_bufs[index].v[3]; data |= (temp << 4); ad_bop(0x60+reg_data[index],data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_C0_reg(unsigned short index) { unsigned short data = reg_bufs[index].v[2]; if(adflag[index] == 1) return; data *= 2, data |= (reg_bufs[index].v[12] < 1?1:0); ad_bop(0xC0+ad_C0_offs[index],data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_40_reg(unsigned short index) { unsigned int res = 0; unsigned short data = 0,temp = reg_bufs[index].v[0]; data = 0x3F - (0x3F & reg_bufs[index].v[8]), data *= for40reg[index], data *= 2, data += 0x7F, res = data; data = res/0xFE, data -= 0x3F, data = -data, data |= temp<<6; ad_bop(0x40+reg_data[index],data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_bd_reg() { unsigned short data = rhythm < 1? 0:0x20; data |= bd_modify; ad_bop(0xBD,data); } /*--------------------------------------------------------------*/ inline void CrixPlayer::ad_a0b0_reg(unsigned short index) { ad_bop(0xA0+index,0); ad_bop(0xB0+index,0); } /*--------------------------------------------------------------*/ inline void CrixPlayer::music_ctrl() { register int i; music_on = 0; for(i=0;i<11;i++) switch_ad_bd(i); } /*----------------------------------------------------------------------*/ inline unsigned int CrixPlayer::strm_and_fr(unsigned short parm) { return ((unsigned int)parm*6+10000)*0.27461678223; }