Virtual Boy: early modulation work

This commit is contained in:
tildearrow 2022-10-10 22:10:23 -05:00
parent f679aadf68
commit b23939a124
3 changed files with 26 additions and 8 deletions

View File

@ -303,17 +303,32 @@ int DivPlatformVB::dispatch(DivCommand c) {
case DIV_CMD_FDS_MOD_DEPTH: // set modulation
if (c.chan!=4) break;
modulation=c.value;
chWrite(4,0x06,modulation);
chWrite(4,0x07,modulation);
if (modulation!=0) {
chan[c.chan].envHigh|=0x10;
chan[c.chan].envHigh|=0x70;
} else {
chan[c.chan].envHigh&=~0x10;
chan[c.chan].envHigh&=~0x70;
}
writeEnv(4);
chWrite(c.chan,0x00,0x80);
break;
case DIV_CMD_FDS_MOD_WAVE: // set modulation wave
case DIV_CMD_FDS_MOD_WAVE: { // set modulation wave
if (c.chan!=4) break;
DivWavetable* wt=parent->getWave(c.value);
for (int i=0; i<32; i++) {
if (wt->max<1 || wt->len<1) {
modTable[i]=0;
rWrite(0x280+(i<<2),0);
} else {
int data=(wt->data[i*wt->len/32]*255/wt->max)-128;
if (data<-128) data=-128;
if (data>127) data=127;
modTable[i]=data;
rWrite(0x280+(i<<2),modTable[i]);
}
}
break;
}
case DIV_CMD_PANNING: {
chan[c.chan].pan=(c.value&0xf0)|(c.value2>>4);
chWrite(c.chan,0x01,isMuted[c.chan]?0:chan[c.chan].pan);
@ -399,6 +414,7 @@ void DivPlatformVB::reset() {
cycles=0;
curChan=-1;
modulation=0;
memset(modTable,0,32);
// set per-channel initial values
for (int i=0; i<6; i++) {
chWrite(i,0x01,isMuted[i]?0:chan[i].pan);

View File

@ -76,6 +76,7 @@ class DivPlatformVB: public DivDispatch {
int tempL;
int tempR;
unsigned char modulation;
signed char modTable[32];
VSU* vb;
unsigned char regPool[0x600];
void updateWave(int ch);

View File

@ -1183,9 +1183,10 @@ void DivEngine::registerSystems() {
{
{0x10, {DIV_CMD_WAVE, "10xx: Set waveform"}},
{0x11, {DIV_CMD_STD_NOISE_MODE, "11xx: Set noise length (0 to 7)"}},
{0x12, {DIV_CMD_STD_NOISE_FREQ, "12xy: Setup envelope (x: enabled/loop (1: enable, 2: loop, 3: enable+loop); y: speed/direction (0-7: down, 8-F: up))"}},
{0x14, {DIV_CMD_FDS_MOD_DEPTH, "14xy: Setup modulation (channel 5 only)"}},
{0x15, {DIV_CMD_FDS_MOD_WAVE, "15xx: Set modulation waveform (channel 5 only)"}},
{0x12, {DIV_CMD_STD_NOISE_FREQ, "12xy: Setup envelope (x: enabled/loop (1: enable, 3: enable+loop); y: speed/direction (0-7: down, 8-F: up))"}},
{0x13, {DIV_CMD_GB_SWEEP_TIME, "13xy: Setup sweep (x: speed; y: shift; channel 5 only)"}},
{0x14, {DIV_CMD_FDS_MOD_DEPTH, "14xy: Setup modulation (x: enabled/loop (1: enable, 3: enable+loop); y: speed; channel 5 only)"}},
{0x15, {DIV_CMD_FDS_MOD_WAVE, "15xx: Set modulation waveform (x: wavetable; channel 5 only)"}},
}
);