Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-05-22 05:38:52 +03:00
Code Issues Actions 6 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

9
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
node->output[0] = i * info->r4;
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;

135
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. */
@ -1661,7 +1730,7 @@ static DISCRETE_STEP(dss_inverter_osc)
default:
fatalerror("DISCRETE_INVERTER_OSC - Wrong type on NODE_%02d", NODE_BLOCKINDEX(node));
}
clamped = 0;
if (info->clamp >= 0.0)
{
@ -1676,7 +1745,7 @@ static DISCRETE_STEP(dss_inverter_osc)
clamped = 1;
}
}
switch (info->options & DISC_OSC_INVERTER_TYPE_MASK)
{
case DISC_OSC_INVERTER_IS_TYPE1:
@ -1684,7 +1753,7 @@ static DISCRETE_STEP(dss_inverter_osc)
case DISC_OSC_INVERTER_IS_TYPE3:
if (clamped)
{
double ratio = context->rp / (context->rp + context->r1);
double ratio = context->rp / (context->rp + context->r1);
diff = vG3 * (ratio)
- (context->v_cap + vG2)
+ vI * (1.0 - ratio);
@ -1718,7 +1787,7 @@ static DISCRETE_STEP(dss_inverter_osc)
{
rMix = 1.0 / rMix + 1.0 / context->rp;
rMix = 1.0 / rMix;
vMix = rMix * ( (vG3 - vG2) / context->r1 + (DSS_INVERTER_OSC__MOD - vG2) / context->r2
vMix = rMix * ( (vG3 - vG2) / context->r1 + (DSS_INVERTER_OSC__MOD - vG2) / context->r2
+ (vI + 0.7 - vG2) / context->rp);
}
diff = vMix - context->v_cap;

64
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)
@ -820,24 +820,25 @@
* DISC_OP_AMP_OSCILLATOR_1 | DISC_OP_AMP_IS_NORTON
* Basic Norton Op Amp Oscillator circuit.
*
* vP >-.
* | c
* Z .---||----+---------------------------> DISC_OP_AMP_OSCILLATOR_OUT_CAP
* Z r1 | |
* Z | |\ |
* | | | \ | |\
* '-----+---|- \ | r3 | \
* | >-+----ZZZZ----|- \
* |+ / | >--+-------> DISC_OP_AMP_OSCILLATOR_OUT_SQW
* .---| / .--|+ / |
* | |/ r5 | | / |
* | vP >--ZZZZ---+ |/ |
* Z | |
* Z r2 | r4 |
* Z '--ZZZZ---+
* | |
* | |
* '-----------------------------'
* vP >-.
* | c
* Z .---||----+-------------------------> DISC_OP_AMP_OSCILLATOR_OUT_CAP
* Z r1 | |
* Z | |\ |
* | | | \ | |\
* '-----+---|- \ | r3 | \
* | >-+----ZZZZ----|- \
* |+ / | >--+-----> DISC_OP_AMP_OSCILLATOR_OUT_SQW
* .---| / .--|+ / |
* | |/ r5 | | / |
* vP >-. | vP >--ZZZZ---+ |/ |
* | Z | |
* Z Z r2 | r4 |
* Z 1k Z '--ZZZZ---+
* Z | |
* |\ | 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---+ |/ |
* Z | |
* Z r2 | r4 |
* Z '--ZZZZ---+
* | |
* | |
* '-----------------------------'
* vP >-. | vP >--ZZZZ---+ |/ |
* | Z | |
* Z Z r2 | r4 |
* Z 1k Z '--ZZZZ---+
* Z | |
* |\ | 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

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

@ -56,8 +56,11 @@
* Space Encounters: verify trench colors
* Space Encounters: verify strobe light frequency
* Phantom II: cloud generator is implemented according to the schematics,
but it doesn't look right. Cloud color mixing to be verified as well
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.
****************************************************************************