diff options
Diffstat (limited to 'src/mame/audio/bzone.cpp')
-rw-r--r-- | src/mame/audio/bzone.cpp | 409 |
1 files changed, 0 insertions, 409 deletions
diff --git a/src/mame/audio/bzone.cpp b/src/mame/audio/bzone.cpp deleted file mode 100644 index ebd483d14a1..00000000000 --- a/src/mame/audio/bzone.cpp +++ /dev/null @@ -1,409 +0,0 @@ -// license:BSD-3-Clause -// copyright-holders:Couriersud -/* - -Battlezone sound info, courtesy of Al Kossow: - -D7 motor enable this enables the engine sound -D6 start LED -D5 sound enable this enables ALL sound outputs - including the POKEY output -D4 engine rev en this controls the engine speed - the engine sound is an integrated square - wave (saw tooth) that is frequency modulated - by engine rev. -D3 shell loud, soft/ explosion volume -D2 shell enable -D1 explosion loud, soft/ explosion volume -D0 explosion enable gates a noise generator - -*/ - -#include "emu.h" -#include "includes/bzone.h" - -#include "sound/discrete.h" -#include "sound/pokey.h" - -#include "speaker.h" - - -/* This sets an amount of gain boost to apply to the final signal - * that will drive it into clipping. The slider is ajusted by the - * reverse factor, so that the final result is not clipped. - * This allows for the user to easily adjust the sound into the clipping - * range so it sounds more like a real cabinet. - */ -#define BZ_FINAL_GAIN 2 - -#define BZ_NOISE_CLOCK 12000 - -#define TTL_OUT 3.4 - -/************************************* - * - * Discrete Sound Defines - * - *************************************/ - -/* Discrete Sound Input Nodes */ -#define BZ_INPUT NODE_01 /* at M2 LS273 */ -#define BZ_INP_EXPLO NODE_10_00 -#define BZ_INP_EXPLOLS NODE_10_01 -#define BZ_INP_SHELL NODE_10_02 -#define BZ_INP_SHELLLS NODE_10_03 -#define BZ_INP_ENGREV NODE_10_04 -#define BZ_INP_SOUNDEN NODE_10_05 -#define BZ_INP_STARTLED NODE_10_06 -#define BZ_INP_MOTEN NODE_10_07 - -/* Adjusters */ -#define BZ_R11_POT NODE_11 - -/* Discrete Sound Output Nodes */ -#define BZ_NOISE NODE_20 -#define BZ_SHELL_SND NODE_21 -#define BZ_EXPLOSION_SND NODE_22 -#define BZ_ENGINE_SND NODE_23 -#define BZ_POKEY_SND NODE_24 - -/* Parts List - Resistors */ -#define BZ_R5 RES_K(1) -#define BZ_R6 RES_K(4.7) -#define BZ_R7 RES_K(1) -#define BZ_R8 RES_K(100) -#define BZ_R9 RES_K(22) -#define BZ_R10 RES_K(100) -#define BZ_R11 RES_K(250) -#define BZ_R12 RES_K(33) -#define BZ_R13 RES_K(10) -#define BZ_R14 RES_K(22) -#define BZ_R15 RES_K(1) -#define BZ_R16 RES_K(1) -#define BZ_R17 RES_K(22) -#define BZ_R18 RES_K(10) -#define BZ_R19 RES_K(33) -#define BZ_R20 RES_K(33) -#define BZ_R21 RES_K(33) -#define BZ_R25 RES_K(100) -#define BZ_R26 RES_K(33) -#define BZ_R27 RES_K(330) -#define BZ_R28 RES_K(100) -#define BZ_R29 RES_K(22) -#define BZ_R30 RES_K(10) -#define BZ_R31 RES_K(100) -#define BZ_R32 RES_K(330) -#define BZ_R33 RES_K(330) -#define BZ_R34 RES_K(33) -#define BZ_R35 RES_K(33) - -/* Parts List - Capacitors */ -#define BZ_C9 CAP_U(4.7) -#define BZ_C11 CAP_U(0.015) -#define BZ_C13 CAP_U(10) -#define BZ_C14 CAP_U(10) -#define BZ_C20 CAP_U(0.1) -#define BZ_C21 CAP_U(0.0047) -#define BZ_C22 CAP_U(0.0047) -#define BZ_C29 CAP_U(0.47) - -/************************************* - * - * Discrete Sound static structs - * - *************************************/ - - -static const discrete_lfsr_desc bzone_lfsr = -{ - DISC_CLK_IS_FREQ, - 16, /* Bit Length */ - 0, /* Reset Value */ - 3, /* Use Bit 10 (QC of second LS164) as F0 input 0 */ - 14, /* Use Bit 23 (QH of third LS164) as F0 input 1 */ - DISC_LFSR_XOR, /* F0 is XOR */ - DISC_LFSR_NOT_IN0, /* F1 is inverted F0*/ - DISC_LFSR_REPLACE, /* F2 replaces the shifted register contents */ - 0x000001, /* Everything is shifted into the first bit only */ - DISC_LFSR_FLAG_OUTPUT_SR_SN1, /* output the complete shift register to sub node 1*/ - 15 /* Output bit */ -}; - -#if 0 -static const discrete_op_amp_filt_info bzone_explo_0 = -{ - BZ_R18 + BZ_R19, 0, 0, 0, /* r1, r2, r3, r4 */ - BZ_R33, /* rF */ - BZ_C22, 0, 0, /* c1, c2, c3 */ - 0, /* vRef - not used */ - 22, 0 /* vP, vN */ -}; - -static const discrete_op_amp_filt_info bzone_explo_1 = -{ - BZ_R18, 0, 0, 0, /* r1, r2, r3, r4 */ - BZ_R33, /* rF */ - BZ_C22, 0, 0, /* c1, c2, c3 */ - 0, /* vRef - not used */ - 22, 0 /* vP, vN */ -}; - -static const discrete_op_amp_filt_info bzone_shell_0 = -{ - BZ_R13 + BZ_R12, 0, 0, 0, /* r1, r2, r3, r4 */ - BZ_R32, /* rF */ - BZ_C21, 0, 0, /* c1, c2, c3 */ - 0, /* vRef - not used */ - 22, 0 /* vP, vN */ -}; - -static const discrete_op_amp_filt_info bzone_shell_1 = -{ - BZ_R13, 0, 0, 0, /* r1, r2, r3, r4 */ - BZ_R32, /* rF */ - BZ_C21, 0, 0, /* c1, c2, c3 */ - 0, /* vRef - not used */ - 22, 0 /* vP, vN */ -}; -#endif - -static const discrete_555_desc bzone_vco_desc = -{ - DISC_555_OUT_DC, - 5.0, - DEFAULT_555_CHARGE, - 1.0 // Logic output -}; - -static const discrete_mixer_desc bzone_eng_mixer_desc = -{ - DISC_MIXER_IS_RESISTOR, - {BZ_R20, BZ_R21, BZ_R34, BZ_R35}, - {0, 0, 0, 0}, - {0, 0, 0, 0}, - 0, 0, - BZ_C29, - 0, /* no out cap */ - 0, TTL_OUT /* inputs are logic */ -}; - -static const discrete_mixer_desc bzone_final_mixer_desc = -{ - DISC_MIXER_IS_RESISTOR, - {BZ_R25, BZ_R28, BZ_R26 + BZ_R20 / 4, BZ_R27}, - {0, 0, 0, 0}, - {0, 0, 0, 0}, - 0, BZ_R29, - 0, - BZ_C20, /* The speakers are driven by a +/- signal, just using the cap is good enough */ - 0, 1 -}; - - -/************************************************************************ - * - * Custom Battlezone filter - * - * .------. r2 c - * | O|-----+--ZZZZ--+-------||---------. - * | 4066 | | | | - * IN0 >--|c I|-. Z r1 | r5 | - * '------' | Z +------ZZZZ--------+ - * | Z | | - * gnd | | |\ | - * gnd | | \ | - * '-----------|- \ | - * r3 | >--+----> Netlist Node - * IN1 >----ZZZZ----------------+-----------|+ / - * | | / - * Z r4 |/ - * Z - * Z - * | VP = B+ - * gnd - * - ************************************************************************/ -#define BZONE_CUSTOM_FILTER__IN0 DISCRETE_INPUT(0) -#define BZONE_CUSTOM_FILTER__IN1 DISCRETE_INPUT(1) -#define BZONE_CUSTOM_FILTER__R1 DISCRETE_INPUT(2) -#define BZONE_CUSTOM_FILTER__R2 DISCRETE_INPUT(3) -#define BZONE_CUSTOM_FILTER__R3 DISCRETE_INPUT(4) -#define BZONE_CUSTOM_FILTER__R4 DISCRETE_INPUT(5) -#define BZONE_CUSTOM_FILTER__R5 DISCRETE_INPUT(6) -#define BZONE_CUSTOM_FILTER__C DISCRETE_INPUT(7) -#define BZONE_CUSTOM_FILTER__VP DISCRETE_INPUT(8) - -#define CD4066_R_ON 270 - -DISCRETE_CLASS_STEP_RESET(bzone_custom_filter, 1, - double m_v_in1_gain; - double m_v_p; - double m_exponent; - double m_gain[2]; - double m_out_v; -); - -DISCRETE_STEP(bzone_custom_filter) -{ - int in0 = (BZONE_CUSTOM_FILTER__IN0 == 0) ? 0 : 1; - double v; - - if (BZONE_CUSTOM_FILTER__IN1 > 0) - v = 0; - - v = BZONE_CUSTOM_FILTER__IN1 * m_v_in1_gain * m_gain[in0]; - if (v > m_v_p) v = m_v_p; - if (v < 0) v = 0; - - m_out_v += (v - m_out_v) * m_exponent; - set_output(0, m_out_v); -} - -DISCRETE_RESET(bzone_custom_filter) -{ - m_gain[0] = BZONE_CUSTOM_FILTER__R1 + BZONE_CUSTOM_FILTER__R2; - m_gain[0] = BZONE_CUSTOM_FILTER__R5 / m_gain[0] + 1; - m_gain[1] = RES_2_PARALLEL(CD4066_R_ON, BZONE_CUSTOM_FILTER__R1) + BZONE_CUSTOM_FILTER__R2; - m_gain[1] = BZONE_CUSTOM_FILTER__R5 / m_gain[1] + 1; - m_v_in1_gain = RES_VOLTAGE_DIVIDER(BZONE_CUSTOM_FILTER__R3, BZONE_CUSTOM_FILTER__R4); - m_v_p = BZONE_CUSTOM_FILTER__VP - OP_AMP_VP_RAIL_OFFSET; - m_exponent = RC_CHARGE_EXP(BZONE_CUSTOM_FILTER__R5 * BZONE_CUSTOM_FILTER__C); - m_out_v = 0.0; -} - -/************************************* - * - * Discrete Sound Blocks - * - *************************************/ - -static DISCRETE_SOUND_START(bzone_discrete) - - /************************************************/ - /* Input register mapping for Battlezone */ - /************************************************/ - DISCRETE_INPUT_DATA(BZ_INPUT) - /* decode the bits */ - DISCRETE_BITS_DECODE(NODE_10, BZ_INPUT, 0, 7, 1) /* IC M2, bits 0 - 7 */ - - /* the pot is 250K, but we will use a smaller range to get a better adjustment range */ - DISCRETE_ADJUSTMENT(BZ_R11_POT, RES_K(75), RES_K(10), DISC_LINADJ, "R11") - - - /************************************************/ - /* NOISE */ - /************************************************/ - - /* 12Khz clock is divided by two by B4 74LS109 */ - DISCRETE_LFSR_NOISE(BZ_NOISE, /* IC H4, pin 13 */ - 1, 1, BZ_NOISE_CLOCK / 2, 1.0, 0, 0.5, &bzone_lfsr) - - /* divide by 2 */ - DISCRETE_COUNTER(NODE_31, /* IC J5, pin 8 */ - 1, 0, BZ_NOISE, 0, 1, DISC_COUNT_UP, 0, DISC_CLK_ON_R_EDGE) - - DISCRETE_BITS_DECODE(NODE_32, NODE_SUB(BZ_NOISE, 1), 11, 14, 1) /* IC H4, pins 6, 10, 11, 12 */ - DISCRETE_LOGIC_NAND4(NODE_33, /* IC J4, pin 8 */ - NODE_32_00, NODE_32_01, NODE_32_02, NODE_32_03) /* LSFR bits 11-14 */ - /* divide by 2 */ - DISCRETE_COUNTER(NODE_34, /* IC J5, pin 6 */ - 1, 0, NODE_33, 0, 1, DISC_COUNT_UP, 0, DISC_CLK_ON_R_EDGE) - - /************************************************/ - /* Shell */ - /************************************************/ - DISCRETE_RC_CIRCUIT_1(NODE_40, /* IC J3, pin 9 */ - BZ_INP_SHELL, NODE_31, /* INP0, INP1 */ - BZ_R14 + BZ_R15, BZ_C9) - DISCRETE_CUSTOM9(BZ_SHELL_SND, bzone_custom_filter, /* IC K5, pin 1 */ - BZ_INP_EXPLOLS, NODE_40, /* IN0, IN1 */ - BZ_R12, BZ_R13, BZ_R14, BZ_R15, BZ_R32, - BZ_C21, - 22, /* B+ of op-amp */ - nullptr) - - /************************************************/ - /* Explosion */ - /************************************************/ - - DISCRETE_RC_CIRCUIT_1(NODE_50, /* IC J3, pin 3 */ - BZ_INP_EXPLO, NODE_34, /* INP0, INP1 */ - BZ_R17 + BZ_R16, BZ_C14) - DISCRETE_CUSTOM9(BZ_EXPLOSION_SND, bzone_custom_filter, /* IC K5, pin 1 */ - BZ_INP_EXPLOLS, NODE_50, /* IN0, IN1 */ - BZ_R19, BZ_R18, BZ_R17, BZ_R16, BZ_R33, - BZ_C22, - 22, /* B+ of op-amp */ - nullptr) - /************************************************/ - /* Engine */ - /************************************************/ - - DISCRETE_SWITCH(NODE_61, /* effect of IC L4, pin 2 */ - 1, BZ_INP_ENGREV, /* ENAB, SWITCH */ - 5.0 * RES_VOLTAGE_DIVIDER(BZ_R7, BZ_R6), /* INP0 */ - 5.0 * RES_VOLTAGE_DIVIDER(BZ_R7, RES_2_PARALLEL(CD4066_R_ON + BZ_R5, BZ_R6))) /* INP1 */ - /* R5, R6, R7 all affect the following circuit charge discharge rates */ - /* they are not emulated as their effect is less than the 5% component tolerance */ - DISCRETE_RCDISC3(NODE_62, /* IC K5, pin 7 */ - 1, NODE_61, BZ_R8, BZ_R9, BZ_C13, -0.5) - - DISCRETE_555_ASTABLE_CV(NODE_63, /* IC F3, pin 3 */ - 1, /* RESET */ - BZ_R10, BZ_R11_POT, BZ_C11, - NODE_62, /* CV - IC F3, pin 5 */ - &bzone_vco_desc) - - DISCRETE_LOGIC_INVERT(NODE_64, BZ_INP_MOTEN) - DISCRETE_COUNTER(NODE_65, /* IC F4 */ - 1, NODE_64, NODE_63, /* ENAB, RESET, CLK */ - 4, 15, DISC_COUNT_UP, 0, DISC_CLK_ON_R_EDGE) /* MIN, MAX, DIR, INIT, CLKTYPE */ - DISCRETE_TRANSFORM2(NODE_66, NODE_65, 7, "01>") /* QD - IC F4, pin 11 */ - DISCRETE_TRANSFORM2(NODE_67, NODE_65, 15, "01=") /* Ripple - IC F4, pin 15 */ - - DISCRETE_COUNTER(NODE_68, /* IC F5 */ - 1, NODE_64, NODE_63, /* ENAB, RESET, CLK */ - 6, 15, DISC_COUNT_UP, 0, DISC_CLK_ON_R_EDGE) /* MIN, MAX, DIR, INIT, CLKTYPE */ - DISCRETE_TRANSFORM2(NODE_69, NODE_68, 7, "01>") /* QD - IC F5, pin 11 */ - DISCRETE_TRANSFORM2(NODE_70, NODE_68, 15, "01=") /* Ripple - IC F5, pin 15 */ - - DISCRETE_MIXER4(BZ_ENGINE_SND, 1, NODE_66, NODE_67, NODE_69, NODE_70, &bzone_eng_mixer_desc) - - /************************************************/ - /* FINAL MIX */ - /************************************************/ - /* We won't bother emulating the final gain of op-amp IC K5, pin 14. - * This signal never reaches a value where it clips, so we will - * just output the final 16-bit level. - */ - - /* Convert Pokey output to 5V Signal */ - DISCRETE_INPUTX_STREAM(BZ_POKEY_SND, 0, 5.0 / 32768, 0) - - DISCRETE_MIXER4(NODE_280, - BZ_INP_SOUNDEN, - BZ_SHELL_SND, BZ_EXPLOSION_SND, BZ_ENGINE_SND, BZ_POKEY_SND, - &bzone_final_mixer_desc) - DISCRETE_OUTPUT(NODE_280, 48000) - -DISCRETE_SOUND_END - -void bzone_state::bzone_sounds_w(uint8_t data) -{ - m_discrete->write(BZ_INPUT, data); - - m_startled = BIT(data, 6); - machine().sound().system_enable(data & 0x20); -} - -void bzone_state::bzone_audio(machine_config &config) -{ - SPEAKER(config, "mono").front_center(); - - pokey_device &pokey(POKEY(config, "pokey", BZONE_MASTER_CLOCK / 8)); - pokey.allpot_r().set_ioport("IN3"); - pokey.set_output_rc(RES_K(10), CAP_U(0.015), 5.0); - pokey.add_route(0, "discrete", 1.0, 0); - - DISCRETE(config, "discrete", bzone_discrete).add_route(ALL_OUTPUTS, "mono", 1.0); -} |