static MACHINE_INIT( crbaloon )
{
/* MIXER A = 0, MIXER C = 1 */
SN76477_mixer_a_w(0, 0);
SN76477_mixer_c_w(0, 1);
/* ENVELOPE is constant: pin1 = hi, pin 28 = lo */
SN76477_envelope_w(0, 1);
/* fake: pulse the enable line to get rid of the constant noise */
SN76477_enable_w(0, 1);
SN76477_enable_w(0, 0);
}
static WRITE_HANDLER(gpss1_data_w)
{ // tone frequencies C E A A low
static double voltage[16] = {2.8, 3.3, 0, 0, 0, 4.5, 2.2};
data &= 0x0f;
if (voltage[data]) {
SN76477_set_vco_voltage(0, voltage[data]);
SN76477_enable_w(0, 0);
} else {
SN76477_set_vco_voltage(0, 1.5);
SN76477_enable_w(0, 1);
}
}
static void sheriff_74123_0_output_changed_cb(void)
{
SN76477_vco_w (0, TTL74123_output_r(0));
SN76477_mixer_b_w(0, !TTL74123_output_r(0));
SN76477_enable_w(0, TTL74123_output_comp_r(0) && TTL74123_output_comp_r(1));
}
static void invaders_sh_1_w(int board, int data, unsigned char *last)
{
int base_channel, base_sample;
base_channel = 4 * board;
base_sample = 9 * board;
SN76477_enable_w(board, !(data & 0x01)); /* Saucer Sound */
if (data & 0x02 && ~*last & 0x02)
sample_start (base_channel+0, base_sample+0, 0); /* Shot Sound */
if (data & 0x04 && ~*last & 0x04)
sample_start (base_channel+1, base_sample+1, 0); /* Base Hit */
if (~data & 0x04 && *last & 0x04)
sample_stop (base_channel+1);
if (data & 0x08 && ~*last & 0x08)
sample_start (base_channel+0, base_sample+2, 0); /* Invader Hit */
if (data & 0x10 && ~*last & 0x10)
sample_start (base_channel+2, 8, 0); /* Bonus Missle Base */
invaders_screen_red_w(data & 0x04);
*last = data;
}
static WRITE_HANDLER(riot_portb_w) {
double vco = 5.5 - (core_getDip(0) >> 4) / 6.0;
vco -= ((data & 8) ? vco / 2.0 : 0) + ((data & 4) ? vco / 4.0 : 0)+ ((data & 2) ? vco / 8.0 : 0)+ ((data & 1) ? vco / 16.0 : 0);
logerror("RIOT B WRITE %02x, vco: %0f\n", data, vco);
SN76477_set_vco_voltage(0, 5.5 - vco);
SN76477_enable_w(0, data & 0x10 ? 0 : 1); // strobe: toggles enable
SN76477_envelope_w(0, data & 0x20 ? 0 : 1); //decay: toggles envelope
SN76477_vco_w(0, data & 0x40 ? 1 : 0); // "phaser" sound: VCO toggled
SN76477_mixer_w(0, data & 0x80 ? 2 : 0); // "pulse" sound: pins 25 & 27 changed
}
static void sheriff_74123_1_output_changed_cb(void)
{
SN76477_set_vco_voltage(0, !TTL74123_output_comp_r(1) ? 5.0 : 0.0);
SN76477_enable_w(0, TTL74123_output_comp_r(0) && TTL74123_output_comp_r(1));
}
void crbaloon_audio_set_explosion_enable(int enabled)
{
SN76477_enable_w(0, enabled);
}
static WRITE_HANDLER(gpss2_data_w)
{ // tone frequencies D' C' B A H G F E D
static double voltage[16] = {5.7, 5.4, 4.8, 4.5, 5.1, 4.0, 3.6, 0, 0, 3.3, 3.0};
static int howl_or_whoop = 0;
int sb = core_gameData->hw.soundBoard & 0x01; // 1 if SSU3
data &= 0x0f;
switch (data) {
case 0x07: // gunshot
SN76477_enable_w(1, 1);
SN76477_mixer_w(1, 2);
SN76477_envelope_w(1, 1);
SN76477_vco_w(1, 1);
SN76477_set_noise_res(1, RES_K(50)); /* 4 */
SN76477_set_filter_res(1, RES_K(120)); /* 5 */
SN76477_set_decay_res(1, RES_M(2.2)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(0.1)); /* 8 */
SN76477_set_vco_cap(1, CAP_U(0.1)); /* 17 */
SN76477_set_vco_res(1, RES_K(56)); /* 18 */
SN76477_set_slf_res(1, RES_M(2.2)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(1)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(110)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x08: // rattlesnake / warble
SN76477_enable_w(1, 1);
SN76477_mixer_w(1, sb ? 0 : 4);
SN76477_envelope_w(1, sb ? 1/*0*/: 1); // schematics suggest 0 for SSU-3, which won't work!
SN76477_vco_w(1, 1);
SN76477_set_noise_res(1, RES_K(100)); /* 4 */
SN76477_set_filter_res(1, RES_K(120)); /* 5 */
SN76477_set_decay_res(1, RES_M(2.2)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(0.1)); /* 8 */
SN76477_set_vco_cap(1, CAP_U(0.1)); /* 17 */
SN76477_set_vco_res(1, RES_K(56)); /* 18 */
SN76477_set_slf_res(1, sb ? RES_K(221) : RES_K(47)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(1)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(330)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x0b: // horse / pony
SN76477_enable_w(1, 1);
SN76477_mixer_w(1, 3);
SN76477_envelope_w(1, 1);
SN76477_vco_w(1, 0);
SN76477_set_noise_res(1, RES_K(100)); /* 4 */
SN76477_set_filter_res(1, RES_K(470)); /* 5 */
SN76477_set_decay_res(1, RES_K(4.7)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(0.1)); /* 8 */
SN76477_set_vco_cap(1, CAP_U(1.1)); /* 17 */
SN76477_set_vco_res(1, RES_K(56)); /* 18 */
SN76477_set_slf_res(1, RES_M(2.2)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(1)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(330)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x0c: // howl or whoop
SN76477_enable_w(1, 1);
SN76477_mixer_w(1, 0);
SN76477_envelope_w(1, 1);
SN76477_vco_w(1, 1);
SN76477_set_noise_res(1, RES_K(100)); /* 4 */
SN76477_set_filter_res(1, RES_K(470)); /* 5 */
SN76477_set_decay_res(1, RES_K(47)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(10.1)); /* 8 */
SN76477_set_vco_cap(1, CAP_U(0.1)); /* 17 */
SN76477_set_vco_res(1, RES_K(40)); /* 18 */
SN76477_set_slf_res(1, RES_M(2.2)); /* 20 */
SN76477_set_slf_cap(1, howl_or_whoop ? CAP_U(1.1) : CAP_U(23)); /* 21 */
SN76477_set_oneshot_cap(1, howl_or_whoop ? CAP_U(11) : CAP_U(23)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(330)); /* 24 */
SN76477_enable_w(1, 0);
if (sb) howl_or_whoop = !howl_or_whoop; // alternate sound on SSU-3
break;
case 0x0d: // ricochet
SN76477_enable_w(1, 1);
SN76477_mixer_w(1, 0);
SN76477_envelope_w(1, 1);
SN76477_vco_w(1, 1);
SN76477_set_noise_res(1, RES_K(100)); /* 4 */
SN76477_set_filter_res(1, RES_K(470)); /* 5 */
SN76477_set_decay_res(1, RES_M(2.2)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(0.2)); /* 8 */
SN76477_set_vco_cap(1, CAP_U(0.1)); /* 17 */
SN76477_set_vco_res(1, RES_K(28)); /* 18 */
SN76477_set_slf_res(1, RES_M(1.1)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(2)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(110)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x0e: // explosion
SN76477_enable_w(0, 1);
SN76477_enable_w(0, 0);
break;
}
if (voltage[data]) {
SN76477_set_vco_voltage(2, voltage[data]);
SN76477_enable_w(2, 0);
} else {
SN76477_set_vco_voltage(2, 0.8);
SN76477_enable_w(2, 1);
}
}
static WRITE_HANDLER(gpss4_data_w)
{ // tone frequencies C' B A
static double voltage[16] = {0, 5.4, 4.8, 4.5};
data &= 0x0f;
if (data < 0x0f) SN76477_enable_w(1, 1);
switch (data) {
case 0x00: // stop wave
SN76477_enable_w(3, 1);
timer_adjust(capTimer, TIME_NEVER, 0, TIME_NEVER);
break;
case 0x06: // start wave
SN76477_enable_w(3, 0);
timer_adjust(capTimer, 0.005, 0, 0.005);
break;
case 0x07: // twang
SN76477_mixer_w(1, 0);
SN76477_set_filter_res(1, RES_K(470)); /* 5 */
SN76477_set_decay_res(1, RES_M(2.2)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(0.2)); /* 8 */
SN76477_set_vco_res(1, RES_K(28)); /* 18 */
SN76477_set_slf_res(1, RES_K(99.5)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(0.1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(2)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(110)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x08: // spark
SN76477_mixer_w(1, 4);
SN76477_set_filter_res(1, RES_K(120)); /* 5 */
SN76477_set_decay_res(1, RES_K(4.7)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(0.1)); /* 8 */
SN76477_set_vco_res(1, RES_K(56)); /* 18 */
SN76477_set_slf_res(1, RES_K(99.5)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(0.1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(1)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(330)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x0b: // siren
SN76477_mixer_w(1, 0);
SN76477_set_filter_res(1, RES_K(470)); /* 5 */
SN76477_set_decay_res(1, RES_K(47)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(10.1)); /* 8 */
SN76477_set_vco_res(1, RES_K(8.5)); /* 18 */
SN76477_set_slf_res(1, RES_M(2.2)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(1)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(330)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x0c: // howl
SN76477_mixer_w(1, 0);
SN76477_set_filter_res(1, RES_K(470)); /* 5 */
SN76477_set_decay_res(1, RES_K(47)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(10.1)); /* 8 */
SN76477_set_vco_res(1, RES_K(40)); /* 18 */
SN76477_set_slf_res(1, RES_M(2.2)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(22.1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(11)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(330)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x0d: // warble
SN76477_mixer_w(1, 0);
SN76477_set_filter_res(1, RES_K(470)); /* 5 */
SN76477_set_decay_res(1, RES_M(2.2)); /* 7 */
SN76477_set_attack_decay_cap(1, CAP_U(0.2)); /* 8 */
SN76477_set_vco_res(1, RES_K(28)); /* 18 */
SN76477_set_slf_res(1, RES_M(1.1)); /* 20 */
SN76477_set_slf_cap(1, CAP_U(1)); /* 21 */
SN76477_set_oneshot_cap(1, CAP_U(2)); /* 23 */
SN76477_set_oneshot_res(1, RES_K(110)); /* 24 */
SN76477_enable_w(1, 0);
break;
case 0x0e: // explosion
SN76477_enable_w(0, 1);
SN76477_enable_w(0, 0);
break;
}
if (voltage[data]) {
SN76477_set_vco_voltage(2, voltage[data]);
SN76477_enable_w(2, 0);
} else {
SN76477_set_vco_voltage(2, 0.8);
SN76477_enable_w(2, 1);
}
}
