1043 lines
32 KiB
C++
1043 lines
32 KiB
C++
/**
|
|
* Furnace Tracker - multi-system chiptune tracker
|
|
* Copyright (C) 2021-2023 tildearrow and contributors
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program 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 General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License along
|
|
* with this program; if not, write to the Free Software Foundation, Inc.,
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*/
|
|
|
|
#include "x1_010.h"
|
|
#include "../engine.h"
|
|
#include "../../ta-log.h"
|
|
#include <math.h>
|
|
|
|
//#define rWrite(a,v) pendingWrites[a]=v;
|
|
#define rWrite(a,v) if (!skipRegisterWrites) { x1_010.ram_w(a,v); if (dumpWrites) { addWrite(a,v); } }
|
|
|
|
#define chRead(c,a) x1_010.ram_r((c<<3)|(a&7))
|
|
#define chWrite(c,a,v) rWrite((c<<3)|(a&7),v)
|
|
#define waveWrite(c,a,v) rWrite(0x1000|(chan[c].waveBank<<11)|(c<<7)|(a&0x7f),(v-128)&0xff)
|
|
#define envFill(c,a) rWrite(0x800|(c<<7)|(a&0x7f),(chan[c].lvol<<4)|chan[c].rvol)
|
|
#define envWrite(c,a,l,r) rWrite(0x800|(c<<7)|(a&0x7f),(((chan[c].lvol*(l))/15)<<4)|((chan[c].rvol*(r))/15))
|
|
|
|
#define refreshControl(c) chWrite(c,0,chan[c].active?(chan[c].pcm?1:((chan[c].env.flag.envEnable && chan[c].env.flag.envOneshot)?7:3)):0);
|
|
|
|
#define CHIP_FREQBASE 4194304
|
|
|
|
const char* regCheatSheetX1_010[]={
|
|
// Channel registers
|
|
"Ch00_Control", "0000",
|
|
"Ch00_PCMVol_WavSel", "0001",
|
|
"Ch00_FreqL", "0002",
|
|
"Ch00_FreqH", "0003",
|
|
"Ch00_Start_EnvFrq", "0004",
|
|
"Ch00_End_EnvSel", "0005",
|
|
"Ch01_Control", "0008",
|
|
"Ch01_PCMVol_WavSel", "0009",
|
|
"Ch01_FreqL", "000A",
|
|
"Ch01_FreqH", "000B",
|
|
"Ch01_Start_EnvFrq", "000C",
|
|
"Ch01_End_EnvSel", "000D",
|
|
"Ch02_Control", "0010",
|
|
"Ch02_PCMVol_WavSel", "0011",
|
|
"Ch02_FreqL", "0012",
|
|
"Ch02_FreqH", "0013",
|
|
"Ch02_Start_EnvFrq", "0014",
|
|
"Ch02_End_EnvSel", "0015",
|
|
"Ch03_Control", "0018",
|
|
"Ch03_PCMVol_WavSel", "0019",
|
|
"Ch03_FreqL", "001A",
|
|
"Ch03_FreqH", "001B",
|
|
"Ch03_Start_EnvFrq", "001C",
|
|
"Ch03_End_EnvSel", "001D",
|
|
"Ch04_Control", "0020",
|
|
"Ch04_PCMVol_WavSel", "0021",
|
|
"Ch04_FreqL", "0022",
|
|
"Ch04_FreqH", "0023",
|
|
"Ch04_Start_EnvFrq", "0024",
|
|
"Ch04_End_EnvSel", "0025",
|
|
"Ch05_Control", "0028",
|
|
"Ch05_PCMVol_WavSel", "0029",
|
|
"Ch05_FreqL", "002A",
|
|
"Ch05_FreqH", "002B",
|
|
"Ch05_Start_EnvFrq", "002C",
|
|
"Ch05_End_EnvSel", "002D",
|
|
"Ch06_Control", "0030",
|
|
"Ch06_PCMVol_WavSel", "0031",
|
|
"Ch06_FreqL", "0032",
|
|
"Ch06_FreqH", "0033",
|
|
"Ch06_Start_EnvFrq", "0034",
|
|
"Ch06_End_EnvSel", "0035",
|
|
"Ch07_Control", "0038",
|
|
"Ch07_PCMVol_WavSel", "0039",
|
|
"Ch07_FreqL", "003A",
|
|
"Ch07_FreqH", "003B",
|
|
"Ch07_Start_EnvFrq", "003C",
|
|
"Ch07_End_EnvSel", "003D",
|
|
"Ch08_Control", "0040",
|
|
"Ch08_PCMVol_WavSel", "0041",
|
|
"Ch08_FreqL", "0042",
|
|
"Ch08_FreqH", "0043",
|
|
"Ch08_Start_EnvFrq", "0044",
|
|
"Ch08_End_EnvSel", "0045",
|
|
"Ch09_Control", "0048",
|
|
"Ch09_PCMVol_WavSel", "0049",
|
|
"Ch09_FreqL", "004A",
|
|
"Ch09_FreqH", "004B",
|
|
"Ch09_Start_EnvFrq", "004C",
|
|
"Ch09_End_EnvSel", "004D",
|
|
"Ch10_Control", "0050",
|
|
"Ch10_PCMVol_WavSel", "0051",
|
|
"Ch10_FreqL", "0052",
|
|
"Ch10_FreqH", "0053",
|
|
"Ch10_Start_EnvFrq", "0054",
|
|
"Ch10_End_EnvSel", "0055",
|
|
"Ch11_Control", "0058",
|
|
"Ch11_PCMVol_WavSel", "0059",
|
|
"Ch11_FreqL", "005A",
|
|
"Ch11_FreqH", "005B",
|
|
"Ch11_Start_EnvFrq", "005C",
|
|
"Ch11_End_EnvSel", "005D",
|
|
"Ch12_Control", "0060",
|
|
"Ch12_PCMVol_WavSel", "0061",
|
|
"Ch12_FreqL", "0062",
|
|
"Ch12_FreqH", "0063",
|
|
"Ch12_Start_EnvFrq", "0064",
|
|
"Ch12_End_EnvSel", "0065",
|
|
"Ch13_Control", "0068",
|
|
"Ch13_PCMVol_WavSel", "0069",
|
|
"Ch13_FreqL", "006A",
|
|
"Ch13_FreqH", "006B",
|
|
"Ch13_Start_EnvFrq", "006C",
|
|
"Ch13_End_EnvSel", "006D",
|
|
"Ch14_Control", "0070",
|
|
"Ch14_PCMVol_WavSel", "0071",
|
|
"Ch14_FreqL", "0072",
|
|
"Ch14_FreqH", "0073",
|
|
"Ch14_Start_EnvFrq", "0074",
|
|
"Ch14_End_EnvSel", "0075",
|
|
"Ch15_Control", "0078",
|
|
"Ch15_PCMVol_WavSel", "0079",
|
|
"Ch15_FreqL", "007A",
|
|
"Ch15_FreqH", "007B",
|
|
"Ch15_Start_EnvFrq", "007C",
|
|
"Ch15_End_EnvSel", "007D",
|
|
// Envelope data
|
|
"Env01Data", "0080",
|
|
"Env02Data", "0100",
|
|
"Env03Data", "0180",
|
|
"Env04Data", "0200",
|
|
"Env05Data", "0280",
|
|
"Env06Data", "0300",
|
|
"Env07Data", "0380",
|
|
"Env08Data", "0400",
|
|
"Env09Data", "0480",
|
|
"Env10Data", "0500",
|
|
"Env11Data", "0580",
|
|
"Env12Data", "0600",
|
|
"Env13Data", "0680",
|
|
"Env14Data", "0700",
|
|
"Env15Data", "0780",
|
|
"Env16Data", "0800",
|
|
"Env17Data", "0880",
|
|
"Env18Data", "0900",
|
|
"Env19Data", "0980",
|
|
"Env20Data", "0A00",
|
|
"Env21Data", "0A80",
|
|
"Env22Data", "0B00",
|
|
"Env23Data", "0B80",
|
|
"Env24Data", "0C00",
|
|
"Env25Data", "0C80",
|
|
"Env26Data", "0D00",
|
|
"Env27Data", "0D80",
|
|
"Env28Data", "0E00",
|
|
"Env29Data", "0E80",
|
|
"Env30Data", "0F00",
|
|
"Env31Data", "0F80",
|
|
// Wavetable data
|
|
"Wave00Data", "1000",
|
|
"Wave01Data", "1080",
|
|
"Wave02Data", "1100",
|
|
"Wave03Data", "1180",
|
|
"Wave04Data", "1200",
|
|
"Wave05Data", "1280",
|
|
"Wave06Data", "1300",
|
|
"Wave07Data", "1380",
|
|
"Wave08Data", "1400",
|
|
"Wave09Data", "1480",
|
|
"Wave10Data", "1500",
|
|
"Wave11Data", "1580",
|
|
"Wave12Data", "1600",
|
|
"Wave13Data", "1680",
|
|
"Wave14Data", "1700",
|
|
"Wave15Data", "1780",
|
|
"Wave16Data", "1800",
|
|
"Wave17Data", "1880",
|
|
"Wave18Data", "1900",
|
|
"Wave19Data", "1980",
|
|
"Wave20Data", "1A00",
|
|
"Wave21Data", "1A80",
|
|
"Wave22Data", "1B00",
|
|
"Wave23Data", "1B80",
|
|
"Wave24Data", "1C00",
|
|
"Wave25Data", "1C80",
|
|
"Wave26Data", "1D00",
|
|
"Wave27Data", "1D80",
|
|
"Wave28Data", "1E00",
|
|
"Wave29Data", "1E80",
|
|
"Wave30Data", "1F00",
|
|
"Wave31Data", "1F80",
|
|
NULL
|
|
};
|
|
|
|
const char** DivPlatformX1_010::getRegisterSheet() {
|
|
return regCheatSheetX1_010;
|
|
}
|
|
|
|
void DivPlatformX1_010::acquire(short** buf, size_t len) {
|
|
for (size_t h=0; h<len; h++) {
|
|
x1_010.tick();
|
|
|
|
signed int tempL=x1_010.output(0);
|
|
signed int tempR=x1_010.output(1);
|
|
|
|
if (tempL<-32768) tempL=-32768;
|
|
if (tempL>32767) tempL=32767;
|
|
if (tempR<-32768) tempR=-32768;
|
|
if (tempR>32767) tempR=32767;
|
|
|
|
//printf("tempL: %d tempR: %d\n",tempL,tempR);
|
|
buf[0][h]=stereo?tempL:((tempL+tempR)>>1);
|
|
if (stereo) buf[1][h]=tempR;
|
|
|
|
for (int i=0; i<16; i++) {
|
|
int vo=(x1_010.voice_out(i,0)+x1_010.voice_out(i,1))<<2;
|
|
oscBuf[i]->data[oscBuf[i]->needle++]=CLAMP(vo,-32768,32767);
|
|
}
|
|
}
|
|
}
|
|
|
|
u8 DivPlatformX1_010::read_byte(u32 address) {
|
|
if ((sampleMem!=NULL) && (address<getSampleMemCapacity())) {
|
|
if (isBanked) {
|
|
address=((bankSlot[(address>>17)&7]<<17)|(address&0x1ffff))&0xffffff;
|
|
} else {
|
|
address&=0xfffff;
|
|
}
|
|
return sampleMem[address];
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
double DivPlatformX1_010::NoteX1_010(int ch, int note) {
|
|
if (chan[ch].pcm) { // PCM note
|
|
double off=8192.0;
|
|
int sample=chan[ch].sample;
|
|
if (sample>=0 && sample<parent->song.sampleLen) {
|
|
DivSample* s=parent->getSample(sample);
|
|
if (s->centerRate<1) {
|
|
off=8192.0;
|
|
} else {
|
|
off=8192.0*(s->centerRate/8363.0);
|
|
}
|
|
}
|
|
return parent->calcBaseFreq(chipClock,off,note,false);
|
|
}
|
|
// Wavetable note
|
|
return NOTE_FREQUENCY(note);
|
|
}
|
|
|
|
void DivPlatformX1_010::updateWave(int ch) {
|
|
if (chan[ch].active) {
|
|
chan[ch].waveBank^=1;
|
|
}
|
|
for (int i=0; i<128; i++) {
|
|
int data=chan[ch].ws.output[i];
|
|
waveWrite(ch,i,data);
|
|
}
|
|
if (!chan[ch].pcm) {
|
|
chWrite(ch,1,(chan[ch].waveBank<<4)|(ch&0xf));
|
|
}
|
|
}
|
|
|
|
void DivPlatformX1_010::updateEnvelope(int ch) {
|
|
if (!chan[ch].pcm) {
|
|
if (isMuted[ch]) {
|
|
for (int i=0; i<128; i++) {
|
|
rWrite(0x800|(ch<<7)|(i&0x7f),0);
|
|
}
|
|
} else {
|
|
if (!chan[ch].env.flag.envEnable) {
|
|
for (int i=0; i<128; i++) {
|
|
envFill(ch,i);
|
|
}
|
|
} else {
|
|
DivWavetable* wt=parent->getWave(chan[ch].env.shape);
|
|
for (int i=0; i<128; i++) {
|
|
if (wt->max<1 || wt->len<1) {
|
|
envFill(ch,i);
|
|
} else if (chan[ch].env.flag.envSplit || chan[ch].env.flag.envHinvR || chan[ch].env.flag.envVinvR || chan[ch].env.flag.envHinvL || chan[ch].env.flag.envVinvL) { // Stereo config
|
|
int la=i,ra=i;
|
|
int lo,ro;
|
|
if (chan[ch].env.flag.envHinvR) { ra=127-i; } // horizontal invert right envelope
|
|
if (chan[ch].env.flag.envHinvL) { la=127-i; } // horizontal invert left envelope
|
|
if (chan[ch].env.flag.envSplit) { // Split shape to left and right half
|
|
lo=wt->data[la*(wt->len/128/2)]*15/wt->max;
|
|
ro=wt->data[(ra+128)*(wt->len/128/2)]*15/wt->max;
|
|
} else {
|
|
lo=wt->data[la*wt->len/128]*15/wt->max;
|
|
ro=wt->data[ra*wt->len/128]*15/wt->max;
|
|
}
|
|
if (chan[ch].env.flag.envVinvR) { ro=15-ro; } // vertical invert right envelope
|
|
if (chan[ch].env.flag.envVinvL) { lo=15-lo; } // vertical invert left envelope
|
|
if (lo<0) lo=0;
|
|
if (lo>15) lo=15;
|
|
if (ro<0) ro=0;
|
|
if (ro>15) ro=15;
|
|
envWrite(ch,i,lo,ro);
|
|
} else {
|
|
int out=wt->data[i*wt->len/128]*15/wt->max;
|
|
if (out<0) out=0;
|
|
if (out>15) out=15;
|
|
envWrite(ch,i,out,out);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
chWrite(ch,5,0x10|(ch&0xf));
|
|
} else {
|
|
chWrite(ch,1,isMuted[ch]?0:((chan[ch].lvol<<4)|chan[ch].rvol));
|
|
}
|
|
}
|
|
|
|
void DivPlatformX1_010::tick(bool sysTick) {
|
|
for (int i=0; i<16; i++) {
|
|
chan[i].std.next();
|
|
if (chan[i].std.vol.had) {
|
|
signed char macroVol=((chan[i].vol&15)*MIN(chan[i].macroVolMul,chan[i].std.vol.val))/(chan[i].macroVolMul);
|
|
if ((!isMuted[i]) && (macroVol!=chan[i].outVol)) {
|
|
chan[i].outVol=macroVol;
|
|
chan[i].envChanged=true;
|
|
}
|
|
}
|
|
if ((!chan[i].pcm) || chan[i].furnacePCM) {
|
|
if (NEW_ARP_STRAT) {
|
|
chan[i].handleArp();
|
|
} else if (chan[i].std.arp.had) {
|
|
if (!chan[i].inPorta) {
|
|
chan[i].baseFreq=NoteX1_010(i,parent->calcArp(chan[i].note,chan[i].std.arp.val));
|
|
}
|
|
chan[i].freqChanged=true;
|
|
}
|
|
}
|
|
if (chan[i].std.wave.had && !chan[i].pcm) {
|
|
if (chan[i].wave!=chan[i].std.wave.val || chan[i].ws.activeChanged()) {
|
|
chan[i].wave=chan[i].std.wave.val;
|
|
if (!chan[i].pcm) {
|
|
chan[i].ws.changeWave1(chan[i].wave);
|
|
if (!chan[i].keyOff) chan[i].keyOn=true;
|
|
}
|
|
}
|
|
}
|
|
if (chan[i].std.panL.had) {
|
|
chan[i].pan&=0x0f;
|
|
chan[i].pan|=(chan[i].std.panL.val&15)<<4;
|
|
chan[i].envChanged=true;
|
|
}
|
|
if (chan[i].std.panR.had) {
|
|
chan[i].pan&=0xf0;
|
|
chan[i].pan|=chan[i].std.panR.val&15;
|
|
chan[i].envChanged=true;
|
|
}
|
|
if (chan[i].std.pitch.had) {
|
|
if (chan[i].std.pitch.mode) {
|
|
chan[i].pitch2+=chan[i].std.pitch.val;
|
|
CLAMP_VAR(chan[i].pitch2,-65535,65535);
|
|
} else {
|
|
chan[i].pitch2=chan[i].std.pitch.val;
|
|
}
|
|
chan[i].freqChanged=true;
|
|
}
|
|
if (chan[i].std.ex1.had) {
|
|
bool nextEnable=(chan[i].std.ex1.val&1);
|
|
if (nextEnable!=(chan[i].env.flag.envEnable)) {
|
|
chan[i].env.flag.envEnable=nextEnable;
|
|
if (!chan[i].pcm) {
|
|
if (!isMuted[i]) {
|
|
chan[i].envChanged=true;
|
|
}
|
|
refreshControl(i);
|
|
}
|
|
}
|
|
bool nextOneshot=(chan[i].std.ex1.val&2);
|
|
if (nextOneshot!=(chan[i].env.flag.envOneshot)) {
|
|
chan[i].env.flag.envOneshot=nextOneshot;
|
|
if (!chan[i].pcm) {
|
|
refreshControl(i);
|
|
}
|
|
}
|
|
bool nextSplit=(chan[i].std.ex1.val&4);
|
|
if (nextSplit!=(chan[i].env.flag.envSplit)) {
|
|
chan[i].env.flag.envSplit=nextSplit;
|
|
if (!isMuted[i] && !chan[i].pcm) {
|
|
chan[i].envChanged=true;
|
|
}
|
|
}
|
|
bool nextHinvR=(chan[i].std.ex1.val&8);
|
|
if (nextHinvR!=(chan[i].env.flag.envHinvR)) {
|
|
chan[i].env.flag.envHinvR=nextHinvR;
|
|
if (!isMuted[i] && !chan[i].pcm) {
|
|
chan[i].envChanged=true;
|
|
}
|
|
}
|
|
bool nextVinvR=(chan[i].std.ex1.val&16);
|
|
if (nextVinvR!=(chan[i].env.flag.envVinvR)) {
|
|
chan[i].env.flag.envVinvR=nextVinvR;
|
|
if (!isMuted[i] && !chan[i].pcm) {
|
|
chan[i].envChanged=true;
|
|
}
|
|
}
|
|
bool nextHinvL=(chan[i].std.ex1.val&32);
|
|
if (nextHinvL!=(chan[i].env.flag.envHinvL)) {
|
|
chan[i].env.flag.envHinvL=nextHinvL;
|
|
if (!isMuted[i] && !chan[i].pcm) {
|
|
chan[i].envChanged=true;
|
|
}
|
|
}
|
|
bool nextVinvL=(chan[i].std.ex1.val&64);
|
|
if (nextVinvL!=(chan[i].env.flag.envVinvL)) {
|
|
chan[i].env.flag.envVinvL=nextVinvL;
|
|
if (!isMuted[i] && !chan[i].pcm) {
|
|
chan[i].envChanged=true;
|
|
}
|
|
}
|
|
}
|
|
if (chan[i].std.ex2.had) {
|
|
if (chan[i].env.shape!=chan[i].std.ex2.val) {
|
|
chan[i].env.shape=chan[i].std.ex2.val;
|
|
if (!chan[i].pcm) {
|
|
if (chan[i].env.flag.envEnable && (!isMuted[i])) {
|
|
chan[i].envChanged=true;
|
|
}
|
|
if (!chan[i].keyOff) chan[i].keyOn=true;
|
|
}
|
|
}
|
|
}
|
|
if (chan[i].std.ex3.had) {
|
|
chan[i].autoEnvNum=chan[i].std.ex3.val;
|
|
if (!chan[i].pcm) {
|
|
chan[i].freqChanged=true;
|
|
if (!chan[i].std.alg.will) chan[i].autoEnvDen=1;
|
|
}
|
|
}
|
|
if (chan[i].std.alg.had) {
|
|
chan[i].autoEnvDen=chan[i].std.alg.val;
|
|
if (!chan[i].pcm) {
|
|
chan[i].freqChanged=true;
|
|
if (!chan[i].std.ex3.will) chan[i].autoEnvNum=1;
|
|
}
|
|
}
|
|
if (chan[i].std.phaseReset.had) {
|
|
if (chan[i].std.phaseReset.val && chan[i].active && chan[i].pcm) {
|
|
chWrite(i,0,0);
|
|
refreshControl(i);
|
|
}
|
|
}
|
|
if (chan[i].active) {
|
|
if (chan[i].ws.tick()) {
|
|
updateWave(i);
|
|
}
|
|
}
|
|
if (chan[i].envChanged) {
|
|
chan[i].lvol=isMuted[i]?0:(((chan[i].outVol&0xf)*((chan[i].pan>>4)&0xf))/15);
|
|
chan[i].rvol=isMuted[i]?0:(((chan[i].outVol&0xf)*((chan[i].pan>>0)&0xf))/15);
|
|
updateEnvelope(i);
|
|
chan[i].envChanged=false;
|
|
}
|
|
if (chan[i].freqChanged || chan[i].keyOn || chan[i].keyOff) {
|
|
double off=8192.0;
|
|
if (chan[i].pcm) {
|
|
int sample=chan[i].sample;
|
|
if (sample>=0 && sample<parent->song.sampleLen) {
|
|
DivSample* s=parent->getSample(sample);
|
|
if (s->centerRate<1) {
|
|
off=8192.0;
|
|
} else {
|
|
off=8192.0*(s->centerRate/8363.0);
|
|
}
|
|
}
|
|
}
|
|
chan[i].freq=parent->calcFreq(chan[i].baseFreq,chan[i].pitch,chan[i].fixedArp?chan[i].baseNoteOverride:chan[i].arpOff,chan[i].fixedArp,false,2,chan[i].pitch2,chipClock,chan[i].pcm?off:CHIP_FREQBASE);
|
|
if (chan[i].fixedFreq) chan[i].freq=chan[i].fixedFreq;
|
|
if (chan[i].pcm) {
|
|
if (chan[i].freq<1) chan[i].freq=1;
|
|
if (chan[i].freq>255) chan[i].freq=255;
|
|
chWrite(i,2,chan[i].freq&0xff);
|
|
} else {
|
|
if (chan[i].freq<0) chan[i].freq=0;
|
|
if (chan[i].freq>65535) chan[i].freq=65535;
|
|
chWrite(i,2,chan[i].freq&0xff);
|
|
chWrite(i,3,(chan[i].freq>>8)&0xff);
|
|
if (chan[i].freqChanged && chan[i].autoEnvNum>0 && chan[i].autoEnvDen>0) {
|
|
chan[i].env.period=(chan[i].freq*chan[i].autoEnvDen/chan[i].autoEnvNum)>>12;
|
|
chWrite(i,4,chan[i].env.period);
|
|
}
|
|
}
|
|
if (chan[i].keyOn || chan[i].keyOff || (chRead(i,0)&1)) {
|
|
refreshControl(i);
|
|
}
|
|
if (chan[i].keyOn) chan[i].keyOn=false;
|
|
if (chan[i].keyOff) chan[i].keyOff=false;
|
|
chan[i].freqChanged=false;
|
|
}
|
|
if (chan[i].env.slide!=0) {
|
|
chan[i].env.slidefrac+=chan[i].env.slide;
|
|
while (chan[i].env.slidefrac>0xf) {
|
|
chan[i].env.slidefrac-=0x10;
|
|
if (chan[i].env.period<0xff) {
|
|
chan[i].env.period++;
|
|
if (!chan[i].pcm) {
|
|
chWrite(i,4,chan[i].env.period);
|
|
}
|
|
}
|
|
}
|
|
while (chan[i].env.slidefrac<-0xf) {
|
|
chan[i].env.slidefrac+=0x10;
|
|
if (chan[i].env.period>0) {
|
|
chan[i].env.period--;
|
|
if (!chan[i].pcm) {
|
|
chWrite(i,4,chan[i].env.period);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
int DivPlatformX1_010::dispatch(DivCommand c) {
|
|
switch (c.cmd) {
|
|
case DIV_CMD_NOTE_ON: {
|
|
chWrite(c.chan,0,0); // reset previous note
|
|
DivInstrument* ins=parent->getIns(chan[c.chan].ins,DIV_INS_X1_010);
|
|
chan[c.chan].macroVolMul=ins->type==DIV_INS_AMIGA?64:15;
|
|
if ((ins->type==DIV_INS_AMIGA || ins->amiga.useSample) || chan[c.chan].pcm) {
|
|
if (ins->type==DIV_INS_AMIGA || ins->amiga.useSample) {
|
|
chan[c.chan].furnacePCM=true;
|
|
} else {
|
|
chan[c.chan].furnacePCM=false;
|
|
}
|
|
if (skipRegisterWrites) break;
|
|
if (chan[c.chan].furnacePCM) {
|
|
chan[c.chan].pcm=true;
|
|
chan[c.chan].macroInit(ins);
|
|
if (c.value!=DIV_NOTE_NULL) {
|
|
chan[c.chan].sample=ins->amiga.getSample(c.value);
|
|
c.value=ins->amiga.getFreq(c.value);
|
|
}
|
|
if (chan[c.chan].sample>=0 && chan[c.chan].sample<parent->song.sampleLen) {
|
|
DivSample* s=parent->getSample(chan[c.chan].sample);
|
|
if (isBanked) {
|
|
chan[c.chan].bankSlot=ins->x1_010.bankSlot;
|
|
bankSlot[chan[c.chan].bankSlot]=sampleOffX1[chan[c.chan].sample]>>17;
|
|
unsigned int bankedOffs=(chan[c.chan].bankSlot<<17)|(sampleOffX1[chan[c.chan].sample]&0x1ffff);
|
|
chWrite(c.chan,4,(bankedOffs>>12)&0xff);
|
|
int end=(bankedOffs+MIN(s->length8,0x1ffff)+0xfff)&~0xfff; // padded
|
|
chWrite(c.chan,5,(0x100-(end>>12))&0xff);
|
|
} else {
|
|
chWrite(c.chan,4,(sampleOffX1[chan[c.chan].sample]>>12)&0xff);
|
|
int end=(sampleOffX1[chan[c.chan].sample]+s->length8+0xfff)&~0xfff; // padded
|
|
chWrite(c.chan,5,(0x100-(end>>12))&0xff);
|
|
}
|
|
if (c.value!=DIV_NOTE_NULL) {
|
|
chan[c.chan].note=c.value;
|
|
chan[c.chan].baseFreq=NoteX1_010(c.chan,chan[c.chan].note);
|
|
chan[c.chan].fixedFreq=0;
|
|
chan[c.chan].freqChanged=true;
|
|
}
|
|
} else {
|
|
chan[c.chan].macroInit(NULL);
|
|
chan[c.chan].outVol=chan[c.chan].vol;
|
|
// huh?
|
|
if ((12*sampleBank+c.value%12)>=parent->song.sampleLen) {
|
|
chWrite(c.chan,0,0); // reset
|
|
chWrite(c.chan,1,0);
|
|
chWrite(c.chan,2,0);
|
|
chWrite(c.chan,4,0);
|
|
chWrite(c.chan,5,0);
|
|
break;
|
|
}
|
|
}
|
|
} else {
|
|
chan[c.chan].macroInit(NULL);
|
|
chan[c.chan].outVol=chan[c.chan].vol;
|
|
chan[c.chan].sample=12*sampleBank+c.value%12;
|
|
if (chan[c.chan].sample<0 || chan[c.chan].sample>=parent->song.sampleLen) {
|
|
chWrite(c.chan,0,0); // reset
|
|
chWrite(c.chan,1,0);
|
|
chWrite(c.chan,2,0);
|
|
chWrite(c.chan,4,0);
|
|
chWrite(c.chan,5,0);
|
|
break;
|
|
}
|
|
DivSample* s=parent->getSample(chan[c.chan].sample);
|
|
if (isBanked) {
|
|
bankSlot[chan[c.chan].bankSlot]=sampleOffX1[chan[c.chan].sample]>>17;
|
|
unsigned int bankedOffs=(chan[c.chan].bankSlot<<17)|(sampleOffX1[chan[c.chan].sample]&0x1ffff);
|
|
chWrite(c.chan,4,(bankedOffs>>12)&0xff);
|
|
int end=(bankedOffs+MIN(s->length8,0x1ffff)+0xfff)&~0xfff; // padded
|
|
chWrite(c.chan,5,(0x100-(end>>12))&0xff);
|
|
} else {
|
|
chWrite(c.chan,4,(sampleOffX1[chan[c.chan].sample]>>12)&0xff);
|
|
int end=(sampleOffX1[chan[c.chan].sample]+s->length8+0xfff)&~0xfff; // padded
|
|
chWrite(c.chan,5,(0x100-(end>>12))&0xff);
|
|
}
|
|
// ????
|
|
chan[c.chan].fixedFreq=(((unsigned int)s->rate)<<4)/(chipClock/512);
|
|
chan[c.chan].freqChanged=true;
|
|
}
|
|
} else if (c.value!=DIV_NOTE_NULL) {
|
|
chan[c.chan].note=c.value;
|
|
chan[c.chan].baseFreq=NoteX1_010(c.chan,chan[c.chan].note);
|
|
chan[c.chan].fixedFreq=0;
|
|
chan[c.chan].freqChanged=true;
|
|
}
|
|
chan[c.chan].active=true;
|
|
chan[c.chan].keyOn=true;
|
|
chan[c.chan].envChanged=true;
|
|
chan[c.chan].macroInit(ins);
|
|
if (!parent->song.brokenOutVol && !chan[c.chan].std.vol.will) {
|
|
chan[c.chan].outVol=chan[c.chan].vol;
|
|
}
|
|
if (chan[c.chan].wave<0) {
|
|
chan[c.chan].wave=0;
|
|
chan[c.chan].ws.changeWave1(chan[c.chan].wave);
|
|
}
|
|
chan[c.chan].ws.init(ins,128,255,chan[c.chan].insChanged);
|
|
chan[c.chan].insChanged=false;
|
|
refreshControl(c.chan);
|
|
break;
|
|
}
|
|
case DIV_CMD_NOTE_OFF:
|
|
chan[c.chan].pcm=false;
|
|
chan[c.chan].active=false;
|
|
chan[c.chan].keyOff=true;
|
|
chan[c.chan].macroInit(NULL);
|
|
break;
|
|
case DIV_CMD_NOTE_OFF_ENV:
|
|
case DIV_CMD_ENV_RELEASE:
|
|
chan[c.chan].std.release();
|
|
break;
|
|
case DIV_CMD_INSTRUMENT:
|
|
if (chan[c.chan].ins!=c.value || c.value2==1) {
|
|
chan[c.chan].ins=c.value;
|
|
chan[c.chan].insChanged=true;
|
|
}
|
|
break;
|
|
case DIV_CMD_VOLUME:
|
|
if (chan[c.chan].vol!=c.value) {
|
|
chan[c.chan].vol=c.value;
|
|
if (!chan[c.chan].std.vol.has) {
|
|
if (chan[c.chan].outVol!=c.value) {
|
|
chan[c.chan].outVol=c.value;
|
|
if (!isMuted[c.chan]) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
case DIV_CMD_GET_VOLUME:
|
|
if (chan[c.chan].std.vol.has) {
|
|
return chan[c.chan].vol;
|
|
}
|
|
return chan[c.chan].outVol;
|
|
break;
|
|
case DIV_CMD_PITCH:
|
|
chan[c.chan].pitch=c.value;
|
|
chan[c.chan].freqChanged=true;
|
|
break;
|
|
case DIV_CMD_WAVE:
|
|
chan[c.chan].wave=c.value;
|
|
chan[c.chan].ws.changeWave1(chan[c.chan].wave);
|
|
chan[c.chan].keyOn=true;
|
|
break;
|
|
case DIV_CMD_X1_010_ENVELOPE_SHAPE:
|
|
if (chan[c.chan].env.shape!=c.value) {
|
|
chan[c.chan].env.shape=c.value;
|
|
if (!chan[c.chan].pcm) {
|
|
if (chan[c.chan].env.flag.envEnable && (!isMuted[c.chan])) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
chan[c.chan].keyOn=true;
|
|
}
|
|
}
|
|
break;
|
|
case DIV_CMD_NOTE_PORTA: {
|
|
int destFreq=NoteX1_010(c.chan,c.value2);
|
|
bool return2=false;
|
|
if (destFreq>chan[c.chan].baseFreq) {
|
|
chan[c.chan].baseFreq+=c.value;
|
|
if (chan[c.chan].baseFreq>=destFreq) {
|
|
chan[c.chan].baseFreq=destFreq;
|
|
return2=true;
|
|
}
|
|
} else {
|
|
chan[c.chan].baseFreq-=c.value;
|
|
if (chan[c.chan].baseFreq<=destFreq) {
|
|
chan[c.chan].baseFreq=destFreq;
|
|
return2=true;
|
|
}
|
|
}
|
|
chan[c.chan].freqChanged=true;
|
|
if (return2) {
|
|
chan[c.chan].inPorta=false;
|
|
return 2;
|
|
}
|
|
break;
|
|
}
|
|
case DIV_CMD_SAMPLE_MODE:
|
|
if (chan[c.chan].pcm!=(c.value&1)) {
|
|
chan[c.chan].pcm=c.value&1;
|
|
chan[c.chan].freqChanged=true;
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
break;
|
|
case DIV_CMD_SAMPLE_BANK:
|
|
sampleBank=c.value;
|
|
if (sampleBank>(parent->song.sample.size()/12)) {
|
|
sampleBank=parent->song.sample.size()/12;
|
|
}
|
|
break;
|
|
case DIV_CMD_PANNING: {
|
|
if (!stereo) break;
|
|
unsigned char newPan=(c.value&0xf0)|(c.value2>>4);
|
|
if (chan[c.chan].pan!=newPan) {
|
|
chan[c.chan].pan=newPan;
|
|
if (!isMuted[c.chan]) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
case DIV_CMD_LEGATO:
|
|
chan[c.chan].note=c.value;
|
|
chan[c.chan].baseFreq=NoteX1_010(c.chan,chan[c.chan].note+((HACKY_LEGATO_MESS)?(chan[c.chan].std.arp.val):(0)));
|
|
chan[c.chan].freqChanged=true;
|
|
break;
|
|
case DIV_CMD_PRE_PORTA:
|
|
if (chan[c.chan].active && c.value2) {
|
|
if (parent->song.resetMacroOnPorta) chan[c.chan].macroInit(parent->getIns(chan[c.chan].ins,DIV_INS_X1_010));
|
|
}
|
|
if (!chan[c.chan].inPorta && c.value && !parent->song.brokenPortaArp && chan[c.chan].std.arp.will && !NEW_ARP_STRAT) chan[c.chan].baseFreq=NoteX1_010(c.chan,chan[c.chan].note);
|
|
chan[c.chan].inPorta=c.value;
|
|
break;
|
|
case DIV_CMD_SAMPLE_FREQ:
|
|
if (chan[c.chan].pcm) {
|
|
chan[c.chan].freq=MAX(1,c.value&0xff);
|
|
chWrite(c.chan,2,chan[c.chan].freq&0xff);
|
|
if (chRead(c.chan,0)&1) {
|
|
refreshControl(c.chan);
|
|
}
|
|
}
|
|
break;
|
|
case DIV_CMD_X1_010_ENVELOPE_MODE: {
|
|
bool nextEnable=c.value&1;
|
|
if (nextEnable!=(chan[c.chan].env.flag.envEnable)) {
|
|
chan[c.chan].env.flag.envEnable=nextEnable;
|
|
if (!chan[c.chan].pcm) {
|
|
if (!isMuted[c.chan]) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
refreshControl(c.chan);
|
|
}
|
|
}
|
|
bool nextOneshot=c.value&2;
|
|
if (nextOneshot!=(chan[c.chan].env.flag.envOneshot)) {
|
|
chan[c.chan].env.flag.envOneshot=nextOneshot;
|
|
if (!chan[c.chan].pcm) {
|
|
refreshControl(c.chan);
|
|
}
|
|
}
|
|
bool nextSplit=c.value&4;
|
|
if (nextSplit!=(chan[c.chan].env.flag.envSplit)) {
|
|
chan[c.chan].env.flag.envSplit=nextSplit;
|
|
if (!isMuted[c.chan] && !chan[c.chan].pcm) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
}
|
|
bool nextHinvR=c.value&8;
|
|
if (nextHinvR!=(chan[c.chan].env.flag.envHinvR)) {
|
|
chan[c.chan].env.flag.envHinvR=nextHinvR;
|
|
if (!isMuted[c.chan] && !chan[c.chan].pcm) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
}
|
|
bool nextVinvR=c.value&16;
|
|
if (nextVinvR!=(chan[c.chan].env.flag.envVinvR)) {
|
|
chan[c.chan].env.flag.envVinvR=nextVinvR;
|
|
if (!isMuted[c.chan] && !chan[c.chan].pcm) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
}
|
|
bool nextHinvL=c.value&32;
|
|
if (nextHinvL!=(chan[c.chan].env.flag.envHinvL)) {
|
|
chan[c.chan].env.flag.envHinvL=nextHinvL;
|
|
if (!isMuted[c.chan] && !chan[c.chan].pcm) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
}
|
|
bool nextVinvL=c.value&64;
|
|
if (nextVinvL!=(chan[c.chan].env.flag.envVinvL)) {
|
|
chan[c.chan].env.flag.envVinvL=nextVinvL;
|
|
if (!isMuted[c.chan] && !chan[c.chan].pcm) {
|
|
chan[c.chan].envChanged=true;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
case DIV_CMD_X1_010_ENVELOPE_PERIOD:
|
|
chan[c.chan].env.period=c.value;
|
|
if (!chan[c.chan].pcm) {
|
|
chWrite(c.chan,4,chan[c.chan].env.period);
|
|
}
|
|
break;
|
|
case DIV_CMD_X1_010_ENVELOPE_SLIDE:
|
|
chan[c.chan].env.slide=c.value;
|
|
break;
|
|
case DIV_CMD_X1_010_AUTO_ENVELOPE:
|
|
chan[c.chan].autoEnvNum=c.value>>4;
|
|
chan[c.chan].autoEnvDen=c.value&15;
|
|
chan[c.chan].freqChanged=true;
|
|
break;
|
|
case DIV_CMD_X1_010_SAMPLE_BANK_SLOT:
|
|
chan[c.chan].bankSlot=c.value&7;
|
|
break;
|
|
case DIV_CMD_GET_VOLMAX:
|
|
return 15;
|
|
break;
|
|
case DIV_CMD_MACRO_OFF:
|
|
chan[c.chan].std.mask(c.value,true);
|
|
break;
|
|
case DIV_CMD_MACRO_ON:
|
|
chan[c.chan].std.mask(c.value,false);
|
|
break;
|
|
case DIV_ALWAYS_SET_VOLUME:
|
|
return 1;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
void DivPlatformX1_010::muteChannel(int ch, bool mute) {
|
|
isMuted[ch]=mute;
|
|
chan[ch].envChanged=true;
|
|
}
|
|
|
|
void DivPlatformX1_010::forceIns() {
|
|
for (int i=0; i<16; i++) {
|
|
chan[i].insChanged=true;
|
|
chan[i].envChanged=true;
|
|
chan[i].freqChanged=true;
|
|
updateWave(i);
|
|
}
|
|
}
|
|
|
|
void* DivPlatformX1_010::getChanState(int ch) {
|
|
return &chan[ch];
|
|
}
|
|
|
|
DivMacroInt* DivPlatformX1_010::getChanMacroInt(int ch) {
|
|
return &chan[ch].std;
|
|
}
|
|
|
|
DivDispatchOscBuffer* DivPlatformX1_010::getOscBuffer(int ch) {
|
|
return oscBuf[ch];
|
|
}
|
|
|
|
unsigned char* DivPlatformX1_010::getRegisterPool() {
|
|
for (int i=0; i<0x2000; i++) {
|
|
regPool[i]=x1_010.ram_r(i);
|
|
}
|
|
return regPool;
|
|
}
|
|
|
|
int DivPlatformX1_010::getRegisterPoolSize() {
|
|
return 0x2000;
|
|
}
|
|
|
|
void DivPlatformX1_010::reset() {
|
|
memset(regPool,0,0x2000);
|
|
for (int i=0; i<16; i++) {
|
|
chan[i]=DivPlatformX1_010::Channel();
|
|
chan[i].reset();
|
|
chan[i].std.setEngine(parent);
|
|
chan[i].ws.setEngine(parent);
|
|
chan[i].ws.init(NULL,128,255,false);
|
|
}
|
|
x1_010.reset();
|
|
sampleBank=0;
|
|
// set per-channel initial panning
|
|
for (int i=0; i<16; i++) {
|
|
chWrite(i,0,0);
|
|
}
|
|
// set initial bank
|
|
for (int b=0; b<8; b++) {
|
|
bankSlot[b]=b;
|
|
}
|
|
}
|
|
|
|
int DivPlatformX1_010::getOutputCount() {
|
|
return stereo?2:1;
|
|
}
|
|
|
|
bool DivPlatformX1_010::keyOffAffectsArp(int ch) {
|
|
return true;
|
|
}
|
|
|
|
float DivPlatformX1_010::getPostAmp() {
|
|
return 4.0f;
|
|
}
|
|
|
|
void DivPlatformX1_010::notifyWaveChange(int wave) {
|
|
for (int i=0; i<16; i++) {
|
|
if (chan[i].wave==wave) {
|
|
chan[i].ws.changeWave1(wave);
|
|
updateWave(i);
|
|
}
|
|
}
|
|
}
|
|
|
|
void DivPlatformX1_010::notifyInsDeletion(void* ins) {
|
|
for (int i=0; i<16; i++) {
|
|
chan[i].std.notifyInsDeletion((DivInstrument*)ins);
|
|
}
|
|
}
|
|
|
|
void DivPlatformX1_010::setFlags(const DivConfig& flags) {
|
|
switch (flags.getInt("clockSel",0)) {
|
|
case 1: // 16.67MHz (later hardwares)
|
|
chipClock=50000000.0/3.0;
|
|
break;
|
|
case 2: // 14.32MHz (see https://github.com/mamedev/mame/blob/master/src/mame/taito/champbwl.cpp#L620)
|
|
chipClock=COLOR_NTSC*4.0;
|
|
break;
|
|
// Other clock is used
|
|
default: // 16MHz (earlier hardwares)
|
|
chipClock=16000000;
|
|
break;
|
|
}
|
|
CHECK_CUSTOM_CLOCK;
|
|
rate=chipClock/512;
|
|
stereo=flags.getBool("stereo",false);
|
|
isBanked=flags.getBool("isBanked",false);
|
|
for (int i=0; i<16; i++) {
|
|
oscBuf[i]->rate=rate;
|
|
}
|
|
}
|
|
|
|
void DivPlatformX1_010::poke(unsigned int addr, unsigned short val) {
|
|
rWrite(addr,val);
|
|
}
|
|
|
|
void DivPlatformX1_010::poke(std::vector<DivRegWrite>& wlist) {
|
|
for (DivRegWrite& i: wlist) rWrite(i.addr,i.val);
|
|
}
|
|
|
|
const void* DivPlatformX1_010::getSampleMem(int index) {
|
|
return index >= 0 ? sampleMem : 0;
|
|
}
|
|
|
|
size_t DivPlatformX1_010::getSampleMemCapacity(int index) {
|
|
return index == 0 ? (isBanked?16777216:1048576):0;
|
|
}
|
|
|
|
size_t DivPlatformX1_010::getSampleMemUsage(int index) {
|
|
return index >= 0 ? sampleMemLen : 0;
|
|
}
|
|
|
|
bool DivPlatformX1_010::isSampleLoaded(int index, int sample) {
|
|
if (index!=0) return false;
|
|
if (sample<0 || sample>255) return false;
|
|
return sampleLoaded[sample];
|
|
}
|
|
|
|
void DivPlatformX1_010::renderSamples(int sysID) {
|
|
memset(sampleMem,0,16777216);
|
|
memset(sampleOffX1,0,256*sizeof(unsigned int));
|
|
memset(sampleLoaded,0,256*sizeof(bool));
|
|
|
|
size_t memPos=0;
|
|
for (int i=0; i<parent->song.sampleLen; i++) {
|
|
DivSample* s=parent->song.sample[i];
|
|
if (!s->renderOn[0][sysID]) {
|
|
sampleOffX1[i]=0;
|
|
continue;
|
|
}
|
|
|
|
int paddedLen=(s->length8+4095)&(~0xfff);
|
|
if (isBanked) {
|
|
// fit sample bank size to 128KB for Seta 2 external bankswitching logic (not emulated yet!)
|
|
if (paddedLen>131072) {
|
|
paddedLen=131072;
|
|
}
|
|
if ((memPos&0xfe0000)!=((memPos+paddedLen)&0xfe0000)) {
|
|
memPos=(memPos+0x1ffff)&0xfe0000;
|
|
}
|
|
}
|
|
if (memPos>=getSampleMemCapacity()) {
|
|
logW("out of X1-010 memory for sample %d!",i);
|
|
break;
|
|
}
|
|
if (memPos+paddedLen>=getSampleMemCapacity()) {
|
|
memcpy(sampleMem+memPos,s->data8,getSampleMemCapacity()-memPos);
|
|
logW("out of X1-010 memory for sample %d!",i);
|
|
} else {
|
|
memcpy(sampleMem+memPos,s->data8,paddedLen);
|
|
sampleLoaded[i]=true;
|
|
}
|
|
sampleOffX1[i]=memPos;
|
|
memPos+=paddedLen;
|
|
}
|
|
sampleMemLen=memPos+256;
|
|
}
|
|
|
|
int DivPlatformX1_010::init(DivEngine* p, int channels, int sugRate, const DivConfig& flags) {
|
|
parent=p;
|
|
dumpWrites=false;
|
|
skipRegisterWrites=false;
|
|
stereo=false;
|
|
for (int i=0; i<16; i++) {
|
|
isMuted[i]=false;
|
|
oscBuf[i]=new DivDispatchOscBuffer;
|
|
}
|
|
setFlags(flags);
|
|
sampleMem=new unsigned char[16777216];
|
|
sampleMemLen=0;
|
|
x1_010.reset();
|
|
reset();
|
|
return 16;
|
|
}
|
|
|
|
void DivPlatformX1_010::quit() {
|
|
for (int i=0; i<16; i++) {
|
|
delete oscBuf[i];
|
|
}
|
|
delete[] sampleMem;
|
|
}
|
|
|
|
DivPlatformX1_010::~DivPlatformX1_010() {
|
|
}
|