summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/audio/snk6502.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/audio/snk6502.cpp')
-rw-r--r--src/mame/audio/snk6502.cpp993
1 files changed, 993 insertions, 0 deletions
diff --git a/src/mame/audio/snk6502.cpp b/src/mame/audio/snk6502.cpp
new file mode 100644
index 00000000000..1f2afed4216
--- /dev/null
+++ b/src/mame/audio/snk6502.cpp
@@ -0,0 +1,993 @@
+// license:BSD-3-Clause
+// copyright-holders:Nicola Salmoria, Dan Boris
+/* from Andrew Scott (ascott@utkux.utcc.utk.edu) */
+
+/*
+ updated by BUT
+ - corrected music tempo (not confirmed Satan of Saturn and clone)
+ - adjusted music freq (except Satan of Saturn and clone)
+ - adjusted music waveform
+ - support playing flag for music channel 0
+ - support HD38880 speech by samples
+*/
+
+
+#include "emu.h"
+#include "sound/samples.h"
+#include "includes/snk6502.h"
+#include "sound/discrete.h"
+
+
+#ifndef M_LN2
+#define M_LN2 0.69314718055994530942
+#endif
+
+#define TONE_VOLUME 50
+
+#define SAMPLE_RATE (48000)
+#define FRAC_BITS 16
+#define FRAC_ONE (1 << FRAC_BITS)
+#define FRAC_MASK (FRAC_ONE - 1)
+
+const char *const sasuke_sample_names[] =
+{
+ "*sasuke",
+
+ // SN76477 and discrete
+ "hit",
+ "boss_start",
+ "shot",
+ "boss_attack",
+
+ 0
+};
+
+const char *const vanguard_sample_names[] =
+{
+ "*vanguard",
+
+ // SN76477 and discrete
+ "fire",
+ "explsion",
+
+ // HD38880 speech
+ "vg_voi-0",
+ "vg_voi-1",
+ "vg_voi-2",
+ "vg_voi-3",
+ "vg_voi-4",
+ "vg_voi-5",
+ "vg_voi-6",
+ "vg_voi-7",
+ "vg_voi-8",
+ "vg_voi-9",
+ "vg_voi-a",
+ "vg_voi-b",
+ "vg_voi-c",
+ "vg_voi-d",
+ "vg_voi-e",
+ "vg_voi-f",
+
+ 0
+};
+
+
+const char *const fantasy_sample_names[] =
+{
+ "*fantasy",
+
+ // HD38880 speech
+ "ft_voi-0",
+ "ft_voi-1",
+ "ft_voi-2",
+ "ft_voi-3",
+ "ft_voi-4",
+ "ft_voi-5",
+ "ft_voi-6",
+ "ft_voi-7",
+ "ft_voi-8",
+ "ft_voi-9",
+ "ft_voi-a",
+ "ft_voi-b",
+
+ 0
+};
+
+
+/************************************************************************
+ * fantasy Sound System Analog emulation
+ * July 2008, D. Renaud
+ ************************************************************************/
+
+static const discrete_op_amp_filt_info fantasy_filter =
+{
+ RES_K(10.5), 0, RES_K(33), 0, RES_K(470), CAP_U(.01), CAP_U(.01), 0, 0, 12, -12
+};
+
+#define FANTASY_BOMB_EN NODE_01
+#define FANTASY_NOISE_STREAM_IN NODE_02
+#define FANTASY_NOISE_LOGIC NODE_03
+
+DISCRETE_SOUND_START( fantasy )
+
+ DISCRETE_INPUT_LOGIC (FANTASY_BOMB_EN)
+ DISCRETE_INPUT_STREAM(FANTASY_NOISE_STREAM_IN, 0)
+
+ /* This is not the perfect way to discharge, but it is good enough for now */
+ /* it does not take into acount that there is no discharge when noise is low */
+ DISCRETE_RCDISC2(NODE_10, FANTASY_BOMB_EN, 0, RES_K(10) + RES_K(33), DEFAULT_TTL_V_LOGIC_1 - 0.5, RES_K(1), CAP_U(1))
+ DISCRETE_CLAMP(FANTASY_NOISE_LOGIC, FANTASY_NOISE_STREAM_IN, 0, 1)
+ DISCRETE_SWITCH(NODE_11, 1, FANTASY_NOISE_LOGIC, 0, NODE_10)
+
+ DISCRETE_OP_AMP_FILTER(NODE_20, 1, NODE_11, 0, DISC_OP_AMP_FILTER_IS_BAND_PASS_1M, &fantasy_filter)
+ DISCRETE_RCFILTER(NODE_21, NODE_20, RES_K(22), CAP_U(.01))
+ DISCRETE_RCFILTER(NODE_22, NODE_21, RES_K(22) + RES_K(22), CAP_P(2200))
+ DISCRETE_RCFILTER(NODE_23, NODE_22, RES_K(22) + RES_K(22) + RES_K(22), CAP_U(.001))
+
+ DISCRETE_OUTPUT(NODE_23, 32760.0/12)
+DISCRETE_SOUND_END
+
+
+const device_type SNK6502 = &device_creator<snk6502_sound_device>;
+
+snk6502_sound_device::snk6502_sound_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : device_t(mconfig, SNK6502, "SNK6502 Audio Custom", tag, owner, clock, "snk6502_sound", __FILE__),
+ device_sound_interface(mconfig, *this),
+ //m_tone_channels[CHANNELS],
+ m_tone_clock_expire(0),
+ m_tone_clock(0),
+ m_tone_stream(NULL),
+ m_samples(*this, ":samples"),
+ m_ROM(NULL),
+ m_Sound0StopOnRollover(0),
+ m_LastPort1(0),
+ m_hd38880_cmd(0),
+ m_hd38880_addr(0),
+ m_hd38880_data_bytes(0),
+ m_hd38880_speed(0)
+{
+}
+
+
+//-------------------------------------------------
+// device_start - device-specific startup
+//-------------------------------------------------
+
+void snk6502_sound_device::device_start()
+{
+ m_ROM = machine().root_device().memregion("snk6502")->base();
+
+ // adjusted
+ set_music_freq(43000);
+
+ // 38.99 Hz update (according to schematic)
+ set_music_clock(M_LN2 * (RES_K(18) * 2 + RES_K(1)) * CAP_U(1));
+
+ m_tone_stream = machine().sound().stream_alloc(*this, 0, 1, SAMPLE_RATE);
+
+ for (int i = 0; i < CHANNELS; i++)
+ {
+ save_item(NAME(m_tone_channels[i].mute), i);
+ save_item(NAME(m_tone_channels[i].offset), i);
+ save_item(NAME(m_tone_channels[i].base), i);
+ save_item(NAME(m_tone_channels[i].mask), i);
+ save_item(NAME(m_tone_channels[i].sample_step), i);
+ save_item(NAME(m_tone_channels[i].sample_cur), i);
+ save_item(NAME(m_tone_channels[i].form), i);
+ }
+
+ save_item(NAME(m_tone_clock));
+ save_item(NAME(m_Sound0StopOnRollover));
+ save_item(NAME(m_LastPort1));
+ save_item(NAME(m_hd38880_cmd));
+ save_item(NAME(m_hd38880_addr));
+ save_item(NAME(m_hd38880_data_bytes));
+ save_item(NAME(m_hd38880_speed));
+}
+
+inline void snk6502_sound_device::validate_tone_channel(int channel)
+{
+ if (!m_tone_channels[channel].mute)
+ {
+ UINT8 romdata = m_ROM[m_tone_channels[channel].base + m_tone_channels[channel].offset];
+
+ if (romdata != 0xff)
+ m_tone_channels[channel].sample_step = m_tone_channels[channel].sample_rate / (256 - romdata);
+ else
+ m_tone_channels[channel].sample_step = 0;
+ }
+}
+
+void snk6502_sound_device::sasuke_build_waveform(int mask)
+{
+ int bit0, bit1, bit2, bit3;
+ int base;
+ int i;
+
+ mask &= 7;
+
+ //logerror("0: wave form = %d\n", mask);
+ bit0 = bit1 = bit3 = 0;
+ bit2 = 1;
+
+ if (mask & 1)
+ bit0 = 1;
+ if (mask & 2)
+ bit1 = 1;
+ if (mask & 4)
+ bit3 = 1;
+
+ base = (bit0 + bit1 + bit2 + bit3 + 1) / 2;
+
+ for (i = 0; i < 16; i++)
+ {
+ int data = 0;
+
+ if (i & 1)
+ data += bit0;
+ if (i & 2)
+ data += bit1;
+ if (i & 4)
+ data += bit2;
+ if (i & 8)
+ data += bit3;
+
+ //logerror(" %3d\n", data);
+ m_tone_channels[0].form[i] = data - base;
+ }
+
+ for (i = 0; i < 16; i++)
+ m_tone_channels[0].form[i] *= 65535 / 16;
+}
+
+void snk6502_sound_device::satansat_build_waveform(int mask)
+{
+ int bit0, bit1, bit2, bit3;
+ int base;
+ int i;
+
+ mask &= 7;
+
+ //logerror("1: wave form = %d\n", mask);
+ bit0 = bit1 = bit2 = 1;
+ bit3 = 0;
+
+ if (mask & 1)
+ bit3 = 1;
+
+ base = (bit0 + bit1 + bit2 + bit3 + 1) / 2;
+
+ for (i = 0; i < 16; i++)
+ {
+ int data = 0;
+
+ if (i & 1)
+ data += bit0;
+ if (i & 2)
+ data += bit1;
+ if (i & 4)
+ data += bit2;
+ if (i & 8)
+ data += bit3;
+
+ //logerror(" %3d\n", data);
+ m_tone_channels[1].form[i] = data - base;
+ }
+
+ for (i = 0; i < 16; i++)
+ m_tone_channels[1].form[i] *= 65535 / 16;
+}
+
+void snk6502_sound_device::build_waveform(int channel, int mask)
+{
+ int bit0, bit1, bit2, bit3;
+ int base;
+ int i;
+
+ mask &= 15;
+
+ //logerror("%d: wave form = %d\n", channel, mask);
+ bit0 = bit1 = bit2 = bit3 = 0;
+
+ // bit 3
+ if (mask & (1 | 2))
+ bit3 = 8;
+ else if (mask & 4)
+ bit3 = 4;
+ else if (mask & 8)
+ bit3 = 2;
+
+ // bit 2
+ if (mask & 4)
+ bit2 = 8;
+ else if (mask & (2 | 8))
+ bit2 = 4;
+
+ // bit 1
+ if (mask & 8)
+ bit1 = 8;
+ else if (mask & 4)
+ bit1 = 4;
+ else if (mask & 2)
+ bit1 = 2;
+
+ // bit 0
+ bit0 = bit1 / 2;
+
+ if (bit0 + bit1 + bit2 + bit3 < 16)
+ {
+ bit0 *= 2;
+ bit1 *= 2;
+ bit2 *= 2;
+ bit3 *= 2;
+ }
+
+ base = (bit0 + bit1 + bit2 + bit3 + 1) / 2;
+
+ for (i = 0; i < 16; i++)
+ {
+ /* special channel for fantasy */
+ if (channel == 2)
+ {
+ m_tone_channels[channel].form[i] = (i & 8) ? 7 : -8;
+ }
+ else
+ {
+ int data = 0;
+
+ if (i & 1)
+ data += bit0;
+ if (i & 2)
+ data += bit1;
+ if (i & 4)
+ data += bit2;
+ if (i & 8)
+ data += bit3;
+
+ //logerror(" %3d\n", data);
+ m_tone_channels[channel].form[i] = data - base;
+ }
+ }
+
+ for (i = 0; i < 16; i++)
+ m_tone_channels[channel].form[i] *= 65535 / 160;
+}
+
+void snk6502_sound_device::set_music_freq(int freq)
+{
+ int i;
+
+ for (i = 0; i < CHANNELS; i++)
+ {
+ m_tone_channels[i].mute = 1;
+ m_tone_channels[i].offset = 0;
+ m_tone_channels[i].base = i * 0x800;
+ m_tone_channels[i].mask = 0xff;
+ m_tone_channels[i].sample_step = 0;
+ m_tone_channels[i].sample_cur = 0;
+ m_tone_channels[i].sample_rate = (double)(freq * 8) / SAMPLE_RATE * FRAC_ONE;
+
+ build_waveform(i, 1);
+ }
+}
+
+void snk6502_sound_device::set_music_clock(double clock_time)
+{
+ m_tone_clock_expire = clock_time * SAMPLE_RATE * FRAC_ONE;
+ m_tone_clock = 0;
+}
+
+int snk6502_sound_device::music0_playing()
+{
+ return m_tone_channels[0].mute;
+}
+
+
+WRITE8_MEMBER( snk6502_sound_device::sasuke_sound_w )
+{
+ switch (offset)
+ {
+ case 0:
+ /*
+ bit description
+
+ 0 hit (ic52)
+ 1 boss start (ic51)
+ 2 shot
+ 3 boss attack (ic48?)
+ 4 ??
+ 5
+ 6
+ 7 reset counter
+ */
+
+ if ((~data & 0x01) && (m_LastPort1 & 0x01))
+ m_samples->start(0, 0);
+ if ((~data & 0x02) && (m_LastPort1 & 0x02))
+ m_samples->start(1, 1);
+ if ((~data & 0x04) && (m_LastPort1 & 0x04))
+ m_samples->start(2, 2);
+ if ((~data & 0x08) && (m_LastPort1 & 0x08))
+ m_samples->start(3, 3);
+
+ if ((data & 0x80) && (~m_LastPort1 & 0x80))
+ {
+ m_tone_channels[0].offset = 0;
+ m_tone_channels[0].mute = 0;
+ }
+
+ if ((~data & 0x80) && (m_LastPort1 & 0x80))
+ m_tone_channels[0].mute = 1;
+
+ m_LastPort1 = data;
+ break;
+
+ case 1:
+ /*
+ bit description
+
+ 0
+ 1 wave form
+ 2 wave form
+ 3 wave form
+ 4 MUSIC A8
+ 5 MUSIC A9
+ 6 MUSIC A10
+ 7
+ */
+
+ /* select tune in ROM based on sound command byte */
+ m_tone_channels[0].base = 0x0000 + ((data & 0x70) << 4);
+ m_tone_channels[0].mask = 0xff;
+
+ m_Sound0StopOnRollover = 1;
+
+ /* bit 1-3 sound0 waveform control */
+ sasuke_build_waveform((data & 0x0e) >> 1);
+ break;
+ }
+}
+
+WRITE8_MEMBER( snk6502_sound_device::satansat_sound_w )
+{
+ switch (offset)
+ {
+ case 0:
+ /*
+ bit description
+
+ */
+
+ /* bit 0 = analog sound trigger */
+
+ /* bit 1 = to 76477 */
+
+ /* bit 2 = analog sound trigger */
+ if (data & 0x04 && !(m_LastPort1 & 0x04))
+ m_samples->start(0, 1);
+
+ if (data & 0x08)
+ {
+ m_tone_channels[0].mute = 1;
+ m_tone_channels[0].offset = 0;
+ }
+
+ /* bit 4-6 sound0 waveform control */
+ sasuke_build_waveform((data & 0x70) >> 4);
+
+ /* bit 7 sound1 waveform control */
+ satansat_build_waveform((data & 0x80) >> 7);
+
+ m_LastPort1 = data;
+ break;
+ case 1:
+ /*
+ bit description
+
+ */
+
+ /* select tune in ROM based on sound command byte */
+ m_tone_channels[0].base = 0x0000 + ((data & 0x0e) << 7);
+ m_tone_channels[0].mask = 0xff;
+ m_tone_channels[1].base = 0x0800 + ((data & 0x60) << 4);
+ m_tone_channels[1].mask = 0x1ff;
+
+ m_Sound0StopOnRollover = 1;
+
+ if (data & 0x01)
+ m_tone_channels[0].mute = 0;
+
+ if (data & 0x10)
+ m_tone_channels[1].mute = 0;
+ else
+ {
+ m_tone_channels[1].mute = 1;
+ m_tone_channels[1].offset = 0;
+ }
+
+ /* bit 7 = ? */
+ break;
+ }
+}
+
+WRITE8_MEMBER( snk6502_sound_device::vanguard_sound_w )
+{
+ switch (offset)
+ {
+ case 0:
+ /*
+ bit description
+
+ 0 MUSIC A10
+ 1 MUSIC A9
+ 2 MUSIC A8
+ 3 LS05 PORT 1
+ 4 LS04 PORT 2
+ 5 SHOT A
+ 6 SHOT B
+ 7 BOMB
+ */
+
+ /* select musical tune in ROM based on sound command byte */
+ m_tone_channels[0].base = ((data & 0x07) << 8);
+ m_tone_channels[0].mask = 0xff;
+
+ m_Sound0StopOnRollover = 1;
+
+ /* play noise samples requested by sound command byte */
+ /* SHOT A */
+ if (data & 0x20 && !(m_LastPort1 & 0x20))
+ m_samples->start(1, 0);
+ else if (!(data & 0x20) && m_LastPort1 & 0x20)
+ m_samples->stop(1);
+
+ /* BOMB */
+ if (data & 0x80 && !(m_LastPort1 & 0x80))
+ m_samples->start(2, 1);
+
+ if (data & 0x08)
+ {
+ m_tone_channels[0].mute = 1;
+ m_tone_channels[0].offset = 0;
+ }
+
+ if (data & 0x10)
+ {
+ m_tone_channels[0].mute = 0;
+ }
+
+ /* SHOT B */
+ machine().device<sn76477_device>("sn76477.2")->enable_w((data & 0x40) ? 0 : 1);
+
+ m_LastPort1 = data;
+ break;
+ case 1:
+ /*
+ bit description
+
+ 0 MUSIC A10
+ 1 MUSIC A9
+ 2 MUSIC A8
+ 3 LS04 PORT 3
+ 4 EXTP A (HD38880 external pitch control A)
+ 5 EXTP B (HD38880 external pitch control B)
+ 6
+ 7
+ */
+
+ /* select tune in ROM based on sound command byte */
+ m_tone_channels[1].base = 0x0800 + ((data & 0x07) << 8);
+ m_tone_channels[1].mask = 0xff;
+
+ if (data & 0x08)
+ m_tone_channels[1].mute = 0;
+ else
+ {
+ m_tone_channels[1].mute = 1;
+ m_tone_channels[1].offset = 0;
+ }
+ break;
+ case 2:
+ /*
+ bit description
+
+ 0 AS 1 (sound0 waveform)
+ 1 AS 2 (sound0 waveform)
+ 2 AS 4 (sound0 waveform)
+ 3 AS 3 (sound0 waveform)
+ 4 AS 5 (sound1 waveform)
+ 5 AS 6 (sound1 waveform)
+ 6 AS 7 (sound1 waveform)
+ 7 AS 8 (sound1 waveform)
+ */
+
+ build_waveform(0, (data & 0x3) | ((data & 4) << 1) | ((data & 8) >> 1));
+ build_waveform(1, data >> 4);
+ }
+}
+
+WRITE8_MEMBER( snk6502_sound_device::fantasy_sound_w )
+{
+ switch (offset)
+ {
+ case 0:
+ /*
+ bit description
+
+ 0 MUSIC A10
+ 1 MUSIC A9
+ 2 MUSIC A8
+ 3 LS04 PART 1
+ 4 LS04 PART 2
+ 5
+ 6
+ 7 BOMB
+ */
+
+ /* select musical tune in ROM based on sound command byte */
+ m_tone_channels[0].base = 0x0000 + ((data & 0x07) << 8);
+ m_tone_channels[0].mask = 0xff;
+
+ m_Sound0StopOnRollover = 0;
+
+ if (data & 0x08)
+ m_tone_channels[0].mute = 0;
+ else
+ {
+ m_tone_channels[0].offset = m_tone_channels[0].base;
+ m_tone_channels[0].mute = 1;
+ }
+
+ if (data & 0x10)
+ m_tone_channels[2].mute = 0;
+ else
+ {
+ m_tone_channels[2].offset = 0;
+ m_tone_channels[2].mute = 1;
+ }
+
+ /* BOMB */
+ machine().device<discrete_device>("discrete")->write(space, FANTASY_BOMB_EN, data & 0x80);
+
+ m_LastPort1 = data;
+ break;
+ case 1:
+ /*
+ bit description
+
+ 0 MUSIC A10
+ 1 MUSIC A9
+ 2 MUSIC A8
+ 3 LS04 PART 3
+ 4 EXT PA (HD38880 external pitch control A)
+ 5 EXT PB (HD38880 external pitch control B)
+ 6
+ 7
+ */
+
+ /* select tune in ROM based on sound command byte */
+ m_tone_channels[1].base = 0x0800 + ((data & 0x07) << 8);
+ m_tone_channels[1].mask = 0xff;
+
+ if (data & 0x08)
+ m_tone_channels[1].mute = 0;
+ else
+ {
+ m_tone_channels[1].mute = 1;
+ m_tone_channels[1].offset = 0;
+ }
+ break;
+ case 2:
+ /*
+ bit description
+
+ 0 AS 1 (sound0 waveform)
+ 1 AS 3 (sound0 waveform)
+ 2 AS 2 (sound0 waveform)
+ 3 AS 4 (sound0 waveform)
+ 4 AS 5 (sound1 waveform)
+ 5 AS 6 (sound1 waveform)
+ 6 AS 7 (sound1 waveform)
+ 7 AS 8 (sound1 waveform)
+ */
+
+ build_waveform(0, (data & 0x9) | ((data & 2) << 1) | ((data & 4) >> 1));
+ build_waveform(1, data >> 4);
+ break;
+ case 3:
+ /*
+ bit description
+
+ 0 BC 1
+ 1 BC 2
+ 2 BC 3
+ 3 MUSIC A10
+ 4 MUSIC A9
+ 5 MUSIC A8
+ 6
+ 7 INV
+ */
+
+ /* select tune in ROM based on sound command byte */
+ m_tone_channels[2].base = 0x1000 + ((data & 0x70) << 4);
+ m_tone_channels[2].mask = 0xff;
+ snk6502_state *drvstate = space.machine().driver_data<snk6502_state>();
+ drvstate->flipscreen_w(space, 0, data);
+ break;
+ }
+}
+
+
+/*
+ Hitachi HD38880 speech synthesizer chip
+
+ I heard that this chip uses PARCOR coefficients but I don't know ROM data format.
+ How do I generate samples?
+*/
+
+
+/* HD38880 command */
+#define HD38880_ADSET 2
+#define HD38880_READ 3
+#define HD38880_INT1 4
+#define HD38880_INT2 6
+#define HD38880_SYSPD 8
+#define HD38880_STOP 10
+#define HD38880_CONDT 11
+#define HD38880_START 12
+#define HD38880_SSTART 14
+
+/* HD38880 control bits */
+#define HD38880_CTP 0x10
+#define HD38880_CMV 0x20
+#define HD68880_SYBS 0x0f
+
+
+void snk6502_sound_device::speech_w(UINT8 data, const UINT16 *table, int start)
+{
+ /*
+ bit description
+ 0 SYBS1
+ 1 SYBS2
+ 2 SYBS3
+ 3 SYBS4
+ 4 CTP
+ 5 CMV
+ 6
+ 7
+ */
+
+ if ((data & HD38880_CTP) && (data & HD38880_CMV))
+ {
+ data &= HD68880_SYBS;
+
+ switch (m_hd38880_cmd)
+ {
+ case 0:
+ switch (data)
+ {
+ case HD38880_START:
+ logerror("speech: START\n");
+
+ if (m_hd38880_data_bytes == 5 && !m_samples->playing(0))
+ {
+ int i;
+
+ for (i = 0; i < 16; i++)
+ {
+ if (table[i] && table[i] == m_hd38880_addr)
+ {
+ m_samples->start(0, start + i);
+ break;
+ }
+ }
+ }
+ break;
+
+ case HD38880_SSTART:
+ logerror("speech: SSTART\n");
+ break;
+
+ case HD38880_STOP:
+ m_samples->stop(0);
+ logerror("speech: STOP\n");
+ break;
+
+ case HD38880_SYSPD:
+ m_hd38880_cmd = data;
+ break;
+
+ case HD38880_CONDT:
+ logerror("speech: CONDT\n");
+ break;
+
+ case HD38880_ADSET:
+ m_hd38880_cmd = data;
+ m_hd38880_addr = 0;
+ m_hd38880_data_bytes = 0;
+ break;
+
+ case HD38880_READ:
+ logerror("speech: READ\n");
+ break;
+
+ case HD38880_INT1:
+ m_hd38880_cmd = data;
+ break;
+
+ case HD38880_INT2:
+ m_hd38880_cmd = data;
+ break;
+
+ case 0:
+ // ignore it
+ break;
+
+ default:
+ logerror("speech: unknown command: 0x%x\n", data);
+ }
+ break;
+
+ case HD38880_INT1:
+ logerror("speech: INT1: 0x%x\n", data);
+
+ if (data & 8)
+ logerror("speech: triangular waveform\n");
+ else
+ logerror("speech: impulse waveform\n");
+
+ logerror("speech: %sable losing effect of vocal tract\n", data & 4 ? "en" : "dis");
+
+ if ((data & 2) && (data & 8))
+ logerror("speech: use external pitch control\n");
+
+ m_hd38880_cmd = 0;
+ break;
+
+ case HD38880_INT2:
+ logerror("speech: INT2: 0x%x\n", data);
+
+ logerror("speech: %d bits / frame\n", data & 8 ? 48 : 96);
+ logerror("speech: %d ms / frame\n", data & 4 ? 20 : 10);
+ logerror("speech: %sable repeat\n", data & 2 ? "en" : "dis");
+ logerror("speech: %d operations\n", ((data & 8) == 0) || (data & 1) ? 10 : 8);
+
+ m_hd38880_cmd = 0;
+ break;
+
+ case HD38880_SYSPD:
+ m_hd38880_speed = ((double)(data + 1)) / 10.0;
+ logerror("speech: SYSPD: %1.1f\n", m_hd38880_speed);
+ m_hd38880_cmd = 0;
+ break;
+
+ case HD38880_ADSET:
+ m_hd38880_addr |= (data << (m_hd38880_data_bytes++ * 4));
+ if (m_hd38880_data_bytes == 5)
+ {
+ logerror("speech: ADSET: 0x%05x\n", m_hd38880_addr);
+ m_hd38880_cmd = 0;
+ }
+ break;
+ }
+ }
+}
+
+
+/*
+ vanguard/fantasy speech
+
+ ROM data format (INT2 = 0xf):
+ 48 bits / frame
+ 20 ms / frame
+ enable repeat
+ 10 operations
+*/
+
+WRITE8_MEMBER( snk6502_sound_device::vanguard_speech_w )
+{
+ static const UINT16 vanguard_table[16] =
+ {
+ 0x04000,
+ 0x04325,
+ 0x044a2,
+ 0x045b7,
+ 0x046ee,
+ 0x04838,
+ 0x04984,
+ 0x04b01,
+ 0x04c38,
+ 0x04de6,
+ 0x04f43,
+ 0x05048,
+ 0x05160,
+ 0x05289,
+ 0x0539e,
+ 0x054ce
+ };
+
+ speech_w(data, vanguard_table, 2);
+}
+
+WRITE8_MEMBER( snk6502_sound_device::fantasy_speech_w )
+{
+ static const UINT16 fantasy_table[16] =
+ {
+ 0x04000,
+ 0x04297,
+ 0x044b6,
+ 0x04682,
+ 0x04927,
+ 0x04be0,
+ 0x04cc2,
+ 0x04e36,
+ 0x05000,
+ 0x05163,
+ 0x052c9,
+ 0x053fd,
+ 0,
+ 0,
+ 0,
+ 0
+ };
+
+ speech_w(data, fantasy_table, 0);
+}
+
+//-------------------------------------------------
+// sound_stream_update - handle a stream update
+//-------------------------------------------------
+
+void snk6502_sound_device::sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples)
+{
+ stream_sample_t *buffer = outputs[0];
+
+ int i;
+
+ for (i = 0; i < CHANNELS; i++)
+ validate_tone_channel(i);
+
+ while (samples-- > 0)
+ {
+ INT32 data = 0;
+
+ for (i = 0; i < CHANNELS; i++)
+ {
+ TONE *voice = &m_tone_channels[i];
+ INT16 *form = voice->form;
+
+ if (!voice->mute && voice->sample_step)
+ {
+ int cur_pos = voice->sample_cur + voice->sample_step;
+ int prev = form[(voice->sample_cur >> FRAC_BITS) & 15];
+ int cur = form[(cur_pos >> FRAC_BITS) & 15];
+
+ /* interpolate */
+ data += ((INT32)prev * (FRAC_ONE - (cur_pos & FRAC_MASK))
+ + (INT32)cur * (cur_pos & FRAC_MASK)) >> FRAC_BITS;
+
+ voice->sample_cur = cur_pos;
+ }
+ }
+
+ *buffer++ = data;
+
+ m_tone_clock += FRAC_ONE;
+ if (m_tone_clock >= m_tone_clock_expire)
+ {
+ for (i = 0; i < CHANNELS; i++)
+ {
+ m_tone_channels[i].offset++;
+ m_tone_channels[i].offset &= m_tone_channels[i].mask;
+
+ validate_tone_channel(i);
+ }
+
+ if (m_tone_channels[0].offset == 0 && m_Sound0StopOnRollover)
+ m_tone_channels[0].mute = 1;
+
+ m_tone_clock -= m_tone_clock_expire;
+ }
+
+ }
+}