void ym2413_write(int chip, int offset, int data)
{
static uint8 latch = 0;
if(offset & 1)
OPLL_writeReg(opll, latch, data);
else
latch = data;
}
void CVRC7::Write(uint16_t Address, uint8_t Value)
{
switch (Address) {
case 0x9010:
m_iSoundReg = Value;
break;
case 0x9030:
OPLL_writeReg(m_pOPLLInt.get(), m_iSoundReg, Value);
break;
}
}
// Port write to the YM-2413
void FM_Digital_Write(int Register, int Value)
{
OPLL_writeReg(opll, Register, Value);
}
int main(void){
static char wave[DATALENGTH*2] ;
char filename[16] = "temp.wav" ;
char header[46] ;
int i;
clock_t start,finish ;
FILE *fp ;
OPLL *opll ;
/* Create WAVE header */
chunkID(header,"RIFF") ;
DWORD(header+4,DATALENGTH*2+36) ;
chunkID(header+8,"WAVE") ;
chunkID(header+12,"fmt ") ;
DWORD(header+16,16) ;
WORD(header+20,1) ; /* WAVE_FORMAT_PCM */
WORD(header+22,1) ; /* channel 1=mono,2=stereo */
DWORD(header+24,SAMPLERATE) ; /* samplesPerSec */
DWORD(header+28,2*SAMPLERATE) ; /* bytesPerSec */
WORD(header+32,2) ; /* blockSize */
WORD(header+34,16) ; /* bitsPerSample */
chunkID(header+36,"data") ;
DWORD(header+40,2*DATALENGTH) ;
opll = OPLL_new(MSX_CLK,SAMPLERATE) ;
OPLL_reset(opll);
OPLL_writeReg(opll,0x30,0x30) ; /* select PIANO Voice to ch1. */
OPLL_writeReg(opll,0x10,0x80) ; /* set F-Number(L). */
OPLL_writeReg(opll,0x20,0x15) ; /* set BLK & F-Number(H) and keyon. */
start = clock() ;
i=0;
for(i=0;i<DATALENGTH;i++)
{
WORD(wave+i*2,OPLL_calc(opll));
}
finish = clock() ;
OPLL_delete(opll) ;
printf("It has been %f sec to calc %d waves.\n",
(double)(finish-start)/CLOCKS_PER_SEC, DATALENGTH) ;
printf("%f times faster than real YM2413.\n",
((double)DATALENGTH/SAMPLERATE)/((double)(finish-start)/CLOCKS_PER_SEC)) ;
fp = fopen(filename,"wb") ;
if(fp == NULL) return 1 ;
fwrite(header,46,1,fp) ;
fwrite(wave,DATALENGTH,2,fp) ;
fclose(fp) ;
printf("Wrote : %s\n",filename) ;
return 0 ;
}
