otomatalabs/furnace
8
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

massive improvements to genesis playback

Browse source
This commit is contained in:
tildearrow 2021-05-13 02:39:26 -05:00
parent ea5c28829e
commit 45a6d70479
7 changed files with 228 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

149
src/engine/platform/genesis.cpp
View file

@ -6,14 +6,37 @@
// i think there is no wait for data writes, just for ON/OFF writes
void DivPlatformGenesis::acquire(short& l, short& r) {
short o[2];
for (int i=0; i<6; i++) {
if (--chan[i].konCycles<0) chan[i].konCycles=0;
}
if (dacMode && dacSample!=-1) {
if (--dacPeriod<1) {
DivSample* s=parent->song.sample[dacSample];
writes.emplace(0x2a,((unsigned short)s->rendData[dacPos++]+0x8000)>>8);
if (dacPos>s->rendLength) {
dacSample=-1;
}
dacPeriod=dacRate;
}
}
if (!writes.empty() && --delay<0) {
QueuedWrite w=writes.front();
//printf("write: %x = %.2x\n",w.addr,w.val);
OPN2_Write(&fm,0x0+((w.addr>>8)<<1),w.addr);
OPN2_Clock(&fm,o);
OPN2_Write(&fm,0x1+((w.addr>>8)<<1),w.val);
writes.pop();
delay=24;
delay=0;
QueuedWrite& w=writes.front();
if (w.addrOrVal) {
OPN2_Write(&fm,0x1+((w.addr>>8)<<1),w.val);
//printf("write: %x = %.2x\n",w.addr,w.val);
lastBusy=0;
writes.pop();
} else {
lastBusy++;
if (fm.write_busy==0) {
//printf("busycounter: %d\n",lastBusy);
OPN2_Write(&fm,0x0+((w.addr>>8)<<1),w.addr);
w.addrOrVal=true;
}
}
}
OPN2_Clock(&fm,o);
//OPN2_Write(&fm,0,0);
@ -36,28 +59,64 @@ static unsigned char konOffs[6]={
static unsigned short notes[12]={
644,681,722,765,810,858,910,964,1021,1081,1146,1214
};
static bool isOutput[8][4]={
// 1 3 2 4
{false,false,false,true},
{false,false,false,true},
{false,false,false,true},
{false,false,false,true},
{false,false,true ,true},
{false,true ,true ,true},
{false,true ,true ,true},
{true ,true ,true ,true},
};
static unsigned char dtTable[8]={
7,6,5,0,1,2,3,0
};
static int dacRates[6]={
160,160,116,80,58,40
};
int DivPlatformGenesis::dispatch(DivCommand c) {
switch (c.cmd) {
case DIV_CMD_NOTE_ON: {
if (c.chan==5 && dacMode) {
dacSample=c.value%12;
if (dacSample>=parent->song.sampleLen) {
dacSample=-1;
break;
}
dacPos=0;
dacPeriod=0;
dacRate=dacRates[parent->song.sample[dacSample]->rate];
break;
}
if (c.chan>5) break;
//chan[c.chan].freq=16.4f*pow(2.0f,((float)c.value/12.0f));
DivInstrument* ins=parent->song.ins[chan[c.chan].ins];
writes.emplace(0x28,0x00|konOffs[c.chan]);
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator op=ins->fm.op[i];
writes.emplace(baseAddr+0x30,(op.mult&15)|(op.dt<<4));
writes.emplace(baseAddr+0x40,op.tl);
writes.emplace(baseAddr+0x50,(op.ar&31)|(op.rs<<6));
writes.emplace(baseAddr+0x60,(op.dr&31)|(op.am<<7));
writes.emplace(baseAddr+0x70,op.d2r&31);
writes.emplace(baseAddr+0x80,(op.rr&15)|(op.sl<<4));
if (chan[c.chan].insChanged) {
chan[c.chan].insChanged=false;
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator op=ins->fm.op[i];
writes.emplace(baseAddr+0x30,(op.mult&15)|(dtTable[op.dt&7]<<4));
if (isOutput[ins->fm.alg][i]) {
writes.emplace(baseAddr+0x40,127-(((127-op.tl)*chan[c.chan].vol)/127));
} else {
writes.emplace(baseAddr+0x40,op.tl);
}
writes.emplace(baseAddr+0x50,(op.ar&31)|(op.rs<<6));
writes.emplace(baseAddr+0x60,(op.dr&31)|(op.am<<7));
writes.emplace(baseAddr+0x70,op.d2r&31);
writes.emplace(baseAddr+0x80,(op.rr&15)|(op.sl<<4));
writes.emplace(baseAddr+0x90,op.ssgEnv&15);
}
writes.emplace(chanOffs[c.chan]+0xb0,(ins->fm.alg&7)|(ins->fm.fb<<3));
writes.emplace(chanOffs[c.chan]+0xb4,(chan[c.chan].pan<<6)|(ins->fm.fms&7)|((ins->fm.ams&3)<<4));
}
writes.emplace(chanOffs[c.chan]+0xa4,((c.value/12)<<3)|(notes[c.value%12]>>8));
writes.emplace(chanOffs[c.chan]+0xa0,notes[c.value%12]);
writes.emplace(chanOffs[c.chan]+0xb0,(ins->fm.alg&7)|(ins->fm.fb<<3));
writes.emplace(chanOffs[c.chan]+0xb4,0xc0|(ins->fm.fms&7)|((ins->fm.ams&3)<<4));
writes.emplace(0x28,0xf0|konOffs[c.chan]);
chan[c.chan].active=true;
break;
@ -66,12 +125,49 @@ int DivPlatformGenesis::dispatch(DivCommand c) {
writes.emplace(0x28,0x00|konOffs[c.chan]);
chan[c.chan].active=false;
break;
case DIV_CMD_VOLUME:
case DIV_CMD_VOLUME: {
chan[c.chan].vol=c.value;
DivInstrument* ins=parent->song.ins[chan[c.chan].ins];
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator op=ins->fm.op[i];
if (isOutput[ins->fm.alg][i]) {
writes.emplace(baseAddr+0x40,127-(((127-op.tl)*chan[c.chan].vol)/127));
} else {
writes.emplace(baseAddr+0x40,op.tl);
}
}
break;
}
case DIV_CMD_INSTRUMENT:
if (chan[c.chan].ins!=c.value) {
chan[c.chan].insChanged=true;
}
chan[c.chan].ins=c.value;
break;
case DIV_CMD_PANNING: {
switch (c.value) {
case 0x01:
chan[c.chan].pan=1;
break;
case 0x10:
chan[c.chan].pan=2;
break;
default:
chan[c.chan].pan=3;
break;
}
DivInstrument* ins=parent->song.ins[chan[c.chan].ins];
writes.emplace(chanOffs[c.chan]+0xb4,(chan[c.chan].pan<<6)|(ins->fm.fms&7)|((ins->fm.ams&3)<<4));
break;
}
case DIV_CMD_SAMPLE_MODE: {
if (c.chan==5) {
dacMode=c.value;
writes.emplace(0x2b,c.value<<7);
}
break;
}
default:
break;
}
@ -82,7 +178,20 @@ int DivPlatformGenesis::init(DivEngine* p, int channels, int sugRate) {
parent=p;
rate=1278409;
OPN2_Reset(&fm);
for (int i=0; i<10; i++) {
chan[i].vol=0x7f;
}
lastBusy=60;
dacMode=0;
dacPeriod=0;
dacPos=0;
dacRate=0;
dacSample=-1;
// LFO
writes.emplace(0x22,0x08);
delay=100;
delay=0;
return 10;
}

18
src/engine/platform/genesis.h
View file

@ -6,20 +6,30 @@ class DivPlatformGenesis: public DivDispatch {
struct Channel {
unsigned short freq;
unsigned char ins;
bool active;
signed char konCycles;
bool active, insChanged;
signed char vol;
Channel(): freq(0), ins(0), active(false), vol(0) {}
unsigned char pan;
Channel(): freq(0), ins(0), active(false), insChanged(true), vol(0), pan(3) {}
};
Channel chan[10];
struct QueuedWrite {
unsigned short addr;
unsigned char val;
QueuedWrite(unsigned short a, unsigned char v): addr(a), val(v) {}
bool addrOrVal;
QueuedWrite(unsigned short a, unsigned char v): addr(a), val(v), addrOrVal(false) {}
};
std::queue<QueuedWrite> writes;
ym3438_t fm;
int psg;
int delay;
unsigned char lastBusy;
bool dacMode;
int dacPeriod;
int dacRate;
int dacPos;
int dacSample;
public:
void acquire(short& l, short& r);
int dispatch(DivCommand c);