Sprinter/mame
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Blue Shark - added shark sound

Browse Source 
Note: I think the schematics have no bearing in reality.  The whole circuit and components need to be verified against a real board.
This commit is contained in:
Derrick Renaud 2009-10-13 02:56:51 +00:00
parent 8f3f75ff0f
commit b5f5e251a1
5 changed files with 325 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/emu/sound/disc_mth.c
View File

@ -1822,7 +1822,14 @@ static DISCRETE_STEP(dst_op_amp)
node->output[0] = context->v_cap;
}
else
if (context->has_r4)
node->output[0] = i * info->r4;
else
/* output just swings to rail when there is no r4 */
if (i > 0)
node->output[0] = context->v_max;
else
node->output[0] = 0;
/* clamp output */
if (node->output[0] > context->v_max) node->output[0] = context->v_max;

127
src/emu/sound/disc_wav.c
View File

@ -101,18 +101,21 @@ struct dss_op_amp_osc_context
UINT8 flip_flop; /* flip/flop output state */
UINT8 flip_flop_xor; /* flip_flop ^ flip_flop_xor, 0 = discharge, 1 = charge */
UINT8 output_type;
UINT8 has_enable;
double v_out_high;
double threshold_low; /* falling threshold */
double threshold_high; /* rising threshold */
double v_cap; /* current capacitor voltage */
double r_total; /* all input resistors in parallel */
double i_fixed; /* fixed current at the input */
double i_enable; /* fixed current at the input if enabled */
double temp1; /* Multi purpose */
double temp2; /* Multi purpose */
double temp3; /* Multi purpose */
double is_linear_charge;
double charge_rc;
double charge_exp;
double charge_rc[2];
double charge_exp[2];
double charge_v[2];
};
struct dss_sawtoothwave_context
@ -748,7 +751,7 @@ static DISCRETE_STEP(dss_op_amp_osc)
struct dss_op_amp_osc_context *context = (struct dss_op_amp_osc_context *)node->context;
double i; /* Charging current created by vIn */
double i = 0; /* Charging current created by vIn */
double v = 0; /* all input voltages mixed */
double dt; /* change in time */
double v_cap; /* Current voltage on capacitor, before dt */
@ -781,8 +784,15 @@ static DISCRETE_STEP(dss_op_amp_osc)
{
/* resistors can be nodes, so everything needs updating */
double i1, i2;
/* add in enable current if using real enable */
if (context->has_enable)
{
if (enable)
i = context->i_enable;
enable = 1;
}
/* Work out the charge rates. */
charge[0] = DSS_OP_AMP_OSC_NORTON_VP_IN / *context->r1;
charge[0] = DSS_OP_AMP_OSC_NORTON_VP_IN / *context->r1 - i;
charge[1] = (context->v_out_high - OP_AMP_NORTON_VBE) / *context->r2 - charge[0];
/* Work out the Inverting Schmitt thresholds. */
i1 = DSS_OP_AMP_OSC_NORTON_VP_IN / *context->r5;
@ -835,8 +845,16 @@ static DISCRETE_STEP(dss_op_amp_osc)
break;
case DISC_OP_AMP_OSCILLATOR_VCO_3 | DISC_OP_AMP_IS_NORTON:
/* we need to mix any bias and all modulation voltages together. */
/* start with fixed bias */
charge[0] = context->i_fixed;
/* add in enable current if using real enable */
if (context->has_enable)
{
if (enable)
charge[0] -= context->i_enable;
enable = 1;
}
/* we need to mix any bias and all modulation voltages together. */
v = DSS_OP_AMP_OSC__VMOD1 - OP_AMP_NORTON_VBE;
if (v < 0) v = 0;
charge[0] += v / info->r1;
@ -915,22 +933,20 @@ static DISCRETE_STEP(dss_op_amp_osc)
else /* non-linear charge */
{
if (update_exponent)
exponent = RC_CHARGE_EXP_DT(context->charge_rc, dt);
exponent = RC_CHARGE_EXP_DT(context->charge_rc[flip_flop], dt);
else
exponent = context->charge_exp;
exponent = context->charge_exp[flip_flop];
v_cap_next = v_cap + ((context->charge_v[flip_flop] - v_cap) * exponent);
dt = 0;
if (flip_flop)
{
/* Charging */
v_cap_next = v_cap + ((context->v_out_high - v_cap) * exponent);
dt = 0;
/* Has it charged past upper limit? */
if (v_cap_next > context->threshold_high)
{
dt = context->charge_rc * log(1.0 / (1.0 - ((v_cap_next - context->threshold_high) / (context->v_out_high - v_cap))));
dt = context->charge_rc[1] * log(1.0 / (1.0 - ((v_cap_next - context->threshold_high) / (context->v_out_high - v_cap))));
x_time = dt;
v_cap_next = 0;
v_cap_next = context->threshold_high;
flip_flop = 0;
count_f++;
@ -939,14 +955,10 @@ static DISCRETE_STEP(dss_op_amp_osc)
}
else
{
/* Discharging */
v_cap_next = v_cap - (v_cap * exponent);
dt = 0;
/* has it discharged past lower limit? */
if (v_cap_next < context->threshold_low)
{
dt = context->charge_rc * log(1.0 / (1.0 - ((context->threshold_low - v_cap_next) / v_cap)));
dt = context->charge_rc[0] * log(1.0 / (1.0 - ((context->threshold_low - v_cap_next) / v_cap)));
x_time = dt;
v_cap_next = context->threshold_low;
flip_flop = 1;
@ -957,6 +969,10 @@ static DISCRETE_STEP(dss_op_amp_osc)
}
v_cap = v_cap_next;
} while(dt);
if (v_cap > context->v_out_high)
v_cap = context->v_out_high;
if (v_cap < 0)
v_cap = 0;
context->v_cap = v_cap;
x_time = dt / node->info->sample_time;
@ -990,6 +1006,8 @@ static DISCRETE_STEP(dss_op_amp_osc)
context->flip_flop = flip_flop;
}
#define DIODE_DROP 0.7
static DISCRETE_RESET(dss_op_amp_osc)
{
const discrete_op_amp_osc_info *info = (const discrete_op_amp_osc_info *)node->custom;
@ -1021,6 +1039,12 @@ static DISCRETE_RESET(dss_op_amp_osc)
context->is_linear_charge = 1;
context->output_type = info->type & DISC_OP_AMP_OSCILLATOR_OUT_MASK;
context->type = info->type & DISC_OP_AMP_OSCILLATOR_TYPE_MASK;
context->charge_rc[0] = 0;
context->charge_rc[1] = 0;
context->charge_v[0] = 0;
context->charge_v[1] = 0;
context->i_fixed = 0;
context->has_enable = 0;
switch (context->type)
{
@ -1042,19 +1066,59 @@ static DISCRETE_RESET(dss_op_amp_osc)
context->temp3 = 1.0 / (1.0 / info->r1 + 1.0 / info->r6); /* input resistance when r6 switched in */
break;
case DISC_OP_AMP_OSCILLATOR_2 | DISC_OP_AMP_IS_NORTON:
context->is_linear_charge = 0;
context->charge_rc = info->r1 * info->c;
context->charge_exp = RC_CHARGE_EXP(context->charge_rc);
context->threshold_low = (info->vP - OP_AMP_NORTON_VBE) / info->r4;
context->threshold_high = context->threshold_low + (info->vP - OP_AMP_VP_RAIL_OFFSET - OP_AMP_VP_RAIL_OFFSET) / info->r3;;
context->threshold_low = context->threshold_low * info->r2 + OP_AMP_NORTON_VBE;
context->threshold_high = context->threshold_high * info->r2 + OP_AMP_NORTON_VBE;
/* fall through */
case DISC_OP_AMP_OSCILLATOR_1 | DISC_OP_AMP_IS_NORTON:
/* Charges while FlipFlop High */
context->flip_flop_xor = 0;
/* There is no charge on the cap so the schmitt inverter goes high at init. */
context->flip_flop = 1;
/* setup current if using real enable */
if (info->r6 > 0)
{
context->has_enable = 1;
context->i_enable = (info->vP - OP_AMP_NORTON_VBE) / (info->r6 + RES_K(1));
}
break;
case DISC_OP_AMP_OSCILLATOR_2 | DISC_OP_AMP_IS_NORTON:
context->is_linear_charge = 0;
/* First calculate the parallel charge resistors and volatges. */
/* We can cheat and just calcuate the charges in the working area. */
/* The thresholds are well past the effect of the voltage drop */
/* and the component tolerances far exceed the .5V charge difference */
if (info->r1 != 0)
{
context->charge_rc[0] = 1.0 / info->r1;
context->charge_rc[1] = 1.0 / info->r1;
context->charge_v[1] = (info->vP - OP_AMP_NORTON_VBE) / info->r1;
}
if (info->r5 != 0)
{
context->charge_rc[0] += 1.0 / info->r5;
context->charge_v[0] = DIODE_DROP / info->r5;
}
if (info->r6 != 0)
{
context->charge_rc[1] += 1.0 / info->r6;
context->charge_v[1] += (info->vP - OP_AMP_NORTON_VBE - DIODE_DROP) / info->r6;
}
context->charge_rc[0] += 1.0 / info->r2;
context->charge_rc[0] = 1.0 / context->charge_rc[0];
context->charge_v[0] += OP_AMP_NORTON_VBE / info->r2;
context->charge_v[0] *= context->charge_rc[0];
context->charge_rc[1] += 1.0 / info->r2;
context->charge_rc[1] = 1.0 / context->charge_rc[1];
context->charge_v[1] += OP_AMP_NORTON_VBE / info->r2;
context->charge_v[1] *= context->charge_rc[1];
context->charge_rc[0] *= info->c;
context->charge_rc[1] *= info->c;
context->charge_exp[0] = RC_CHARGE_EXP(context->charge_rc[0]);
context->charge_exp[1] = RC_CHARGE_EXP(context->charge_rc[1]);
context->threshold_low = (info->vP - OP_AMP_NORTON_VBE) / info->r4;
context->threshold_high = context->threshold_low + (info->vP - OP_AMP_NORTON_VBE - OP_AMP_NORTON_VBE) / info->r3;;
context->threshold_low = context->threshold_low * info->r2 + OP_AMP_NORTON_VBE;
context->threshold_high = context->threshold_high * info->r2 + OP_AMP_NORTON_VBE;
/* There is no charge on the cap so the schmitt inverter goes high at init. */
context->flip_flop = 1;
break;
@ -1066,7 +1130,6 @@ static DISCRETE_RESET(dss_op_amp_osc)
context->flip_flop = 0;
/* The charge rates vary depending on vMod so they are not precalculated. */
/* But we can precalculate the fixed currents. */
context->i_fixed = 0;
if (info->r6 != 0) context->i_fixed += info->vP / info->r6;
context->i_fixed += OP_AMP_NORTON_VBE / info->r1;
context->i_fixed += OP_AMP_NORTON_VBE / info->r2;
@ -1104,6 +1167,12 @@ static DISCRETE_RESET(dss_op_amp_osc)
context->flip_flop_xor = 0;
/* There is no charge on the cap so the schmitt inverter goes high at init. */
context->flip_flop = 1;
/* setup current if using real enable */
if (info->r8 > 0)
{
context->has_enable = 1;
context->i_enable = (info->vP - OP_AMP_NORTON_VBE) / (info->r8 + RES_K(1));
}
/* Work out the charge rates. */
/* The charge rates vary depending on vMod so they are not precalculated. */
/* But we can precalculate the fixed currents. */

42
src/emu/sound/discrete.h
View File

@ -221,7 +221,7 @@
* DISCRETE_ADDER2(NODE,ENAB,IN0,IN1)
* DISCRETE_ADDER3(NODE,ENAB,IN0,IN1,IN2)
* DISCRETE_ADDER4(NODE,ENAB,IN0,IN1,IN2,IN3)
* DISCRETE_CLAMP(NODE,ENAB,IN0,MIN,MAX,CLAMP)
* DISCRETE_CLAMP(NODE,IN0,MIN,MAX)
* DISCRETE_DIVIDE(NODE,ENAB,IN0,IN1)
* DISCRETE_GAIN(NODE,IN0,GAIN)
* DISCRETE_INVERT(NODE,IN0)
@ -822,22 +822,23 @@
*
* vP >-.
* | c
* Z .---||----+---------------------------> DISC_OP_AMP_OSCILLATOR_OUT_CAP
* Z .---||----+-------------------------> DISC_OP_AMP_OSCILLATOR_OUT_CAP
* Z r1 | |
* Z | |\ |
* | | | \ | |\
* '-----+---|- \ | r3 | \
* | >-+----ZZZZ----|- \
* |+ / | >--+-------> DISC_OP_AMP_OSCILLATOR_OUT_SQW
* |+ / | >--+-----> DISC_OP_AMP_OSCILLATOR_OUT_SQW
* .---| / .--|+ / |
* | |/ r5 | | / |
* | vP >--ZZZZ---+ |/ |
* vP >-. | vP >--ZZZZ---+ |/ |
* | Z | |
* Z Z r2 | r4 |
* Z 1k Z '--ZZZZ---+
* Z | |
* Z r2 | r4 |
* Z '--ZZZZ---+
* | |
* | |
* '-----------------------------'
* |\ | r6 | |
* Enable >---| >-+-ZZZZ---+-----------------------------'
* |/ O.C.
*
* Note: R1 - R5 can be nodes.
*
@ -853,6 +854,12 @@
* | r1
* +------ZZZZ-----.
* | |
* | r5 |
* +--ZZZZ---|>|---.
* | |
* | r6 |
* +--ZZZZ---|<|---.
* | |
* | |\ |
* | r2 | \ |
* +---ZZZZ--|- \ |
@ -873,7 +880,7 @@
*
* Note: All values are static.
*
* EXAMPLES: see Space Walk
* EXAMPLES: see Space Walk, Blue Shark
*
***********************************************************************
*
@ -994,15 +1001,16 @@
* r6 | |+ / | >--+-------> DISC_OP_AMP_OSCILLATOR_OUT_SQW
* vMod2 >--ZZZZ---' .---| / .--|+ / |
* | |/ r5 | | / |
* | vP >--ZZZZ---+ |/ |
* vP >-. | vP >--ZZZZ---+ |/ |
* | Z | |
* Z Z r2 | r4 |
* Z 1k Z '--ZZZZ---+
* Z | |
* Z r2 | r4 |
* Z '--ZZZZ---+
* | |
* | |
* '-----------------------------'
* |\ | r8 | |
* Enable >---| >-+-ZZZZ---+-----------------------------'
* |/ O.C.
*
* EXAMPLES: see Space Encounter
* EXAMPLES: see Space Encounter, Blue Shark
*
***********************************************************************
*

194
src/mame/audio/mw8080bw.c
View File

@ -4134,13 +4134,12 @@ WRITE8_DEVICE_HANDLER( invaders_audio_2_w )
*
* Blue Shark
*
* Discrete sound emulation: Jan 2007, D.R.
* Discrete sound emulation:
* Jan 2007, D.R.
* Oct 2009, D.R.
*
*************************************/
/* Noise clock was breadboarded and measured at 7700Hz */
/* nodes - inputs */
#define BLUESHRK_OCTOPUS_EN NODE_01
#define BLUESHRK_HIT_EN NODE_02
@ -4188,7 +4187,37 @@ WRITE8_DEVICE_HANDLER( invaders_audio_2_w )
#define BLUESHRK_R603 RES_K(39)
#define BLUESHRK_R604 RES_K(1)
#define BLUESHRK_R605 RES_M(1)
#define BLUESHRK_R700 RES_K(68)
#define BLUESHRK_R701 RES_K(470)
#define BLUESHRK_R702 RES_M(1.2)
#define BLUESHRK_R703 RES_M(1.5)
#define BLUESHRK_R704 RES_K(22)
#define BLUESHRK_R705 RES_K(100)
#define BLUESHRK_R706 RES_K(470)
#define BLUESHRK_R707 RES_M(1.2)
#define BLUESHRK_R708 RES_M(1.5)
#define BLUESHRK_R709 RES_K(22)
#define BLUESHRK_R710 RES_K(470)
#define BLUESHRK_R711 RES_K(39)
#define BLUESHRK_R712 RES_M(1.2)
#define BLUESHRK_R713 RES_M(1.5)
#define BLUESHRK_R714 RES_K(22)
#define BLUESHRK_R715 RES_K(47)
#define BLUESHRK_R716 RES_K(75)
#define BLUESHRK_R717 RES_M(1.5)
#define BLUESHRK_R718 RES_M(2.2)
#define BLUESHRK_R719 RES_K(560)
#define BLUESHRK_R720 RES_M(1.5)
#define BLUESHRK_R721 RES_M(2.2)
#define BLUESHRK_R722 RES_M(2.2)
#define BLUESHRK_R723 RES_K(560)
#define BLUESHRK_R724 RES_K(12)
#define BLUESHRK_R725 RES_K(68)
#define BLUESHRK_R726 RES_K(330)
#define BLUESHRK_R727 RES_M(2.2)
#define BLUESHRK_R728 RES_M(1)
#define BLUESHRK_R730 RES_K(56)
#define BLUESHRK_R1000 RES_K(1)
/* Parts List - Capacitors */
#define BLUESHRK_C300 CAP_U(0.1)
@ -4203,25 +4232,33 @@ WRITE8_DEVICE_HANDLER( invaders_audio_2_w )
#define BLUESHRK_C603 CAP_U(0.01)
#define BLUESHRK_C604 CAP_U(0.015)
#define BLUESHRK_C606 CAP_U(1)
#define BLUESHRK_C704 CAP_U(1)
#define BLUESHRK_C700 CAP_U(22)
#define BLUESHRK_C701 CAP_U(22)
#define BLUESHRK_C702 CAP_U(10)
#define BLUESHRK_C703 CAP_U(0.033)
#define BLUESHRK_C704 CAP_U(0.015)
#define BLUESHRK_C705 CAP_U(0.015)
#define BLUESHRK_C706 CAP_U(0.033)
#define BLUESHRK_C707 CAP_U(2.2)
#define BLUESHRK_C708 CAP_U(1)
#define BLUESHRK_C900 CAP_U(10)
static const discrete_op_amp_osc_info blueshark_octopus_osc =
static const discrete_op_amp_osc_info blueshrk_octopus_osc =
{
DISC_OP_AMP_OSCILLATOR_1 | DISC_OP_AMP_IS_NORTON | DISC_OP_AMP_OSCILLATOR_OUT_CAP,
BLUESHRK_R300, BLUESHRK_R303, BLUESHRK_R301, BLUESHRK_R304, BLUESHRK_R302, 0, 0, 0, /* r1, r2, r3, r4, r5, r6, r7, r8 */
BLUESHRK_C300, 12 /*c, vP */
};
static const discrete_op_amp_osc_info blueshark_octopus_vco =
static const discrete_op_amp_osc_info blueshrk_octopus_vco =
{
DISC_OP_AMP_OSCILLATOR_VCO_1 | DISC_OP_AMP_IS_NORTON | DISC_OP_AMP_OSCILLATOR_OUT_SQW,
BLUESHRK_R305, BLUESHRK_R306, BLUESHRK_R307, BLUESHRK_R309, BLUESHRK_R308, 0, 0, 0, /* r1, r2, r3, r4, r5, r6, r7, r8 */
BLUESHRK_C301, 12 /*c, vP */
};
static const discrete_op_amp_1sht_info blueshark_octopus_oneshot =
static const discrete_op_amp_1sht_info blueshrk_octopus_oneshot =
{
DISC_OP_AMP_1SHT_1 | DISC_OP_AMP_IS_NORTON,
BLUESHRK_R315, BLUESHRK_R312, BLUESHRK_R314, BLUESHRK_R313, BLUESHRK_R316, /* r1, r2, r3, r4, r5 */
@ -4229,7 +4266,7 @@ static const discrete_op_amp_1sht_info blueshark_octopus_oneshot =
0, 12 /* vN, vP */
};
static const discrete_integrate_info blueshark_octopus_integrate =
static const discrete_integrate_info blueshrk_octopus_integrate =
{
DISC_INTEGRATE_OP_AMP_1 | DISC_OP_AMP_IS_NORTON,
BLUESHRK_R318, BLUESHRK_R317, 0, BLUESHRK_C304, /* r1, r2, r3, c */
@ -4237,13 +4274,30 @@ static const discrete_integrate_info blueshark_octopus_integrate =
0, 0, 0 /* f0, f1, f2 */
};
static const discrete_op_amp_info blueshark_octopus_amp =
static const discrete_op_amp_info blueshrk_octopus_amp =
{
DISC_OP_AMP_IS_NORTON,
BLUESHRK_R310, BLUESHRK_R319, BLUESHRK_R320, BLUESHRK_R321, /* r1, r2, r3, r4 */
0, 0, 12 /* c, vN, vP */
};
static const discrete_lfsr_desc blueshrk_lfsr =
{
DISC_CLK_IS_FREQ,
17, /* bit length */
/* the RC network fed into pin 4, has the effect
of presetting all bits high at power up */
0x1ffff, /* reset value */
4, /* use bit 4 as XOR input 0 */
16, /* use bit 16 as XOR input 1 */
DISC_LFSR_XOR, /* feedback stage1 is XOR */
DISC_LFSR_OR, /* feedback stage2 is just stage 1 output OR with external feed */
DISC_LFSR_REPLACE, /* feedback stage3 replaces the shifted register contents */
0x000001, /* everything is shifted into the first bit only */
DISC_LFSR_FLAG_OUTPUT_SR_SN1, /* output is not inverted */
12 /* output bit */
};
static const discrete_555_desc blueshrk_555_H1B =
{
DISC_555_OUT_ENERGY | DISC_555_OUT_DC,
@ -4252,13 +4306,63 @@ static const discrete_555_desc blueshrk_555_H1B =
12 /* the OC buffer H2 converts the output voltage to 12V. */
};
static const discrete_op_amp_osc_info blueshrk_shark_osc1 =
{
DISC_OP_AMP_OSCILLATOR_2 | DISC_OP_AMP_IS_NORTON | DISC_OP_AMP_OSCILLATOR_OUT_ENERGY,
0, BLUESHRK_R701, BLUESHRK_R703, BLUESHRK_R702, 0, BLUESHRK_R700, 0, 0, /* r1, r2, r3, r4, r5, r6, r7, r8 */
BLUESHRK_C700, 12 /*c, vP */
};
static const discrete_op_amp_osc_info blueshrk_shark_osc2 =
{
DISC_OP_AMP_OSCILLATOR_2 | DISC_OP_AMP_IS_NORTON | DISC_OP_AMP_OSCILLATOR_OUT_ENERGY,
0, BLUESHRK_R706, BLUESHRK_R708, BLUESHRK_R707, 0, BLUESHRK_R705, 0, 0, /* r1, r2, r3, r4, r5, r6, r7, r8 */
BLUESHRK_C700, 12 /*c, vP */
};
static const discrete_op_amp_osc_info blueshrk_shark_osc3 =
{
DISC_OP_AMP_OSCILLATOR_2 | DISC_OP_AMP_IS_NORTON | DISC_OP_AMP_OSCILLATOR_OUT_ENERGY,
0, BLUESHRK_R711, BLUESHRK_R713, BLUESHRK_R712, 0, BLUESHRK_R710, 0, 0, /* r1, r2, r3, r4, r5, r6, r7, r8 */
BLUESHRK_C700, 12 /*c, vP */
};
static const discrete_mixer_desc blueshrk_shark_mixer =
{
DISC_MIXER_IS_RESISTOR,
{BLUESHRK_R704, BLUESHRK_R709, BLUESHRK_R714},
{0}, {0}, 0, 0, 0, 0, 0, 1 /* r_node, c, rI, rF, cF, cAmp, vRef, gain */
};
static const discrete_op_amp_info blueshrk_shark_amp_m3 =
{
DISC_OP_AMP_IS_NORTON,
0, BLUESHRK_R715 + RES_3_PARALLEL(BLUESHRK_R704, BLUESHRK_R709, BLUESHRK_R714), BLUESHRK_R716, 0, /* r1, r2, r3, r4 */
0, 0, 12 /* c, vN, vP */
};
static const discrete_op_amp_osc_info blueshrk_shark_vco =
{
DISC_OP_AMP_OSCILLATOR_VCO_3 | DISC_OP_AMP_IS_NORTON | DISC_OP_AMP_OSCILLATOR_OUT_ENERGY,
BLUESHRK_R717, BLUESHRK_R722, BLUESHRK_R719, BLUESHRK_R721, BLUESHRK_R720, /* r1, r2, r3, r4, r5 */
0, 0, BLUESHRK_R718, /* r6, r7, r8 */
BLUESHRK_C703, 12 /*c, vP */
};
static const discrete_op_amp_info blueshrk_shark_amp_k3 =
{
DISC_OP_AMP_IS_NORTON,
BLUESHRK_R724 + BLUESHRK_R725 + BLUESHRK_R726, /* r1 */
BLUESHRK_R723 , BLUESHRK_R727, BLUESHRK_R728, /* r2, r3, r4 */
0, 0, 12 /* c, vN, vP */
};
static const discrete_mixer_desc blueshrk_mixer =
{
DISC_MIXER_IS_RESISTOR,
{BLUESHRK_R324, RES_2_PARALLEL(BLUESHRK_R520, BLUESHRK_R521) + BLUESHRK_R529, BLUESHRK_R604 + BLUESHRK_R605, BLUESHRK_R730},
{0}, /* r_node */
{BLUESHRK_C305, BLUESHRK_C508, BLUESHRK_C606, BLUESHRK_C704},
{BLUESHRK_C305, BLUESHRK_C508, BLUESHRK_C606, BLUESHRK_C708},
0, 0, 0, BLUESHRK_C900, 0, 1 /* rI, rF, cF, cAmp, vRef, gain */
};
@ -4278,20 +4382,30 @@ static DISCRETE_SOUND_START(blueshrk)
************************************************/
DISCRETE_OP_AMP_OSCILLATOR(NODE_20, /* IC M5, pin 5 */
1, /* ENAB */
&blueshark_octopus_osc)
&blueshrk_octopus_osc)
DISCRETE_OP_AMP_VCO1(NODE_21, /* IC M5, pin 10 */
1, /* ENAB */
NODE_20, /* VMOD1 */
&blueshark_octopus_vco)
&blueshrk_octopus_vco)
DISCRETE_OP_AMP_ONESHOT(NODE_22, /* IC J5, pin 10 */
BLUESHRK_OCTOPUS_EN, &blueshark_octopus_oneshot)
BLUESHRK_OCTOPUS_EN, &blueshrk_octopus_oneshot)
DISCRETE_INTEGRATE(NODE_23, /* IC J5, pin 5 */
NODE_22, 0, /* TRG0,TRG1 */
&blueshark_octopus_integrate)
&blueshrk_octopus_integrate)
DISCRETE_OP_AMP(BLUESHRK_OCTOPUS_SND, /* IC J5, pin 4 */
1, /* ENAB */
NODE_21, NODE_23, /* IN0,IN1 */
&blueshark_octopus_amp)
&blueshrk_octopus_amp)
/************************************************
* Noise
************************************************/
/* Noise clock was breadboarded and measured at 7700Hz */
DISCRETE_LFSR_NOISE(BLUESHRK_NOISE_1, /* IC N5, pin 10 (NODE_11) */
1, 1, /* ENAB, RESET */
7700, 12.0, 0, 12.0 / 2, &blueshrk_lfsr) /* CLK,AMPL,FEED,BIAS,LFSRTB */
DISCRETE_BIT_DECODE(BLUESHRK_NOISE_2, /* IC N5, pin 13 */
NODE_SUB(11, 1), 8, 12) /* INP,BIT_N,VOUT */
/************************************************
* Shot sound
@ -4303,7 +4417,7 @@ static DISCRETE_SOUND_START(blueshrk)
************************************************/
DISCRETE_COUNTER(NODE_40, /* IC H3, pin 5 */
1, BLUESHRK_HIT_EN, /* ENAB,RESET */
FREQ_OF_555(BLUESHRK_R601, 0, BLUESHRK_C600), /* CLK */
FREQ_OF_555(BLUESHRK_R601, 0, BLUESHRK_C600), /* CLK - IC H1, pin 9 */
1, DISC_COUNT_UP, 0, /* MAX,DIR,INIT0 */
DISC_CLK_IS_FREQ)
DISCRETE_SWITCH(NODE_41, /* value of toggled caps */
@ -4319,7 +4433,49 @@ static DISCRETE_SOUND_START(blueshrk)
/************************************************
* Shark sound
************************************************/
DISCRETE_CONSTANT(BLUESHRK_SHARK_SND, 0) /* paceholder for incomplete sound */
DISCRETE_OP_AMP_OSCILLATOR(NODE_50, /* IC M3, pin 4 */
1, /* ENAB */
&blueshrk_shark_osc1)
DISCRETE_OP_AMP_OSCILLATOR(NODE_51, /* IC M3, pin 5 */
1, /* ENAB */
&blueshrk_shark_osc2)
DISCRETE_OP_AMP_OSCILLATOR(NODE_52, /* IC M3, pin 9 */
1, /* ENAB */
&blueshrk_shark_osc3)
DISCRETE_MIXER3(NODE_53,
1, /* ENAB */
NODE_50, NODE_51, NODE_52, &blueshrk_shark_mixer)
/* threshold detector */
/* if any of the above oscillators are low, then the output is low */
DISCRETE_OP_AMP(NODE_54, /* IC M3, pin 10 */
1, /* ENAB */
0, NODE_53, /* IN0,IN1 */
&blueshrk_shark_amp_m3)
DISCRETE_ADDER2(NODE_55, /* diode drops voltage */
1, NODE_54, -0.7) /* ENAB,IN0,IN1 */
DISCRETE_CLAMP(NODE_56, NODE_55, 0, 12) /* IN0,MIN,MAX */
/* VCO disabled if any of the above oscillators or enable are low */
DISCRETE_OP_AMP_VCO1(NODE_57, /* IC K3, pin 5 */
BLUESHRK_SHARK_EN, NODE_56, /* ENAB,VMOD1 */
&blueshrk_shark_vco)
DISCRETE_RCFILTER(NODE_58,
BLUESHRK_NOISE_1, /* IN0 */
BLUESHRK_R724, BLUESHRK_C704)
DISCRETE_RCFILTER(NODE_59,
NODE_58, /* IN0 */
BLUESHRK_R724 + BLUESHRK_R725, BLUESHRK_C704)
DISCRETE_RCFILTER(NODE_60,
NODE_59, /* IN0 */
BLUESHRK_R724 + BLUESHRK_R725 + BLUESHRK_R726, BLUESHRK_C704)
DISCRETE_OP_AMP(NODE_61, /* IC K3, pin 10 */
1, /* ENAB */
NODE_60, NODE_57, /* IN0,IN1 */
&blueshrk_shark_amp_k3)
/* the opamp output is connected directly to a capacitor */
/* we will simulate this using a 1 ohm resistor */
DISCRETE_RCFILTER(BLUESHRK_SHARK_SND,
NODE_61, /* IN0 */
1, BLUESHRK_C707)
/************************************************
* Combine all sound sources.
@ -4332,7 +4488,7 @@ static DISCRETE_SOUND_START(blueshrk)
BLUESHRK_SHARK_SND,
&blueshrk_mixer)
DISCRETE_OUTPUT(NODE_91, 240000)
DISCRETE_OUTPUT(NODE_91, 90000)
DISCRETE_SOUND_END

3
src/mame/drivers/mw8080bw.c
View File

@ -58,6 +58,9 @@
* Phantom II: cloud generator is implemented according to the schematics,
but it doesn't look right. Cloud color mixing to be verified as well
* Dog Patch: find schematics and verify all assumptions
* Blue Shark - all sounds are suspicious. Why is there no diver kill sound?
Why does the shark sound so bad and appear rarely?
Schematics need to be verified against real board.
****************************************************************************