summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/audio/bwidow.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/audio/bwidow.cpp')
-rw-r--r--src/mame/audio/bwidow.cpp178
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