+// AY-3-8910 Emulator
+//
+// This was written mainly from the General Instruments datasheet for the 8910
+// part. I would have used the one from MAME, but it was so poorly written and
+// so utterly incomprehensible that I decided to start from scratch to see if I
+// could do any better; and so here we are. I did use a bit of code from
+// MAME's AY-3-8910 RNG, as it was just too neat not to use. :-)
+//
+// by James Hammons
+// (C) 2018 Underground Software
+//
+
+#include "ay8910.h"
+
+#include <string.h> // for memset()
+#include "log.h"
+#include "sound.h"
+
+
+struct AY_3_8910
+{
+ // User visible registers
+ uint16_t period[3]; // Channel A-C period
+ int16_t volume[3]; // Channel A-C volume (non-envelope mode)
+ bool envEnable[3]; // Channel A-C envelope enable
+ bool toneEnable[3]; // Channel A-C tone enable
+ bool noiseEnable[3]; // Channel A-C noise enable
+ uint16_t noisePeriod; // Noise period (5 bits * 16)
+ uint32_t envPeriod; // Envelope period (16 bits * 256)
+ bool envAttack; // Envelope Attack bit
+ bool envAlternate; // Envelope Alternate bit
+ bool envHold; // Envelope Hold bit
+ // Internal registers
+ uint16_t count[3]; // Channel A-C current count
+ bool state[3]; // Channel A-C current state
+ uint16_t noiseCount; // Noise current count
+ bool noiseState; // Noise state
+ uint32_t envCount[3]; // Envelope current count
+ int16_t envDirection[3];// Envelope direction (rising, 0, or falling)
+ uint32_t prng; // Psuedo RNG (17 bits)
+};
+
+
+// Maximum volume that can be generated by one voice
+float maxVolume = 8192.0f;
+
+// Normalized volumes (zero to one) for AY-3-8910 output, in 16 steps
+static float normalizedVolume[16];// = {};
+
+// AY-3-8910 register IDs
+enum { AY_AFINE = 0, AY_ACOARSE, AY_BFINE, AY_BCOARSE, AY_CFINE, AY_CCOARSE,
+ AY_NOISEPER, AY_ENABLE, AY_AVOL, AY_BVOL, AY_CVOL, AY_EFINE, AY_ECOARSE,
+ AY_ESHAPE, AY_PORTA, AY_PORTB };
+
+// Chip structs (for up to four separate chips)
+static AY_3_8910 ay[4];
+
+
+void AYInit(void)
+{
+ for(int chip=0; chip<4; chip++)
+ AYReset(chip);
+
+ // Our normalized volume levels are from 0 to -48 dB, in 3 dB steps.
+ // N.B.: It's 3dB steps because those sound the best. Dunno what it really
+ // is, as nothing in the documentation tells you (it only says that
+ // each channel's volume is normalized from 0 to 1.0V).
+ float level = 1.0f;
+
+ for(int i=15; i>=0; i--)
+ {
+ normalizedVolume[i] = level;
+ level /= 1.4125375446228; // 10.0 ^ (3.0 / 20.0) = 3 dB
+ }
+
+ // In order to get a scale that goes from 0 to 1 smoothly, we renormalize
+ // our volumes so that volume[0] is actually 0, and volume[15] is 1.
+ // Basically, we're sliding the curve down the Y-axis so that volume[0]
+ // touches the X-axis, then stretching the result so that it fits into the
+ // interval (0, 1).
+ float vol0 = normalizedVolume[0];
+ float vol15 = normalizedVolume[15] - vol0;
+
+ for(int i=0; i<16; i++)
+ normalizedVolume[i] = (normalizedVolume[i] - vol0) / vol15;
+
+#if 0
+ WriteLog("\nRenormalized volume, level (max=%d):\n", (int)maxVolume);
+ for(int i=0; i<16; i++)
+ WriteLog("%lf, %d\n", normalizedVolume[i], (int)(normalizedVolume[i] * maxVolume));
+ WriteLog("\n");
+#endif
+}
+/*
+Renormalized:
+0.000000, 0
+0.002333, 13
+0.005628, 33
+0.010283, 61
+0.016859, 101
+0.026146, 156
+0.039266, 235
+0.057797, 346
+0.083974, 503
+0.120949, 725
+0.173178, 1039
+0.246954, 1481
+0.351165, 2106
+0.498366, 2990
+0.706294, 4237
+1.000000, 6000
+*/
+
+
+void AYReset(int chipNum)
+{
+ memset(&ay[chipNum], 0, sizeof(struct AY_3_8910));
+ ay[chipNum].prng = 1; // Set correct PRNG seed
+}
+
+
+void AYWrite(int chipNum, int reg, int value)
+{
+#if 0
+static char regname[16][32] = {
+ "AY_AFINE ",
+ "AY_ACOARSE ",
+ "AY_BFINE ",
+ "AY_BCOARSE ",
+ "AY_CFINE ",
+ "AY_CCOARSE ",
+ "AY_NOISEPER",
+ "AY_ENABLE ",
+ "AY_AVOL ",
+ "AY_BVOL ",
+ "AY_CVOL ",
+ "AY_EFINE ",
+ "AY_ECOARSE ",
+ "AY_ESHAPE ",
+ "AY_PORTA ",
+ "AY_PORTB "
+};
+WriteLog("*** AY(%d) Reg: %s = $%02X\n", chipNum, regname[reg], value);
+#endif
+ AY_3_8910 * chip = &ay[chipNum];
+ value &= 0xFF; // Ensure passed in value is no larger than 8 bits
+
+ switch (reg)
+ {
+ case AY_AFINE:
+ // The square wave period is the passed in value times 16, so we handle
+ // that here.
+ chip->period[0] = (chip->period[0] & 0xF000) | (value << 4);
+ break;
+ case AY_ACOARSE:
+ chip->period[0] = ((value & 0x0F) << 12) | (chip->period[0] & 0xFF0);
+ break;
+ case AY_BFINE:
+ chip->period[1] = (chip->period[1] & 0xF000) | (value << 4);
+ break;
+ case AY_BCOARSE:
+ chip->period[1] = ((value & 0x0F) << 12) | (chip->period[1] & 0xFF0);
+ break;
+ case AY_CFINE:
+ chip->period[2] = (chip->period[2] & 0xF000) | (value << 4);
+ break;
+ case AY_CCOARSE:
+ chip->period[2] = ((value & 0x0F) << 12) | (chip->period[2] & 0xFF0);
+ break;
+ case AY_NOISEPER:
+ // Like the square wave period, the value is the what's passed * 16.
+ chip->noisePeriod = (value & 0x1F) << 4;
+ break;
+ case AY_ENABLE:
+ chip->toneEnable[0] = (value & 0x01 ? false : true);
+ chip->toneEnable[1] = (value & 0x02 ? false : true);
+ chip->toneEnable[2] = (value & 0x04 ? false : true);
+ chip->noiseEnable[0] = (value & 0x08 ? false : true);
+ chip->noiseEnable[1] = (value & 0x10 ? false : true);
+ chip->noiseEnable[2] = (value & 0x20 ? false : true);
+ break;
+ case AY_AVOL:
+ chip->volume[0] = value & 0x0F;
+ chip->envEnable[0] = (value & 0x10 ? true : false);
+
+ if (chip->envEnable[0])
+ {
+ chip->envCount[0] = 0;
+ chip->volume[0] = (chip->envAttack ? 0 : 15);
+ chip->envDirection[0] = (chip->envAttack ? 1 : -1);
+ }
+ break;
+ case AY_BVOL:
+ chip->volume[1] = value & 0x0F;
+ chip->envEnable[1] = (value & 0x10 ? true : false);
+
+ if (chip->envEnable[1])
+ {
+ chip->envCount[1] = 0;
+ chip->volume[1] = (chip->envAttack ? 0 : 15);
+ chip->envDirection[1] = (chip->envAttack ? 1 : -1);
+ }
+ break;
+ case AY_CVOL:
+ chip->volume[2] = value & 0x0F;
+ chip->envEnable[2] = (value & 0x10 ? true : false);
+
+ if (chip->envEnable[2])
+ {
+ chip->envCount[2] = 0;
+ chip->volume[2] = (chip->envAttack ? 0 : 15);
+ chip->envDirection[2] = (chip->envAttack ? 1 : -1);
+ }
+ break;
+ case AY_EFINE:
+ // The envelope period is 256 times the passed in value
+ chip->envPeriod = (chip->envPeriod & 0xFF0000) | (value << 8);
+ break;
+ case AY_ECOARSE:
+ chip->envPeriod = (value << 16) | (chip->envPeriod & 0xFF00);
+ break;
+ case AY_ESHAPE:
+ chip->envAttack = (value & 0x04 ? true : false);
+ chip->envAlternate = (value & 0x02 ? true : false);
+ chip->envHold = (value & 0x01 ? true : false);
+
+ // If the Continue bit is *not* set, the Alternate bit is forced to the
+ // Attack bit, and Hold is forced on.
+ if (!(value & 0x08))
+ {
+ chip->envAlternate = chip->envAttack;
+ chip->envHold = true;
+ }
+
+ // Reset all voice envelope counts...
+ for(int i=0; i<3; i++)
+ {
+ chip->envCount[i] = 0;
+ chip->envDirection[i] = (chip->envAttack ? 1 : -1);
+
+ // Only reset the volume if the envelope is enabled!
+ if (chip->envEnable[i])
+ chip->volume[i] = (chip->envAttack ? 0 : 15);
+ }
+ break;
+ }
+}
+
+
+//
+// Generate one sample and quit
+//
+bool logAYInternal = false;
+uint16_t AYGetSample(int chipNum)
+{
+ AY_3_8910 * chip = &ay[chipNum];
+ uint16_t sample = 0;
+
+ // Number of cycles per second to run the PSG is the 6502 clock rate
+ // divided by the host sample rate
+ const static double exactCycles = 1020484.32 / (double)SAMPLE_RATE;
+ static double overflow = 0;
+
+ int fullCycles = (int)exactCycles;
+ overflow += exactCycles - (double)fullCycles;
+
+ if (overflow >= 1.0)
+ {
+ fullCycles++;
+ overflow -= 1.0;
+ }
+
+ for(int i=0; i<fullCycles; i++)
+ {
+ for(int j=0; j<3; j++)
+ {
+ // Tone generators only run if the corresponding voice is enabled.
+ // N.B.: We also reject any period set that is less than 2.
+ if (chip->toneEnable[j] && (chip->period[j] > 16))
+ {
+ chip->count[j]++;
+
+ // It's (period / 2) because one full period of a square wave
+ // is 0 for half of its period and 1 for the other half!
+ if (chip->count[j] > (chip->period[j] / 2))
+ {
+ chip->count[j] = 0;
+ chip->state[j] = !chip->state[j];
+ }
+ }
+
+ // Envelope generator only runs if the corresponding voice flag is
+ // enabled.
+ if (chip->envEnable[j])
+ {
+ chip->envCount[j]++;
+
+ // It's (EP / 16) because there are 16 volume steps in each EP.
+ if (chip->envCount[j] > (chip->envPeriod / 16))
+ {
+ // Attack 0 = \, 1 = / (attack lasts one EP)
+ // Alternate = mirror envelope's last attack
+ // Hold = run 1 EP, hold at level (Alternate XOR Attack)
+ chip->envCount[j] = 0;
+
+ // We've hit a point where we need to make a change to the
+ // envelope's volume, so do it:
+ chip->volume[j] += chip->envDirection[j];
+
+ // If we hit the end of the EP, change the state of the
+ // envelope according to the envelope's variables.
+ if ((chip->volume[j] > 15) || (chip->volume[j] < 0))
+ {
+ // Hold means we set the volume to (Alternate XOR
+ // Attack) and stay there after the Attack EP.
+ if (chip->envHold)
+ {
+ chip->volume[j] = (chip->envAttack != chip->envAlternate ? 15: 0);
+ chip->envDirection[j] = 0;
+ }
+ else
+ {
+ // If the Alternate bit is set, we mirror the
+ // Attack pattern; otherwise we reset it to the
+ // whatever level was set by the Attack bit.
+ if (chip->envAlternate)
+ {
+ chip->envDirection[j] = -chip->envDirection[j];
+ chip->volume[j] += chip->envDirection[j];
+ }
+ else
+ chip->volume[j] = (chip->envAttack ? 0 : 15);
+ }
+ }
+ }
+ }
+ }
+
+ // Noise generator (the PRNG) runs all the time:
+ chip->noiseCount++;
+
+ if (chip->noiseCount > chip->noisePeriod)
+ {
+ chip->noiseCount = 0;
+
+ // The following is from MAME's AY-3-8910 code:
+ // The Pseudo Random Number Generator of the 8910 is a 17-bit shift
+ // register. The input to the shift register is bit0 XOR bit3 (bit0
+ // is the output). This was verified on AY-3-8910 and YM2149 chips.
+
+ // The following is a fast way to compute bit17 = bit0 ^ bit3.
+ // Instead of doing all the logic operations, we only check bit0,
+ // relying on the fact that after three shifts of the register,
+ // what now is bit3 will become bit0, and will invert, if
+ // necessary, bit14, which previously was bit17.
+ if (chip->prng & 0x00001)
+ {
+ // This version is called the "Galois configuration".
+ chip->prng ^= 0x24000;
+ // The noise wave *toggles* when a one shows up in bit0...
+ chip->noiseState = !chip->noiseState;
+ }
+
+ chip->prng >>= 1;
+ }
+ }
+
+ // We mix channels A-C here into one sample, because the Mockingboard just
+ // sums the output of the AY-3-8910 by tying their lines together.
+ // We also handle the various cases (of which there are four) of mixing
+ // pure tones and "noise" tones together.
+ for(int i=0; i<3; i++)
+ {
+ // Set the volume level scaled by the maximum volume (which can be
+ // altered outside of this module).
+ int level = (int)(normalizedVolume[chip->volume[i]] * maxVolume);
+
+ if (chip->toneEnable[i] && !chip->noiseEnable[i])
+ sample += (chip->state[i] ? level : 0);
+ else if (!chip->toneEnable[i] && chip->noiseEnable[i])
+ sample += (chip->noiseState ? level : 0);
+ else if (chip->toneEnable[i] && chip->noiseEnable[i])
+ sample += (chip->state[i] & chip->noiseState ? level : 0);
+ else if (!chip->toneEnable[i] && !chip->noiseEnable[i])
+ sample += level;
+ }
+
+ if (logAYInternal)
+ {
+ WriteLog(" (%d) State A,B,C: %s %s %s, Sample: $%04X, P: $%X, $%X, $%X\n", chipNum, (chip->state[0] ? "1" : "0"), (chip->state[1] ? "1" : "0"), (chip->state[2] ? "1" : "0"), sample, chip->period[0], chip->period[1], chip->period[2]);
+ }
+
+ return sample;
+}
+
+
+
+
+
+// STUFF TO DELETE...
+
+#if 0
+
/***************************************************************************
ay8910.cpp
// JLH: Commented out MAME specific crap
-#include "ay8910.h"
-#include <string.h> // for memset()
-
#define MAX_OUTPUT 0x7FFF
// See AY8910_set_clock() for definition of STEP
{
int Channel;
int SampleRate;
-// mem_read_handler PortAread;
-// mem_read_handler PortBread;
-// mem_write_handler PortAwrite;
-// mem_write_handler PortBwrite;
int register_latch;
unsigned char Regs[16];
- int lastEnable;
unsigned int UpdateStep;
int PeriodA, PeriodB, PeriodC, PeriodN, PeriodE;
int CountA, CountB, CountC, CountN, CountE;
unsigned int VolTable[32];
};
-/* register id's */
+static struct AY8910 AYPSG[MAX_8910]; /* array of PSG's */
+
#define AY_AFINE (0)
#define AY_ACOARSE (1)
#define AY_BFINE (2)
#define AY_EFINE (11)
#define AY_ECOARSE (12)
#define AY_ESHAPE (13)
-
-#define AY_PORTA (14)
-#define AY_PORTB (15)
-
-
-static struct AY8910 AYPSG[MAX_8910]; /* array of PSG's */
+//#define AY_PORTA (14)
+//#define AY_PORTB (15)
void _AYWriteReg(int n, int r, int v)
{
- struct AY8910 *PSG = &AYPSG[n];
+#if 1
+static char regname[16][32] = {
+"AY_AFINE ",
+"AY_ACOARSE ",
+"AY_BFINE ",
+"AY_BCOARSE ",
+"AY_CFINE ",
+"AY_CCOARSE ",
+"AY_NOISEPER",
+"AY_ENABLE ",
+"AY_AVOL ",
+"AY_BVOL ",
+"AY_CVOL ",
+"AY_EFINE ",
+"AY_ECOARSE ",
+"AY_ESHAPE ",
+"AY_PORTA ",
+"AY_PORTB "
+};
+WriteLog("*** AY(%d) Reg: %s = $%02X\n", n, regname[r], v);
+#endif
+ struct AY8910 * PSG = &AYPSG[n];
int old;
PSG->Regs[r] = v;
- /* A note about the period of tones, noise and envelope: for speed reasons, *
- * we count down from the period to 0, but careful studies of the chip *
- * output prove that it instead counts up from 0 until the counter becomes *
- * greater or equal to the period. This is an important difference when the *
- * program is rapidly changing the period to modulate the sound. *
- * To compensate for the difference, when the period is changed we adjust *
- * our internal counter. *
- * Also, note that period = 0 is the same as period = 1. This is mentioned *
- * in the YM2203 data sheets. However, this does NOT apply to the Envelope *
+ /* A note about the period of tones, noise and envelope: for speed reasons,
+ * we count down from the period to 0, but careful studies of the chip
+ * output prove that it instead counts up from 0 until the counter becomes
+ * greater or equal to the period. This is an important difference when the
+ * program is rapidly changing the period to modulate the sound.
+ * To compensate for the difference, when the period is changed we adjust
+ * our internal counter.
+ * Also, note that period = 0 is the same as period = 1. This is mentioned
+ * in the YM2203 data sheets. However, this does NOT apply to the Envelope
* period. In that case, period = 0 is half as period = 1. */
switch (r)
{
case AY_ACOARSE:
PSG->Regs[AY_ACOARSE] &= 0x0F;
old = PSG->PeriodA;
- PSG->PeriodA = (PSG->Regs[AY_AFINE] + 256 * PSG->Regs[AY_ACOARSE]) * PSG->UpdateStep;
+// PSG->PeriodA = (PSG->Regs[AY_AFINE] + 256 * PSG->Regs[AY_ACOARSE]) * PSG->UpdateStep;
+ PSG->PeriodA = ((PSG->Regs[AY_ACOARSE] << 8) | PSG->Regs[AY_AFINE]) * PSG->UpdateStep;
if (PSG->PeriodA == 0)
PSG->PeriodA = PSG->UpdateStep;
if (PSG->CountN <= 0)
PSG->CountN = 1;
break;
- case AY_ENABLE:
+/* case AY_ENABLE:
if ((PSG->lastEnable == -1) ||
((PSG->lastEnable & 0x40) != (PSG->Regs[AY_ENABLE] & 0x40)))
{
- /* write out 0xff if port set to input */
-// if (PSG->PortAwrite)
-// (*PSG->PortAwrite)(0, (UINT8) ((PSG->Regs[AY_ENABLE] & 0x40) ? PSG->Regs[AY_PORTA] : 0xff)); // [TC: UINT8 cast]
+ // write out $FF if port set to input
+ if (PSG->PortAwrite)
+ (*PSG->PortAwrite)(0, (UINT8) ((PSG->Regs[AY_ENABLE] & 0x40) ? PSG->Regs[AY_PORTA] : 0xff)); // [TC: UINT8 cast]
}
if ((PSG->lastEnable == -1) ||
((PSG->lastEnable & 0x80) != (PSG->Regs[AY_ENABLE] & 0x80)))
{
- /* write out 0xff if port set to input */
-// if (PSG->PortBwrite)
-// (*PSG->PortBwrite)(0, (UINT8) ((PSG->Regs[AY_ENABLE] & 0x80) ? PSG->Regs[AY_PORTB] : 0xff)); // [TC: UINT8 cast]
+ // write out $FF if port set to input
+ if (PSG->PortBwrite)
+ (*PSG->PortBwrite)(0, (UINT8) ((PSG->Regs[AY_ENABLE] & 0x80) ? PSG->Regs[AY_PORTB] : 0xff)); // [TC: UINT8 cast]
}
PSG->lastEnable = PSG->Regs[AY_ENABLE];
- break;
+ break;*/
case AY_AVOL:
PSG->Regs[AY_AVOL] &= 0x1F;
PSG->EnvelopeA = PSG->Regs[AY_AVOL] & 0x10;
- PSG->VolA = PSG->EnvelopeA ? PSG->VolE : PSG->VolTable[PSG->Regs[AY_AVOL] ? PSG->Regs[AY_AVOL]*2+1 : 0];
+ PSG->VolA = (PSG->EnvelopeA ? PSG->VolE :
+ (PSG->VolTable[PSG->Regs[AY_AVOL] ? PSG->Regs[AY_AVOL] * 2 + 1
+ : 0]));
break;
case AY_BVOL:
PSG->Regs[AY_BVOL] &= 0x1F;
PSG->EnvelopeB = PSG->Regs[AY_BVOL] & 0x10;
- PSG->VolB = PSG->EnvelopeB ? PSG->VolE : PSG->VolTable[PSG->Regs[AY_BVOL] ? PSG->Regs[AY_BVOL]*2+1 : 0];
+ PSG->VolB = (PSG->EnvelopeB ? PSG->VolE :
+ (PSG->VolTable[PSG->Regs[AY_BVOL] ? PSG->Regs[AY_BVOL] * 2 + 1
+ : 0]));
break;
case AY_CVOL:
PSG->Regs[AY_CVOL] &= 0x1F;
PSG->EnvelopeC = PSG->Regs[AY_CVOL] & 0x10;
- PSG->VolC = PSG->EnvelopeC ? PSG->VolE : PSG->VolTable[PSG->Regs[AY_CVOL] ? PSG->Regs[AY_CVOL]*2+1 : 0];
+ PSG->VolC = (PSG->EnvelopeC ? PSG->VolE
+ : (PSG->VolTable[PSG->Regs[AY_CVOL] ? PSG->Regs[AY_CVOL] * 2 + 1
+ : 0]));
break;
case AY_EFINE:
case AY_ECOARSE:
just a smoother curve, we always use the YM2149 behaviour.
*/
PSG->Regs[AY_ESHAPE] &= 0x0F;
- PSG->Attack = (PSG->Regs[AY_ESHAPE] & 0x04) ? 0x1F : 0x00;
+ PSG->Attack = (PSG->Regs[AY_ESHAPE] & 0x04 ? 0x1F : 0x00);
if ((PSG->Regs[AY_ESHAPE] & 0x08) == 0)
{
if (PSG->EnvelopeC)
PSG->VolC = PSG->VolE;
break;
- case AY_PORTA:
+/* case AY_PORTA:
if (PSG->Regs[AY_ENABLE] & 0x40)
{
-// if (PSG->PortAwrite)
-// (*PSG->PortAwrite)(0, PSG->Regs[AY_PORTA]);
-// else
-// logerror("PC %04x: warning - write %02x to 8910 #%d Port A\n",activecpu_get_pc(),PSG->Regs[AY_PORTA],n);
+ if (PSG->PortAwrite)
+ (*PSG->PortAwrite)(0, PSG->Regs[AY_PORTA]);
+ else
+ logerror("PC %04x: warning - write %02x to 8910 #%d Port A\n",activecpu_get_pc(),PSG->Regs[AY_PORTA],n);
}
else
{
-// logerror("warning: write to 8910 #%d Port A set as input - ignored\n",n);
+ logerror("warning: write to 8910 #%d Port A set as input - ignored\n",n);
}
break;
case AY_PORTB:
if (PSG->Regs[AY_ENABLE] & 0x80)
{
-// if (PSG->PortBwrite)
-// (*PSG->PortBwrite)(0, PSG->Regs[AY_PORTB]);
-// else
-// logerror("PC %04x: warning - write %02x to 8910 #%d Port B\n",activecpu_get_pc(),PSG->Regs[AY_PORTB],n);
+ if (PSG->PortBwrite)
+ (*PSG->PortBwrite)(0, PSG->Regs[AY_PORTB]);
+ else
+ logerror("PC %04x: warning - write %02x to 8910 #%d Port B\n",activecpu_get_pc(),PSG->Regs[AY_PORTB],n);
}
else
{
-// logerror("warning: write to 8910 #%d Port B set as input - ignored\n",n);
+ logerror("warning: write to 8910 #%d Port B set as input - ignored\n",n);
}
- break;
+ break;*/
}
}
+//#define DEBUG_AY
// /length/ is the number of samples we require
-// NB. This should be called at twice the 6522 IRQ rate or (eg) 60Hz if no IRQ.
void AY8910Update(int chip, int16_t ** buffer, int length) // [TC: Removed static]
{
+#ifdef DEBUG_AY
+WriteLog("AY8910Update: chip=%d, buffer=%X, length=%d\n", chip, buffer, length);
+#endif
struct AY8910 * PSG = &AYPSG[chip];
- int16_t * buf1, * buf2, * buf3;
- int outn;
-
- buf1 = buffer[0];
- buf2 = buffer[1];
- buf3 = buffer[2];
-
- /* The 8910 has three outputs, each output is the mix of one of the three *
- * tone generators and of the (single) noise generator. The two are mixed *
- * BEFORE going into the DAC. The formula to mix each channel is: *
- * (ToneOn | ToneDisable) & (NoiseOn | NoiseDisable). *
- * Note that this means that if both tone and noise are disabled, the output *
- * is 1, not 0, and can be modulated changing the volume. *
- * *
- * If the channels are disabled, set their output to 1, and increase the *
- * counter, if necessary, so they will not be inverted during this update. *
- * Setting the output to 1 is necessary because a disabled channel is locked *
- * into the ON state (see above); and it has no effect if the volume is 0. *
- * If the volume is 0, increase the counter, but don't touch the output. */
+
+ int16_t * buf1 = buffer[0];
+ int16_t * buf2 = buffer[1];
+ int16_t * buf3 = buffer[2];
+
+ /* The 8910 has three outputs, each output is the mix of one of the three
+ * tone generators and of the (single) noise generator. The two are mixed
+ * BEFORE going into the DAC. The formula to mix each channel is:
+ * (ToneOn | ToneDisable) & (NoiseOn | NoiseDisable).
+ * Note that this means that if both tone and noise are disabled, the
+ * output is 1, not 0, and can be modulated changing the volume.
+ *
+ * If the channels are disabled, set their output to 1, and increase the
+ * counter, if necessary, so they will not be inverted during this update.
+ * Setting the output to 1 is necessary because a disabled channel is
+ * locked into the ON state (see above); and it has no effect if the volume
+ * is 0. If the volume is 0, increase the counter, but don't touch the
+ * output.
+ */
+ // N.B.: The bits in AY_ENABLE (0-5) are all active LOW, which means if the
+ // channel bit is set, it is DISABLED. 5-3 are noise, 2-0 tone.
if (PSG->Regs[AY_ENABLE] & 0x01)
{
if (PSG->CountA <= length * STEP)
}
else if (PSG->Regs[AY_AVOL] == 0)
{
- /* note that I do count += length, NOT count = length + 1. You might think *
- * it's the same since the volume is 0, but doing the latter could cause *
- * interferencies when the program is rapidly modulating the volume. */
+ /* note that I do count += length, NOT count = length + 1. You might
+ * think it's the same since the volume is 0, but doing the latter
+ * could cause interferencies when the program is rapidly modulating
+ * the volume.
+ */
if (PSG->CountA <= length * STEP)
PSG->CountA += length * STEP;
}
PSG->CountC += length * STEP;
}
- /* for the noise channel we must not touch OutputN - it's also not necessary *
- * since we use outn. */
+ /* for the noise channel we must not touch OutputN - it's also not
+ * necessary since we use outn. */
if ((PSG->Regs[AY_ENABLE] & 0x38) == 0x38) /* all off */
if (PSG->CountN <= length * STEP)
PSG->CountN += length * STEP;
- outn = (PSG->OutputN | PSG->Regs[AY_ENABLE]);
+ int outn = (PSG->OutputN | PSG->Regs[AY_ENABLE]);
+#ifdef DEBUG_AY
+WriteLog("AY8910Update: Stepping into while (length)...\n");
+#endif
/* buffering loop */
while (length)
{
- int vola, volb, volc;
- int left;
-
- /* vola, volb and volc keep track of how long each square wave stays *
- * in the 1 position during the sample period. */
- vola = volb = volc = 0;
-
- left = STEP;
+ /* vola, volb and volc keep track of how long each square wave stays
+ * in the 1 position during the sample period.
+ */
+ int vola = 0, volb = 0, volc = 0;
+ int left = STEP;
+
+#ifdef DEBUG_AY
+WriteLog("AY8910Update: Stepping into inner do loop... (length=%d)\n", length);
+#endif
do
{
- int nextevent;
-
- if (PSG->CountN < left)
- nextevent = PSG->CountN;
- else
- nextevent = left;
+ int nextevent = (PSG->CountN < left ? PSG->CountN : left);
+//Note: nextevent is 0 here when first initialized...
+//so let's try this:
+ if (nextevent == 0)
+ left = 0;
+#ifdef DEBUG_AY
+WriteLog("AY8910Update: nextevent=$%X, left=$%X\n", nextevent, left);
+#endif
if (outn & 0x08)
{
vola += PSG->CountA;
PSG->CountA -= nextevent;
- /* PeriodA is the half period of the square wave. Here, in each *
- * loop I add PeriodA twice, so that at the end of the loop the *
- * square wave is in the same status (0 or 1) it was at the start. *
- * vola is also incremented by PeriodA, since the wave has been 1 *
- * exactly half of the time, regardless of the initial position. *
- * If we exit the loop in the middle, OutputA has to be inverted *
- * and vola incremented only if the exit status of the square *
- * wave is 1. */
+ /* PeriodA is the half period of the square wave. Here, in each
+ * loop I add PeriodA twice, so that at the end of the loop the
+ * square wave is in the same status (0 or 1) it was at the
+ * start. vola is also incremented by PeriodA, since the wave
+ * has been 1 exactly half of the time, regardless of the
+ * initial position. If we exit the loop in the middle, OutputA
+ * has to be inverted and vola incremented only if the exit
+ * status of the square wave is 1. */
while (PSG->CountA <= 0)
{
PSG->CountA += PSG->PeriodA;
if (PSG->OutputA)
vola += PSG->PeriodA;
+
break;
}
else
{
PSG->CountA -= nextevent;
+
while (PSG->CountA <= 0)
{
PSG->CountA += PSG->PeriodA;
if (PSG->CountN <= 0)
{
/* Is noise output going to change? */
- if ((PSG->RNG + 1) & 0x00002) /* (bit0^bit1)? */
+ if ((PSG->RNG + 1) & 0x00002) // (bit0 XOR bit1) == 1?
{
PSG->OutputN = ~PSG->OutputN;
outn = (PSG->OutputN | PSG->Regs[AY_ENABLE]);
}
- /* The Random Number Generator of the 8910 is a 17-bit shift *
- * register. The input to the shift register is bit0 XOR bit3 *
- * (bit0 is the output). This was verified on AY-3-8910 and *
- * YM2149 chips. *
- * *
- * The following is a fast way to compute bit17 = bit0^bit3. *
- * Instead of doing all the logic operations, we only check *
- * bit0, relying on the fact that after three shifts of the *
- * register, what now is bit3 will become bit0, and will *
+ /* The Random Number Generator of the 8910 is a 17-bit shift
+ * register. The input to the shift register is bit0 XOR bit3
+ * (bit0 is the output). This was verified on AY-3-8910 and
+ * YM2149 chips.
+ *
+ * The following is a fast way to compute bit17 = bit0^bit3.
+ * Instead of doing all the logic operations, we only check
+ * bit0, relying on the fact that after three shifts of the
+ * register, what now is bit3 will become bit0, and will
* invert, if necessary, bit14, which previously was bit17. */
if (PSG->RNG & 0x00001)
PSG->RNG ^= 0x24000; /* This version is called the "Galois configuration". */
}
while (left > 0);
+#ifdef DEBUG_AY
+WriteLog("AY8910Update: About to update envelope...\n");
+#endif
/* update envelope */
if (PSG->Holding == 0)
{
if (PSG->CountE <= 0)
{
- do
+#ifdef DEBUG_AY
+WriteLog("AY8910Update: About to enter do loop... (CountEnv = $%X, CountE =$%X, PeriodE = $%X)\n", PSG->CountEnv, PSG->CountE, PSG->PeriodE);
+#endif
+ // JLH: Sanity check...
+ if (PSG->PeriodE > 0)
{
- PSG->CountEnv--;
- PSG->CountE += PSG->PeriodE;
+ do
+ {
+ PSG->CountEnv--;
+ PSG->CountE += PSG->PeriodE;
+ }
+ while (PSG->CountE <= 0);
}
- while (PSG->CountE <= 0);
/* check envelope current position */
if (PSG->CountEnv < 0)
}
else
{
- /* if CountEnv has looped an odd number of times (usually 1), *
- * invert the output. */
+ /* if CountEnv has looped an odd number of times
+ * (usually 1), invert the output. */
if (PSG->Alternate && (PSG->CountEnv & 0x20))
PSG->Attack ^= 0x1F;
}
PSG->VolE = PSG->VolTable[PSG->CountEnv ^ PSG->Attack];
+
/* reload volume */
if (PSG->EnvelopeA)
PSG->VolA = PSG->VolE;
}
}
-#if 0
+#if 1
*(buf1++) = (vola * PSG->VolA) / STEP;
*(buf2++) = (volb * PSG->VolB) / STEP;
*(buf3++) = (volc * PSG->VolC) / STEP;
#endif
length--;
}
+#ifdef DEBUG_AY
+WriteLog("AY8910Update: Done.\n");
+#endif
}
static void AY8910_set_clock(int chip, int clock)
{
- struct AY8910 * PSG = &AYPSG[chip];
-
- /* The step clock for the tone and noise generators is the chip clock *
- * divided by 8; for the envelope generator of the AY-3-8910, it is half *
- * that much (clock/16), but the envelope of the YM2149 goes twice as *
- * fast, therefore again clock/8. *
- * Here we calculate the number of steps which happen during one sample *
- * at the given sample rate. No. of events = sample rate / (clock/8). *
- * STEP is a multiplier used to turn the fraction into a fixed point *
- * number. */
- PSG->UpdateStep = (unsigned int)(((double)STEP * PSG->SampleRate * 8 + clock / 2) / clock); // [TC: unsigned int cast]
+// struct AY8910 * PSG = &AYPSG[chip];
+
+ /* The step clock for the tone and noise generators is the chip clock
+ * divided by 8; for the envelope generator of the AY-3-8910, it is half
+ * that much (clock/16), but the envelope of the YM2149 goes twice as
+ * fast, therefore again clock/8.
+ * Here we calculate the number of steps which happen during one sample
+ * at the given sample rate. No. of events = sample rate / (clock/8).
+ * STEP is a multiplier used to turn the fraction into a fixed point
+ * number.
+ */
+ AYPSG[chip].UpdateStep = (unsigned int)(((double)STEP * AYPSG[chip].SampleRate * 8 + clock / 2) / clock); // [TC: unsigned int cast]
}
static void build_mixer_table(int chip)
{
- struct AY8910 * PSG = &AYPSG[chip];
-
- /* calculate the volume->voltage conversion table */
- /* The AY-3-8910 has 16 levels, in a logarithmic scale (3dB per step) */
- /* The YM2149 still has 16 levels for the tone generators, but 32 for */
- /* the envelope generator (1.5dB per step). */
+ /* calculate the volume->voltage conversion table
+ * The AY-3-8910 has 16 levels, in a logarithmic scale (3dB per step)
+ * The YM2149 still has 16 levels for the tone generators, but 32 for
+ * the envelope generator (1.5dB per step).
+ */
double out = MAX_OUTPUT;
for(int i=31; i>0; i--)
{
- PSG->VolTable[i] = (unsigned int)(out + 0.5); /* round to nearest */ // [TC: unsigned int cast]
+ AYPSG[chip].VolTable[i] = (unsigned int)(out + 0.5); /* round to nearest */ // [TC: unsigned int cast]
out /= 1.188502227; /* = 10 ^ (1.5/20) = 1.5dB */
}
- PSG->VolTable[0] = 0;
+ AYPSG[chip].VolTable[0] = 0;
}
void AY8910_reset(int chip)
{
- int i;
- struct AY8910 * PSG = &AYPSG[chip];
-
- PSG->register_latch = 0;
- PSG->RNG = 1;
- PSG->OutputA = 0;
- PSG->OutputB = 0;
- PSG->OutputC = 0;
- PSG->OutputN = 0xFF;
- PSG->lastEnable = -1; /* force a write */
-
- for(i=0; i<AY_PORTA; i++)
- _AYWriteReg(chip, i, 0); /* AYWriteReg() uses the timer system; we cannot */
- /* call it at this time because the timer system */
- /* has not been initialized. */
+ AYPSG[chip].register_latch = 0;
+ AYPSG[chip].RNG = 1;
+ AYPSG[chip].OutputA = 0;
+ AYPSG[chip].OutputB = 0;
+ AYPSG[chip].OutputC = 0;
+ AYPSG[chip].OutputN = 0xFF;
+
+ for(int i=0; i<=AY_ESHAPE; i++)
+ _AYWriteReg(chip, i, 0); /* AYWriteReg() uses the timer system; we
+ * cannot call it at this time because the
+ * timer system has not been initialized. */
}
// This stuff looks like Tom's code, so let's streamline and un-MSHungarianize this shit:
// [DONE]
+// N.B.: Looks like 'clock' is the 65C02 clock rate, and 'sampleRate' is the
+// sample rate set by the audio subsystem.
void AY8910_InitAll(int clock, int sampleRate)
{
for(int chip=0; chip<MAX_8910; chip++)
{
- struct AY8910 * PSG = &AYPSG[chip];
-
- memset(PSG, 0, sizeof(struct AY8910));
- PSG->SampleRate = sampleRate;
+ memset(&AYPSG[chip], 0, sizeof(struct AY8910));
+ AYPSG[chip].SampleRate = sampleRate;
AY8910_set_clock(chip, clock);
build_mixer_table(chip);
}
}
+
void AY8910_InitClock(int clock)
{
for(int chip=0; chip<MAX_8910; chip++)
AY8910_set_clock(chip, clock);
}
+#endif
-uint8_t * AY8910_GetRegsPtr(uint16_t chipNum)
-{
- if (chipNum >= MAX_8910)
- return NULL;
-
- return &AYPSG[chipNum].Regs[0];
-}