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

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

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Plugins/Input/adplug/core/rix.cpp	Sat Jan 14 07:27:13 2006 -0800
@@ -0,0 +1,509 @@
+/*
+ * 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;
+}
+