diff options
Diffstat (limited to 'src/mame/audio/bwidow.cpp')
-rw-r--r-- | src/mame/audio/bwidow.cpp | 178 |
1 files changed, 178 insertions, 0 deletions
diff --git a/src/mame/audio/bwidow.cpp b/src/mame/audio/bwidow.cpp new file mode 100644 index 00000000000..51739fdf8f1 --- /dev/null +++ b/src/mame/audio/bwidow.cpp @@ -0,0 +1,178 @@ +// license:BSD-3-Clause +// copyright-holders: Couriersud + + + +#include "emu.h" +#include "sound/pokey.h" +#include "sound/discrete.h" + +#include "includes/bwidow.h" + + +/************************************* + * + * Discrete Sound Blocks + * + *************************************/ + +#define BW_R43 RES_M(1) +#define BW_R44 RES_M(1) +#define BW_R45 RES_K(100) +#define BW_R46 RES_K(22) +#define BW_R47 RES_K(1) +#define BW_R48 RES_M(1) +#define BW_R49 RES_K(3.9) +#define BW_R51 RES_K(1) +#define BW_R52 RES_K(3.9) + +#define BW_C27 CAP_P(100) +#define BW_C28 CAP_P(1) +#define BW_C30 CAP_U(0.22) +#define BW_C31 CAP_U(0.015) +#define BW_C32 CAP_U(0.015) +#define BW_C33 CAP_U(0.22) + +static discrete_op_amp_filt_info stage1_bwidow_info = { + BW_R45, 0, 0, 0, /* r1 .. r4 */ + BW_R43, /* rF */ + BW_C27, /* C1 */ + BW_C30, /* C2 */ + 0, /* C3 */ + 0.0, /* vRef */ + 15.0, /* vP */ + -15.0, /* vN */ +}; + + +static discrete_op_amp_filt_info stage2_bwidow_info = { + BW_R48, 0, 0, 0, /* r1 .. r4 */ + BW_R44, /* rF */ + BW_C28, /* C1 */ /* on schematic, not on parts list, gravitar retrofit manual says not needed - so what? */ + 0, /* C2 */ + 0, /* C3 */ + 0.0, /* vRef */ + 15.0, /* vP */ + -15.0, /* vN */ +}; + +static discrete_mixer_desc bwidow_mixer = { + DISC_MIXER_IS_OP_AMP, /* type */ + { BW_R49, BW_R46 }, /* r{} */ + {}, /* r_node */ + { BW_C33, 0 }, /* c{} */ + 0, /* rI */ + BW_R52, /* rF */ + 0, /* cF */ + 0, /* cAmp */ + 0, /* vRef */ + 1.0 /* gain */ +}; + +static DISCRETE_SOUND_START(bwidow) + + /************************************************/ + /* FINAL MIX */ + /************************************************/ + + /* Convert Pokey output to 5V Signal */ + DISCRETE_INPUTX_STREAM(NODE_100, 0, 5.0 / 32768, 5.0) /* Add VRef again */ + DISCRETE_INPUTX_STREAM(NODE_110, 1, 5.0 / 32768, 5.0) /* Add VRef again */ + + DISCRETE_OP_AMP_FILTER(NODE_120, 1, NODE_110, 0, DISC_OP_AMP_FILTER_IS_BAND_PASS_1, &stage1_bwidow_info) + DISCRETE_OP_AMP_FILTER(NODE_130, 1, NODE_120, 0, DISC_OP_AMP_FILTER_IS_LOW_PASS_1, &stage2_bwidow_info) + + DISCRETE_MIXER2(NODE_290, 1, NODE_100, NODE_130, &bwidow_mixer) + DISCRETE_OUTPUT(NODE_290, 4096) + +DISCRETE_SOUND_END + +#define GRAV_C34 CAP_U(0.22) +#define GRAV_R46 RES_K(10) +#define GRAV_C27 CAP_N(1) + +static discrete_op_amp_filt_info stage1_gravitar_info = { + BW_R45, 0, 0, 0, /* r1 .. r4 */ + BW_R43, /* rF */ + GRAV_C27, /* C1 */ + BW_C30, /* C2 */ + 0, /* C3 */ + 0.0, /* vRef */ + 15.0, /* vP */ + -15.0, /* vN */ +}; + +/* same as bwidow, already in for possible changes to C28 */ +static discrete_op_amp_filt_info stage2_gravitar_info = { + BW_R48, 0, 0, 0, /* r1 .. r4 */ + BW_R44, /* rF */ + BW_C28, /* C1 */ /* on schematic, not on parts list, gravitar retrofit manual says not needed - so what? */ + 0, /* C2 */ + 0, /* C3 */ + 0.0, /* vRef */ + 15.0, /* vP */ + -15.0, /* vN */ +}; + +static discrete_mixer_desc gravitar_mixer = { + DISC_MIXER_IS_OP_AMP, /* type */ + { BW_R49, GRAV_R46 }, /* r{} */ + {}, /* r_node */ + { BW_C33, 0 }, /* c{} */ + 0, /* rI */ + BW_R52, /* rF */ + 0, /* cF */ + 0, /* cAmp */ + 0, /* vRef */ + 1.0 /* gain */ +}; + + +static DISCRETE_SOUND_START(gravitar) + + /************************************************/ + /* FINAL MIX */ + /************************************************/ + + /* Convert Pokey output to 5V Signal */ + DISCRETE_INPUTX_STREAM(NODE_100, 0, 5.0 / 32768, 5.0) /* Add VRef again */ + DISCRETE_INPUTX_STREAM(NODE_110, 1, 5.0 / 32768, 5.0) /* Add VRef again */ + + DISCRETE_OP_AMP_FILTER(NODE_120, 1, NODE_110, 0, DISC_OP_AMP_FILTER_IS_BAND_PASS_1, &stage1_gravitar_info) + DISCRETE_OP_AMP_FILTER(NODE_130, 1, NODE_120, 0, DISC_OP_AMP_FILTER_IS_LOW_PASS_1, &stage2_gravitar_info) + + DISCRETE_MIXER2(NODE_290, 1, NODE_100, NODE_130, &gravitar_mixer) + DISCRETE_OUTPUT(NODE_290, 4096) + +DISCRETE_SOUND_END + +MACHINE_CONFIG_FRAGMENT( bwidow_audio ) + /* sound hardware */ + MCFG_SPEAKER_STANDARD_MONO("mono") + + MCFG_SOUND_ADD("pokey1", POKEY, MASTER_CLOCK / 8) /* C/D3 */ + MCFG_POKEY_ALLPOT_R_CB(IOPORT("DSW0")) + MCFG_POKEY_OUTPUT_OPAMP(BW_R51, BW_C31, 5.0) + MCFG_SOUND_ROUTE_EX(0, "discrete", 1.0, 0) + + MCFG_SOUND_ADD("pokey2", POKEY, MASTER_CLOCK / 8) /* B3 */ + MCFG_POKEY_ALLPOT_R_CB(IOPORT("DSW1")) + MCFG_POKEY_OUTPUT_OPAMP(BW_R47, BW_C32, 5.0) + MCFG_SOUND_ROUTE_EX(0, "discrete", 1.0, 1) + + MCFG_SOUND_ADD("discrete", DISCRETE, 0) + MCFG_DISCRETE_INTF(bwidow) + + MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.0) + + //MCFG_QUANTUM_PERFECT_CPU("pokey1") + +MACHINE_CONFIG_END + +MACHINE_CONFIG_FRAGMENT( gravitar_audio ) + MCFG_SOUND_MODIFY("pokey1") + MCFG_POKEY_OUTPUT_OPAMP_LOW_PASS(BW_R51, GRAV_C34, 5.0) /* BW_C31 ignored */ + + MCFG_SOUND_MODIFY("discrete") + MCFG_DISCRETE_INTF(gravitar) +MACHINE_CONFIG_END |