Blame |
Last modification |
View Log
| Download
| RSS feed
| ?url?
#include "../std.h"
#include "../emul.h"
#include "../vars.h"
#include "emul_2203.h"
/*
YM-2149F emulator for Unreal Speccy project
created under public domain license by SMT, jan.2006
*/
#include "sndchip.h"
/* [vv]
unsigned SNDCHIP::render(AYOUT *src, unsigned srclen, unsigned clk_ticks, bufptr_t dst)
{
start_frame(dst);
for (unsigned index = 0; index < srclen; index++) {
// if (src[index].timestamp > clk_ticks) continue; // wrong input data leads to crash
select(src[index].reg_num);
write(src[index].timestamp, src[index].reg_value);
}
return end_frame(clk_ticks);
}
*/
const unsigned MULT_C_1 = 14; // fixed point precision for 'system tick -> ay tick'
// b = 1+ln2(max_ay_tick/8) = 1+ln2(max_ay_fq/8 / min_intfq) = 1+ln2(10000000/(10*8)) = 17.9
// assert(b+MULT_C_1 <= 32)
//=============================================================================
void SNDCHIP::start_frame(bufptr_t dst)
{
r13_reloaded = 0;
SNDRENDER::start_frame(dst);
}
//=============================================================================
//=============================================================================
unsigned SNDCHIP::end_frame(unsigned clk_ticks)
{
// adjusting 't' with whole history will fix accumulation of rounding errors
uint64_t end_chip_tick = ((passed_clk_ticks + clk_ticks) * chip_clock_rate) / system_clock_rate;
flush( (unsigned) (end_chip_tick - passed_chip_ticks) );
unsigned res = SNDRENDER::end_frame(t);
passed_clk_ticks += clk_ticks;
passed_chip_ticks += t; t = 0;
nextfmtickfloat = 0.; //Alone Coder
nextfmtick = 0; //Alone Coder
return res;
}
//=============================================================================
//=============================================================================
void SNDCHIP::flush(unsigned chiptick) // todo: noaction at (temp.sndblock || !conf.sound.ay)
{
while(t < chiptick)
{
t++;
if(++ta >= fa)
{
ta = 0;
bitA ^= -1U;
}
if(++tb >= fb)
{
tb = 0;
bitB ^= -1U;
}
if(++tc >= fc)
{
tc = 0;
bitC ^= -1U;
}
if(++tn >= fn)
{
tn = 0;
ns = (ns * 2 + 1) ^ (((ns >> 16) ^ (ns >> 13)) & 1);
bitN = 0 - ((ns >> 16) & 1);
}
if(++te >= fe)
{
te = 0;
env = unsigned(int(env) + denv);
if(env & ~31U)
{
unsigned mask = (1 << r.env);
if(mask & ((1 << 0) | (1 << 1) | (1 << 2) | (1 << 3) | (1 << 4) | (1 << 5) | (1 << 6) | (1 << 7) | (1 << 9) | (1 << 15)))
env = denv = 0;
else if(mask & ((1 << 8) | (1 << 12)))
env &= 31;
else if(mask & ((1 << 10) | (1 << 14)))
{
denv = -denv;
env = unsigned(int(env) + denv);
}
else
{
env = 31; denv = 0;
} //11,13
}
}
unsigned en, mix_l, mix_r;
en = ((ea & env) | va) & ((bitA | bit0) & (bitN | bit3));
mix_l = vols[0][en]; mix_r = vols[1][en];
en = ((eb & env) | vb) & ((bitB | bit1) & (bitN | bit4));
mix_l += vols[2][en]; mix_r += vols[3][en];
en = ((ec & env) | vc) & ((bitC | bit2) & (bitN | bit5));
mix_l += vols[4][en]; mix_r += vols[5][en];
//YM2203 here
if(/*temp.sndblock ||*/ conf.sound.ay_chip == CHIP_YM2203)
{
if(t >= nextfmtick)
{
nextfmtickfloat += ayticks_per_fmtick;
nextfmtick = unsigned(nextfmtickfloat);
if(++FMbufN == FMBUFSIZE)
{
YM2203UpdateOne(Chip2203, FMbufs/*&FMbuf*/, FMBUFSIZE/*1*/);
FMbufN = 0;
};
if(fmsoundon0 == 0)
{
//FMbufOUT=(int)(FMbuf*conf.sound.ay/8192*0.7f);
FMbufOUT = ((((INT16)FMbufs[FMbufN])*FMbufMUL) >> 16);
}
else FMbufOUT = 0;
}
mix_l = unsigned(int(mix_l) + FMbufOUT);
mix_r = unsigned(int(mix_r) + FMbufOUT);
}; //Alone Coder
//
if((mix_l ^ SNDRENDER::mix_l) | (mix_r ^ SNDRENDER::mix_r)) // similar check inside update()
update(t, mix_l, mix_r); //SNDRENDER::update âèäèìî
}
}
//=============================================================================
//=============================================================================
void SNDCHIP::select(unsigned char nreg)
{
if (chiptype == CHIP_AY) nreg &= 0x0F; //äëÿ äåòåêöèè AY / YM
activereg = nreg;
}
//=============================================================================
//=============================================================================
void SNDCHIP::write(unsigned timestamp, unsigned char val)
{
//-------------------------------------------------------------------------
if (conf.sound.ay_chip == CHIP_YM2203)
{
//2203 xtra regs
if (activereg >= 0x20)
{
if (timestamp)
flush((timestamp * mult_const) >> MULT_C_1); // cputick * ( (chip_clock_rate/8) / system_clock_rate );
if ((activereg >= 0x2D) && (activereg <= 0x2F))
{
int oldayfq = Chip2203->OPN.ST.SSGclock /*ayfq*/;
YM2203Write(Chip2203,0,activereg);
YM2203Write(Chip2203,1,val);
if (oldayfq != Chip2203->OPN.ST.SSGclock)
{
//if (!conf.sound.ay_samples)
// flush(cpu.t);
//
//ayfq=Chip2203->OPN.ST.SSGclock;
//t=(unsigned)((__int64)t*ayfq/oldayfq);
//mult_const2 = ((ayfq/conf.intfq) << (MULT_C_1-3))/conf.frame;
//mult_const3 = TICK_F/2+(unsigned)((__int64)temp.snd_frame_ticks*conf.intfq*(1<<(MULT_C+3))/ayfq);
//ay_div = ((unsigned)((double)ayfq*0x10*(double)SAMPLE_T/(double)conf.sound.fq));
//ay_div2 = (ayfq*0x100)/(conf.sound.fq/32);
set_timings(system_clock_rate,unsigned(Chip2203->OPN.ST.SSGclock),SNDRENDER::sample_rate);
}
}
else
{
YM2203Write(Chip2203,0,activereg);
YM2203Write(Chip2203,1,val);
}
return;
} //Dexus
}
//-------------------------------------------------------------------------
if (activereg >= 0x10) return;
//-------------------------------------------------------------------------
// [NS] à òóò íóæíî âíÿòíîå óòî÷íåíèå
// ÷òî ÷èòàåòñî èç ïóñòîòû íà AY è YM
//
// îáðåçêà 4-õ áèòíûõ ðåãèñòðîâ
if ((1 << activereg) & ( (1<<0x01) | (1<<0x03) | (1<<0x05) | (1<<0x0D) ))
val &= 0x0F; //1,3,5,13
// îáðåçêà 5-òè áèòíûõ ðåãèñòðîâ
if ((1 << activereg) & ( (1<<0x06) | (1<<0x08) | (1<<0x09) | (1<<0x0A) ))
val &= 0x1F; //6,8,9,10
//-------------------------------------------------------------------------
// òî æå çíà÷åíèå íè÷åãî íå ìåíÿåò (êðîìå òèïà îãèáàþùåé)
if ((activereg != 0x0D) && (reg[activereg] == val)) //13
return;
//-------------------------------------------------------------------------
reg[activereg] = val; // îò ñþäà ïîòîì ÷òåíèå íàçàä
//-------------------------------------------------------------------------
if (timestamp)
flush( (timestamp * mult_const) >> MULT_C_1); //MULT_C_1 = 14 !!!
// cputick * ( (chip_clock_rate/8) / system_clock_rate );
//-----------------------------------------------------------------------------
switch (activereg)
{
//---------------------------------------------------------------------
case 0x00: //r0 r1 channel A FRQ
case 0x01:
fa = r.fA;
break;
//---------------------------------------------------------------------
case 0x02: //r2 r3 channel B FRQ
case 0x03:
fb = r.fB;
break;
//---------------------------------------------------------------------
case 0x04: //r4 r5 channel C FRQ
case 0x05:
fc = r.fC;
break;
//---------------------------------------------------------------------
case 0x06: //r6 noise FRQ
if (val == 0)
val++; // fixed noise 0/ 2021.11.24 /Dexus // NEDOREPO
// [NS] ÷èòàåòñî æå îáðàòíî 0 èç reg[activereg]
// òàê ÷òî ýòî èñïðàâíûé ôèêñ
fn = val*2;
break;
//---------------------------------------------------------------------
case 0x07: //r7 mixer
bit0 = 0 - ((val>>0) & 1);
bit1 = 0 - ((val>>1) & 1);
bit2 = 0 - ((val>>2) & 1);
bit3 = 0 - ((val>>3) & 1);
bit4 = 0 - ((val>>4) & 1);
bit5 = 0 - ((val>>5) & 1);
break;
//---------------------------------------------------------------------
case 0x08: //r8 channel A VOL
ea = unsigned((val & 0x10)? -1 : 0);
va = ((val & 0x0F)*2+1) & ~ea;
break;
//---------------------------------------------------------------------
case 0x09: //r9 channel B VOL
eb = unsigned((val & 0x10)? -1 : 0);
vb = ((val & 0x0F)*2+1) & ~eb;
break;
//---------------------------------------------------------------------
case 0x0A: //rA channel C VOL
ec = unsigned((val & 0x10) ? -1 : 0);
vc = ((val & 0x0F)*2+1) & ~ec;
break;
//---------------------------------------------------------------------
case 0x0B: //rB rC envelopre FRQ
case 0x0C:
fe = r.envT;
break;
//---------------------------------------------------------------------
case 0x0D: //rD envelopre SHAPE
r13_reloaded = 1;
te = 0;
if(r.env & 4)
{
env = 0; denv = 1;
} // attack
else
{
env = 31; denv = -1;
} // decay
break;
}
//-----------------------------------------------------------------------------
}
//=============================================================================
//=============================================================================
unsigned char SNDCHIP::read() //òðåáóåòñî óòî÷íåíèå !!!!
{
if (activereg >= 0x10)
return 0xFF;
return reg[activereg & 0x0F];
}
//=============================================================================
//=============================================================================
void SNDCHIP::set_timings(unsigned system_clock_rate, unsigned chip_clock_rate, unsigned sample_rate)
{
if (conf.sound.ay_chip == CHIP_YM2203) { //install YM2203 frequencies
Chip2203->OPN.ST.clock = int(conf.sound.ayfq*2);
Chip2203->OPN.ST.rate = int(conf.sound.fq) /*44100*/;
OPNPrescaler_w(&Chip2203->OPN, 1 , 1 );
//ayfq=Chip2203->OPN.ST.SSGclock;
//Âîò òóò êàê ðàç ayfq äàåò óæå "óìíîæåííóþ" ÷àñòîòó, êîòîðóþ è íóæíî âçÿòü çà îñíîâó.
chip_clock_rate = unsigned(Chip2203->OPN.ST.SSGclock);
} //Dexus
chip_clock_rate /= 8;
SNDCHIP::system_clock_rate = system_clock_rate;
SNDCHIP::chip_clock_rate = chip_clock_rate;
mult_const = (unsigned) (((uint64_t)chip_clock_rate << MULT_C_1) / system_clock_rate);
SNDRENDER::set_timings(chip_clock_rate, sample_rate);
passed_chip_ticks = passed_clk_ticks = 0;
t = 0; ns = 0xFFFF;
nextfmtickfloat = 0.; //Alone Coder
nextfmtick = 0; //Alone Coder
ayticks_per_fmtick = (float)chip_clock_rate/conf.sound.fq /*44100*/; //Alone Coder
FMbufMUL=(UINT16)(((float)conf.sound.ay_vol/8192 /* =0..1 */)*0.1f*65536); //Alone Coder 0.36.4
//âîò ýòî çàêîìåí÷åíî ó TSL
//apply_regs(); //NS
//è íåò ïåððåèíèöèàëèçàöèè
}
//=============================================================================
//=============================================================================
void SNDCHIP::set_volumes(unsigned global_vol, const SNDCHIP_VOLTAB *voltab, const SNDCHIP_PANTAB *stereo)
{
for (int j = 0; j < 6; j++)
for (int i = 0; i < 32; i++)
vols[j][i] = (unsigned) (((uint64_t)global_vol * voltab->v[i] * stereo->raw[j])/(65535*100*3));
}
//=============================================================================
//=============================================================================
void SNDCHIP::reset(unsigned timestamp)
{
activereg = 0;
for (int i = 0; i < 14; i++)
reg[i] = 0;
if (Chip2203) YM2203ResetChip((void*)Chip2203); //Dexus
/*
ayfq=Chip2203->OPN.ST.SSGclock; //Dexus
mult_const2 = ((ayfq/conf.intfq) << (MULT_C_1-3))/conf.frame; //Dexus
mult_const3 = TICK_F/2+(unsigned)((__int64)temp.snd_frame_ticks*conf.intfq*(1<<(MULT_C+3))/ayfq); //Dexus
ay_div = ((unsigned)((double)ayfq*0x10*(double)SAMPLE_T/(double)conf.sound.fq)); //Dexus
ay_div2 = (ayfq*0x100)/(conf.sound.fq/32); //Dexus
*/
apply_regs(timestamp);
}
//=============================================================================
//=============================================================================
//void SNDCHIP::apply_regs(unsigned timestamp) //TSL
//{
// for (u8 r = 0; r < 16; r++) { //íåïîìîãàåò
// select(r); u8 p = reg[r];
// /* clr cached values */
// write(timestamp, p ^ 1); write(timestamp, p);
// }
//}
//=============================================================================
void SNDCHIP::apply_regs(unsigned timestamp) //0.39.0
{
unsigned char ar = activereg;
for (unsigned char r = 0; r < 16; r++)
{
select(r);
unsigned char p = reg[r];
/* clr cached values */
write(timestamp, p ^ 1);
write(timestamp, p);
}
activereg = ar;
}
//=============================================================================
//=============================================================================
SNDCHIP::SNDCHIP()
{
bitA = bitB = bitC = 0;
nextfmtick = 0; //Alone Coder
set_timings(SNDR_DEFAULT_SYSTICK_RATE, SNDR_DEFAULT_AY_RATE, SNDR_DEFAULT_SAMPLE_RATE);
Chip2203 = (YM2203 *) YM2203Init(nullptr, 0, int(conf.sound.ayfq*2), int(conf.sound.fq) /*44100*/); //Dexus
set_chip(CHIP_YM);
set_volumes(0x7FFF, SNDR_VOL_YM, SNDR_PAN_ABC);
reset();
}
//=============================================================================
//=============================================================================
// corresponds enum CHIP_TYPE
const char * const ay_chips[] = { "AY-3-8910",
"YM2149F",
"YM2203" }; //Dexus
const SNDCHIP_VOLTAB SNDR_VOL_AY_S =
{ { 0x0000,0x0000,0x0340,0x0340,0x04C0,0x04C0,0x06F2,0x06F2,0x0A44,0x0A44,0x0F13,0x0F13,0x1510,0x1510,0x227E,0x227E,
0x289F,0x289F,0x414E,0x414E,0x5B21,0x5B21,0x7258,0x7258,0x905E,0x905E,0xB550,0xB550,0xD7A0,0xD7A0,0xFFFF,0xFFFF } };
const SNDCHIP_VOLTAB SNDR_VOL_YM_S =
{ { 0x0000,0x0000,0x00EF,0x01D0,0x0290,0x032A,0x03EE,0x04D2,0x0611,0x0782,0x0912,0x0A36,0x0C31,0x0EB6,0x1130,0x13A0,
0x1751,0x1BF5,0x20E2,0x2594,0x2CA1,0x357F,0x3E45,0x475E,0x5502,0x6620,0x7730,0x8844,0xA1D2,0xC102,0xE0A2,0xFFFF } };
//õîòÿ è ðàñïèñàíû âñå âàðèàíòû
//íî ðàáîòàþò òîëüêî òå ÷òî åñòü â êîíôèãå???
const SNDCHIP_PANTAB SNDR_PAN_MONO_S =
{ 100,100, 100,100, 100,100 };
const SNDCHIP_PANTAB SNDR_PAN_ABC_S =
{ 100,10, 66,66, 10,100 };
const SNDCHIP_PANTAB SNDR_PAN_ACB_S =
{ 100,10, 10,100, 66,66 };
const SNDCHIP_PANTAB SNDR_PAN_BAC_S =
{ 66,66, 100,10, 10,100 };
const SNDCHIP_PANTAB SNDR_PAN_BCA_S =
{ 10,100, 100,10, 66,66 };
const SNDCHIP_PANTAB SNDR_PAN_CAB_S =
{ 66,66, 10,100, 100,10 };
const SNDCHIP_PANTAB SNDR_PAN_CBA_S =
{ 10,100, 66,66, 100,10 };