diff options
Diffstat (limited to 'src/mame/konami/gberet.cpp')
-rw-r--r-- | src/mame/konami/gberet.cpp | 984 |
1 files changed, 984 insertions, 0 deletions
diff --git a/src/mame/konami/gberet.cpp b/src/mame/konami/gberet.cpp new file mode 100644 index 00000000000..fccd429171a --- /dev/null +++ b/src/mame/konami/gberet.cpp @@ -0,0 +1,984 @@ +// license:BSD-3-Clause +// copyright-holders: Nicola Salmoria + +/*************************************************************************** + + Green Beret + Konami + + driver by Nicola Salmoria + correct ROM naming information by Belgium Dump Team (17/06/2003) + + Games supported: + * Green Beret (GX577) + * Rush'n Attack (US) (GX577) + * Green Beret (bootleg) + * Mr. Goemon (Japan) (GX621) + + gberetb is a bootleg hacked to run on different hardware. + + TODO + - Measure IRQ and NMI frequency (of an original board), is IRQ really tied to the same timer that triggers NMI? + - Correct PROMs decoding for the bootleg + +**************************************************************************** + +Green Beret / Rush'n Attack (Konami, 1985) +Hardware info by Guru + +GX577 +PWB200225A +|-----------------------------------------------------| +| 6264 | +| Z80 577H03.10C 4416 | +| |------| 4416 | +| 577H02.8C |KONAMI| 4416 | +| }005849| 4416 | +| 577H01.7C |------| | +| 577H11.6F | +| 501 577H06.5E 577H10.5F | +| | +| DIPSW3 76489 | +| 18.432MHz 577H05.4E 577H08.4F | +| DIPSW2 | +| | +| DIPSW1 577H04.3E 577H07.3F | +| | +| TA7900S 577H09.2F | +| | +| | +| LA4460 CN1 | +| VOL | +| |--| 18-WAY |--| | +|----------------------| |-----------------| |------| +Notes: + Z80 - NEC D780C-1 Z80-compatible CPU. Clock input 3.072MHz [18.432/6] + 76489 - Texas Instruments SN76489A Digital Complex Sound Generator. Clock input 1.536MHz [18.432/12] + 005849 - Custom Konami 005849 Video Controller + 6264 - Hitachi HM6264 8kBx8-bit SRAM (main program RAM) + 4416 - Mitsubishi M5M4416 16kBx4-bit DRAM (graphics RAM) + LA4460 - Sanyo LA4460 Audio Power Amplifier + DIPSW3 - 4-position DIP switch + DIPSW1/2 - 8-position DIP switch + TA7900S - Toshiba TA7900S 5V Regulator with Watchdog Timer and Reset + CN1 - 4-position connector for separate sync signal + VOL - 1k-ohm Volume Potentiometer + 577H01.7C \ + 577H02.8C \ 27128 EPROM (main program) +577H03.10C / + 577H07.3E - 27128 EPROM (characters) + 577H04.3E \ + 577H05.4E \ + 577H06.5E / 27128 EPROM (sprites) + 577H08.4F / + 577H09.2F - MMI 63S081 32x8-bit Bipolar PROM, compatible with 82S123 (color PROM) + 577H10.5F - MMI 63S141 256x4-bit Bipolar PROM, compatible with 82S129 (sprite lookup table) + 577H11.6F - MMI 63S141 256x4-bit Bipolar PROM, compatible with 82S129 (character lookup table) + + +Green Beret bootleg +Hardware info by Guru + +Note none of the Green Beret bootleg PCBs have numbers/letters along the edge of the PCB. +These have been added so that chip locations can be documented. + +4456 +793 +RING20 + |---------------------------------------------------------------------------------| + | | +J|DSW2 VOL Z80 TBP24S10.J9 20MHz | + | C1181 | +I|DSW1 76489A | + | 2148 2148 | +H| X DIP28 PAL16R6.H5 | + | TBP24S10.G4 | +G| 2.G10 TBP24S10.G5 | + | | +F| 3.F10 | + | | +E| 4.2E | + | | +D| 4364 2148 2148 5.2D | + | | +C| 1.C12 6.2C | + | | +B| 82S123.B13 7.2B | + | | +A| TBP24S10.A12 | + | | + |---------------------------------------------------------------------------------| + 14 13 12 11 10 9 8 7 6 5 4 3 2 1 + +Notes: + Z80 - Sharp LH0080 Z80-compatible CPU. Clock 3.3333MHz [20/6] + 76489 - Texas Instruments SN76489A Digital Complex Sound Generator. Clock input 1.6666MHz [20/12] + HSync - 15.0380kHz + VSync - 58.7090Hz + 1.C12 - 27C128 (background character data) + 2.G10 - 27C256 (main program) + 3.F10 - 27C128 (main program) + 4.E2 - 27C128 (sprite data) + 5.D2 - 27C128 (sprite data) + 6.C2 - 27C128 (sprite data) + 7.B2 - 27C128 (sprite data) + 82S123.B13 - 32x8-bit bipolar PROM (color PROM) +TBP24S10.A12 - 256x4-bit bipolar PROM (possibly also a color PROM) + TBP24S10.J9 - 256x4-bit bipolar PROM + TBP24S10.G4 - 256x4-bit bipolar PROM + TBP24S10.G5 - 256x4-bit bipolar PROM + 4364 - NEC D4364 8kBx8-bit SRAM + 2148 - Fujitsu MBM2148 1kBx4-bit SRAM + C1181 - NEC uPC1181H Audio Power Amplifier + PAL16R6.H5 - sprites not shown when removed + DSW1/2 - 8-position DIP switch + X - Unpopulated position for 4-position DIP switch + DIP28 - Unpopulated DIP28 position (no socket) + +*************************************************************************** + + Memory map + + 0000-bfff ROM + c000-c7ff Color RAM + c800-cfff Video RAM + d000-d0c0 Sprites (bank 0) + d100-d1c0 Sprites (bank 1) + d200-dfff RAM + e000-e01f ZRAM1 line scroll registers + e020-e03f ZRAM2 bit 8 of line scroll registers + + read: + f200 DSW1 + bit 0-1 lives + bit 2 cocktail/upright cabinet (0 = upright) + bit 3-4 bonus + bit 5-6 difficulty + bit 7 demo sounds + f400 DSW2 + bit 0 = screen flip + bit 1 = single/dual upright controls + f600 DSW0 + bit 0-1-2-3 coins per play Coin1 + bit 4-5-6-7 coins per play Coin2 + f601 IN1 player 2 controls + f602 IN0 player 1 controls + f603 IN2 + bit 0-1-2 coin bit 3 1 player start bit 4 2 players start + + write: + e040 ? + e041 ? + e042 ? + e043 bit 3 = sprite RAM bank select; other bits = ? + e044 bit 0-2 = interrupt control; bit 3 = flip screen + f000 ? + f200 SN76496 command + f400 SN76496 trigger (write command to f200, then write to this location + to cause the chip to read it) + f600 watchdog reset + +**************************************************************************** + + Interrupts + + The game uses both IRQ (mode 1) and NMI via a custom interrupt controller. + +***************************************************************************/ + +#include "emu.h" + +#include "konamipt.h" + +#include "cpu/z80/z80.h" +#include "machine/timer.h" +#include "machine/watchdog.h" +#include "sound/sn76496.h" + +#include "emupal.h" +#include "screen.h" +#include "speaker.h" +#include "tilemap.h" + + +namespace { + +class gberet_base_state : public driver_device +{ +public: + gberet_base_state(const machine_config &mconfig, device_type type, const char *tag) : + driver_device(mconfig, type, tag), + m_colorram(*this, "colorram"), + m_videoram(*this, "videoram"), + m_spriteram(*this, "spriteram"), + m_maincpu(*this, "maincpu"), + m_gfxdecode(*this, "gfxdecode"), + m_palette(*this, "palette"), + m_sn(*this, "snsnd") + { } + +protected: + virtual void video_start() override ATTR_COLD; + + // memory pointers + required_shared_ptr<uint8_t> m_colorram; + required_shared_ptr<uint8_t> m_videoram; + required_shared_ptr<uint8_t> m_spriteram; + + // devices + required_device<cpu_device> m_maincpu; + required_device<gfxdecode_device> m_gfxdecode; + required_device<palette_device> m_palette; + required_device<sn76489a_device> m_sn; + + // video-related + tilemap_t * m_bg_tilemap = nullptr; + + // misc + void videoram_w(offs_t offset, uint8_t data); + void colorram_w(offs_t offset, uint8_t data); + TILE_GET_INFO_MEMBER(get_bg_tile_info); + void palette(palette_device &palette) const; // TODO: move down in gberet_state once the bootleg PROMs decoding is done +}; + +class gberet_state : public gberet_base_state +{ +public: + gberet_state(const machine_config &mconfig, device_type type, const char *tag) : + gberet_base_state(mconfig, type, tag), + m_spriteram2(*this, "spriteram2"), + m_scrollram(*this, "scrollram"), + m_soundlatch(*this, "soundlatch") + { } + + void gberet(machine_config &config); + +protected: + virtual void machine_start() override ATTR_COLD; + virtual void machine_reset() override ATTR_COLD; + + void prg_map(address_map &map) ATTR_COLD; + +private: + // memory pointers + required_shared_ptr<uint8_t> m_spriteram2; + required_shared_ptr<uint8_t> m_scrollram; + required_shared_ptr<uint8_t> m_soundlatch; + + // video-related + uint8_t m_spritebank = 0U; + + // misc + uint8_t m_interrupt_mask = 0U; + uint8_t m_interrupt_ticks = 0U; + void coin_counter_w(uint8_t data); + void flipscreen_w(uint8_t data); + void sound_w(uint8_t data); + void scroll_w(offs_t offset, uint8_t data); + void sprite_bank_w(uint8_t data); + uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); + TIMER_DEVICE_CALLBACK_MEMBER(interrupt_tick); + void draw_sprites(bitmap_ind16 &bitmap, const rectangle &cliprect); +}; + +class mrgoemon_state : public gberet_state +{ +public: + mrgoemon_state(const machine_config &mconfig, device_type type, const char *tag) : + gberet_state(mconfig, type, tag), + m_mainbank(*this, "mainbank") + { } + + void mrgoemon(machine_config &config); + +protected: + virtual void machine_start() override ATTR_COLD; + +private: + // memory pointers + required_memory_bank m_mainbank; + + void coin_counter_w(uint8_t data); + void prg_map(address_map &map) ATTR_COLD; +}; + +class gberetb_state : public gberet_base_state +{ +public: + gberetb_state(const machine_config &mconfig, device_type type, const char *tag) : + gberet_base_state(mconfig, type, tag) + { } + + void gberetb(machine_config &config); + +private: + void flipscreen_w(uint8_t data); + uint8_t irq_ack_r(); + void nmi_ack_w(uint8_t data); + void scroll_w(offs_t offset, uint8_t data); + uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); + void draw_sprites(bitmap_ind16 &bitmap, const rectangle &cliprect); + void prg_map(address_map &map) ATTR_COLD; +}; + + +/*************************************************************************** + + Convert the color PROMs into a more useable format. + + Green Beret has a 32 bytes palette PROM and two 256 bytes color lookup table + PROMs (one for sprites, one for characters). + The palette PROM is connected to the RGB output, this way: + + bit 7 -- 220 ohm resistor -- BLUE + -- 470 ohm resistor -- BLUE + -- 220 ohm resistor -- GREEN + -- 470 ohm resistor -- GREEN + -- 1 kohm resistor -- GREEN + -- 220 ohm resistor -- RED + -- 470 ohm resistor -- RED + bit 0 -- 1 kohm resistor -- RED + +***************************************************************************/ + +void gberet_base_state::palette(palette_device &palette) const +{ + uint8_t const *color_prom = memregion("proms")->base(); + + // create a lookup table for the palette + for (int i = 0; i < 0x20; i++) + { + // red component + int bit0 = BIT(color_prom[i], 0); + int bit1 = BIT(color_prom[i], 1); + int bit2 = BIT(color_prom[i], 2); + int const r = 0x21 * bit0 + 0x47 * bit1 + 0x97 * bit2; + + // green component + bit0 = BIT(color_prom[i], 3); + bit1 = BIT(color_prom[i], 4); + bit2 = BIT(color_prom[i], 5); + int const g = 0x21 * bit0 + 0x47 * bit1 + 0x97 * bit2; + + // blue component + bit0 = 0; + bit1 = BIT(color_prom[i], 6); + bit2 = BIT(color_prom[i], 7); + int const b = 0x21 * bit0 + 0x47 * bit1 + 0x97 * bit2; + + palette.set_indirect_color(i, rgb_t(r, g, b)); + } + + // color_prom now points to the beginning of the lookup table + color_prom += 0x20; + + for (int i = 0; i < 0x100; i++) + { + uint8_t const ctabentry = (color_prom[i] & 0x0f) | 0x10; + palette.set_pen_indirect(i, ctabentry); + } + + for (int i = 0x100; i < 0x200; i++) + { + uint8_t const ctabentry = color_prom[i] & 0x0f; + palette.set_pen_indirect(i, ctabentry); + } +} + +void gberet_base_state::videoram_w(offs_t offset, uint8_t data) +{ + m_videoram[offset] = data; + m_bg_tilemap->mark_tile_dirty(offset); +} + +void gberet_base_state::colorram_w(offs_t offset, uint8_t data) +{ + m_colorram[offset] = data; + m_bg_tilemap->mark_tile_dirty(offset); +} + +void gberet_state::scroll_w(offs_t offset, uint8_t data) +{ + m_scrollram[offset] = data; + + int const scroll = m_scrollram[offset & 0x1f] | (m_scrollram[offset | 0x20] << 8); + m_bg_tilemap->set_scrollx(offset & 0x1f, scroll); +} + +void gberet_state::sprite_bank_w(uint8_t data) +{ + m_spritebank = data; +} + +TILE_GET_INFO_MEMBER(gberet_base_state::get_bg_tile_info) +{ + int const attr = m_colorram[tile_index]; + int const code = m_videoram[tile_index] + ((attr & 0x40) << 2); + int const color = attr & 0x0f; + int const flags = TILE_FLIPYX((attr & 0x30) >> 4); + + tileinfo.group = color; + tileinfo.category = (attr & 0x80) >> 7; + + tileinfo.set(0, code, color, flags); +} + +void gberet_base_state::video_start() +{ + m_bg_tilemap = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(*this, FUNC(gberet_state::get_bg_tile_info)), TILEMAP_SCAN_ROWS, 8, 8, 64, 32); + m_bg_tilemap->configure_groups(*m_gfxdecode->gfx(0), 0x10); + m_bg_tilemap->set_scroll_rows(32); +} + +void gberet_state::draw_sprites(bitmap_ind16 &bitmap, const rectangle &cliprect) +{ + uint8_t *sr; + + if (m_spritebank & 0x08) + sr = m_spriteram2; + else + sr = m_spriteram; + + for (int offs = 0; offs < 0xc0; offs += 4) + { + if (sr[offs + 3]) + { + int const attr = sr[offs + 1]; + int const code = sr[offs + 0] + ((attr & 0x40) << 2); + int const color = attr & 0x0f; + int sx = sr[offs + 2] - 2 * (attr & 0x80); + int sy = sr[offs + 3]; + int flipx = attr & 0x10; + int flipy = attr & 0x20; + + if (flip_screen()) + { + sx = 240 - sx; + sy = 240 - sy; + flipx = !flipx; + flipy = !flipy; + } + + m_gfxdecode->gfx(1)->transmask(bitmap, cliprect, code, color, flipx, flipy, sx, sy, + m_palette->transpen_mask(*m_gfxdecode->gfx(1), color, 0)); + } + } +} + +uint32_t gberet_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) +{ + m_bg_tilemap->draw(screen, bitmap, cliprect, TILEMAP_DRAW_OPAQUE | TILEMAP_DRAW_ALL_CATEGORIES, 0); + draw_sprites(bitmap, cliprect); + m_bg_tilemap->draw(screen, bitmap, cliprect, 0, 0); + return 0; +} + +// Green Beret (bootleg) + +void gberetb_state::scroll_w(offs_t offset, uint8_t data) +{ + int scroll = data; + + if (offset) + scroll |= 0x100; + + for (offset = 6; offset < 29; offset++) + m_bg_tilemap->set_scrollx(offset, scroll + 64 - 8); +} + +void gberetb_state::draw_sprites(bitmap_ind16 &bitmap, const rectangle &cliprect) +{ + for (int offs = m_spriteram.bytes() - 4; offs >= 0; offs -= 4) + { + if (m_spriteram[offs + 1]) + { + int const attr = m_spriteram[offs + 3]; + int const code = m_spriteram[offs] + ((attr & 0x40) << 2); + int const color = attr & 0x0f; + int sx = m_spriteram[offs + 2] - 2 * (attr & 0x80); + int sy = 240 - m_spriteram[offs + 1]; + int flipx = attr & 0x10; + int flipy = attr & 0x20; + + if (flip_screen()) + { + sx = 240 - sx; + sy = 240 - sy; + flipx = !flipx; + flipy = !flipy; + } + + m_gfxdecode->gfx(1)->transmask(bitmap, cliprect, code, color, flipx, flipy, sx, sy, + m_palette->transpen_mask(*m_gfxdecode->gfx(1), color, 0)); + } + } +} + +uint32_t gberetb_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) +{ + m_bg_tilemap->draw(screen, bitmap, cliprect, TILEMAP_DRAW_OPAQUE | TILEMAP_DRAW_ALL_CATEGORIES, 0); + draw_sprites(bitmap, cliprect); + m_bg_tilemap->draw(screen, bitmap, cliprect, 0, 0); + return 0; +} + + +/************************************* + * + * Interrupt generators + * + *************************************/ + +TIMER_DEVICE_CALLBACK_MEMBER(gberet_state::interrupt_tick) +{ + uint8_t const ticks_mask = ~m_interrupt_ticks & (m_interrupt_ticks + 1); // 0->1 + m_interrupt_ticks++; + + // NMI on d0 + if (ticks_mask & m_interrupt_mask & 1) + m_maincpu->set_input_line(INPUT_LINE_NMI, ASSERT_LINE); + + // IRQ on d3 (used by mrgoemon) + if (ticks_mask & m_interrupt_mask << 2 & 8) + m_maincpu->set_input_line(0, ASSERT_LINE); + + // IRQ on d4 (used by gberet) + if (ticks_mask & m_interrupt_mask << 2 & 16) + m_maincpu->set_input_line(0, ASSERT_LINE); +} + + +/************************************* + * + * Address maps / Memory handlers + * + *************************************/ + +void gberet_state::coin_counter_w(uint8_t data) +{ + // bits 0/1 = coin counters + machine().bookkeeping().coin_counter_w(0, data & 1); + machine().bookkeeping().coin_counter_w(1, data & 2); +} + +void mrgoemon_state::coin_counter_w(uint8_t data) +{ + // bits 0/1 = coin counters + machine().bookkeeping().coin_counter_w(0, data & 1); + machine().bookkeeping().coin_counter_w(1, data & 2); + + // bits 5-7 = ROM bank select + m_mainbank->set_entry(((data & 0xe0) >> 5)); +} + +void gberet_state::flipscreen_w(uint8_t data) +{ + // bits 0/1/2 = interrupt enable + uint8_t const ack_mask = ~data & m_interrupt_mask; // 1->0 + + if (ack_mask & 1) + m_maincpu->set_input_line(INPUT_LINE_NMI, CLEAR_LINE); + + if (ack_mask & 6) + m_maincpu->set_input_line(0, CLEAR_LINE); + + m_interrupt_mask = data & 7; + + // bit 3 = flip screen + flip_screen_set(data & 8); +} + +void gberet_state::sound_w(uint8_t data) +{ + m_sn->write(*m_soundlatch); +} + +void gberet_state::prg_map(address_map &map) +{ + map(0x0000, 0xbfff).rom(); + map(0xc000, 0xc7ff).ram().w(FUNC(gberet_state::colorram_w)).share(m_colorram); + map(0xc800, 0xcfff).ram().w(FUNC(gberet_state::videoram_w)).share(m_videoram); + map(0xd000, 0xd0ff).ram().share(m_spriteram2); + map(0xd100, 0xd1ff).ram().share(m_spriteram); + map(0xd200, 0xdfff).ram(); + map(0xe000, 0xe03f).ram().w(FUNC(gberet_state::scroll_w)).share(m_scrollram); + map(0xe040, 0xe042).nopw(); // ??? + map(0xe043, 0xe043).w(FUNC(gberet_state::sprite_bank_w)); + map(0xe044, 0xe044).w(FUNC(gberet_state::flipscreen_w)); + map(0xf000, 0xf000).w(FUNC(gberet_state::coin_counter_w)); + map(0xf200, 0xf200).portr("DSW2").writeonly().share(m_soundlatch); + map(0xf400, 0xf400).portr("DSW3").w(FUNC(gberet_state::sound_w)); + map(0xf600, 0xf600).portr("DSW1").w("watchdog", FUNC(watchdog_timer_device::reset_w)); + map(0xf601, 0xf601).portr("P2"); + map(0xf602, 0xf602).portr("P1"); + map(0xf603, 0xf603).portr("SYSTEM"); +} + +void mrgoemon_state::prg_map(address_map &map) +{ + gberet_state::prg_map(map); + + map(0xf000, 0xf000).w(FUNC(mrgoemon_state::coin_counter_w)); + map(0xf800, 0xffff).bankr(m_mainbank); +} + + +void gberetb_state::flipscreen_w(uint8_t data) +{ + flip_screen_set(data & 8); +} + +uint8_t gberetb_state::irq_ack_r() +{ + m_maincpu->set_input_line(0, CLEAR_LINE); + return 0xff; +} + +void gberetb_state::nmi_ack_w(uint8_t data) +{ + m_maincpu->set_input_line(INPUT_LINE_NMI, CLEAR_LINE); +} + +void gberetb_state::prg_map(address_map &map) +{ + map(0x0000, 0xbfff).rom(); + map(0xc000, 0xc7ff).ram().w(FUNC(gberetb_state::colorram_w)).share(m_colorram); + map(0xc800, 0xcfff).ram().w(FUNC(gberetb_state::videoram_w)).share(m_videoram); + map(0xd000, 0xdfff).ram(); + map(0xe000, 0xe03f).ram(); + map(0xe040, 0xe043).nopw(); // ??? + map(0xe044, 0xe044).w(FUNC(gberetb_state::flipscreen_w)); // did hw even support flipscreen? + map(0xe800, 0xe8ff).ram(); + map(0xe900, 0xe9ff).ram().share(m_spriteram); + map(0xf000, 0xf000).nopw(); // coin counter not supported + map(0xf200, 0xf200).portr("DSW2"); + map(0xf400, 0xf400).w(m_sn, FUNC(sn76489a_device::write)); + map(0xf600, 0xf600).portr("P2"); + map(0xf601, 0xf601).portr("DSW1"); + map(0xf602, 0xf602).portr("P1"); + map(0xf603, 0xf603).portr("SYSTEM"); + map(0xf800, 0xf800).rw(FUNC(gberetb_state::irq_ack_r), FUNC(gberetb_state::nmi_ack_w)); + map(0xf900, 0xf901).w(FUNC(gberetb_state::scroll_w)); +} + + +/************************************* + * + * Input ports + * + *************************************/ + +static INPUT_PORTS_START( gberet ) + PORT_START("P1") + KONAMI8_MONO_B12_UNK + + PORT_START("P2") + KONAMI8_COCKTAIL_B12_UNK + + PORT_START("SYSTEM") + KONAMI8_SYSTEM_UNK + + PORT_START("DSW1") + KONAMI_COINAGE_LOC(DEF_STR( Free_Play ), "No Coin B", SW1) + // "No Coin B" = coins produce sound, but no effect on coin counter + + PORT_START("DSW2") + PORT_DIPNAME( 0x03, 0x02, DEF_STR( Lives ) ) PORT_DIPLOCATION("SW2:1,2") + PORT_DIPSETTING( 0x03, "2" ) + PORT_DIPSETTING( 0x02, "3" ) + PORT_DIPSETTING( 0x01, "5" ) + PORT_DIPSETTING( 0x00, "7" ) + PORT_DIPNAME( 0x04, 0x00, DEF_STR( Cabinet ) ) PORT_DIPLOCATION("SW2:3") + PORT_DIPSETTING( 0x00, DEF_STR( Upright ) ) + PORT_DIPSETTING( 0x04, DEF_STR( Cocktail ) ) + PORT_DIPNAME( 0x18, 0x08, DEF_STR( Bonus_Life ) ) PORT_DIPLOCATION("SW2:4,5") + PORT_DIPSETTING( 0x18, "30K, 70K, Every 70K" ) + PORT_DIPSETTING( 0x10, "40K, 80K, Every 80K" ) // Japanese default + PORT_DIPSETTING( 0x08, "50K, 100K, Every 100K" ) // US default + PORT_DIPSETTING( 0x00, "50K, 200K, Every 200K" ) + PORT_DIPNAME( 0x60, 0x40, DEF_STR( Difficulty ) ) PORT_DIPLOCATION("SW2:6,7") + PORT_DIPSETTING( 0x60, DEF_STR( Easy ) ) + PORT_DIPSETTING( 0x40, DEF_STR( Normal ) ) + PORT_DIPSETTING( 0x20, DEF_STR( Difficult ) ) + PORT_DIPSETTING( 0x00, DEF_STR( Very_Difficult ) ) + PORT_DIPNAME( 0x80, 0x00, DEF_STR( Demo_Sounds ) ) PORT_DIPLOCATION("SW2:8") + PORT_DIPSETTING( 0x80, DEF_STR( Off ) ) + PORT_DIPSETTING( 0x00, DEF_STR( On ) ) + + PORT_START("DSW3") + PORT_DIPNAME( 0x01, 0x01, DEF_STR( Flip_Screen ) ) PORT_DIPLOCATION("SW3:1") + PORT_DIPSETTING( 0x01, DEF_STR( Off ) ) + PORT_DIPSETTING( 0x00, DEF_STR( On ) ) + PORT_DIPNAME( 0x02, 0x02, "Upright Controls" ) PORT_DIPLOCATION("SW3:2") + PORT_DIPSETTING( 0x02, DEF_STR( Single ) ) + PORT_DIPSETTING( 0x00, DEF_STR( Dual ) ) + PORT_DIPUNUSED_DIPLOC( 0x04, 0x04, "SW3:3" ) // Listed as "Unused" + PORT_DIPUNUSED_DIPLOC( 0x08, 0x08, "SW3:4" ) // Listed as "Unused" +INPUT_PORTS_END + +static INPUT_PORTS_START( gberetb ) + PORT_INCLUDE(gberet) + + PORT_MODIFY("P2") + PORT_BIT( 0xff, IP_ACTIVE_LOW, IPT_UNUSED ) + + PORT_MODIFY("SYSTEM") + PORT_BIT( 0x0f, IP_ACTIVE_LOW, IPT_UNUSED ) + PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_START2 ) + PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_START1 ) + PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_COIN1 ) + PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_COIN2 ) + + PORT_MODIFY("DSW3") + PORT_BIT( 0x0f, IP_ACTIVE_LOW, IPT_UNUSED ) +INPUT_PORTS_END + +static INPUT_PORTS_START( mrgoemon ) + PORT_INCLUDE(gberet) + + PORT_MODIFY("DSW2") + PORT_DIPNAME( 0x18, 0x18, DEF_STR( Bonus_Life ) ) PORT_DIPLOCATION("SW2:4,5") + PORT_DIPSETTING( 0x18, "20K, Every 60K" ) + PORT_DIPSETTING( 0x10, "30K, Every 70K" ) + PORT_DIPSETTING( 0x08, "40K, Every 80K" ) + PORT_DIPSETTING( 0x00, "50K, Every 90K" ) + + PORT_MODIFY("DSW3") + PORT_SERVICE_DIPLOC( 0x04, IP_ACTIVE_LOW, "SW3:3" ) +INPUT_PORTS_END + + +/************************************* + * + * Graphics definitions + * + *************************************/ + +static const gfx_layout gberetb_charlayout = +{ + 8,8, // 8*8 characters + 512, // 512 characters + 4, // 4 bits per pixel + { 0, 1, 2, 3 }, // the four bitplanes are packed in one nibble + { 6*4, 7*4, 0*4, 1*4, 2*4, 3*4, 4*4, 5*4 }, + { 0*32, 1*32, 2*32, 3*32, 4*32, 5*32, 6*32, 7*32 }, + 32*8 // every char takes 8 consecutive bytes +}; + +static const gfx_layout gberetb_spritelayout = +{ + 16,16, // 16*16 sprites + 512, // 512 sprites + 4, // 4 bits per pixel + { 0*0x4000*8, 1*0x4000*8, 2*0x4000*8, 3*0x4000*8 }, + { 0, 1, 2, 3, 4, 5, 6, 7, + 16*8+0, 16*8+1, 16*8+2, 16*8+3, 16*8+4, 16*8+5, 16*8+6, 16*8+7 }, + { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8, + 8*8, 9*8, 10*8, 11*8, 12*8, 13*8, 14*8, 15*8 }, + 32*8 // every sprite takes 32 consecutive bytes +}; + +static GFXDECODE_START( gfx_gberet ) + GFXDECODE_ENTRY( "tiles", 0, gfx_8x8x4_packed_msb, 0, 16 ) + GFXDECODE_ENTRY( "sprites", 0, gfx_8x8x4_row_2x2_group_packed_msb, 16*16, 16 ) +GFXDECODE_END + +static GFXDECODE_START( gfx_gberetb ) + GFXDECODE_ENTRY( "tiles", 0, gberetb_charlayout, 0, 16 ) + GFXDECODE_ENTRY( "sprites", 0, gberetb_spritelayout, 16*16, 16 ) +GFXDECODE_END + + +/************************************* + * + * Machine drivers + * + *************************************/ + +void gberet_state::machine_start() +{ + save_item(NAME(m_interrupt_mask)); + save_item(NAME(m_interrupt_ticks)); + save_item(NAME(m_spritebank)); +} + +void mrgoemon_state::machine_start() +{ + gberet_base_state::machine_start(); + + uint8_t *rom = memregion("maincpu")->base(); + m_mainbank->configure_entries(0, 8, &rom[0xc000], 0x800); +} + +void gberet_state::machine_reset() +{ + m_interrupt_mask = 0; + m_interrupt_ticks = 0; + m_spritebank = 0; +} + +void gberet_state::gberet(machine_config &config) +{ + // basic machine hardware + Z80(config, m_maincpu, XTAL(18'432'000) / 6); // X1S (generated by a custom IC) + m_maincpu->set_addrmap(AS_PROGRAM, &gberet_state::prg_map); + TIMER(config, "scantimer").configure_scanline(FUNC(gberet_state::interrupt_tick), "screen", 0, 16); + WATCHDOG_TIMER(config, "watchdog"); + + // video hardware + screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); + screen.set_refresh_hz(60.60); + screen.set_vblank_time(ATTOSECONDS_IN_USEC(0)); + screen.set_size(32*8, 32*8); + screen.set_visarea(1*8, 31*8-1, 2*8, 30*8-1); + screen.set_screen_update(FUNC(gberet_state::screen_update)); + screen.set_palette(m_palette); + + GFXDECODE(config, m_gfxdecode, m_palette, gfx_gberet); + PALETTE(config, m_palette, FUNC(gberet_state::palette), 2*16*16, 32); + + // sound hardware + SPEAKER(config, "mono").front_center(); + + SN76489A(config, m_sn, XTAL(18'432'000) / 12).add_route(ALL_OUTPUTS, "mono", 1.0); // type verified +} + +void mrgoemon_state::mrgoemon(machine_config &config) +{ + gberet(config); + + // basic machine hardware + m_maincpu->set_addrmap(AS_PROGRAM, &mrgoemon_state::prg_map); +} + +void gberetb_state::gberetb(machine_config &config) +{ + // basic machine hardware + Z80(config, m_maincpu, XTAL(20'000'000) / 6); + m_maincpu->set_addrmap(AS_PROGRAM, &gberetb_state::prg_map); + m_maincpu->set_vblank_int("screen", FUNC(gberetb_state::irq0_line_assert)); + m_maincpu->set_periodic_int(FUNC(gberetb_state::nmi_line_assert), attotime::from_hz(XTAL(20'000'000) / 0x8000)); // divider guessed + + // video hardware + screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); + screen.set_refresh_hz(58.7090); + screen.set_vblank_time(ATTOSECONDS_IN_USEC(0)); + screen.set_size(32*8, 32*8); + screen.set_visarea(1*8, 31*8-1, 2*8, 30*8-1); + screen.set_screen_update(FUNC(gberetb_state::screen_update)); + screen.set_palette(m_palette); + + GFXDECODE(config, m_gfxdecode, m_palette, gfx_gberetb); + PALETTE(config, m_palette, FUNC(gberetb_state::palette), 2*16*16, 32); + + // sound hardware + SPEAKER(config, "mono").front_center(); + + SN76489A(config, m_sn, XTAL(20'000'000) / 12).add_route(ALL_OUTPUTS, "mono", 1.0); +} + + +/************************************* + * + * ROM definition(s) + * + *************************************/ + +ROM_START( gberet ) + ROM_REGION( 0xc000, "maincpu", 0 ) + ROM_LOAD( "577l03.10c", 0x0000, 0x4000, CRC(ae29e4ff) SHA1(5c66de1403c5df5b6647bb37e26070ffd33590e8) ) + ROM_LOAD( "577l02.8c", 0x4000, 0x4000, CRC(240836a5) SHA1(b76f3789f152198bf8a9a366378d664e683c6c9d) ) + ROM_LOAD( "577l01.7c", 0x8000, 0x4000, CRC(41fa3e1f) SHA1(90d1463e16b0f52c01078be044ce3672d4acebff) ) + + ROM_REGION( 0x04000, "tiles", 0 ) + ROM_LOAD( "577l07.3f", 0x00000, 0x4000, CRC(4da7bd1b) SHA1(54adba9ae086852902d78ab36039498aae50d7a9) ) + + ROM_REGION( 0x10000, "sprites", 0 ) + ROM_LOAD( "577l06.5e", 0x00000, 0x4000, CRC(0f1cb0ca) SHA1(094004e70c05df8cd486d0854c258fa766e2925d) ) + ROM_LOAD( "577l05.4e", 0x04000, 0x4000, CRC(523a8b66) SHA1(5f2bcf2b702fe05f8a022b6284cb2d0a5b5f222f) ) + ROM_LOAD( "577l08.4f", 0x08000, 0x4000, CRC(883933a4) SHA1(b565842edf09feeb2c4ac44ad58331757586b6aa) ) + ROM_LOAD( "577l04.3e", 0x0c000, 0x4000, CRC(ccecda4c) SHA1(cac053cab68cb420edd408ce032143db7abc29f5) ) + + ROM_REGION( 0x0220, "proms", 0 ) + ROM_LOAD( "577h09.2f", 0x0000, 0x0020, CRC(c15e7c80) SHA1(c0e8a01e63ed8cf20b33456b68890313b387ad23) ) // palette + ROM_LOAD( "577h11.6f", 0x0020, 0x0100, CRC(2a1a992b) SHA1(77cff7c9c8433f999a87776021935864cf9dccb4) ) // characters + ROM_LOAD( "577h10.5f", 0x0120, 0x0100, CRC(e9de1e53) SHA1(406b8dfe54e6176082005cc5545e79c098672547) ) // sprites +ROM_END + +ROM_START( rushatck ) + ROM_REGION( 0xc000, "maincpu", 0 ) + ROM_LOAD( "577h03.10c", 0x0000, 0x4000, CRC(4d276b52) SHA1(ba5d61c89fd2db4b303b81deccc887561156cbe3) ) + ROM_LOAD( "577h02.8c", 0x4000, 0x4000, CRC(b5802806) SHA1(0e4698ecfb9eda916703165ea5d55516fdef5fe4) ) + ROM_LOAD( "577h01.7c", 0x8000, 0x4000, CRC(da7c8f3d) SHA1(eb61eedee169f67db93407ad0fe8a195089b7e3a) ) + + ROM_REGION( 0x04000, "tiles", 0 ) + ROM_LOAD( "577h07.3f", 0x00000, 0x4000, CRC(03f9815f) SHA1(209c76fd36d1b5672992c55e24d3cf77d4c5a0aa) ) + + ROM_REGION( 0x10000, "sprites", 0 ) + ROM_LOAD( "577l06.5e", 0x00000, 0x4000, CRC(0f1cb0ca) SHA1(094004e70c05df8cd486d0854c258fa766e2925d) ) + ROM_LOAD( "577h05.4e", 0x04000, 0x4000, CRC(9d028e8f) SHA1(4faa47152a6c1da0024bb03fbcf7baf0540e891e) ) + ROM_LOAD( "577l08.4f", 0x08000, 0x4000, CRC(883933a4) SHA1(b565842edf09feeb2c4ac44ad58331757586b6aa) ) + ROM_LOAD( "577l04.3e", 0x0c000, 0x4000, CRC(ccecda4c) SHA1(cac053cab68cb420edd408ce032143db7abc29f5) ) + + ROM_REGION( 0x0220, "proms", 0 ) + ROM_LOAD( "577h09.2f", 0x0000, 0x0020, CRC(c15e7c80) SHA1(c0e8a01e63ed8cf20b33456b68890313b387ad23) ) // palette + ROM_LOAD( "577h11.6f", 0x0020, 0x0100, CRC(2a1a992b) SHA1(77cff7c9c8433f999a87776021935864cf9dccb4) ) // characters + ROM_LOAD( "577h10.5f", 0x0120, 0x0100, CRC(e9de1e53) SHA1(406b8dfe54e6176082005cc5545e79c098672547) ) // sprites +ROM_END + +ROM_START( gberetb ) + ROM_REGION( 0xc000, "maincpu", 0 ) + ROM_LOAD( "2-ic82.10g", 0x0000, 0x8000, CRC(6d6fb494) SHA1(0d01c86ed7a8962ee3e1056a8d41584ad1406f0f) ) + ROM_LOAD( "3-ic81.10f", 0x8000, 0x4000, CRC(f1520a0a) SHA1(227b2d2e1fc0e81ae02e663a3089e7399612e3cf) ) + + ROM_REGION( 0x04000, "tiles", 0 ) + ROM_LOAD( "1-ic92.12c", 0x00000, 0x4000, CRC(b0189c87) SHA1(29202978b07bf059b88bf206d8fafc80e0cdb6dc) ) + + ROM_REGION( 0x10000, "sprites", 0 ) + ROM_LOAD( "7-1c8.2b", 0x00000, 0x4000, CRC(86334522) SHA1(f2907d136dbfdb92cbd550524b4453755f6244b6) ) + ROM_LOAD( "6-ic9.2c", 0x04000, 0x4000, CRC(bda50d3e) SHA1(c6f5a15270a69464e977926d056b31dcec8b41c3) ) + ROM_LOAD( "5-ic10.2d", 0x08000, 0x4000, CRC(6a7b3881) SHA1(795bfb1fbc11ceac687b15e98574feb650e2f674) ) + ROM_LOAD( "4-ic11.2e", 0x0c000, 0x4000, CRC(3fb186c9) SHA1(40ce0447014af3f5b5b88648ab7e43a955bd1274) ) + + ROM_REGION( 0x0420, "proms", 0 ) + ROM_LOAD( "82s123-ic100.13b", 0x0000, 0x0020, CRC(1bef8c7b) SHA1(f8f0ff6f674c8d28b3ac3daaad8e46328659a480) ) // palette + ROM_LOAD( "82s129-ic26.4g", 0x0020, 0x0100, CRC(2d3ad74b) SHA1(92152fd717901b5532097a7c88916c89c054d135) ) + ROM_LOAD( "82s129-ic34.5g", 0x0120, 0x0100, CRC(a895c3e5) SHA1(e485489ec88bc058ebd8c5645cc951ef08aa778c) ) + ROM_LOAD( "82s129-ic75.9j", 0x0220, 0x0100, CRC(85e757b6) SHA1(6ec7573e14e3418ac1dcaa72326b34e3d3163ea3) ) + ROM_LOAD( "82s129-ic90.12a", 0x0320, 0x0100, CRC(dffe6b15) SHA1(fc83ef5d6b4885194a5fe00521d10aea9213e2c8) ) + + ROM_REGION( 0x0200, "plds", 0 ) + ROM_LOAD( "pal16r6_ic35.5h", 0x0000, 0x0104, CRC(bd76fb53) SHA1(2d0634e8edb3289a103719466465e9777606086e) ) +ROM_END + +ROM_START( mrgoemon ) + ROM_REGION( 0x10000, "maincpu", 0 ) + ROM_LOAD( "621d01.10c", 0x00000, 0x8000, CRC(b2219c56) SHA1(274160be5dabbbfa61af71d92bddffbb56eadab6) ) + ROM_LOAD( "621d02.12c", 0x08000, 0x8000, CRC(c3337a97) SHA1(6fd5f365b2624a37f252c202cd97877705b4a6c2) ) // 2nd half banked + + ROM_REGION( 0x04000, "tiles", 0 ) + ROM_LOAD( "621a05.6d", 0x00000, 0x4000, CRC(f0a6dfc5) SHA1(395024ebfff550b0da393096483196fb1152a077) ) + + ROM_REGION( 0x10000, "sprites", 0 ) + ROM_LOAD( "621d03.4d", 0x00000, 0x8000, CRC(66f2b973) SHA1(7e906f258a5f4928f9615c6ea176efbca659b3a7) ) + ROM_LOAD( "621d04.5d", 0x08000, 0x8000, CRC(47df6301) SHA1(e675c070e46993d3453c2ddadc49ec8b84cec854) ) + + ROM_REGION( 0x0220, "proms", 0 ) + ROM_LOAD( "621a06.5f", 0x0000, 0x0020, CRC(7c90de5f) SHA1(8ac5708e72e32f3d79ccde0cbaedefc34f8ac57e) ) // palette + ROM_LOAD( "621a08.7f", 0x0020, 0x0100, CRC(2fb244dd) SHA1(ceb909ad96c0dabc8684e69b028f4287e227c351) ) // characters + ROM_LOAD( "621a07.6f", 0x0120, 0x0100, CRC(3980acdc) SHA1(f4e0bd74bccd77b84096c38bc70cf488a42d9562) ) // sprites +ROM_END + +} // anonymous namespace + + +/************************************* + * + * Game drivers + * + *************************************/ + +GAME( 1985, gberet, 0, gberet, gberet, gberet_state, empty_init, ROT0, "Konami", "Green Beret", MACHINE_SUPPORTS_SAVE ) +GAME( 1985, rushatck, gberet, gberet, gberet, gberet_state, empty_init, ROT0, "Konami", "Rush'n Attack (US)", MACHINE_SUPPORTS_SAVE ) +GAME( 1985, gberetb, gberet, gberetb, gberetb, gberetb_state, empty_init, ROT0, "bootleg", "Green Beret (bootleg)", MACHINE_WRONG_COLORS | MACHINE_IMPERFECT_GRAPHICS | MACHINE_NOT_WORKING | MACHINE_SUPPORTS_SAVE ) // needs correct PROM decoding +GAME( 1986, mrgoemon, 0, mrgoemon, mrgoemon, mrgoemon_state, empty_init, ROT0, "Konami", "Mr. Goemon (Japan)", MACHINE_SUPPORTS_SAVE ) |