annotate Plugins/Input/adplug/core/rix.cpp @ 428:15ca2ea93a30 trunk

[svn] Sync with upstream CVS. This implements RIX playback.

/*
 * Adplug - Replayer for many OPL2/OPL3 audio file formats.
 * Copyright (C) 1999 - 2005 Simon Peter, <[e-mail]>, 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 <[e-mail]/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;
}