// license:BSD-3-Clause // copyright-holders:Zsolt Vasvari /*************************************************************************** Hana Awase driver by Zsolt Vasvari edge connector ---------------------------- GND |A| 1| GND GND |B| 1| 1P "3" +5V |C| 3| +5V NC |D| 4| NC +12V |E| 5| +12V SPEAKER(+)|F| 6|SPEAKER(-) SYNC |H| 7| NC B |J| 8|SERVICE SW G |K| 9| COIN SW R |L|10| NC NC |M|11| 1P,2P "10" 2P "11" |N|12| 1P,2P "9" 2P "4" |P|13| 1P,2P "8" NC |R|14| 1P,2P "7" 1P "4" |S|15| 1P,2P "5" 1P "11" |T|16| 1P,2P "6" NC |U|17| NC 1P "1" |V|18| 1P "2" ***************************************************************************/ #include "emu.h" #include "cpu/z80/z80.h" #include "sound/ay8910.h" #include "emupal.h" #include "screen.h" #include "speaker.h" #include "tilemap.h" namespace { class hanaawas_state : public driver_device { public: hanaawas_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag), m_videoram(*this, "videoram"), m_colorram(*this, "colorram"), m_maincpu(*this, "maincpu"), m_gfxdecode(*this, "gfxdecode"), m_coins(*this, "COINS"), m_start(*this, "START"), m_player(*this, "P%u", 1U) { } void hanaawas(machine_config &config); protected: virtual void machine_start() override; virtual void machine_reset() override; virtual void video_start() override; private: required_shared_ptr m_videoram; required_shared_ptr m_colorram; required_device m_maincpu; required_device m_gfxdecode; required_ioport m_coins, m_start; required_ioport_array<2> m_player; tilemap_t *m_bg_tilemap; uint8_t m_mux; uint8_t m_coin_settings; uint8_t m_coin_impulse; uint8_t input_port_0_r(); void inputs_mux_w(uint8_t data); void videoram_w(offs_t offset, uint8_t data); void colorram_w(offs_t offset, uint8_t data); void key_matrix_status_w(uint8_t data); void irq_ack_w(uint8_t data); TILE_GET_INFO_MEMBER(get_bg_tile_info); void palette(palette_device &palette) const; uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); void portb_w(uint8_t data); void prg_map(address_map &map); void io_map(address_map &map); }; uint8_t hanaawas_state::input_port_0_r() { // TODO: key matrix seems identical to speedatk.cpp, needs merging if (m_coin_impulse > 0) { m_coin_impulse--; return 0x80; } if ((m_coins->read() & 1) || (m_coins->read() & 2)) { m_coin_impulse = m_coin_settings * 2; m_coin_impulse--; return 0x80; } uint16_t buttons = 0; switch (m_mux) { case 1: // start buttons buttons = m_start->read(); break; case 2: // player 1 buttons buttons = m_player[0]->read(); break; case 4: // player 2 buttons buttons = m_player[1]->read(); break; } // map button pressed into 1-10 range int ordinal = 0; for (int i = 0; i < 10; i++) { if (buttons & (1 << i)) { ordinal = (i + 1); break; } } return ordinal; } void hanaawas_state::inputs_mux_w(uint8_t data) { m_mux = data; } void hanaawas_state::irq_ack_w(uint8_t data) { m_maincpu->set_input_line(0, CLEAR_LINE); } void hanaawas_state::key_matrix_status_w(uint8_t data) { if ((data & 0xf0) == 0x40) //coinage setting command m_coin_settings = data & 0xf; } /*************************************************************************** Convert the color PROMs into a more useable format. ***************************************************************************/ void hanaawas_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 < 0x10; 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; // character lookup table. The 1bpp tiles really only use colors 0-0x0f and the 3bpp ones 0x10-0x1f for (int i = 0; i < 0x100; i++) { int const swapped_i = bitswap<8>(i, 2,7,6,5,4,3,1,0); uint8_t const ctabentry = color_prom[swapped_i] & 0x0f; palette.set_pen_indirect(i, ctabentry); } } void hanaawas_state::videoram_w(offs_t offset, uint8_t data) { m_videoram[offset] = data; m_bg_tilemap->mark_tile_dirty(offset); } void hanaawas_state::colorram_w(offs_t offset, uint8_t data) { m_colorram[offset] = data; // dirty both current and next offsets m_bg_tilemap->mark_tile_dirty(offset); m_bg_tilemap->mark_tile_dirty((offset + (flip_screen() ? -1 : 1)) & 0x03ff); } void hanaawas_state::portb_w(uint8_t data) { // bit 7 is flip screen if (flip_screen() != (~data & 0x80)) { flip_screen_set(~data & 0x80); machine().tilemap().mark_all_dirty(); } } TILE_GET_INFO_MEMBER(hanaawas_state::get_bg_tile_info) { // the color is determined by the current color byte, but the bank is via the previous one!!! int offset = (tile_index + (flip_screen() ? 1 : -1)) & 0x3ff; int attr = m_colorram[offset]; int gfxbank = (attr & 0x40) >> 6; int code = m_videoram[tile_index] + ((attr & 0x20) << 3); int color = m_colorram[tile_index] & 0x1f; tileinfo.set(gfxbank, code, color, 0); } void hanaawas_state::video_start() { m_bg_tilemap = &machine().tilemap().create(*m_gfxdecode, tilemap_get_info_delegate(*this, FUNC(hanaawas_state::get_bg_tile_info)), TILEMAP_SCAN_ROWS, 8, 8, 32, 32); } uint32_t hanaawas_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) { m_bg_tilemap->draw(screen, bitmap, cliprect, 0, 0); return 0; } void hanaawas_state::prg_map(address_map &map) { map(0x0000, 0x2fff).rom(); map(0x4000, 0x4fff).rom(); map(0x6000, 0x6fff).rom(); map(0x8000, 0x83ff).ram().w(FUNC(hanaawas_state::videoram_w)).share(m_videoram); map(0x8400, 0x87ff).ram().w(FUNC(hanaawas_state::colorram_w)).share(m_colorram); map(0x8800, 0x8bff).ram(); map(0xb000, 0xb000).w(FUNC(hanaawas_state::irq_ack_w)); } void hanaawas_state::io_map(address_map &map) { map.global_mask(0xff); map(0x00, 0x00).rw(FUNC(hanaawas_state::input_port_0_r), FUNC(hanaawas_state::inputs_mux_w)); map(0x01, 0x01).nopr().w(FUNC(hanaawas_state::key_matrix_status_w)); // r bit 1: status ready, presumably of the input mux device / w = configure device? map(0x10, 0x10).r("aysnd", FUNC(ay8910_device::data_r)); map(0x10, 0x11).w("aysnd", FUNC(ay8910_device::address_data_w)); map(0xc0, 0xc0).nopw(); // watchdog } static INPUT_PORTS_START( hanaawas ) PORT_START("COINS") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN1 ) PORT_IMPULSE(1) PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_COIN2 ) PORT_IMPULSE(1) PORT_START("DSW") PORT_DIPNAME( 0x01, 0x00, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x01, DEF_STR( On ) ) PORT_DIPNAME( 0x06, 0x00, DEF_STR( Difficulty ) ) PORT_DIPSETTING( 0x00, "1" ) PORT_DIPSETTING( 0x02, "1.5" ) PORT_DIPSETTING( 0x04, "2" ) PORT_DIPSETTING( 0x06, "2.5" ) PORT_DIPNAME( 0x18, 0x10, "Key Time-Out" ) PORT_DIPSETTING( 0x00, "15 sec" ) PORT_DIPSETTING( 0x08, "20 sec" ) PORT_DIPSETTING( 0x10, "25 sec" ) PORT_DIPSETTING( 0x18, "30 sec" ) PORT_DIPNAME( 0x20, 0x00, "Time Per Coin" ) PORT_DIPSETTING( 0x20, "50" ) PORT_DIPSETTING( 0x00, "100" ) PORT_DIPNAME( 0x40, 0x00, DEF_STR( Cabinet ) ) PORT_DIPSETTING( 0x00, DEF_STR( Upright ) ) PORT_DIPSETTING( 0x40, DEF_STR( Cocktail ) ) PORT_DIPNAME( 0x80, 0x00, DEF_STR( Coinage ) ) PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x80, DEF_STR( 1C_2C ) ) // fake port. The button depressed gets converted to an integer in the 1-10 range PORT_START("P1") PORT_BIT( 0x001, IP_ACTIVE_HIGH, IPT_HANAFUDA_A ) PORT_BIT( 0x002, IP_ACTIVE_HIGH, IPT_HANAFUDA_B ) PORT_BIT( 0x004, IP_ACTIVE_HIGH, IPT_HANAFUDA_C ) PORT_BIT( 0x008, IP_ACTIVE_HIGH, IPT_HANAFUDA_D ) PORT_BIT( 0x010, IP_ACTIVE_HIGH, IPT_HANAFUDA_E ) PORT_BIT( 0x020, IP_ACTIVE_HIGH, IPT_HANAFUDA_F ) PORT_BIT( 0x040, IP_ACTIVE_HIGH, IPT_HANAFUDA_G ) PORT_BIT( 0x080, IP_ACTIVE_HIGH, IPT_HANAFUDA_H ) PORT_BIT( 0x100, IP_ACTIVE_HIGH, IPT_HANAFUDA_YES ) PORT_BIT( 0x200, IP_ACTIVE_HIGH, IPT_HANAFUDA_NO ) // fake port. The button depressed gets converted to an integer in the 1-10 range PORT_START("P2") PORT_BIT( 0x001, IP_ACTIVE_HIGH, IPT_HANAFUDA_A ) PORT_PLAYER(2) PORT_BIT( 0x002, IP_ACTIVE_HIGH, IPT_HANAFUDA_B ) PORT_PLAYER(2) PORT_BIT( 0x004, IP_ACTIVE_HIGH, IPT_HANAFUDA_C ) PORT_PLAYER(2) PORT_BIT( 0x008, IP_ACTIVE_HIGH, IPT_HANAFUDA_D ) PORT_PLAYER(2) PORT_BIT( 0x010, IP_ACTIVE_HIGH, IPT_HANAFUDA_E ) PORT_PLAYER(2) PORT_BIT( 0x020, IP_ACTIVE_HIGH, IPT_HANAFUDA_F ) PORT_PLAYER(2) PORT_BIT( 0x040, IP_ACTIVE_HIGH, IPT_HANAFUDA_G ) PORT_PLAYER(2) PORT_BIT( 0x080, IP_ACTIVE_HIGH, IPT_HANAFUDA_H ) PORT_PLAYER(2) PORT_BIT( 0x100, IP_ACTIVE_HIGH, IPT_HANAFUDA_YES ) PORT_PLAYER(2) PORT_BIT( 0x200, IP_ACTIVE_HIGH, IPT_HANAFUDA_NO ) PORT_PLAYER(2) PORT_START("START") PORT_BIT( 0x001, IP_ACTIVE_HIGH, IPT_START1 ) PORT_BIT( 0x002, IP_ACTIVE_HIGH, IPT_START2 ) INPUT_PORTS_END #define GFX(name, offs1, offs2, offs3) \ static const gfx_layout name = \ { \ 8,8, /* 8*8 chars */ \ 512, /* 512 characters */ \ 3, /* 3 bits per pixel */ \ { offs1, offs2, offs3 }, /* bitplanes */ \ { 8*8+0, 8*8+1, 8*8+2, 8*8+3, 0, 1, 2, 3 }, \ { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8 }, \ 8*16 /* every char takes 16 consecutive bytes */ \ }; GFX( charlayout_1bpp, 0x2000*8+4, 0x2000*8+4, 0x2000*8+4 ) GFX( charlayout_3bpp, 0x2000*8, 0, 4 ) static GFXDECODE_START( gfx_hanaawas ) GFXDECODE_ENTRY( "tiles", 0, charlayout_1bpp, 0, 32 ) GFXDECODE_ENTRY( "tiles", 0, charlayout_3bpp, 0, 32 ) GFXDECODE_END void hanaawas_state::machine_start() { save_item(NAME(m_mux)); save_item(NAME(m_coin_settings)); save_item(NAME(m_coin_impulse)); } void hanaawas_state::machine_reset() { m_mux = 0; m_coin_impulse = 0; } void hanaawas_state::hanaawas(machine_config &config) { // basic machine hardware Z80(config, m_maincpu, 18432000 / 6); // 3.072 MHz ??? m_maincpu->set_addrmap(AS_PROGRAM, &hanaawas_state::prg_map); m_maincpu->set_addrmap(AS_IO, &hanaawas_state::io_map); m_maincpu->set_vblank_int("screen", FUNC(hanaawas_state::irq0_line_assert)); // video hardware screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); screen.set_refresh_hz(60); screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500)); // not accurate screen.set_size(32*8, 32*8); screen.set_visarea(0*8, 32*8-1, 0*8, 32*8-1); screen.set_screen_update(FUNC(hanaawas_state::screen_update)); screen.set_palette("palette"); GFXDECODE(config, m_gfxdecode, "palette", gfx_hanaawas); PALETTE(config, "palette", FUNC(hanaawas_state::palette), 32 * 8, 16); // sound hardware SPEAKER(config, "mono").front_center(); ay8910_device &aysnd(AY8910(config, "aysnd", 18432000 / 12)); aysnd.port_a_read_callback().set_ioport("DSW"); aysnd.port_b_write_callback().set(FUNC(hanaawas_state::portb_w)); aysnd.add_route(ALL_OUTPUTS, "mono", 0.50); } /*************************************************************************** Game driver(s) ***************************************************************************/ ROM_START( hanaawas ) ROM_REGION( 0x8000, "maincpu", 0 ) ROM_LOAD( "1.1e", 0x0000, 0x2000, CRC(618dc1e3) SHA1(31817f256512352db0d27322998d9dcf95a993cf) ) ROM_LOAD( "2.3e", 0x2000, 0x1000, CRC(5091b67f) SHA1(5a66740b8829b9b4d3aea274f9ff36e0b9e8c151) ) ROM_LOAD( "3.4e", 0x4000, 0x1000, CRC(dcb65067) SHA1(37964ff4016bd927b9f13b4358b831bb667f993b) ) ROM_LOAD( "4.6e", 0x6000, 0x1000, CRC(24bee0dc) SHA1(a4237ad3611c923b563923462e79b0b3f66cc721) ) ROM_REGION( 0x4000, "tiles", 0 ) ROM_LOAD( "5.9a", 0x0000, 0x1000, CRC(304ae219) SHA1(c1eac4973a6aec9fd8e848c206870667a8bb0922) ) ROM_LOAD( "6.10a", 0x1000, 0x1000, CRC(765a4e5f) SHA1(b2f148c60cffb75d1a841be8b924a874bff22ce4) ) ROM_LOAD( "7.12a", 0x2000, 0x1000, CRC(5245af2d) SHA1(a1262fa5828a52de28cc953ab465cbc719c56c32) ) ROM_LOAD( "8.13a", 0x3000, 0x1000, CRC(3356ddce) SHA1(68818d0692fca548a49a74209bd0ef6f16484eba) ) ROM_REGION( 0x0220, "proms", 0 ) ROM_LOAD( "13j.bpr", 0x0000, 0x0020, CRC(99300d85) SHA1(dd383db1f3c8c6d784121d32f20ffed3d83e2278) ) // color PROM ROM_LOAD( "2a.bpr", 0x0020, 0x0100, CRC(e26f21a2) SHA1(d0df06f833e0f97872d9d2ffeb7feef94aaaa02a) ) // lookup table ROM_LOAD( "6g.bpr", 0x0120, 0x0100, CRC(4d94fed5) SHA1(3ea8e6fb95d5677991dc90fe7435f91e5320bb16) ) // I don't know what this is ROM_END } // Anonymous namespace GAME( 1982, hanaawas, 0, hanaawas, hanaawas, hanaawas_state, empty_init, ROT0, "Seta Kikaku, Ltd.", "Hana Awase", MACHINE_SUPPORTS_SAVE )