summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/drivers/berzerk.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/drivers/berzerk.c')
-rw-r--r--src/mame/drivers/berzerk.c896
1 files changed, 896 insertions, 0 deletions
diff --git a/src/mame/drivers/berzerk.c b/src/mame/drivers/berzerk.c
new file mode 100644
index 00000000000..a626469e498
--- /dev/null
+++ b/src/mame/drivers/berzerk.c
@@ -0,0 +1,896 @@
+/***************************************************************************
+
+ Berzerk hardware
+
+ Driver by Zsolt Vasvari
+ Original sound driver by Alex Judd
+ New sound driver by Aaron Giles, R. Belmont and Lord Nightmare
+
+***************************************************************************/
+
+#include "driver.h"
+#include "berzerk.h"
+#include "machine/74181.h"
+#include "video/resnet.h"
+
+
+#define MONITOR_TYPE_PORT_TAG ("MONITOR_TYPE")
+
+#define MAIN_CPU_CLOCK (BERZERK_MASTER_CLOCK / 4)
+#define PIXEL_CLOCK (BERZERK_MASTER_CLOCK / 2)
+#define HTOTAL (0x140)
+#define HBEND (0x000)
+#define HBSTART (0x100)
+#define VTOTAL (0x106)
+#define VBEND (0x020)
+#define VBSTART (0x100)
+#define VCOUNTER_START_NO_VBLANK (0x020)
+#define VCOUNTER_START_VBLANK (0x0da)
+#define IRQS_PER_FRAME (2)
+#define NMIS_PER_FRAME (8)
+
+static const UINT8 irq_trigger_counts[IRQS_PER_FRAME] = { 0x80, 0xda };
+static const UINT8 irq_trigger_v256s [IRQS_PER_FRAME] = { 0x00, 0x01 };
+
+static const UINT8 nmi_trigger_counts[NMIS_PER_FRAME] = { 0x30, 0x50, 0x70, 0x90, 0xb0, 0xd0, 0xf0, 0xf0 };
+static const UINT8 nmi_trigger_v256s [NMIS_PER_FRAME] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01 };
+
+
+static UINT8 *berzerk_videoram;
+static size_t berzerk_videoram_size;
+static UINT8 *berzerk_colorram;
+
+static UINT8 magicram_control; /* 8-bit latch @ 6C */
+static UINT8 last_shift_data; /* 7-bit latch @ 7C */
+static UINT8 intercept; /* J-K flip-flop @ 6B */
+
+static emu_timer *irq_timer;
+static emu_timer *nmi_timer;
+static UINT8 irq_enabled; /* J-K flip-flop @ 3D */
+static UINT8 nmi_enabled; /* flip-flop made out of 2 NAND gates @ 1D */
+
+
+
+/*************************************
+ *
+ * Start LED handling
+ *
+ *************************************/
+
+static READ8_HANDLER( led_on_r )
+{
+ set_led_status(0, 1);
+
+ return 0;
+}
+
+
+static WRITE8_HANDLER( led_on_w )
+{
+ set_led_status(0, 1);
+}
+
+
+static READ8_HANDLER( led_off_r )
+{
+ set_led_status(0, 0);
+
+ return 0;
+}
+
+
+static WRITE8_HANDLER( led_off_w )
+{
+ set_led_status(0, 0);
+}
+
+
+
+/*************************************
+ *
+ * Convert to/from our line counting
+ * to the hardware's vsync chain
+ *
+ *************************************/
+
+static void vpos_to_vysnc_chain_counter(int vpos, UINT8 *counter, UINT8 *v256)
+{
+ /* convert from a vertical position to the actual values on the vertical sync counters */
+ *v256 = ((vpos < VBEND) || (vpos >= VBSTART));
+
+ if (*v256)
+ {
+ int temp = vpos - VBSTART + VCOUNTER_START_VBLANK;
+
+ if (temp < 0)
+ *counter = temp + VTOTAL;
+ else
+ *counter = temp;
+ }
+ else
+ *counter = vpos;
+}
+
+
+static int vysnc_chain_counter_to_vpos(UINT8 counter, UINT8 v256)
+{
+ /* convert from the vertical sync counters to an actual vertical position */
+ int vpos;
+
+ if (v256)
+ {
+ vpos = counter - VCOUNTER_START_VBLANK + VBSTART;
+
+ if (vpos >= VTOTAL)
+ vpos = vpos - VTOTAL;
+ }
+ else
+ vpos = counter;
+
+ return vpos;
+}
+
+
+
+/*************************************
+ *
+ * IRQ generation
+ *
+ * There are two IRQ's per frame
+ *
+ *************************************/
+
+static WRITE8_HANDLER( irq_enable_w )
+{
+ irq_enabled = data & 0x01;
+}
+
+
+static TIMER_CALLBACK( irq_callback )
+{
+ int irq_number = param;
+ UINT8 next_counter;
+ UINT8 next_v256;
+ int next_vpos;
+ int next_irq_number;
+
+ /* set the IRQ line if enabled */
+ if (irq_enabled)
+ cpunum_set_input_line_and_vector(0, 0, HOLD_LINE, 0xfc);
+
+ /* set up for next interrupt */
+ next_irq_number = (irq_number + 1) % IRQS_PER_FRAME;
+ next_counter = irq_trigger_counts[next_irq_number];
+ next_v256 = irq_trigger_v256s[next_irq_number];
+
+ next_vpos = vysnc_chain_counter_to_vpos(next_counter, next_v256);
+ timer_adjust(irq_timer, video_screen_get_time_until_pos(0, next_vpos, 0), next_irq_number, attotime_zero);
+}
+
+
+static void create_irq_timer(void)
+{
+ irq_timer = timer_alloc(irq_callback);
+}
+
+
+static void start_irq_timer(void)
+{
+ int vpos = vysnc_chain_counter_to_vpos(irq_trigger_counts[0], irq_trigger_v256s[0]);
+ timer_adjust(irq_timer, video_screen_get_time_until_pos(0, vpos, 0), 0, attotime_zero);
+}
+
+
+
+/*************************************
+ *
+ * NMI generation
+ *
+ * An NMI is asserted roughly every
+ * 32 scanlines when V16 clocks HI.
+ * The NMI is cleared 2 pixels later.
+ * Since this happens so quickly, I am
+ * not emulating it, just pulse
+ * the line instead.
+ *
+ *************************************/
+
+static WRITE8_HANDLER( nmi_enable_w )
+{
+ nmi_enabled = 1;
+}
+
+
+static WRITE8_HANDLER( nmi_disable_w )
+{
+ nmi_enabled = 0;
+}
+
+
+static READ8_HANDLER( nmi_enable_r )
+{
+ nmi_enabled = 1;
+
+ return 0;
+}
+
+
+static READ8_HANDLER( nmi_disable_r )
+{
+ nmi_enabled = 0;
+
+ return 0;
+}
+
+
+static TIMER_CALLBACK( nmi_callback )
+{
+ int nmi_number = param;
+ UINT8 next_counter;
+ UINT8 next_v256;
+ int next_vpos;
+ int next_nmi_number;
+
+ /* pulse the NMI line if enabled */
+ if (nmi_enabled)
+ cpunum_set_input_line(0, INPUT_LINE_NMI, PULSE_LINE);
+
+ /* set up for next interrupt */
+ next_nmi_number = (nmi_number + 1) % NMIS_PER_FRAME;
+ next_counter = nmi_trigger_counts[next_nmi_number];
+ next_v256 = nmi_trigger_v256s[next_nmi_number];
+
+ next_vpos = vysnc_chain_counter_to_vpos(next_counter, next_v256);
+ timer_adjust(nmi_timer, video_screen_get_time_until_pos(0, next_vpos, 0), next_nmi_number, attotime_zero);
+}
+
+
+static void create_nmi_timer(void)
+{
+ nmi_timer = timer_alloc(nmi_callback);
+}
+
+
+static void start_nmi_timer(void)
+{
+ int vpos = vysnc_chain_counter_to_vpos(nmi_trigger_counts[0], nmi_trigger_v256s[0]);
+ timer_adjust(nmi_timer, video_screen_get_time_until_pos(0, vpos, 0), 0, attotime_zero);
+}
+
+
+
+/*************************************
+ *
+ * Machine setup
+ *
+ *************************************/
+
+static MACHINE_START( berzerk )
+{
+ create_irq_timer();
+ create_nmi_timer();
+
+ /* register for state saving */
+ state_save_register_global(magicram_control);
+ state_save_register_global(last_shift_data);
+ state_save_register_global(intercept);
+ state_save_register_global(irq_enabled);
+ state_save_register_global(nmi_enabled);
+}
+
+
+
+/*************************************
+ *
+ * Machine reset
+ *
+ *************************************/
+
+static MACHINE_RESET( berzerk )
+{
+ irq_enabled = 0;
+ nmi_enabled = 0;
+ set_led_status(0, 0);
+ magicram_control = 0;
+
+ start_irq_timer();
+ start_nmi_timer();
+}
+
+
+
+/*************************************
+ *
+ * Video system
+ *
+ *************************************/
+
+#define NUM_PENS (0x10)
+
+#define LS181_12C (0)
+#define LS181_10C (1)
+
+
+static VIDEO_START( berzerk )
+{
+ TTL74181_config(LS181_12C, 0);
+ TTL74181_write(LS181_12C, TTL74181_INPUT_M, 1, 1);
+
+ TTL74181_config(LS181_10C, 0);
+ TTL74181_write(LS181_10C, TTL74181_INPUT_M, 1, 1);
+}
+
+
+static WRITE8_HANDLER( magicram_w )
+{
+ UINT8 alu_output;
+
+ UINT8 current_video_data = berzerk_videoram[offset];
+
+ /* shift data towards LSB. MSB bits are filled by data from last_shift_data.
+ The shifter consists of 5 74153 devices @ 7A, 8A, 9A, 10A and 11A,
+ followed by 4 more 153's at 11B, 10B, 9B and 8B, which optionally
+ reverse the order of the resulting bits */
+ UINT8 shift_flop_output = (((UINT16)last_shift_data << 8) | data) >> (magicram_control & 0x07);
+
+ if (magicram_control & 0x08)
+ shift_flop_output = BITSWAP8(shift_flop_output, 0, 1, 2, 3, 4, 5, 6, 7);
+
+ /* collision detection - AND gate output goes to the K pin of the flip-flop,
+ while J is LO, therefore, it only resets, never sets */
+ if (shift_flop_output & current_video_data)
+ intercept = 0;
+
+ /* perform ALU step */
+ TTL74181_write(LS181_12C, TTL74181_INPUT_A0, 4, shift_flop_output & 0x0f);
+ TTL74181_write(LS181_10C, TTL74181_INPUT_A0, 4, shift_flop_output >> 4);
+ TTL74181_write(LS181_12C, TTL74181_INPUT_B0, 4, current_video_data & 0x0f);
+ TTL74181_write(LS181_10C, TTL74181_INPUT_B0, 4, current_video_data >> 4);
+ TTL74181_write(LS181_12C, TTL74181_INPUT_S0, 4, magicram_control >> 4);
+ TTL74181_write(LS181_10C, TTL74181_INPUT_S0, 4, magicram_control >> 4);
+
+ alu_output = (TTL74181_read(LS181_10C, TTL74181_OUTPUT_F0, 4) << 4) |
+ (TTL74181_read(LS181_12C, TTL74181_OUTPUT_F0, 4) << 0);
+
+ berzerk_videoram[offset] = alu_output ^ 0xff;
+
+ /* save data for next time */
+ last_shift_data = data & 0x7f;
+}
+
+
+static WRITE8_HANDLER( magicram_control_w )
+{
+ /* save the control byte, clear the shift data latch,
+ and set the intercept flip-flop */
+ magicram_control = data;
+ last_shift_data = 0;
+ intercept = 1;
+}
+
+
+static READ8_HANDLER( intercept_v256_r )
+{
+ UINT8 counter;
+ UINT8 v256;
+
+ vpos_to_vysnc_chain_counter(video_screen_get_vpos(0), &counter, &v256);
+
+ return (!intercept << 7) | v256;
+}
+
+
+static void get_pens(pen_t *pens)
+{
+ static const int resistances_wg[] = { 750, 0 };
+ static const int resistances_el[] = { 1.0 / ((1.0 / 750.0) + (1.0 / 360.0)), 0 };
+
+ int color;
+ double color_weights[2];
+
+ if (readinputportbytag(MONITOR_TYPE_PORT_TAG) == 0)
+ compute_resistor_weights(0, 0xff, -1.0,
+ 2, resistances_wg, color_weights, 0, 270,
+ 2, resistances_wg, color_weights, 0, 270,
+ 2, resistances_wg, color_weights, 0, 270);
+ else
+ compute_resistor_weights(0, 0xff, -1.0,
+ 2, resistances_el, color_weights, 0, 270,
+ 2, resistances_el, color_weights, 0, 270,
+ 2, resistances_el, color_weights, 0, 270);
+
+ for (color = 0; color < NUM_PENS; color++)
+ {
+ UINT8 r_bit = (color >> 0) & 0x01;
+ UINT8 g_bit = (color >> 1) & 0x01;
+ UINT8 b_bit = (color >> 2) & 0x01;
+ UINT8 i_bit = (color >> 3) & 0x01;
+
+ UINT8 r = combine_2_weights(color_weights, r_bit & i_bit, r_bit);
+ UINT8 g = combine_2_weights(color_weights, g_bit & i_bit, g_bit);
+ UINT8 b = combine_2_weights(color_weights, b_bit & i_bit, b_bit);
+
+ pens[color] = MAKE_RGB(r, g, b);
+ }
+}
+
+
+static VIDEO_UPDATE( berzerk )
+{
+ pen_t pens[NUM_PENS];
+ offs_t offs;
+
+ get_pens(pens);
+
+ for (offs = 0; offs < berzerk_videoram_size; offs++)
+ {
+ int i;
+
+ UINT8 data = berzerk_videoram[offs];
+ UINT8 color = berzerk_colorram[((offs >> 2) & 0x07e0) | (offs & 0x001f)];
+
+ UINT8 y = offs >> 5;
+ UINT8 x = offs << 3;
+
+ for (i = 0; i < 4; i++)
+ {
+ pen_t pen = (data & 0x80) ? pens[color >> 4] : RGB_BLACK;
+ *BITMAP_ADDR32(bitmap, y, x) = pen;
+
+ x = x + 1;
+ data = data << 1;
+ }
+
+ for (; i < 8; i++)
+ {
+ pen_t pen = (data & 0x80) ? pens[color & 0x0f] : RGB_BLACK;
+ *BITMAP_ADDR32(bitmap, y, x) = pen;
+
+ x = x + 1;
+ data = data << 1;
+ }
+ }
+
+ return 0;
+}
+
+
+
+/*************************************
+ *
+ * Memory handlers
+ *
+ *************************************/
+
+static ADDRESS_MAP_START( berzerk_map, ADDRESS_SPACE_PROGRAM, 8 )
+ AM_RANGE(0x0000, 0x07ff) AM_ROM
+ AM_RANGE(0x0800, 0x0bff) AM_MIRROR(0x0400) AM_RAM AM_BASE(&generic_nvram) AM_SIZE(&generic_nvram_size)
+ AM_RANGE(0x1000, 0x3fff) AM_ROM
+ AM_RANGE(0x4000, 0x5fff) AM_RAM AM_BASE(&berzerk_videoram) AM_SIZE(&berzerk_videoram_size) AM_SHARE(1)
+ AM_RANGE(0x6000, 0x7fff) AM_READWRITE(MRA8_RAM, magicram_w) AM_SHARE(1)
+ AM_RANGE(0x8000, 0x87ff) AM_MIRROR(0x3800) AM_RAM AM_BASE(&berzerk_colorram)
+ AM_RANGE(0xc000, 0xffff) AM_NOP
+ADDRESS_MAP_END
+
+
+static ADDRESS_MAP_START( frenzy_map, ADDRESS_SPACE_PROGRAM, 8 )
+ AM_RANGE(0x0000, 0x3fff) AM_ROM
+ AM_RANGE(0x4000, 0x5fff) AM_RAM AM_BASE(&berzerk_videoram) AM_SIZE(&berzerk_videoram_size) AM_SHARE(1)
+ AM_RANGE(0x6000, 0x7fff) AM_READWRITE(MRA8_RAM, magicram_w) AM_SHARE(1)
+ AM_RANGE(0x8000, 0x87ff) AM_MIRROR(0x3800) AM_RAM AM_BASE(&berzerk_colorram)
+ AM_RANGE(0xc000, 0xcfff) AM_ROM
+ AM_RANGE(0xf800, 0xfbff) AM_MIRROR(0x0400) AM_RAM AM_BASE(&generic_nvram) AM_SIZE(&generic_nvram_size)
+ADDRESS_MAP_END
+
+
+
+/*************************************
+ *
+ * Port handlers
+ *
+ *************************************/
+
+static ADDRESS_MAP_START( berzerk_io_map, ADDRESS_SPACE_IO, 8 )
+ ADDRESS_MAP_FLAGS( AMEF_ABITS(8) )
+ AM_RANGE(0x00, 0x3f) AM_NOP
+ AM_RANGE(0x40, 0x47) AM_READWRITE(berzerk_audio_r, berzerk_audio_w)
+ AM_RANGE(0x48, 0x48) AM_READWRITE(input_port_0_r, MWA8_NOP)
+ AM_RANGE(0x49, 0x49) AM_READWRITE(input_port_1_r, MWA8_NOP)
+ AM_RANGE(0x4a, 0x4a) AM_READWRITE(input_port_2_r, MWA8_NOP)
+ AM_RANGE(0x4b, 0x4b) AM_READWRITE(MRA8_NOP, magicram_control_w)
+ AM_RANGE(0x4c, 0x4c) AM_READWRITE(nmi_enable_r, nmi_enable_w)
+ AM_RANGE(0x4d, 0x4d) AM_READWRITE(nmi_disable_r, nmi_disable_w)
+ AM_RANGE(0x4e, 0x4e) AM_READWRITE(intercept_v256_r, MWA8_NOP)
+ AM_RANGE(0x4f, 0x4f) AM_READWRITE(MRA8_NOP, irq_enable_w)
+ AM_RANGE(0x50, 0x57) AM_NOP /* second sound board, but not used */
+ AM_RANGE(0x58, 0x5f) AM_NOP
+ AM_RANGE(0x60, 0x60) AM_MIRROR(0x18) AM_READWRITE(input_port_3_r, MWA8_NOP)
+ AM_RANGE(0x61, 0x61) AM_MIRROR(0x18) AM_READWRITE(input_port_4_r, MWA8_NOP)
+ AM_RANGE(0x62, 0x62) AM_MIRROR(0x18) AM_READWRITE(input_port_5_r, MWA8_NOP)
+ AM_RANGE(0x63, 0x63) AM_MIRROR(0x18) AM_READWRITE(input_port_6_r, MWA8_NOP)
+ AM_RANGE(0x64, 0x64) AM_MIRROR(0x18) AM_READWRITE(input_port_7_r, MWA8_NOP)
+ AM_RANGE(0x65, 0x65) AM_MIRROR(0x18) AM_READWRITE(input_port_8_r, MWA8_NOP)
+ AM_RANGE(0x66, 0x66) AM_MIRROR(0x18) AM_READWRITE(led_off_r, led_off_w)
+ AM_RANGE(0x67, 0x67) AM_MIRROR(0x18) AM_READWRITE(led_on_r, led_on_w)
+ AM_RANGE(0x80, 0xff) AM_NOP
+ADDRESS_MAP_END
+
+
+
+/*************************************
+ *
+ * Port definitions
+ *
+ *************************************/
+
+#define BERZERK_COINAGE(CHUTE, DIPBANK) \
+ PORT_DIPNAME( 0x0f, 0x00, "Coin "#CHUTE ) PORT_DIPLOCATION(#DIPBANK":1,2,3,4") \
+ PORT_DIPSETTING( 0x09, DEF_STR( 2C_1C ) ) \
+ PORT_DIPSETTING( 0x0d, DEF_STR( 4C_3C ) ) \
+ PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ) ) \
+ PORT_DIPSETTING( 0x0e, DEF_STR( 4C_5C ) ) \
+ PORT_DIPSETTING( 0x0a, DEF_STR( 2C_3C ) ) \
+ PORT_DIPSETTING( 0x0f, DEF_STR( 4C_7C ) ) \
+ PORT_DIPSETTING( 0x01, DEF_STR( 1C_2C ) ) \
+ PORT_DIPSETTING( 0x0b, DEF_STR( 2C_5C ) ) \
+ PORT_DIPSETTING( 0x02, DEF_STR( 1C_3C ) ) \
+ PORT_DIPSETTING( 0x0c, DEF_STR( 2C_7C ) ) \
+ PORT_DIPSETTING( 0x03, DEF_STR( 1C_4C ) ) \
+ PORT_DIPSETTING( 0x04, DEF_STR( 1C_5C ) ) \
+ PORT_DIPSETTING( 0x05, DEF_STR( 1C_6C ) ) \
+ PORT_DIPSETTING( 0x06, DEF_STR( 1C_7C ) ) \
+ PORT_DIPSETTING( 0x07, "1 Coin/10 Credits" ) \
+ PORT_DIPSETTING( 0x08, "1 Coin/14 Credits" ) \
+ PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED )
+
+
+static INPUT_PORTS_START( berzerk )
+ PORT_START /* IN0 */
+ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY
+ PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY
+ PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY
+ PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY
+ PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON1 )
+ PORT_BIT( 0xe0, IP_ACTIVE_LOW, IPT_UNUSED )
+
+ PORT_START /* IN1 */
+ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_START1 )
+ PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_START2 )
+ PORT_BIT( 0x1c, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_COIN3 )
+ PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_COIN2 )
+ PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_COIN1 )
+
+ PORT_START /* IN2 */
+ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_COCKTAIL
+ PORT_BIT( 0x60, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_DIPNAME( 0x80, 0x80, DEF_STR( Cabinet ) )
+ PORT_DIPSETTING( 0x80, DEF_STR( Upright ) )
+ PORT_DIPSETTING( 0x00, DEF_STR( Cocktail ) )
+
+ PORT_START /* IN3 */
+ PORT_BIT( 0x01, 0x00, IPT_DIPSWITCH_NAME ) PORT_NAME("Input Test Mode") PORT_CODE(KEYCODE_F2) PORT_TOGGLE PORT_DIPLOCATION("F3:1")
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x01, DEF_STR( On ) )
+ PORT_BIT( 0x02, 0x00, IPT_DIPSWITCH_NAME ) PORT_NAME("Crosshair Pattern") PORT_CODE(KEYCODE_F4) PORT_TOGGLE PORT_DIPLOCATION("F3:2")
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x02, DEF_STR( On ) )
+ PORT_BIT( 0x3c, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_DIPNAME( 0xc0, 0x00, DEF_STR( Language ) ) PORT_DIPLOCATION("F3:7,8")
+ PORT_DIPSETTING( 0x00, DEF_STR( English ) )
+ PORT_DIPSETTING( 0x40, DEF_STR( German ) )
+ PORT_DIPSETTING( 0x80, DEF_STR( French ) )
+ PORT_DIPSETTING( 0xc0, DEF_STR( Spanish ) )
+
+ PORT_START /* IN4 */
+ PORT_BIT( 0x03, 0x00, IPT_DIPSWITCH_NAME ) PORT_NAME("Color Test") PORT_CODE(KEYCODE_F5) PORT_TOGGLE PORT_DIPLOCATION("F2:1,2")
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x03, DEF_STR( On ) )
+ PORT_BIT( 0x3c, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_DIPNAME( 0xc0, 0xc0, DEF_STR( Bonus_Life ) ) PORT_DIPLOCATION("F2:7,8")
+ PORT_DIPSETTING( 0xc0, "5000 and 10000" )
+ PORT_DIPSETTING( 0x40, "5000" )
+ PORT_DIPSETTING( 0x80, "10000" )
+ PORT_DIPSETTING( 0x00, DEF_STR( None ) )
+
+ PORT_START /* IN5 */
+ BERZERK_COINAGE(3, F6)
+
+ PORT_START /* IN6 */
+ BERZERK_COINAGE(2, F5)
+
+ PORT_START /* IN7 */
+ BERZERK_COINAGE(1, F4)
+
+ PORT_START /* IN8 */
+ PORT_DIPNAME( 0x01, 0x00, DEF_STR( Free_Play ) ) PORT_DIPLOCATION("SW2:1")
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x01, DEF_STR( On ) )
+ PORT_BIT( 0x7e, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Stats") PORT_CODE(KEYCODE_F1)
+
+ /* fake port for monitor type */
+ PORT_START_TAG(MONITOR_TYPE_PORT_TAG)
+ PORT_CONFNAME( 0x01, 0x00, "Monitor Type" )
+ PORT_CONFSETTING( 0x00, "Wells-Gardner" )
+ PORT_CONFSETTING( 0x01, "Electrohome" )
+ PORT_BIT( 0xfe, IP_ACTIVE_HIGH, IPT_UNUSED )
+INPUT_PORTS_END
+
+
+static INPUT_PORTS_START( frenzy )
+ PORT_START /* IN0 */
+ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY
+ PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY
+ PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY
+ PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY
+ PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON1 )
+ PORT_BIT( 0xe0, IP_ACTIVE_LOW, IPT_UNUSED )
+
+ PORT_START /* IN1 */
+ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_START1 )
+ PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_START2 )
+ PORT_BIT( 0x3c, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_COIN2 )
+ PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_COIN1 )
+
+ PORT_START /* IN2 */
+ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_COCKTAIL
+ PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_COCKTAIL
+ PORT_BIT( 0x60, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_DIPNAME( 0x80, 0x80, DEF_STR( Cabinet ) )
+ PORT_DIPSETTING( 0x80, DEF_STR( Upright ) )
+ PORT_DIPSETTING( 0x00, DEF_STR( Cocktail ) )
+
+ PORT_START /* IN3 */
+ PORT_DIPNAME( 0x0f, 0x03, DEF_STR( Bonus_Life ) )
+ PORT_DIPSETTING( 0x01, "1000" )
+ PORT_DIPSETTING( 0x02, "2000" )
+ PORT_DIPSETTING( 0x03, "3000" )
+ PORT_DIPSETTING( 0x04, "4000" )
+ PORT_DIPSETTING( 0x05, "5000" )
+ PORT_DIPSETTING( 0x06, "6000" )
+ PORT_DIPSETTING( 0x07, "7000" )
+ PORT_DIPSETTING( 0x08, "8000" )
+ PORT_DIPSETTING( 0x09, "9000" )
+ PORT_DIPSETTING( 0x0a, "10000" )
+ PORT_DIPSETTING( 0x0b, "11000" )
+ PORT_DIPSETTING( 0x0c, "12000" )
+ PORT_DIPSETTING( 0x0d, "13000" )
+ PORT_DIPSETTING( 0x0e, "14000" )
+ PORT_DIPSETTING( 0x0f, "15000" )
+ PORT_DIPSETTING( 0x00, DEF_STR( None ) )
+ PORT_BIT( 0x30, IP_ACTIVE_HIGH, IPT_UNUSED )
+ PORT_DIPNAME( 0xc0, 0x00, DEF_STR( Language ) )
+ PORT_DIPSETTING( 0x00, DEF_STR( English ) )
+ PORT_DIPSETTING( 0x40, DEF_STR( German ) )
+ PORT_DIPSETTING( 0x80, DEF_STR( French ) )
+ PORT_DIPSETTING( 0xc0, DEF_STR( Spanish ) )
+
+ PORT_START /* IN4 */
+ PORT_BIT( 0x03, IP_ACTIVE_HIGH, IPT_UNUSED ) /* Bit 0 does some more hardware tests */
+ PORT_BIT( 0x04, 0x00, IPT_DIPSWITCH_NAME ) PORT_NAME("Input Test Mode") PORT_CODE(KEYCODE_F2) PORT_TOGGLE
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x04, DEF_STR( On ) )
+ PORT_BIT( 0x08, 0x00, IPT_DIPSWITCH_NAME ) PORT_NAME("Crosshair Pattern") PORT_CODE(KEYCODE_F4) PORT_TOGGLE
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x08, DEF_STR( On ) )
+ PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED )
+
+ /* The following 3 ports use all 8 bits, but I didn't feel like adding all 256 values :-) */
+ PORT_START /* IN5 */
+ PORT_DIPNAME( 0x0f, 0x01, "Coins/Credit B" )
+ /*PORT_DIPSETTING( 0x00, "0" ) Can't insert coins */
+ PORT_DIPSETTING( 0x01, "1" )
+ PORT_DIPSETTING( 0x02, "2" )
+ PORT_DIPSETTING( 0x03, "3" )
+ PORT_DIPSETTING( 0x04, "4" )
+ PORT_DIPSETTING( 0x05, "5" )
+ PORT_DIPSETTING( 0x06, "6" )
+ PORT_DIPSETTING( 0x07, "7" )
+ PORT_DIPSETTING( 0x08, "8" )
+ PORT_DIPSETTING( 0x09, "9" )
+ PORT_DIPSETTING( 0x0a, "10" )
+ PORT_DIPSETTING( 0x0b, "11" )
+ PORT_DIPSETTING( 0x0c, "12" )
+ PORT_DIPSETTING( 0x0d, "13" )
+ PORT_DIPSETTING( 0x0e, "14" )
+ PORT_DIPSETTING( 0x0f, "15" )
+ PORT_BIT( 0xf0, IP_ACTIVE_HIGH, IPT_UNUSED )
+
+ PORT_START /* IN6 */
+ PORT_DIPNAME( 0x0f, 0x01, "Coins/Credit A" )
+ /*PORT_DIPSETTING( 0x00, "0" ) Can't insert coins */
+ PORT_DIPSETTING( 0x01, "1" )
+ PORT_DIPSETTING( 0x02, "2" )
+ PORT_DIPSETTING( 0x03, "3" )
+ PORT_DIPSETTING( 0x04, "4" )
+ PORT_DIPSETTING( 0x05, "5" )
+ PORT_DIPSETTING( 0x06, "6" )
+ PORT_DIPSETTING( 0x07, "7" )
+ PORT_DIPSETTING( 0x08, "8" )
+ PORT_DIPSETTING( 0x09, "9" )
+ PORT_DIPSETTING( 0x0a, "10" )
+ PORT_DIPSETTING( 0x0b, "11" )
+ PORT_DIPSETTING( 0x0c, "12" )
+ PORT_DIPSETTING( 0x0d, "13" )
+ PORT_DIPSETTING( 0x0e, "14" )
+ PORT_DIPSETTING( 0x0f, "15" )
+ PORT_BIT( 0xf0, IP_ACTIVE_HIGH, IPT_UNUSED )
+
+ PORT_START /* IN7 */
+ PORT_DIPNAME( 0x0f, 0x01, "Coin Multiplier" )
+ PORT_DIPSETTING( 0x00, DEF_STR( Free_Play ) )
+ PORT_DIPSETTING( 0x01, "1" )
+ PORT_DIPSETTING( 0x02, "2" )
+ PORT_DIPSETTING( 0x03, "3" )
+ PORT_DIPSETTING( 0x04, "4" )
+ PORT_DIPSETTING( 0x05, "5" )
+ PORT_DIPSETTING( 0x06, "6" )
+ PORT_DIPSETTING( 0x07, "7" )
+ PORT_DIPSETTING( 0x08, "8" )
+ PORT_DIPSETTING( 0x09, "9" )
+ PORT_DIPSETTING( 0x0a, "10" )
+ PORT_DIPSETTING( 0x0b, "11" )
+ PORT_DIPSETTING( 0x0c, "12" )
+ PORT_DIPSETTING( 0x0d, "13" )
+ PORT_DIPSETTING( 0x0e, "14" )
+ PORT_DIPSETTING( 0x0f, "15" )
+ PORT_BIT( 0xf0, IP_ACTIVE_HIGH, IPT_UNUSED )
+
+ PORT_START /* IN8 */
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN3 )
+ PORT_BIT( 0x7e, IP_ACTIVE_LOW, IPT_UNUSED )
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_OTHER ) PORT_NAME("Stats") PORT_CODE(KEYCODE_F1)
+
+ /* fake port for monitor type */
+ PORT_START_TAG(MONITOR_TYPE_PORT_TAG)
+ PORT_CONFNAME( 0x01, 0x00, "Monitor Type" )
+ PORT_CONFSETTING( 0x00, "Wells-Gardner" )
+ PORT_CONFSETTING( 0x01, "Electrohome" )
+ PORT_BIT( 0xfe, IP_ACTIVE_HIGH, IPT_UNUSED )
+INPUT_PORTS_END
+
+
+
+/*************************************
+ *
+ * Machine drivers
+ *
+ *************************************/
+
+static MACHINE_DRIVER_START( berzerk )
+
+ /* basic machine hardware */
+ MDRV_CPU_ADD_TAG("main", Z80, MAIN_CPU_CLOCK)
+ MDRV_CPU_PROGRAM_MAP(berzerk_map,0)
+ MDRV_CPU_IO_MAP(berzerk_io_map,0)
+
+ MDRV_MACHINE_START(berzerk)
+ MDRV_MACHINE_RESET(berzerk)
+
+ MDRV_NVRAM_HANDLER(generic_0fill)
+
+ /* video hardware */
+ MDRV_VIDEO_ATTRIBUTES(VIDEO_TYPE_RASTER)
+ MDRV_VIDEO_START(berzerk)
+ MDRV_VIDEO_UPDATE(berzerk)
+
+ MDRV_SCREEN_ADD("main", 0)
+ MDRV_SCREEN_FORMAT(BITMAP_FORMAT_RGB32)
+ MDRV_SCREEN_RAW_PARAMS(PIXEL_CLOCK, HTOTAL, HBEND, HBSTART, VTOTAL, VBEND, VBSTART)
+
+ /* audio hardware */
+ MDRV_IMPORT_FROM(berzerk_audio)
+
+MACHINE_DRIVER_END
+
+
+static MACHINE_DRIVER_START( frenzy )
+
+ /* basic machine hardware */
+ MDRV_IMPORT_FROM(berzerk)
+ MDRV_CPU_MODIFY("main")
+ MDRV_CPU_PROGRAM_MAP(frenzy_map,0)
+
+MACHINE_DRIVER_END
+
+
+
+/*************************************
+ *
+ * ROM definitions
+ *
+ *************************************/
+
+ROM_START( berzerk )
+ ROM_REGION( 0x10000, REGION_CPU1, 0 )
+ ROM_LOAD( "1c-0", 0x0000, 0x0800, CRC(ca566dbc) SHA1(fae2647f12f1cd82826db61b53b116a5e0c9f995) )
+ ROM_LOAD( "1d-1", 0x1000, 0x0800, CRC(7ba69fde) SHA1(69af170c4a39a3494dcd180737e5c87b455f9203) )
+ ROM_LOAD( "3d-2", 0x1800, 0x0800, CRC(a1d5248b) SHA1(a0b7842f6a5f86c16d80d78e7012c78b3ea11d1d) )
+ ROM_LOAD( "5d-3", 0x2000, 0x0800, CRC(fcaefa95) SHA1(07f849aa39f1e3db938187ffde4a46a588156ddc) )
+ ROM_LOAD( "6d-4", 0x2800, 0x0800, CRC(1e35b9a0) SHA1(5a5e549ec0e4803ab2d1eac6b3e7171aedf28244) )
+ ROM_LOAD( "5c-5", 0x3000, 0x0800, CRC(c8c665e5) SHA1(e9eca4b119549e0061384abf52327c14b0d56624) )
+ ROM_FILL( 0x3800, 0x0800, 0xff )
+
+ ROM_REGION( 0x01000, REGION_SOUND1, 0 ) /* voice data */
+ ROM_LOAD( "1c", 0x0000, 0x0800, CRC(2cfe825d) SHA1(f12fed8712f20fa8213f606c4049a8144bfea42e) ) /* VSU-1000 board */
+ ROM_LOAD( "2c", 0x0800, 0x0800, CRC(d2b6324e) SHA1(20a6611ad6ec19409ac138bdae7bdfaeab6c47cf) )
+ROM_END
+
+ROM_START( berzerk1 )
+ ROM_REGION( 0x10000, REGION_CPU1, 0 )
+ ROM_LOAD( "rom0.1c", 0x0000, 0x0800, CRC(5b7eb77d) SHA1(8de488e279036fe40d6fb4c0dde16075309342fd) )
+ ROM_LOAD( "rom1.1d", 0x1000, 0x0800, CRC(e58c8678) SHA1(a11f08448b457d690b270512c9f02fcf1e41d9e0) )
+ ROM_LOAD( "rom2.3d", 0x1800, 0x0800, CRC(705bb339) SHA1(845191df90cd7d80f8fed3d2b69305301d921549) )
+ ROM_LOAD( "rom3.5d", 0x2000, 0x0800, CRC(6a1936b4) SHA1(f1635e9d2f25514c35559d2a247c3bc4b4034c19) )
+ ROM_LOAD( "rom4.6d", 0x2800, 0x0800, CRC(fa5dce40) SHA1(b3a3ee52bf65bbb3a20f905d3e4ebdf6871dcb5d) )
+ ROM_LOAD( "rom5.5c", 0x3000, 0x0800, CRC(2579b9f4) SHA1(890f0237afbb194166eae88c98de81989f408548) )
+ ROM_FILL( 0x3800, 0x0800, 0xff )
+
+ ROM_REGION( 0x01000, REGION_SOUND1, 0 ) /* voice data */
+ ROM_LOAD( "1c", 0x0000, 0x0800, CRC(2cfe825d) SHA1(f12fed8712f20fa8213f606c4049a8144bfea42e) ) /* VSU-1000 board */
+ ROM_LOAD( "2c", 0x0800, 0x0800, CRC(d2b6324e) SHA1(20a6611ad6ec19409ac138bdae7bdfaeab6c47cf) )
+ROM_END
+
+
+ROM_START( frenzy )
+ ROM_REGION( 0x10000, REGION_CPU1, 0 )
+ ROM_LOAD( "1c-0", 0x0000, 0x1000, CRC(abdd25b8) SHA1(e6a3ab826b51b2c6ddd63d55681848fccad800dd) )
+ ROM_LOAD( "1d-1", 0x1000, 0x1000, CRC(536e4ae8) SHA1(913385c43b8902d3d3ad2194a3137e19e61c6573) )
+ ROM_LOAD( "3d-2", 0x2000, 0x1000, CRC(3eb9bc9b) SHA1(1e43e76ae0606a6d41d9006005d6001bdee48694) )
+ ROM_LOAD( "5d-3", 0x3000, 0x1000, CRC(e1d3133c) SHA1(2af4a9bc2b29735a548ae770f872127bc009cc42) )
+ ROM_LOAD( "6d-4", 0xc000, 0x1000, CRC(5581a7b1) SHA1(1f633c1c29d3b64f701c601feba26da66a6c6f23) )
+
+ ROM_REGION( 0x01000, REGION_SOUND1, 0 ) /* voice data */
+ ROM_LOAD( "1c", 0x0000, 0x0800, CRC(2cfe825d) SHA1(f12fed8712f20fa8213f606c4049a8144bfea42e) ) /* VSU-1000 board */
+ ROM_LOAD( "2c", 0x0800, 0x0800, CRC(d2b6324e) SHA1(20a6611ad6ec19409ac138bdae7bdfaeab6c47cf) ) /* ditto */
+
+ ROM_REGION( 0x0020, REGION_PROMS, ROMREGION_DISPOSE )
+ ROM_LOAD( "prom.6e", 0x0000, 0x0020, CRC(4471ca5d) SHA1(ba8dca2ec076818f8ad8c17b15c77965e36fa05e) ) /* address decoder/rom select prom (N82S123N) */
+ROM_END
+
+
+/*
+ The original / prototype version of moon war appears to run on Frenzy hardware, however the only board found
+ had been stripped for parts, leaving only the sound ROMs.
+
+ The more common version of Moon War runs on modified Super Cobra (scobra.c) hardware and is often called
+ 'Moon War 2' because it is the second version, and many of the PCBs are labeled as such
+*/
+ROM_START( moonwarp )
+ ROM_REGION( 0x10000, REGION_CPU1, 0 )
+ ROM_LOAD( "1c", 0x0000, 0x1000, NO_DUMP )
+ /*ROM_LOAD( "3c", 0x?000, 0x?000, NO_DUMP ) */ /* likely unused */
+ ROM_LOAD( "1d", 0x1000, 0x1000, NO_DUMP )
+ ROM_LOAD( "3d", 0x2000, 0x1000, NO_DUMP )
+ ROM_LOAD( "5d", 0x3000, 0x1000, NO_DUMP )
+ ROM_LOAD( "6d", 0xc000, 0x1000, NO_DUMP )
+
+ ROM_REGION( 0x01000, REGION_SOUND1, 0 ) /* voice data */
+ ROM_LOAD( "moonwar.1c.bin", 0x0000, 0x0800, CRC(9e9a653f) SHA1(cf49a38ef343ace271ba1e5dde38bd8b9c0bd876) ) /* VSU-1000 board */
+ ROM_LOAD( "moonwar.2c.bin", 0x0800, 0x0800, CRC(73fd988d) SHA1(08a2aeb4d87eee58e38e4e3f749a95f2308aceb0) ) /* ditto */
+
+ ROM_REGION( 0x0020, REGION_PROMS, ROMREGION_DISPOSE )
+ ROM_LOAD( "prom.6e", 0x0000, 0x0020, CRC(56bffba3) SHA1(c8e24f6361c50bcb4c9d3f39cdaf4172c2a2b318) ) /* address decoder/rom select prom */
+ROM_END
+
+
+
+/*************************************
+ *
+ * Game drivers
+ *
+ *************************************/
+
+GAME( 1980, berzerk, 0, berzerk, berzerk, 0, ROT0, "Stern", "Berzerk (set 1)", 0 )
+GAME( 1980, berzerk1, berzerk, berzerk, berzerk, 0, ROT0, "Stern", "Berzerk (set 2)", 0 )
+GAME( 1981, frenzy, 0, frenzy, frenzy, 0, ROT0, "Stern", "Frenzy", 0 )
+GAME( 1981, moonwarp, 0, frenzy, frenzy, 0, ROT0, "Stern", "Moon War (prototype on Frenzy hardware)", GAME_NOT_WORKING )