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

DIV_CMD_FM_ALG for OPM/OPN/OPZ

Browse source
This commit is contained in:
tildearrow 2025-05-21 04:46:11 -05:00
parent 64f4db3ab8
commit 78fb9c4df5
7 changed files with 133 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/engine/platform/arcade.cpp
View file

@ -601,6 +601,26 @@ int DivPlatformArcade::dispatch(DivCommand c) {
rWrite(0x1b,c.value&3); rWrite(0x1b,c.value&3);
break; break;
} }
case DIV_CMD_FM_ALG: {
chan[c.chan].state.alg=c.value&7;
if (isMuted[c.chan]) {
rWrite(chanOffs[c.chan]+ADDR_LR_FB_ALG,(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
} else {
rWrite(chanOffs[c.chan]+ADDR_LR_FB_ALG,(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3)|((chan[c.chan].chVolL&1)<<6)|((chan[c.chan].chVolR&1)<<7));
}
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator& op=chan[c.chan].state.op[i];
if (!op.enable) {
rWrite(baseAddr+ADDR_TL,127);
} else if (KVS(c.chan,i)) {
rWrite(baseAddr+ADDR_TL,127-VOL_SCALE_LOG_BROKEN(127-op.tl,chan[c.chan].outVol&0x7f,127));
} else {
rWrite(baseAddr+ADDR_TL,op.tl);
}
}
break;
}
case DIV_CMD_FM_FB: { case DIV_CMD_FM_FB: {
chan[c.chan].state.fb=c.value&7; chan[c.chan].state.fb=c.value&7;
if (isMuted[c.chan]) { if (isMuted[c.chan]) {

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

@ -1315,6 +1315,25 @@ int DivPlatformGenesis::dispatch(DivCommand c) {
rWrite(0x22,lfoValue); rWrite(0x22,lfoValue);
break; break;
} }
case DIV_CMD_FM_ALG: {
if (c.chan>=6) break;
chan[c.chan].state.alg=c.value&7;
rWrite(ADDR_FB_ALG+chanOffs[c.chan],(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator& op=chan[c.chan].state.op[i];
if (isMuted[c.chan] || !op.enable) {
rWrite(baseAddr+ADDR_TL,127);
} else {
if (KVS(c.chan,i)) {
rWrite(baseAddr+ADDR_TL,127-VOL_SCALE_LOG_BROKEN(127-op.tl,chan[c.chan].outVol&0x7f,127));
} else {
rWrite(baseAddr+ADDR_TL,op.tl);
}
}
}
break;
}
case DIV_CMD_FM_FB: { case DIV_CMD_FM_FB: {
if (c.chan>=6) break; if (c.chan>=6) break;
chan[c.chan].state.fb=c.value&7; chan[c.chan].state.fb=c.value&7;
@ -1539,10 +1558,6 @@ int DivPlatformGenesis::dispatch(DivCommand c) {
break; break;
case DIV_CMD_PRE_NOTE: case DIV_CMD_PRE_NOTE:
break; break;
case DIV_CMD_FM_ALG:
if (c.value>7) break;
chan[c.chan].state.alg=c.value&7;
rWrite(ADDR_FB_ALG+chanOffs[c.chan],(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
default: default:
//printf("WARNING: unimplemented command %d\n",c.cmd); //printf("WARNING: unimplemented command %d\n",c.cmd);
break; break;

18
src/engine/platform/tx81z.cpp
View file

@ -651,6 +651,24 @@ int DivPlatformTX81Z::dispatch(DivCommand c) {
immWrite(0x1b,lfoShape|(lfoShape2<<2)); immWrite(0x1b,lfoShape|(lfoShape2<<2));
break; break;
} }
case DIV_CMD_FM_ALG: {
chan[c.chan].state.alg=c.value&7;
if (isMuted[c.chan]) {
rWrite(chanOffs[c.chan]+ADDR_LR_FB_ALG,(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
} else {
rWrite(chanOffs[c.chan]+ADDR_LR_FB_ALG,(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3)|((chan[c.chan].chVolL&1)<<6)|((chan[c.chan].chVolR&1)<<7));
}
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator& op=chan[c.chan].state.op[i];
if (KVS(c.chan,c.value)) {
rWrite(baseAddr+ADDR_TL,127-VOL_SCALE_LOG_BROKEN(127-op.tl,chan[c.chan].outVol&0x7f,127));
} else {
rWrite(baseAddr+ADDR_TL,op.tl);
}
}
break;
}
case DIV_CMD_FM_FB: { case DIV_CMD_FM_FB: {
chan[c.chan].state.fb=c.value&7; chan[c.chan].state.fb=c.value&7;
/* /*

19
src/engine/platform/ym2203.cpp
View file

@ -914,6 +914,25 @@ int DivPlatformYM2203::dispatch(DivCommand c) {
} }
break; break;
} }
case DIV_CMD_FM_ALG: {
if (c.chan>2) break;
chan[c.chan].state.alg=c.value&7;
rWrite(ADDR_FB_ALG+chanOffs[c.chan],(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator& op=chan[c.chan].state.op[i];
if (isMuted[c.chan] || !op.enable) {
rWrite(baseAddr+ADDR_TL,127);
} else {
if (KVS(c.chan,i)) {
rWrite(baseAddr+ADDR_TL,127-VOL_SCALE_LOG_BROKEN(127-op.tl,chan[c.chan].outVol&0x7f,127));
} else {
rWrite(baseAddr+ADDR_TL,op.tl);
}
}
}
break;
}
case DIV_CMD_FM_FB: { case DIV_CMD_FM_FB: {
if (c.chan>2) break; if (c.chan>2) break;
chan[c.chan].state.fb=c.value&7; chan[c.chan].state.fb=c.value&7;

19
src/engine/platform/ym2608.cpp
View file

@ -1448,6 +1448,25 @@ int DivPlatformYM2608::dispatch(DivCommand c) {
rWrite(0x22,lfoValue); rWrite(0x22,lfoValue);
break; break;
} }
case DIV_CMD_FM_ALG: {
if (c.chan>5) break;
chan[c.chan].state.alg=c.value&7;
rWrite(ADDR_FB_ALG+chanOffs[c.chan],(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator& op=chan[c.chan].state.op[i];
if (isMuted[c.chan] || !op.enable) {
rWrite(baseAddr+ADDR_TL,127);
} else {
if (KVS(c.chan,i)) {
rWrite(baseAddr+ADDR_TL,127-VOL_SCALE_LOG_BROKEN(127-op.tl,chan[c.chan].outVol&0x7f,127));
} else {
rWrite(baseAddr+ADDR_TL,op.tl);
}
}
}
break;
}
case DIV_CMD_FM_FB: { case DIV_CMD_FM_FB: {
if (c.chan>5) break; if (c.chan>5) break;
chan[c.chan].state.fb=c.value&7; chan[c.chan].state.fb=c.value&7;

19
src/engine/platform/ym2610.cpp
View file

@ -1407,6 +1407,25 @@ int DivPlatformYM2610::dispatch(DivCommand c) {
rWrite(0x22,lfoValue); rWrite(0x22,lfoValue);
break; break;
} }
case DIV_CMD_FM_ALG: {
if (c.chan>=psgChanOffs) break;
chan[c.chan].state.alg=c.value&7;
rWrite(ADDR_FB_ALG+chanOffs[c.chan],(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator& op=chan[c.chan].state.op[i];
if (isMuted[c.chan] || !op.enable) {
rWrite(baseAddr+ADDR_TL,127);
} else {
if (KVS(c.chan,i)) {
rWrite(baseAddr+ADDR_TL,127-VOL_SCALE_LOG_BROKEN(127-op.tl,chan[c.chan].outVol&0x7f,127));
} else {
rWrite(baseAddr+ADDR_TL,op.tl);
}
}
}
break;
}
case DIV_CMD_FM_FB: { case DIV_CMD_FM_FB: {
if (c.chan>=psgChanOffs) break; if (c.chan>=psgChanOffs) break;
chan[c.chan].state.fb=c.value&7; chan[c.chan].state.fb=c.value&7;

19
src/engine/platform/ym2610b.cpp
View file

@ -1476,6 +1476,25 @@ int DivPlatformYM2610B::dispatch(DivCommand c) {
rWrite(0x22,lfoValue); rWrite(0x22,lfoValue);
break; break;
} }
case DIV_CMD_FM_ALG: {
if (c.chan>=psgChanOffs) break;
chan[c.chan].state.alg=c.value&7;
rWrite(ADDR_FB_ALG+chanOffs[c.chan],(chan[c.chan].state.alg&7)|(chan[c.chan].state.fb<<3));
for (int i=0; i<4; i++) {
unsigned short baseAddr=chanOffs[c.chan]|opOffs[i];
DivInstrumentFM::Operator& op=chan[c.chan].state.op[i];
if (isMuted[c.chan] || !op.enable) {
rWrite(baseAddr+ADDR_TL,127);
} else {
if (KVS(c.chan,i)) {
rWrite(baseAddr+ADDR_TL,127-VOL_SCALE_LOG_BROKEN(127-op.tl,chan[c.chan].outVol&0x7f,127));
} else {
rWrite(baseAddr+ADDR_TL,op.tl);
}
}
}
break;
}
case DIV_CMD_FM_FB: { case DIV_CMD_FM_FB: {
if (c.chan>=psgChanOffs) break; if (c.chan>=psgChanOffs) break;
chan[c.chan].state.fb=c.value&7; chan[c.chan].state.fb=c.value&7;