rlm@1: #if (defined(WIN32) && !defined(SDL))
rlm@1: #   include "../win32/stdafx.h"
rlm@1: #   include "../win32/VBA.h"
rlm@1: #endif
rlm@1: 
rlm@1: #include <cstring>
rlm@1: #include <cassert>
rlm@1: 
rlm@1: #include "GBASound.h"
rlm@1: #include "../common/System.h" // SDL build needs this
rlm@1: #include "../common/Util.h"
rlm@1: #include "GBA.h"
rlm@1: #include "GBAGlobals.h"
rlm@1: 
rlm@1: #ifndef countof
rlm@1: #define countof(a)  (sizeof(a) / sizeof(a[0]))
rlm@1: #endif
rlm@1: 
rlm@1: soundtick_t USE_TICKS_AS = 380; // (16777216.0/44100.0); // FIXME: (16777216.0/280896.0)(fps) vs 60.0fps?
rlm@1: 
rlm@1: #define SOUND_MAGIC   0x60000000
rlm@1: #define SOUND_MAGIC_2 0x30000000
rlm@1: #define NOISE_MAGIC (2097152.0 / 44100.0)
rlm@1: 
rlm@1: extern bool8 stopState;
rlm@1: 
rlm@1: u8 soundWavePattern[4][32] = {
rlm@1: 	{ 0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff },
rlm@1: 	{ 0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff },
rlm@1: 	{ 0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff },
rlm@1: 	{ 0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0x01, 0x01, 0x01, 0x01,
rlm@1: 	  0xff, 0xff, 0xff, 0xff,
rlm@1: 	  0xff, 0xff, 0xff, 0xff }
rlm@1: };
rlm@1: 
rlm@1: int32 soundFreqRatio[8] = {
rlm@1: 	1048576, // 0
rlm@1: 	524288, // 1
rlm@1: 	262144, // 2
rlm@1: 	174763, // 3
rlm@1: 	131072, // 4
rlm@1: 	104858, // 5
rlm@1: 	87381, // 6
rlm@1: 	74898  // 7
rlm@1: };
rlm@1: 
rlm@1: int32 soundShiftClock[16] = {
rlm@1: 	2,   // 0
rlm@1: 	4,   // 1
rlm@1: 	8,   // 2
rlm@1: 	16,  // 3
rlm@1: 	32,  // 4
rlm@1: 	64,  // 5
rlm@1: 	128, // 6
rlm@1: 	256, // 7
rlm@1: 	512, // 8
rlm@1: 	1024, // 9
rlm@1: 	2048, // 10
rlm@1: 	4096, // 11
rlm@1: 	8192, // 12
rlm@1: 	16384, // 13
rlm@1: 	1,   // 14
rlm@1: 	1    // 15
rlm@1: };
rlm@1: 
rlm@1: int32 soundVolume = 0;
rlm@1: 
rlm@1: u8	soundBuffer[6][735];
rlm@1: u16 soundFinalWave[1470];
rlm@1: u16 soundFrameSound[735 * 30 * 2]; // for avi logging
rlm@1: 
rlm@1: u32			soundBufferLen		= 1470;
rlm@1: u32			soundBufferTotalLen = 14700;
rlm@1: int32		soundQuality		= 2;
rlm@1: int32		soundPaused			= 1;
rlm@1: int32		soundPlay			= 0;
rlm@1: soundtick_t soundTicks			= soundQuality * USE_TICKS_AS;
rlm@1: soundtick_t SOUND_CLOCK_TICKS	= soundQuality * USE_TICKS_AS;
rlm@1: u32			soundNextPosition	= 0;
rlm@1: 
rlm@1: int32 soundLevel1 = 0;
rlm@1: int32 soundLevel2 = 0;
rlm@1: int32 soundBalance = 0;
rlm@1: int32 soundMasterOn = 0;
rlm@1: u32	  soundIndex = 0;
rlm@1: u32	  soundBufferIndex		 = 0;
rlm@1: int32 soundFrameSoundWritten = 0;
rlm@1: int32 soundDebug			 = 0;
rlm@1: bool8 soundOffFlag			 = false;
rlm@1: 
rlm@1: int32 sound1On = 0;
rlm@1: int32 sound1ATL = 0;
rlm@1: int32 sound1Skip = 0;
rlm@1: int32 sound1Index = 0;
rlm@1: int32 sound1Continue = 0;
rlm@1: int32 sound1EnvelopeVolume	  = 0;
rlm@1: int32 sound1EnvelopeATL		  = 0;
rlm@1: int32 sound1EnvelopeUpDown	  = 0;
rlm@1: int32 sound1EnvelopeATLReload = 0;
rlm@1: int32 sound1SweepATL		  = 0;
rlm@1: int32 sound1SweepATLReload	  = 0;
rlm@1: int32 sound1SweepSteps		  = 0;
rlm@1: int32 sound1SweepUpDown		  = 0;
rlm@1: int32 sound1SweepStep		  = 0;
rlm@1: u8 *  sound1Wave			  = soundWavePattern[2];
rlm@1: 
rlm@1: int32 sound2On = 0;
rlm@1: int32 sound2ATL = 0;
rlm@1: int32 sound2Skip = 0;
rlm@1: int32 sound2Index = 0;
rlm@1: int32 sound2Continue = 0;
rlm@1: int32 sound2EnvelopeVolume	  = 0;
rlm@1: int32 sound2EnvelopeATL		  = 0;
rlm@1: int32 sound2EnvelopeUpDown	  = 0;
rlm@1: int32 sound2EnvelopeATLReload = 0;
rlm@1: u8 *  sound2Wave			  = soundWavePattern[2];
rlm@1: 
rlm@1: int32 sound3On = 0;
rlm@1: int32 sound3ATL			= 0;
rlm@1: int32 sound3Skip		= 0;
rlm@1: int32 sound3Index		= 0;
rlm@1: int32 sound3Continue	= 0;
rlm@1: int32 sound3OutputLevel = 0;
rlm@1: int32 sound3Last		= 0;
rlm@1: u8	  sound3WaveRam[0x20];
rlm@1: int32 sound3Bank		 = 0;
rlm@1: int32 sound3DataSize	 = 0;
rlm@1: int32 sound3ForcedOutput = 0;
rlm@1: 
rlm@1: int32 sound4On = 0;
rlm@1: int32 sound4Clock = 0;
rlm@1: int32 sound4ATL = 0;
rlm@1: int32 sound4Skip = 0;
rlm@1: int32 sound4Index = 0;
rlm@1: int32 sound4ShiftRight		  = 0x7f;
rlm@1: int32 sound4ShiftSkip		  = 0;
rlm@1: int32 sound4ShiftIndex		  = 0;
rlm@1: int32 sound4NSteps			  = 0;
rlm@1: int32 sound4CountDown		  = 0;
rlm@1: int32 sound4Continue		  = 0;
rlm@1: int32 sound4EnvelopeVolume	  = 0;
rlm@1: int32 sound4EnvelopeATL		  = 0;
rlm@1: int32 sound4EnvelopeUpDown	  = 0;
rlm@1: int32 sound4EnvelopeATLReload = 0;
rlm@1: 
rlm@1: int32 soundControl = 0;
rlm@1: 
rlm@1: int32 soundDSFifoAIndex		 = 0;
rlm@1: int32 soundDSFifoACount		 = 0;
rlm@1: int32 soundDSFifoAWriteIndex = 0;
rlm@1: bool8 soundDSAEnabled		 = false;
rlm@1: int32 soundDSATimer = 0;
rlm@1: u8	  soundDSFifoA[32];
rlm@1: u8	  soundDSAValue = 0;
rlm@1: 
rlm@1: int32 soundDSFifoBIndex		 = 0;
rlm@1: int32 soundDSFifoBCount		 = 0;
rlm@1: int32 soundDSFifoBWriteIndex = 0;
rlm@1: bool8 soundDSBEnabled		 = false;
rlm@1: int32 soundDSBTimer = 0;
rlm@1: u8	  soundDSFifoB[32];
rlm@1: u8	  soundDSBValue = 0;
rlm@1: 
rlm@1: int32 soundEnableFlag = 0x3ff;
rlm@1: int32 soundMutedFlag  = 0;
rlm@1: 
rlm@1: s16	  soundFilter[4000];
rlm@1: s16	  soundRight[5] = { 0, 0, 0, 0, 0 };
rlm@1: s16	  soundLeft[5] = { 0, 0, 0, 0, 0 };
rlm@1: int32 soundEchoIndex = 0;
rlm@1: bool8 soundEcho		 = false;
rlm@1: bool8 soundLowPass	 = false;
rlm@1: bool8 soundReverse	 = false;
rlm@1: 
rlm@1: static int32  soundTicks_int32;
rlm@1: static int32  SOUND_CLOCK_TICKS_int32;
rlm@1: static int32  soundDSBValue_int32;
rlm@1: variable_desc soundSaveStruct[] = {
rlm@1: 	{ &soundPaused,				sizeof(int32)					  },
rlm@1: 	{ &soundPlay,				sizeof(int32)					  },
rlm@1: 	{ &soundTicks_int32,		sizeof(int32)					  },
rlm@1: 	{ &SOUND_CLOCK_TICKS_int32, sizeof(int32)					  },
rlm@1: 	{ &soundLevel1,				sizeof(int32)					  },
rlm@1: 	{ &soundLevel2,				sizeof(int32)					  },
rlm@1: 	{ &soundBalance,			sizeof(int32)					  },
rlm@1: 	{ &soundMasterOn,			sizeof(int32)					  },
rlm@1: 	{ &soundIndex,				sizeof(int32)					  },
rlm@1: 	{ &sound1On,				sizeof(int32)					  },
rlm@1: 	{ &sound1ATL,				sizeof(int32)					  },
rlm@1: 	{ &sound1Skip,				sizeof(int32)					  },
rlm@1: 	{ &sound1Index,				sizeof(int32)					  },
rlm@1: 	{ &sound1Continue,			sizeof(int32)					  },
rlm@1: 	{ &sound1EnvelopeVolume,	sizeof(int32)					  },
rlm@1: 	{ &sound1EnvelopeATL,		sizeof(int32)					  },
rlm@1: 	{ &sound1EnvelopeATLReload, sizeof(int32)					  },
rlm@1: 	{ &sound1EnvelopeUpDown,	sizeof(int32)					  },
rlm@1: 	{ &sound1SweepATL,			sizeof(int32)					  },
rlm@1: 	{ &sound1SweepATLReload,	sizeof(int32)					  },
rlm@1: 	{ &sound1SweepSteps,		sizeof(int32)					  },
rlm@1: 	{ &sound1SweepUpDown,		sizeof(int32)					  },
rlm@1: 	{ &sound1SweepStep,			sizeof(int32)					  },
rlm@1: 	{ &sound2On,				sizeof(int32)					  },
rlm@1: 	{ &sound2ATL,				sizeof(int32)					  },
rlm@1: 	{ &sound2Skip,				sizeof(int32)					  },
rlm@1: 	{ &sound2Index,				sizeof(int32)					  },
rlm@1: 	{ &sound2Continue,			sizeof(int32)					  },
rlm@1: 	{ &sound2EnvelopeVolume,	sizeof(int32)					  },
rlm@1: 	{ &sound2EnvelopeATL,		sizeof(int32)					  },
rlm@1: 	{ &sound2EnvelopeATLReload, sizeof(int32)					  },
rlm@1: 	{ &sound2EnvelopeUpDown,	sizeof(int32)					  },
rlm@1: 	{ &sound3On,				sizeof(int32)					  },
rlm@1: 	{ &sound3ATL,				sizeof(int32)					  },
rlm@1: 	{ &sound3Skip,				sizeof(int32)					  },
rlm@1: 	{ &sound3Index,				sizeof(int32)					  },
rlm@1: 	{ &sound3Continue,			sizeof(int32)					  },
rlm@1: 	{ &sound3OutputLevel,		sizeof(int32)					  },
rlm@1: 	{ &sound4On,				sizeof(int32)					  },
rlm@1: 	{ &sound4ATL,				sizeof(int32)					  },
rlm@1: 	{ &sound4Skip,				sizeof(int32)					  },
rlm@1: 	{ &sound4Index,				sizeof(int32)					  },
rlm@1: 	{ &sound4Clock,				sizeof(int32)					  },
rlm@1: 	{ &sound4ShiftRight,		sizeof(int32)					  },
rlm@1: 	{ &sound4ShiftSkip,			sizeof(int32)					  },
rlm@1: 	{ &sound4ShiftIndex,		sizeof(int32)					  },
rlm@1: 	{ &sound4NSteps,			sizeof(int32)					  },
rlm@1: 	{ &sound4CountDown,			sizeof(int32)					  },
rlm@1: 	{ &sound4Continue,			sizeof(int32)					  },
rlm@1: 	{ &sound4EnvelopeVolume,	sizeof(int32)					  },
rlm@1: 	{ &sound4EnvelopeATL,		sizeof(int32)					  },
rlm@1: 	{ &sound4EnvelopeATLReload, sizeof(int32)					  },
rlm@1: 	{ &sound4EnvelopeUpDown,	sizeof(int32)					  },
rlm@1: 	{ &soundEnableFlag,			sizeof(int32)					  },
rlm@1: 	{ &soundControl,			sizeof(int32)					  },
rlm@1: 	{ &soundDSFifoAIndex,		sizeof(int32)					  },
rlm@1: 	{ &soundDSFifoACount,		sizeof(int32)					  },
rlm@1: 	{ &soundDSFifoAWriteIndex,	sizeof(int32)					  },
rlm@1: 	{ &soundDSAEnabled,			sizeof(bool8)					  },
rlm@1: 	{ &soundDSATimer,			sizeof(int32)					  },
rlm@1: 	{ &soundDSFifoA[0],			32								  },
rlm@1: 	{ &soundDSAValue,			sizeof(u8)						  },
rlm@1: 	{ &soundDSFifoBIndex,		sizeof(int32)					  },
rlm@1: 	{ &soundDSFifoBCount,		sizeof(int32)					  },
rlm@1: 	{ &soundDSFifoBWriteIndex,	sizeof(int32)					  },
rlm@1: 	{ &soundDSBEnabled,			sizeof(int32)					  },
rlm@1: 	{ &soundDSBTimer,			sizeof(int32)					  },
rlm@1: 	{ &soundDSFifoB[0],			32								  },
rlm@1: 	{ &soundDSBValue_int32,		sizeof(int32)					  }, // save as int32 because of a mistake of the past.
rlm@1: 	{ &soundBuffer[0][0],		6 * 735							  },
rlm@1: 	{ &soundFinalWave[0],		2 * 735							  },
rlm@1: 	{ NULL,						0								  }
rlm@1: };
rlm@1: 
rlm@1: variable_desc soundSaveStructV2[] = {
rlm@1: 	{ &sound3WaveRam[0],   0x20							},
rlm@1: 	{ &sound3Bank,		   sizeof(int32)				},
rlm@1: 	{ &sound3DataSize,	   sizeof(int32)				},
rlm@1: 	{ &sound3ForcedOutput, sizeof(int32)				},
rlm@1: 	{ NULL,				   0							}
rlm@1: };
rlm@1: 
rlm@1: //variable_desc soundSaveStructV3[] = {
rlm@1: //  { &soundTicks, sizeof(soundtick_t) },
rlm@1: //  { &SOUND_CLOCK_TICKS, sizeof(soundtick_t) },
rlm@1: //  { &USE_TICKS_AS, sizeof(soundtick_t) },
rlm@1: //  { NULL, 0 }
rlm@1: //};
rlm@1: 
rlm@1: void soundEvent(u32 address, u8 data)
rlm@1: {
rlm@1: 	int freq = 0;
rlm@1: 
rlm@1: 	switch (address)
rlm@1: 	{
rlm@1: 	case NR10:
rlm@1: 		data &= 0x7f;
rlm@1: 		sound1SweepATL	  = sound1SweepATLReload = 344 * ((data >> 4) & 7);
rlm@1: 		sound1SweepSteps  = data & 7;
rlm@1: 		sound1SweepUpDown = data & 0x08;
rlm@1: 		sound1SweepStep	  = 0;
rlm@1: 		ioMem[address]	  = data;
rlm@1: 		break;
rlm@1: 	case NR11:
rlm@1: 		sound1Wave	   = soundWavePattern[data >> 6];
rlm@1: 		sound1ATL	   = 172 * (64 - (data & 0x3f));
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR12:
rlm@1: 		sound1EnvelopeUpDown	= data & 0x08;
rlm@1: 		sound1EnvelopeATLReload = 689 * (data & 7);
rlm@1: 		if ((data & 0xF8) == 0)
rlm@1: 			sound1EnvelopeVolume = 0;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR13:
rlm@1: 		freq	  = (((int)(ioMem[NR14] & 7)) << 8) | data;
rlm@1: 		sound1ATL = 172 * (64 - (ioMem[NR11] & 0x3f));
rlm@1: 		freq	  = 2048 - freq;
rlm@1: 		if (freq)
rlm@1: 		{
rlm@1: 			sound1Skip = SOUND_MAGIC / freq;
rlm@1: 		}
rlm@1: 		else
rlm@1: 			sound1Skip = 0;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR14:
rlm@1: 		data &= 0xC7;
rlm@1: 		freq = (((int)(data & 7) << 8) | ioMem[NR13]);
rlm@1: 		freq = 2048 - freq;
rlm@1: 		sound1ATL	   = 172 * (64 - (ioMem[NR11] & 0x3f));
rlm@1: 		sound1Continue = data & 0x40;
rlm@1: 		if (freq)
rlm@1: 		{
rlm@1: 			sound1Skip = SOUND_MAGIC / freq;
rlm@1: 		}
rlm@1: 		else
rlm@1: 			sound1Skip = 0;
rlm@1: 		if (data & 0x80)
rlm@1: 		{
rlm@1: 			ioMem[NR52] |= 1;
rlm@1: 			sound1EnvelopeVolume = ioMem[NR12] >> 4;
rlm@1: 			sound1EnvelopeUpDown = ioMem[NR12] & 0x08;
rlm@1: 			sound1ATL = 172 * (64 - (ioMem[NR11] & 0x3f));
rlm@1: 			sound1EnvelopeATLReload = sound1EnvelopeATL = 689 * (ioMem[NR12] & 7);
rlm@1: 			sound1SweepATL			= sound1SweepATLReload = 344 * ((ioMem[NR10] >> 4) & 7);
rlm@1: 			sound1SweepSteps		= ioMem[NR10] & 7;
rlm@1: 			sound1SweepUpDown		= ioMem[NR10] & 0x08;
rlm@1: 			sound1SweepStep			= 0;
rlm@1: 
rlm@1: 			sound1Index = 0;
rlm@1: 			sound1On	= 1;
rlm@1: 		}
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR21:
rlm@1: 		sound2Wave	   = soundWavePattern[data >> 6];
rlm@1: 		sound2ATL	   = 172 * (64 - (data & 0x3f));
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR22:
rlm@1: 		sound2EnvelopeUpDown	= data & 0x08;
rlm@1: 		sound2EnvelopeATLReload = 689 * (data & 7);
rlm@1: 		if ((data & 0xF8) == 0)
rlm@1: 			sound2EnvelopeVolume = 0;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR23:
rlm@1: 		freq	  = (((int)(ioMem[NR24] & 7)) << 8) | data;
rlm@1: 		sound2ATL = 172 * (64 - (ioMem[NR21] & 0x3f));
rlm@1: 		freq	  = 2048 - freq;
rlm@1: 		if (freq)
rlm@1: 		{
rlm@1: 			sound2Skip = SOUND_MAGIC / freq;
rlm@1: 		}
rlm@1: 		else
rlm@1: 			sound2Skip = 0;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR24:
rlm@1: 		data &= 0xC7;
rlm@1: 		freq = (((int)(data & 7) << 8) | ioMem[NR23]);
rlm@1: 		freq = 2048 - freq;
rlm@1: 		sound2ATL	   = 172 * (64 - (ioMem[NR21] & 0x3f));
rlm@1: 		sound2Continue = data & 0x40;
rlm@1: 		if (freq)
rlm@1: 		{
rlm@1: 			sound2Skip = SOUND_MAGIC / freq;
rlm@1: 		}
rlm@1: 		else
rlm@1: 			sound2Skip = 0;
rlm@1: 		if (data & 0x80)
rlm@1: 		{
rlm@1: 			ioMem[NR52] |= 2;
rlm@1: 			sound2EnvelopeVolume = ioMem[NR22] >> 4;
rlm@1: 			sound2EnvelopeUpDown = ioMem[NR22] & 0x08;
rlm@1: 			sound2ATL = 172 * (64 - (ioMem[NR21] & 0x3f));
rlm@1: 			sound2EnvelopeATLReload = sound2EnvelopeATL = 689 * (ioMem[NR22] & 7);
rlm@1: 
rlm@1: 			sound2Index = 0;
rlm@1: 			sound2On	= 1;
rlm@1: 		}
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR30:
rlm@1: 		data &= 0xe0;
rlm@1: 		if (!(data & 0x80))
rlm@1: 		{
rlm@1: 			ioMem[NR52] &= 0xfb;
rlm@1: 			sound3On	 = 0;
rlm@1: 		}
rlm@1: 		if (((data >> 6) & 1) != sound3Bank)
rlm@1: 			memcpy(&ioMem[0x90], &sound3WaveRam[(((data >> 6) & 1) * 0x10) ^ 0x10],
rlm@1: 			       0x10);
rlm@1: 		sound3Bank	   = (data >> 6) & 1;
rlm@1: 		sound3DataSize = (data >> 5) & 1;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR31:
rlm@1: 		sound3ATL	   = 172 * (256 - data);
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR32:
rlm@1: 		data &= 0xe0;
rlm@1: 		sound3OutputLevel  = (data >> 5) & 3;
rlm@1: 		sound3ForcedOutput = (data >> 7) & 1;
rlm@1: 		ioMem[address]	   = data;
rlm@1: 		break;
rlm@1: 	case NR33:
rlm@1: 		freq = 2048 - (((int)(ioMem[NR34] & 7) << 8) | data);
rlm@1: 		if (freq)
rlm@1: 		{
rlm@1: 			sound3Skip = SOUND_MAGIC_2 / freq;
rlm@1: 		}
rlm@1: 		else
rlm@1: 			sound3Skip = 0;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR34:
rlm@1: 		data &= 0xc7;
rlm@1: 		freq  = 2048 - (((data & 7) << 8) | (int)ioMem[NR33]);
rlm@1: 		if (freq)
rlm@1: 		{
rlm@1: 			sound3Skip = SOUND_MAGIC_2 / freq;
rlm@1: 		}
rlm@1: 		else
rlm@1: 		{
rlm@1: 			sound3Skip = 0;
rlm@1: 		}
rlm@1: 		sound3Continue = data & 0x40;
rlm@1: 		if ((data & 0x80) && (ioMem[NR30] & 0x80))
rlm@1: 		{
rlm@1: 			ioMem[NR52] |= 4;
rlm@1: 			sound3ATL	 = 172 * (256 - ioMem[NR31]);
rlm@1: 			sound3Index	 = 0;
rlm@1: 			sound3On	 = 1;
rlm@1: 		}
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR41:
rlm@1: 		data &= 0x3f;
rlm@1: 		sound4ATL	   = 172 * (64 - (data & 0x3f));
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR42:
rlm@1: 		sound4EnvelopeUpDown	= data & 0x08;
rlm@1: 		sound4EnvelopeATLReload = 689 * (data & 7);
rlm@1: 		if ((data & 0xF8) == 0)
rlm@1: 			sound4EnvelopeVolume = 0;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR43:
rlm@1: 		freq		 = soundFreqRatio[data & 7];
rlm@1: 		sound4NSteps = data & 0x08;
rlm@1: 
rlm@1: 		sound4Skip = freq * NOISE_MAGIC;
rlm@1: 
rlm@1: 		sound4Clock = data >> 4;
rlm@1: 
rlm@1: 		freq = freq / soundShiftClock[sound4Clock];
rlm@1: 
rlm@1: 		sound4ShiftSkip = freq * NOISE_MAGIC;
rlm@1: 		ioMem[address]	= data;
rlm@1: 		break;
rlm@1: 	case NR44:
rlm@1: 		data &= 0xc0;
rlm@1: 		sound4Continue = data & 0x40;
rlm@1: 		if (data & 0x80)
rlm@1: 		{
rlm@1: 			ioMem[NR52] |= 8;
rlm@1: 			sound4EnvelopeVolume = ioMem[NR42] >> 4;
rlm@1: 			sound4EnvelopeUpDown = ioMem[NR42] & 0x08;
rlm@1: 			sound4ATL = 172 * (64 - (ioMem[NR41] & 0x3f));
rlm@1: 			sound4EnvelopeATLReload = sound4EnvelopeATL = 689 * (ioMem[NR42] & 7);
rlm@1: 
rlm@1: 			sound4On = 1;
rlm@1: 
rlm@1: 			sound4Index		 = 0;
rlm@1: 			sound4ShiftIndex = 0;
rlm@1: 
rlm@1: 			freq = soundFreqRatio[ioMem[NR43] & 7];
rlm@1: 
rlm@1: 			sound4Skip = freq * NOISE_MAGIC;
rlm@1: 
rlm@1: 			sound4NSteps = ioMem[NR43] & 0x08;
rlm@1: 
rlm@1: 			freq = freq / soundShiftClock[ioMem[NR43] >> 4];
rlm@1: 
rlm@1: 			sound4ShiftSkip = freq * NOISE_MAGIC;
rlm@1: 			if (sound4NSteps)
rlm@1: 				sound4ShiftRight = 0x7f;
rlm@1: 			else
rlm@1: 				sound4ShiftRight = 0x7fff;
rlm@1: 		}
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR50:
rlm@1: 		data &= 0x77;
rlm@1: 		soundLevel1	   = data & 7;
rlm@1: 		soundLevel2	   = (data >> 4) & 7;
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR51:
rlm@1: 		soundBalance   = (data & soundEnableFlag);
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case NR52:
rlm@1: 		data &= 0x80;
rlm@1: 		data |= ioMem[NR52] & 15;
rlm@1: 		soundMasterOn = data & 0x80;
rlm@1: 		if (!(data & 0x80))
rlm@1: 		{
rlm@1: 			sound1On = 0;
rlm@1: 			sound2On = 0;
rlm@1: 			sound3On = 0;
rlm@1: 			sound4On = 0;
rlm@1: 		}
rlm@1: 		ioMem[address] = data;
rlm@1: 		break;
rlm@1: 	case 0x90:
rlm@1: 	case 0x91:
rlm@1: 	case 0x92:
rlm@1: 	case 0x93:
rlm@1: 	case 0x94:
rlm@1: 	case 0x95:
rlm@1: 	case 0x96:
rlm@1: 	case 0x97:
rlm@1: 	case 0x98:
rlm@1: 	case 0x99:
rlm@1: 	case 0x9a:
rlm@1: 	case 0x9b:
rlm@1: 	case 0x9c:
rlm@1: 	case 0x9d:
rlm@1: 	case 0x9e:
rlm@1: 	case 0x9f:
rlm@1: 		sound3WaveRam[(sound3Bank * 0x10) ^ 0x10 + (address & 15)] = data;
rlm@1: 		break;
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundEvent(u32 address, u16 data)
rlm@1: {
rlm@1: 	switch (address)
rlm@1: 	{
rlm@1: 	case SGCNT0_H:
rlm@1: 		data		&= 0xFF0F;
rlm@1: 		soundControl = data & 0x770F;;
rlm@1: 		if (data & 0x0800)
rlm@1: 		{
rlm@1: 			soundDSFifoAWriteIndex = 0;
rlm@1: 			soundDSFifoAIndex	   = 0;
rlm@1: 			soundDSFifoACount	   = 0;
rlm@1: 			soundDSAValue = 0;
rlm@1: 			memset(soundDSFifoA, 0, 32);
rlm@1: 		}
rlm@1: 		soundDSAEnabled = (data & 0x0300) ? true : false;
rlm@1: 		soundDSATimer	= (data & 0x0400) ? 1 : 0;
rlm@1: 		if (data & 0x8000)
rlm@1: 		{
rlm@1: 			soundDSFifoBWriteIndex = 0;
rlm@1: 			soundDSFifoBIndex	   = 0;
rlm@1: 			soundDSFifoBCount	   = 0;
rlm@1: 			soundDSBValue = 0;
rlm@1: 			memset(soundDSFifoB, 0, 32);
rlm@1: 		}
rlm@1: 		soundDSBEnabled = (data & 0x3000) ? true : false;
rlm@1: 		soundDSBTimer	= (data & 0x4000) ? 1 : 0;
rlm@1: 		*((u16 *)&ioMem[address]) = data;
rlm@1: 		break;
rlm@1: 	case FIFOA_L:
rlm@1: 	case FIFOA_H:
rlm@1: 		soundDSFifoA[soundDSFifoAWriteIndex++] = data & 0xFF;
rlm@1: 		soundDSFifoA[soundDSFifoAWriteIndex++] = data >> 8;
rlm@1: 		soundDSFifoACount		 += 2;
rlm@1: 		soundDSFifoAWriteIndex	 &= 31;
rlm@1: 		*((u16 *)&ioMem[address]) = data;
rlm@1: 		break;
rlm@1: 	case FIFOB_L:
rlm@1: 	case FIFOB_H:
rlm@1: 		soundDSFifoB[soundDSFifoBWriteIndex++] = data & 0xFF;
rlm@1: 		soundDSFifoB[soundDSFifoBWriteIndex++] = data >> 8;
rlm@1: 		soundDSFifoBCount		 += 2;
rlm@1: 		soundDSFifoBWriteIndex	 &= 31;
rlm@1: 		*((u16 *)&ioMem[address]) = data;
rlm@1: 		break;
rlm@1: 	case 0x88:
rlm@1: 		data &= 0xC3FF;
rlm@1: 		*((u16 *)&ioMem[address]) = data;
rlm@1: 		break;
rlm@1: 	case 0x90:
rlm@1: 	case 0x92:
rlm@1: 	case 0x94:
rlm@1: 	case 0x96:
rlm@1: 	case 0x98:
rlm@1: 	case 0x9a:
rlm@1: 	case 0x9c:
rlm@1: 	case 0x9e:
rlm@1: 		*((u16 *)&sound3WaveRam[(sound3Bank * 0x10) ^ 0x10 + (address & 14)]) = data;
rlm@1: 		*((u16 *)&ioMem[address]) = data;
rlm@1: 		break;
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundChannel1()
rlm@1: {
rlm@1: 	int vol = sound1EnvelopeVolume;
rlm@1: 
rlm@1: 	int freq  = 0;
rlm@1: 	int value = 0;
rlm@1: 
rlm@1: 	if (sound1On && (sound1ATL || !sound1Continue))
rlm@1: 	{
rlm@1: 		sound1Index += soundQuality * sound1Skip;
rlm@1: 		sound1Index &= 0x1fffffff;
rlm@1: 
rlm@1: 		value = ((s8)sound1Wave[sound1Index >> 24]) * vol;
rlm@1: 	}
rlm@1: 
rlm@1: 	soundBuffer[0][soundIndex] = value;
rlm@1: 
rlm@1: 	if (sound1On)
rlm@1: 	{
rlm@1: 		if (sound1ATL)
rlm@1: 		{
rlm@1: 			sound1ATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound1ATL <= 0 && sound1Continue)
rlm@1: 			{
rlm@1: 				ioMem[NR52] &= 0xfe;
rlm@1: 				sound1On	 = 0;
rlm@1: 			}
rlm@1: 		}
rlm@1: 
rlm@1: 		if (sound1EnvelopeATL)
rlm@1: 		{
rlm@1: 			sound1EnvelopeATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound1EnvelopeATL <= 0)
rlm@1: 			{
rlm@1: 				if (sound1EnvelopeUpDown)
rlm@1: 				{
rlm@1: 					if (sound1EnvelopeVolume < 15)
rlm@1: 						sound1EnvelopeVolume++;
rlm@1: 				}
rlm@1: 				else
rlm@1: 				{
rlm@1: 					if (sound1EnvelopeVolume)
rlm@1: 						sound1EnvelopeVolume--;
rlm@1: 				}
rlm@1: 
rlm@1: 				sound1EnvelopeATL += sound1EnvelopeATLReload;
rlm@1: 			}
rlm@1: 		}
rlm@1: 
rlm@1: 		if (sound1SweepATL)
rlm@1: 		{
rlm@1: 			sound1SweepATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound1SweepATL <= 0)
rlm@1: 			{
rlm@1: 				freq = (((int)(ioMem[NR14] & 7) << 8) | ioMem[NR13]);
rlm@1: 
rlm@1: 				int updown = 1;
rlm@1: 
rlm@1: 				if (sound1SweepUpDown)
rlm@1: 					updown = -1;
rlm@1: 
rlm@1: 				int newfreq = 0;
rlm@1: 				if (sound1SweepSteps)
rlm@1: 				{
rlm@1: 					newfreq = freq + updown * freq / (1 << sound1SweepSteps);
rlm@1: 					if (newfreq == freq)
rlm@1: 						newfreq = 0;
rlm@1: 				}
rlm@1: 				else
rlm@1: 					newfreq = freq;
rlm@1: 
rlm@1: 				if (newfreq < 0)
rlm@1: 				{
rlm@1: 					sound1SweepATL += sound1SweepATLReload;
rlm@1: 				}
rlm@1: 				else if (newfreq > 2047)
rlm@1: 				{
rlm@1: 					sound1SweepATL = 0;
rlm@1: 					sound1On	   = 0;
rlm@1: 					ioMem[NR52]	  &= 0xfe;
rlm@1: 				}
rlm@1: 				else
rlm@1: 				{
rlm@1: 					sound1SweepATL += sound1SweepATLReload;
rlm@1: 					sound1Skip		= SOUND_MAGIC / (2048 - newfreq);
rlm@1: 
rlm@1: 					ioMem[NR13] = newfreq & 0xff;
rlm@1: 					ioMem[NR14] = (ioMem[NR14] & 0xf8) | ((newfreq >> 8) & 7);
rlm@1: 				}
rlm@1: 			}
rlm@1: 		}
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundChannel2()
rlm@1: {
rlm@1: 	//  int freq = 0;
rlm@1: 	int vol = sound2EnvelopeVolume;
rlm@1: 
rlm@1: 	int value = 0;
rlm@1: 
rlm@1: 	if (sound2On && (sound2ATL || !sound2Continue))
rlm@1: 	{
rlm@1: 		sound2Index += soundQuality * sound2Skip;
rlm@1: 		sound2Index &= 0x1fffffff;
rlm@1: 
rlm@1: 		value = ((s8)sound2Wave[sound2Index >> 24]) * vol;
rlm@1: 	}
rlm@1: 
rlm@1: 	soundBuffer[1][soundIndex] = value;
rlm@1: 
rlm@1: 	if (sound2On)
rlm@1: 	{
rlm@1: 		if (sound2ATL)
rlm@1: 		{
rlm@1: 			sound2ATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound2ATL <= 0 && sound2Continue)
rlm@1: 			{
rlm@1: 				ioMem[NR52] &= 0xfd;
rlm@1: 				sound2On	 = 0;
rlm@1: 			}
rlm@1: 		}
rlm@1: 
rlm@1: 		if (sound2EnvelopeATL)
rlm@1: 		{
rlm@1: 			sound2EnvelopeATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound2EnvelopeATL <= 0)
rlm@1: 			{
rlm@1: 				if (sound2EnvelopeUpDown)
rlm@1: 				{
rlm@1: 					if (sound2EnvelopeVolume < 15)
rlm@1: 						sound2EnvelopeVolume++;
rlm@1: 				}
rlm@1: 				else
rlm@1: 				{
rlm@1: 					if (sound2EnvelopeVolume)
rlm@1: 						sound2EnvelopeVolume--;
rlm@1: 				}
rlm@1: 				sound2EnvelopeATL += sound2EnvelopeATLReload;
rlm@1: 			}
rlm@1: 		}
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundChannel3()
rlm@1: {
rlm@1: 	int value = sound3Last;
rlm@1: 
rlm@1: 	if (sound3On && (sound3ATL || !sound3Continue))
rlm@1: 	{
rlm@1: 		sound3Index += soundQuality * sound3Skip;
rlm@1: 		if (sound3DataSize)
rlm@1: 		{
rlm@1: 			sound3Index &= 0x3fffffff;
rlm@1: 			value		 = sound3WaveRam[sound3Index >> 25];
rlm@1: 		}
rlm@1: 		else
rlm@1: 		{
rlm@1: 			sound3Index &= 0x1fffffff;
rlm@1: 			value		 = sound3WaveRam[sound3Bank * 0x10 + (sound3Index >> 25)];
rlm@1: 		}
rlm@1: 
rlm@1: 		if ((sound3Index & 0x01000000))
rlm@1: 		{
rlm@1: 			value &= 0x0f;
rlm@1: 		}
rlm@1: 		else
rlm@1: 		{
rlm@1: 			value >>= 4;
rlm@1: 		}
rlm@1: 
rlm@1: 		value -= 8;
rlm@1: 		value *= 2;
rlm@1: 
rlm@1: 		if (sound3ForcedOutput)
rlm@1: 		{
rlm@1: 			value = ((value >> 1) + value) >> 1;
rlm@1: 		}
rlm@1: 		else
rlm@1: 		{
rlm@1: 			switch (sound3OutputLevel)
rlm@1: 			{
rlm@1: 			case 0:
rlm@1: 				value = 0;
rlm@1: 				break;
rlm@1: 			case 1:
rlm@1: 				break;
rlm@1: 			case 2:
rlm@1: 				value = (value >> 1);
rlm@1: 				break;
rlm@1: 			case 3:
rlm@1: 				value = (value >> 2);
rlm@1: 				break;
rlm@1: 			}
rlm@1: 		}
rlm@1: 		//value += 1;
rlm@1: 		sound3Last = value;
rlm@1: 	}
rlm@1: 
rlm@1: 	soundBuffer[2][soundIndex] = value;
rlm@1: 
rlm@1: 	if (sound3On)
rlm@1: 	{
rlm@1: 		if (sound3ATL)
rlm@1: 		{
rlm@1: 			sound3ATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound3ATL <= 0 && sound3Continue)
rlm@1: 			{
rlm@1: 				ioMem[NR52] &= 0xfb;
rlm@1: 				sound3On	 = 0;
rlm@1: 			}
rlm@1: 		}
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundChannel4()
rlm@1: {
rlm@1: 	int vol = sound4EnvelopeVolume;
rlm@1: 
rlm@1: 	int value = 0;
rlm@1: 
rlm@1: 	if (sound4Clock <= 0x0c)
rlm@1: 	{
rlm@1: 		if (sound4On && (sound4ATL || !sound4Continue))
rlm@1: 		{
rlm@1: 	  #define NOISE_ONE_SAMP_SCALE  0x200000
rlm@1: 
rlm@1: 			sound4Index		 += soundQuality * sound4Skip;
rlm@1: 			sound4ShiftIndex += soundQuality * sound4ShiftSkip;
rlm@1: 
rlm@1: 			if (sound4NSteps)
rlm@1: 			{
rlm@1: 				while (sound4ShiftIndex >= NOISE_ONE_SAMP_SCALE)
rlm@1: 				{
rlm@1: 					sound4ShiftRight = (((sound4ShiftRight << 6) ^
rlm@1: 					                     (sound4ShiftRight << 5)) & 0x40) |
rlm@1: 					                   (sound4ShiftRight >> 1);
rlm@1: 					sound4ShiftIndex -= NOISE_ONE_SAMP_SCALE;
rlm@1: 				}
rlm@1: 			}
rlm@1: 			else
rlm@1: 			{
rlm@1: 				while (sound4ShiftIndex >= NOISE_ONE_SAMP_SCALE)
rlm@1: 				{
rlm@1: 					sound4ShiftRight = (((sound4ShiftRight << 14) ^
rlm@1: 					                     (sound4ShiftRight << 13)) & 0x4000) |
rlm@1: 					                   (sound4ShiftRight >> 1);
rlm@1: 
rlm@1: 					sound4ShiftIndex -= NOISE_ONE_SAMP_SCALE;
rlm@1: 				}
rlm@1: 			}
rlm@1: 
rlm@1: 			sound4Index		 %= NOISE_ONE_SAMP_SCALE;
rlm@1: 			sound4ShiftIndex %= NOISE_ONE_SAMP_SCALE;
rlm@1: 
rlm@1: 			value = ((sound4ShiftRight & 1) * 2 - 1) * vol;
rlm@1: 		}
rlm@1: 		else
rlm@1: 		{
rlm@1: 			value = 0;
rlm@1: 		}
rlm@1: 	}
rlm@1: 
rlm@1: 	soundBuffer[3][soundIndex] = value;
rlm@1: 
rlm@1: 	if (sound4On)
rlm@1: 	{
rlm@1: 		if (sound4ATL)
rlm@1: 		{
rlm@1: 			sound4ATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound4ATL <= 0 && sound4Continue)
rlm@1: 			{
rlm@1: 				ioMem[NR52] &= 0xfd;
rlm@1: 				sound4On	 = 0;
rlm@1: 			}
rlm@1: 		}
rlm@1: 
rlm@1: 		if (sound4EnvelopeATL)
rlm@1: 		{
rlm@1: 			sound4EnvelopeATL -= soundQuality;
rlm@1: 
rlm@1: 			if (sound4EnvelopeATL <= 0)
rlm@1: 			{
rlm@1: 				if (sound4EnvelopeUpDown)
rlm@1: 				{
rlm@1: 					if (sound4EnvelopeVolume < 15)
rlm@1: 						sound4EnvelopeVolume++;
rlm@1: 				}
rlm@1: 				else
rlm@1: 				{
rlm@1: 					if (sound4EnvelopeVolume)
rlm@1: 						sound4EnvelopeVolume--;
rlm@1: 				}
rlm@1: 				sound4EnvelopeATL += sound4EnvelopeATLReload;
rlm@1: 			}
rlm@1: 		}
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundDirectSoundA()
rlm@1: {
rlm@1: 	soundBuffer[4][soundIndex] = soundDSAValue;
rlm@1: }
rlm@1: 
rlm@1: void soundDirectSoundATimer()
rlm@1: {
rlm@1: 	if (soundDSAEnabled)
rlm@1: 	{
rlm@1: 		if (soundDSFifoACount <= 16)
rlm@1: 		{
rlm@1: 			CPUCheckDMA(3, 2);
rlm@1: 			if (soundDSFifoACount <= 16)
rlm@1: 			{
rlm@1: 				soundEvent(FIFOA_L, (u16)0);
rlm@1: 				soundEvent(FIFOA_H, (u16)0);
rlm@1: 				soundEvent(FIFOA_L, (u16)0);
rlm@1: 				soundEvent(FIFOA_H, (u16)0);
rlm@1: 				soundEvent(FIFOA_L, (u16)0);
rlm@1: 				soundEvent(FIFOA_H, (u16)0);
rlm@1: 				soundEvent(FIFOA_L, (u16)0);
rlm@1: 				soundEvent(FIFOA_H, (u16)0);
rlm@1: 			}
rlm@1: 		}
rlm@1: 
rlm@1: 		soundDSAValue	  = (soundDSFifoA[soundDSFifoAIndex]);
rlm@1: 		soundDSFifoAIndex = (++soundDSFifoAIndex) & 31;
rlm@1: 		soundDSFifoACount--;
rlm@1: 	}
rlm@1: 	else
rlm@1: 		soundDSAValue = 0;
rlm@1: }
rlm@1: 
rlm@1: void soundDirectSoundB()
rlm@1: {
rlm@1: 	soundBuffer[5][soundIndex] = soundDSBValue;
rlm@1: }
rlm@1: 
rlm@1: void soundDirectSoundBTimer()
rlm@1: {
rlm@1: 	if (soundDSBEnabled)
rlm@1: 	{
rlm@1: 		if (soundDSFifoBCount <= 16)
rlm@1: 		{
rlm@1: 			CPUCheckDMA(3, 4);
rlm@1: 			if (soundDSFifoBCount <= 16)
rlm@1: 			{
rlm@1: 				soundEvent(FIFOB_L, (u16)0);
rlm@1: 				soundEvent(FIFOB_H, (u16)0);
rlm@1: 				soundEvent(FIFOB_L, (u16)0);
rlm@1: 				soundEvent(FIFOB_H, (u16)0);
rlm@1: 				soundEvent(FIFOB_L, (u16)0);
rlm@1: 				soundEvent(FIFOB_H, (u16)0);
rlm@1: 				soundEvent(FIFOB_L, (u16)0);
rlm@1: 				soundEvent(FIFOB_H, (u16)0);
rlm@1: 			}
rlm@1: 		}
rlm@1: 
rlm@1: 		soundDSBValue	  = (soundDSFifoB[soundDSFifoBIndex]);
rlm@1: 		soundDSFifoBIndex = (++soundDSFifoBIndex) & 31;
rlm@1: 		soundDSFifoBCount--;
rlm@1: 	}
rlm@1: 	else
rlm@1: 	{
rlm@1: 		soundDSBValue = 0;
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundTimerOverflow(int timer)
rlm@1: {
rlm@1: 	if (soundDSAEnabled && (soundDSATimer == timer))
rlm@1: 	{
rlm@1: 		soundDirectSoundATimer();
rlm@1: 	}
rlm@1: 	if (soundDSBEnabled && (soundDSBTimer == timer))
rlm@1: 	{
rlm@1: 		soundDirectSoundBTimer();
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundMix()
rlm@1: {
rlm@1: 	int res		 = 0;
rlm@1: 	int cgbRes	 = 0;
rlm@1: 	int ratio	 = ioMem[0x82] & 3;
rlm@1: 	int dsaRatio = ioMem[0x82] & 4;
rlm@1: 	int dsbRatio = ioMem[0x82] & 8;
rlm@1: 
rlm@1: 	if (ioMem)
rlm@1: 		soundBalance = (ioMem[NR51] & soundEnableFlag & ~soundMutedFlag);
rlm@1: 
rlm@1: 	if (soundBalance & 16)
rlm@1: 	{
rlm@1: 		cgbRes = ((s8)soundBuffer[0][soundIndex]);
rlm@1: 	}
rlm@1: 	if (soundBalance & 32)
rlm@1: 	{
rlm@1: 		cgbRes += ((s8)soundBuffer[1][soundIndex]);
rlm@1: 	}
rlm@1: 	if (soundBalance & 64)
rlm@1: 	{
rlm@1: 		cgbRes += ((s8)soundBuffer[2][soundIndex]);
rlm@1: 	}
rlm@1: 	if (soundBalance & 128)
rlm@1: 	{
rlm@1: 		cgbRes += ((s8)soundBuffer[3][soundIndex]);
rlm@1: 	}
rlm@1: 
rlm@1: 	if ((soundControl & 0x0200) && (soundEnableFlag & 0x100))
rlm@1: 	{
rlm@1: 		if (!dsaRatio)
rlm@1: 			res = ((s8)soundBuffer[4][soundIndex]) >> 1;
rlm@1: 		else
rlm@1: 			res = ((s8)soundBuffer[4][soundIndex]);
rlm@1: 	}
rlm@1: 
rlm@1: 	if ((soundControl & 0x2000) && (soundEnableFlag & 0x200))
rlm@1: 	{
rlm@1: 		if (!dsbRatio)
rlm@1: 			res += ((s8)soundBuffer[5][soundIndex]) >> 1;
rlm@1: 		else
rlm@1: 			res += ((s8)soundBuffer[5][soundIndex]);
rlm@1: 	}
rlm@1: 
rlm@1: 	res	   = (res * 170);
rlm@1: 	cgbRes = (cgbRes * 52 * soundLevel1);
rlm@1: 
rlm@1: 	switch (ratio)
rlm@1: 	{
rlm@1: 	case 0:
rlm@1: 	case 3: // prohibited, but 25%
rlm@1: 		cgbRes >>= 2;
rlm@1: 		break;
rlm@1: 	case 1:
rlm@1: 		cgbRes >>= 1;
rlm@1: 		break;
rlm@1: 	case 2:
rlm@1: 		break;
rlm@1: 	}
rlm@1: 
rlm@1: 	res += cgbRes;
rlm@1: 
rlm@1: 	if (soundEcho)
rlm@1: 	{
rlm@1: 		res *= 2;
rlm@1: 		res += soundFilter[soundEchoIndex];
rlm@1: 		res /= 2;
rlm@1: 		soundFilter[soundEchoIndex++] = res;
rlm@1: 	}
rlm@1: 
rlm@1: 	if (soundLowPass)
rlm@1: 	{
rlm@1: 		soundLeft[4] = soundLeft[3];
rlm@1: 		soundLeft[3] = soundLeft[2];
rlm@1: 		soundLeft[2] = soundLeft[1];
rlm@1: 		soundLeft[1] = soundLeft[0];
rlm@1: 		soundLeft[0] = res;
rlm@1: 		res = (soundLeft[4] + 2 * soundLeft[3] + 8 * soundLeft[2] + 2 * soundLeft[1] +
rlm@1: 		       soundLeft[0]) / 14;
rlm@1: 	}
rlm@1: 
rlm@1: 	bool noSpecialEffects = false;
rlm@1: #if (defined(WIN32) && !defined(SDL))
rlm@1: 	if (theApp.soundRecording || theApp.aviRecording || theApp.nvAudioLog)
rlm@1: 		noSpecialEffects = true;
rlm@1: #endif
rlm@1: 
rlm@1: 	if (!noSpecialEffects)
rlm@1: 	{
rlm@1: 		switch (soundVolume)
rlm@1: 		{
rlm@1: 		case 0:
rlm@1: 		case 1:
rlm@1: 		case 2:
rlm@1: 		case 3:
rlm@1: 			res *= (soundVolume + 1);
rlm@1: 			break;
rlm@1: 		case 4:
rlm@1: 			res >>= 2;
rlm@1: 			break;
rlm@1: 		case 5:
rlm@1: 			res >>= 1;
rlm@1: 			break;
rlm@1: 		}
rlm@1: 	}
rlm@1: 
rlm@1: 	if (res > 32767)
rlm@1: 		res = 32767;
rlm@1: 	if (res < -32768)
rlm@1: 		res = -32768;
rlm@1: 
rlm@1: 	if (soundReverse && !noSpecialEffects)
rlm@1: 	{
rlm@1: 		soundFinalWave[++soundBufferIndex] = res;
rlm@1: 		if ((soundFrameSoundWritten + 1) >= countof(soundFrameSound))
rlm@1: 			/*assert(false)*/;
rlm@1: 		else
rlm@1: 			soundFrameSound[++soundFrameSoundWritten] = res;
rlm@1: 	}
rlm@1: 	else
rlm@1: 	{
rlm@1: 		soundFinalWave[soundBufferIndex++] = res;
rlm@1: 		if (soundFrameSoundWritten >= countof(soundFrameSound))
rlm@1: 			/*assert(false)*/;
rlm@1: 		else
rlm@1: 			soundFrameSound[soundFrameSoundWritten++] = res;
rlm@1: 	}
rlm@1: 
rlm@1: 	res	   = 0;
rlm@1: 	cgbRes = 0;
rlm@1: 
rlm@1: 	if (soundBalance & 1)
rlm@1: 	{
rlm@1: 		cgbRes = ((s8)soundBuffer[0][soundIndex]);
rlm@1: 	}
rlm@1: 	if (soundBalance & 2)
rlm@1: 	{
rlm@1: 		cgbRes += ((s8)soundBuffer[1][soundIndex]);
rlm@1: 	}
rlm@1: 	if (soundBalance & 4)
rlm@1: 	{
rlm@1: 		cgbRes += ((s8)soundBuffer[2][soundIndex]);
rlm@1: 	}
rlm@1: 	if (soundBalance & 8)
rlm@1: 	{
rlm@1: 		cgbRes += ((s8)soundBuffer[3][soundIndex]);
rlm@1: 	}
rlm@1: 
rlm@1: 	if ((soundControl & 0x0100) && (soundEnableFlag & 0x100))
rlm@1: 	{
rlm@1: 		if (!dsaRatio)
rlm@1: 			res = ((s8)soundBuffer[4][soundIndex]) >> 1;
rlm@1: 		else
rlm@1: 			res = ((s8)soundBuffer[4][soundIndex]);
rlm@1: 	}
rlm@1: 
rlm@1: 	if ((soundControl & 0x1000) && (soundEnableFlag & 0x200))
rlm@1: 	{
rlm@1: 		if (!dsbRatio)
rlm@1: 			res += ((s8)soundBuffer[5][soundIndex]) >> 1;
rlm@1: 		else
rlm@1: 			res += ((s8)soundBuffer[5][soundIndex]);
rlm@1: 	}
rlm@1: 
rlm@1: 	res	   = (res * 170);
rlm@1: 	cgbRes = (cgbRes * 52 * soundLevel1);
rlm@1: 
rlm@1: 	switch (ratio)
rlm@1: 	{
rlm@1: 	case 0:
rlm@1: 	case 3: // prohibited, but 25%
rlm@1: 		cgbRes >>= 2;
rlm@1: 		break;
rlm@1: 	case 1:
rlm@1: 		cgbRes >>= 1;
rlm@1: 		break;
rlm@1: 	case 2:
rlm@1: 		break;
rlm@1: 	}
rlm@1: 
rlm@1: 	res += cgbRes;
rlm@1: 
rlm@1: 	if (soundEcho)
rlm@1: 	{
rlm@1: 		res *= 2;
rlm@1: 		res += soundFilter[soundEchoIndex];
rlm@1: 		res /= 2;
rlm@1: 		soundFilter[soundEchoIndex++] = res;
rlm@1: 
rlm@1: 		if (soundEchoIndex >= 4000)
rlm@1: 			soundEchoIndex = 0;
rlm@1: 	}
rlm@1: 
rlm@1: 	if (soundLowPass)
rlm@1: 	{
rlm@1: 		soundRight[4] = soundRight[3];
rlm@1: 		soundRight[3] = soundRight[2];
rlm@1: 		soundRight[2] = soundRight[1];
rlm@1: 		soundRight[1] = soundRight[0];
rlm@1: 		soundRight[0] = res;
rlm@1: 		res = (soundRight[4] + 2 * soundRight[3] + 8 * soundRight[2] + 2 * soundRight[1] +
rlm@1: 		       soundRight[0]) / 14;
rlm@1: 	}
rlm@1: 
rlm@1: 	if (!noSpecialEffects)
rlm@1: 	{
rlm@1: 		switch (soundVolume)
rlm@1: 		{
rlm@1: 		case 0:
rlm@1: 		case 1:
rlm@1: 		case 2:
rlm@1: 		case 3:
rlm@1: 			res *= (soundVolume + 1);
rlm@1: 			break;
rlm@1: 		case 4:
rlm@1: 			res >>= 2;
rlm@1: 			break;
rlm@1: 		case 5:
rlm@1: 			res >>= 1;
rlm@1: 			break;
rlm@1: 		}
rlm@1: 	}
rlm@1: 
rlm@1: 	if (res > 32767)
rlm@1: 		res = 32767;
rlm@1: 	if (res < -32768)
rlm@1: 		res = -32768;
rlm@1: 
rlm@1: 	if (soundReverse && !noSpecialEffects)
rlm@1: 	{
rlm@1: 		soundFinalWave[-1 + soundBufferIndex++]		   = res;
rlm@1: 		if ((soundFrameSoundWritten) >= countof(soundFrameSound))
rlm@1: 			/*assert(false)*/;
rlm@1: 		else
rlm@1: 			soundFrameSound[-1 + soundFrameSoundWritten++] = res;
rlm@1: 	}
rlm@1: 	else
rlm@1: 	{
rlm@1: 		soundFinalWave[soundBufferIndex++]			  = res;
rlm@1: 		if ((soundFrameSoundWritten + 1) >= countof(soundFrameSound))
rlm@1: 			/*assert(false)*/;
rlm@1: 		else
rlm@1: 			soundFrameSound[soundFrameSoundWritten++] = res;
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundTick()
rlm@1: {
rlm@1: 	if (systemSoundOn)
rlm@1: 	{
rlm@1: 		if (soundMasterOn && !stopState)
rlm@1: 		{
rlm@1: 			soundChannel1();
rlm@1: 			soundChannel2();
rlm@1: 			soundChannel3();
rlm@1: 			soundChannel4();
rlm@1: 			soundDirectSoundA();
rlm@1: 			soundDirectSoundB();
rlm@1: 			soundMix();
rlm@1: 		}
rlm@1: 		else
rlm@1: 		{
rlm@1: 			soundFinalWave[soundBufferIndex++] = 0;
rlm@1: 			soundFinalWave[soundBufferIndex++] = 0;
rlm@1: 			if ((soundFrameSoundWritten + 1) >= countof(soundFrameSound))
rlm@1: 				/*assert(false)*/;
rlm@1: 			else
rlm@1: 			{
rlm@1: 				soundFrameSound[soundFrameSoundWritten++] = 0;
rlm@1: 				soundFrameSound[soundFrameSoundWritten++] = 0;
rlm@1: 			}
rlm@1: 		}
rlm@1: 
rlm@1: 		soundIndex++;
rlm@1: 
rlm@1: 		if (2 * soundBufferIndex >= soundBufferLen)
rlm@1: 		{
rlm@1: 			if (systemSoundOn)
rlm@1: 			{
rlm@1: 				if (soundPaused)
rlm@1: 				{
rlm@1: 					soundResume();
rlm@1: 				}
rlm@1: 
rlm@1: 				systemSoundWriteToBuffer();
rlm@1: 			}
rlm@1: 			soundIndex		 = 0;
rlm@1: 			soundBufferIndex = 0;
rlm@1: 		}
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundShutdown()
rlm@1: {
rlm@1: 	systemSoundShutdown();
rlm@1: }
rlm@1: 
rlm@1: void soundPause()
rlm@1: {
rlm@1: 	systemSoundPause();
rlm@1: }
rlm@1: 
rlm@1: void soundResume()
rlm@1: {
rlm@1: 	systemSoundResume();
rlm@1: }
rlm@1: 
rlm@1: void soundEnableChannels(int channels)
rlm@1: {
rlm@1: 	int c = (channels & 0x0f) << 4;
rlm@1: 	soundEnableFlag |= ((channels & 0x30f) | c);
rlm@1: }
rlm@1: 
rlm@1: void soundDisableChannels(int channels)
rlm@1: {
rlm@1: 	int c = (channels & 0x0f) << 4;
rlm@1: 	soundEnableFlag &= ~((channels & 0x30f) | c);
rlm@1: }
rlm@1: 
rlm@1: int soundGetEnabledChannels()
rlm@1: {
rlm@1: 	return (soundEnableFlag & 0x30f);
rlm@1: }
rlm@1: 
rlm@1: #if 0
rlm@1: // unused
rlm@1: void soundMuteChannels(int channels)
rlm@1: {
rlm@1: 	soundMutedFlag |= channels & 0x30f;
rlm@1: }
rlm@1: 
rlm@1: void soundUnmuteChannels(int channels)
rlm@1: {
rlm@1: 	soundMutedFlag &= ~(channels & 0x30f);
rlm@1: }
rlm@1: 
rlm@1: int soundGetMutedChannels()
rlm@1: {
rlm@1: 	return (soundMutedFlag & 0x30f);
rlm@1: }
rlm@1: #endif
rlm@1: 
rlm@1: void soundReset()
rlm@1: {
rlm@1: 	systemSoundReset();
rlm@1: 
rlm@1: 	soundPaused		  = 1;
rlm@1: 	soundPlay		  = 0;
rlm@1: 	SOUND_CLOCK_TICKS = soundQuality * USE_TICKS_AS;
rlm@1: 	soundTicks		  = SOUND_CLOCK_TICKS;
rlm@1: 	soundNextPosition = 0;
rlm@1: 	soundMasterOn	  = 1;
rlm@1: 	soundIndex		  = 0;
rlm@1: 	soundBufferIndex  = 0;
rlm@1: 	soundLevel1		  = 7;
rlm@1: 	soundLevel2		  = 7;
rlm@1: 
rlm@1: 	sound1On = 0;
rlm@1: 	sound1ATL = 0;
rlm@1: 	sound1Skip = 0;
rlm@1: 	sound1Index = 0;
rlm@1: 	sound1Continue = 0;
rlm@1: 	sound1EnvelopeVolume	= 0;
rlm@1: 	sound1EnvelopeATL		= 0;
rlm@1: 	sound1EnvelopeUpDown	= 0;
rlm@1: 	sound1EnvelopeATLReload = 0;
rlm@1: 	sound1SweepATL			= 0;
rlm@1: 	sound1SweepATLReload	= 0;
rlm@1: 	sound1SweepSteps		= 0;
rlm@1: 	sound1SweepUpDown		= 0;
rlm@1: 	sound1SweepStep			= 0;
rlm@1: 	sound1Wave				= soundWavePattern[2];
rlm@1: 
rlm@1: 	sound2On = 0;
rlm@1: 	sound2ATL = 0;
rlm@1: 	sound2Skip = 0;
rlm@1: 	sound2Index = 0;
rlm@1: 	sound2Continue = 0;
rlm@1: 	sound2EnvelopeVolume	= 0;
rlm@1: 	sound2EnvelopeATL		= 0;
rlm@1: 	sound2EnvelopeUpDown	= 0;
rlm@1: 	sound2EnvelopeATLReload = 0;
rlm@1: 	sound2Wave				= soundWavePattern[2];
rlm@1: 
rlm@1: 	sound3On = 0;
rlm@1: 	sound3ATL = 0;
rlm@1: 	sound3Skip		   = 0;
rlm@1: 	sound3Index		   = 0;
rlm@1: 	sound3Continue	   = 0;
rlm@1: 	sound3OutputLevel  = 0;
rlm@1: 	sound3Last		   = 0;
rlm@1: 	sound3Bank		   = 0;
rlm@1: 	sound3DataSize	   = 0;
rlm@1: 	sound3ForcedOutput = 0;
rlm@1: 
rlm@1: 	sound4On = 0;
rlm@1: 	sound4Clock = 0;
rlm@1: 	sound4ATL = 0;
rlm@1: 	sound4Skip = 0;
rlm@1: 	sound4Index = 0;
rlm@1: 	sound4ShiftRight		= 0x7f;
rlm@1: 	sound4NSteps			= 0;
rlm@1: 	sound4CountDown			= 0;
rlm@1: 	sound4Continue			= 0;
rlm@1: 	sound4EnvelopeVolume	= 0;
rlm@1: 	sound4EnvelopeATL		= 0;
rlm@1: 	sound4EnvelopeUpDown	= 0;
rlm@1: 	sound4EnvelopeATLReload = 0;
rlm@1: 
rlm@1: 	sound1On = 0;
rlm@1: 	sound2On = 0;
rlm@1: 	sound3On = 0;
rlm@1: 	sound4On = 0;
rlm@1: 
rlm@1: 	int addr = 0x90;
rlm@1: 
rlm@1: 	while (addr < 0xA0)
rlm@1: 	{
rlm@1: 		ioMem[addr++] = 0x00;
rlm@1: 		ioMem[addr++] = 0xff;
rlm@1: 	}
rlm@1: 
rlm@1: 	addr = 0;
rlm@1: 	while (addr < 0x20)
rlm@1: 	{
rlm@1: 		sound3WaveRam[addr++] = 0x00;
rlm@1: 		sound3WaveRam[addr++] = 0xff;
rlm@1: 	}
rlm@1: 
rlm@1: 	memset(soundFinalWave, 0, soundBufferLen);
rlm@1: 
rlm@1: 	memset(soundFilter, 0, sizeof(soundFilter));
rlm@1: 	soundEchoIndex = 0;
rlm@1: }
rlm@1: 
rlm@1: bool soundInit()
rlm@1: {
rlm@1: 	if (systemSoundInit())
rlm@1: 	{
rlm@1: 		memset(soundBuffer[0], 0, 735 * 2);
rlm@1: 		memset(soundBuffer[1], 0, 735 * 2);
rlm@1: 		memset(soundBuffer[2], 0, 735 * 2);
rlm@1: 		memset(soundBuffer[3], 0, 735 * 2);
rlm@1: 
rlm@1: 		memset(soundFinalWave, 0, soundBufferLen);
rlm@1: 
rlm@1: 		soundPaused = 1;
rlm@1: 		return true;
rlm@1: 	}
rlm@1: 	return false;
rlm@1: }
rlm@1: 
rlm@1: void soundSetQuality(int quality)
rlm@1: {
rlm@1: 	if (soundQuality != quality && systemSoundCanChangeQuality())
rlm@1: 	{
rlm@1: 		if (!soundOffFlag)
rlm@1: 			soundShutdown();
rlm@1: 		soundQuality	  = quality;
rlm@1: 		soundNextPosition = 0;
rlm@1: 		if (!soundOffFlag)
rlm@1: 			soundInit();
rlm@1: 		SOUND_CLOCK_TICKS = USE_TICKS_AS * soundQuality;
rlm@1: 		soundIndex		  = 0;
rlm@1: 		soundBufferIndex  = 0;
rlm@1: 	}
rlm@1: 	else if (soundQuality != quality)
rlm@1: 	{
rlm@1: 		soundNextPosition = 0;
rlm@1: 		SOUND_CLOCK_TICKS = USE_TICKS_AS * soundQuality;
rlm@1: 		soundIndex		  = 0;
rlm@1: 		soundBufferIndex  = 0;
rlm@1: 	}
rlm@1: }
rlm@1: 
rlm@1: void soundSaveGame(gzFile gzFile)
rlm@1: {
rlm@1: 	soundTicks_int32		= (int32) soundTicks;
rlm@1: 	SOUND_CLOCK_TICKS_int32 = (int32) SOUND_CLOCK_TICKS;
rlm@1: 	soundDSBValue_int32		= (int32) soundDSBValue;
rlm@1: 
rlm@1: 	utilWriteData(gzFile, soundSaveStruct);
rlm@1: 	utilWriteData(gzFile, soundSaveStructV2);
rlm@1: 
rlm@1: 	utilGzWrite(gzFile, &soundQuality, sizeof(int32));
rlm@1: 	//utilWriteData(gzFile, soundSaveStructV3);
rlm@1: }
rlm@1: 
rlm@1: void soundReadGame(gzFile gzFile, int version)
rlm@1: {
rlm@1: 	int32 oldSoundPaused = soundPaused;
rlm@1: 	int32 oldSoundEnableFlag = soundEnableFlag;
rlm@1: 	utilReadData(gzFile, soundSaveStruct);
rlm@1: 	soundPaused = oldSoundPaused;
rlm@1: 	soundEnableFlag = oldSoundEnableFlag;
rlm@1: 
rlm@1: 	if (version >= SAVE_GAME_VERSION_3)
rlm@1: 	{
rlm@1: 		utilReadData(gzFile, soundSaveStructV2);
rlm@1: 	}
rlm@1: 	else
rlm@1: 	{
rlm@1: 		sound3Bank		   = (ioMem[NR30] >> 6) & 1;
rlm@1: 		sound3DataSize	   = (ioMem[NR30] >> 5) & 1;
rlm@1: 		sound3ForcedOutput = (ioMem[NR32] >> 7) & 1;
rlm@1: 		// nothing better to do here...
rlm@1: 		memcpy(&sound3WaveRam[0x00], &ioMem[0x90], 0x10);
rlm@1: 		memcpy(&sound3WaveRam[0x10], &ioMem[0x90], 0x10);
rlm@1: 	}
rlm@1: 	soundBufferIndex = soundIndex * 2;
rlm@1: 
rlm@1: 	int quality = 1;
rlm@1: 	utilGzRead(gzFile, &quality, sizeof(int32));
rlm@1: 	soundSetQuality(quality);
rlm@1: 
rlm@1: 	sound1Wave = soundWavePattern[ioMem[NR11] >> 6];
rlm@1: 	sound2Wave = soundWavePattern[ioMem[NR21] >> 6];
rlm@1: 
rlm@1: 	//if(version >= SAVE_GAME_VERSION_14) {
rlm@1: 	//  utilReadData(gzFile, soundSaveStructV3);
rlm@1: 	//}
rlm@1: 	//else {
rlm@1: 	soundTicks		  = (soundtick_t) soundTicks_int32;
rlm@1: 	SOUND_CLOCK_TICKS = (soundtick_t) SOUND_CLOCK_TICKS_int32;
rlm@1: 	//}
rlm@1: 	soundDSBValue = (u8) (soundDSBValue_int32 & 0xff);
rlm@1: }
rlm@1: