// license:BSD-3-Clause // copyright-holders:Ryan Holtz /**************************************************************************** Tug Boat 6502 hooked up + preliminary video by Ryan Holtz TODO: - verify connections of the two PIAs. I only hooked up a couple of ports but there are more. - check how the score is displayed. I'm quite sure that tugboat_score_w is supposed to access videoram scanning it by columns (like btime_mirrorvideoram_w), but the current implementation is a big kludge, and it still looks wrong. - colors might not be entirely accurate Suspect berenstn is using the wrong color PROM. - convert to use the H46505 device. the problem which caused the controls not to work --- There's counter at $000b, counting up from $ff to 0 or from $fe to 0 (initial value depends on game level). It's increased in main loop, and used for game flow control (scrolling speed , controls etc). Every interrupt, when (counter&3)!=0 , there's a check for left/right inputs . But when init val was $ff (2nd level), the condition 'counter&3!=0' was always false - counter was reloaded and incremented before interrupt occurs ****************************************************************************/ #include "emu.h" #include "cpu/m6502/m6502.h" #include "machine/6821pia.h" #include "sound/ay8910.h" #include "emupal.h" #include "screen.h" #include "speaker.h" class tugboat_state : public driver_device { public: tugboat_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag), m_maincpu(*this, "maincpu"), m_gfxdecode(*this, "gfxdecode"), m_screen(*this, "screen"), m_palette(*this, "palette") { } void tugboat(machine_config &config); protected: virtual void machine_start() override; virtual void video_start() override; virtual void machine_reset() override; TIMER_CALLBACK_MEMBER(trigger_int); private: required_device m_maincpu; required_device m_gfxdecode; required_device m_screen; required_device m_palette; memory_access<16, 0, 0, ENDIANNESS_LITTLE>::specific m_program; uint8_t m_hd46505_0_reg[18]{}; uint8_t m_hd46505_1_reg[18]{}; int m_reg0 = 0; int m_reg1 = 0; int m_ctrl = 0; emu_timer *m_interrupt_timer = nullptr; void hd46505_0_w(offs_t offset, uint8_t data); void hd46505_1_w(offs_t offset, uint8_t data); void score_w(offs_t offset, uint8_t data); uint8_t input_r(); void ctrl_w(uint8_t data); void tugboat_palette(palette_device &palette) const; uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); void draw_tilemap(bitmap_ind16 &bitmap, const rectangle &cliprect, int addr, int gfx0, int gfx1, int transparency); void main_map(address_map &map); }; void tugboat_state::machine_start() { m_interrupt_timer = timer_alloc(FUNC(tugboat_state::trigger_int), this); m_maincpu->space(AS_PROGRAM).specific(m_program); save_item(NAME(m_hd46505_0_reg)); save_item(NAME(m_hd46505_1_reg)); save_item(NAME(m_reg0)); save_item(NAME(m_reg1)); save_item(NAME(m_ctrl)); } void tugboat_state::video_start() { m_gfxdecode->gfx(0)->set_granularity(8); m_gfxdecode->gfx(2)->set_granularity(8); } // there isn't the usual resistor array anywhere near the color PROM, just four 1k resistors. void tugboat_state::tugboat_palette(palette_device &palette) const { uint8_t const *const color_prom = memregion("proms")->base(); for (int i = 0; i < palette.entries(); i++) { int const brt = BIT(color_prom[i], 3) ? 0xff : 0x80; int const r = brt * BIT(color_prom[i], 0); int const g = brt * BIT(color_prom[i], 1); int const b = brt * BIT(color_prom[i], 2); palette.set_pen_color(i, rgb_t(r, g, b)); } } /* see mc6845.cpp. That file is only a placeholder, I process the writes here because I need the start_addr register to handle scrolling */ void tugboat_state::hd46505_0_w(offs_t offset, uint8_t data) { if (offset == 0) m_reg0 = data & 0x0f; else if (m_reg0 < 18) m_hd46505_0_reg[m_reg0] = data; } void tugboat_state::hd46505_1_w(offs_t offset, uint8_t data) { if (offset == 0) m_reg1 = data & 0x0f; else if (m_reg1 < 18) m_hd46505_1_reg[m_reg1] = data; } void tugboat_state::score_w(offs_t offset, uint8_t data) { if (offset>=0x8) m_program.write_byte(0x291d + 32*offset + 32*(1-8), data ^ 0x0f); if (offset<0x8 ) m_program.write_byte(0x291d + 32*offset + 32*9, data ^ 0x0f); } void tugboat_state::draw_tilemap(bitmap_ind16 &bitmap, const rectangle &cliprect, int addr, int gfx0, int gfx1, int transparency) { for (int y = 0; y < 32; y++) { for (int x = 0; x < 32; x++) { int attr = m_program.read_byte(addr + 0x400); int code = ((attr & 0x01) << 8) | m_program.read_byte(addr); int color = (attr & 0x3c) >> 2; int rgn, transpen; if (attr & 0x02) { rgn = gfx1; transpen = 7; } else { rgn = gfx0; transpen = 1; } m_gfxdecode->gfx(rgn)->transpen(bitmap,cliprect, code, color, 0,0, 8*x,8*y, transparency ? transpen : -1); addr = (addr & 0xfc00) | ((addr + 1) & 0x03ff); } } } uint32_t tugboat_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) { int const startaddr0 = m_hd46505_0_reg[0x0c]*256 + m_hd46505_0_reg[0x0d]; int const startaddr1 = m_hd46505_1_reg[0x0c]*256 + m_hd46505_1_reg[0x0d]; draw_tilemap(bitmap, cliprect, startaddr0, 0, 1, false); draw_tilemap(bitmap, cliprect, startaddr1, 2, 3, true); return 0; } uint8_t tugboat_state::input_r() { if (~m_ctrl & 0x80) return ioport("IN0")->read(); else if (~m_ctrl & 0x40) return ioport("IN1")->read(); else if (~m_ctrl & 0x20) return ioport("IN2")->read(); else if (~m_ctrl & 0x10) return ioport("IN3")->read(); else return ioport("IN4")->read(); } void tugboat_state::ctrl_w(uint8_t data) { m_ctrl = data; } TIMER_CALLBACK_MEMBER(tugboat_state::trigger_int) { m_maincpu->set_input_line(0, HOLD_LINE); m_interrupt_timer->adjust(m_screen->frame_period()); } void tugboat_state::machine_reset() { m_interrupt_timer->adjust(m_screen->time_until_pos(0)); } void tugboat_state::main_map(address_map &map) { map.global_mask(0x7fff); map(0x0000, 0x01ff).ram(); map(0x1060, 0x1061).w("aysnd", FUNC(ay8910_device::address_data_w)); map(0x10a0, 0x10a1).w(FUNC(tugboat_state::hd46505_0_w)); /* scrolling is performed changing the start_addr register (0C/0D) */ map(0x10c0, 0x10c1).w(FUNC(tugboat_state::hd46505_1_w)); map(0x11e4, 0x11e7).rw("pia0", FUNC(pia6821_device::read), FUNC(pia6821_device::write)); map(0x11e8, 0x11eb).rw("pia1", FUNC(pia6821_device::read), FUNC(pia6821_device::write)); //map(0x1700, 0x1fff).ram(); map(0x18e0, 0x18ef).w(FUNC(tugboat_state::score_w)); map(0x2000, 0x2fff).ram(); /* tilemap RAM */ map(0x4000, 0x7fff).rom(); } static INPUT_PORTS_START( tugboat ) PORT_START("IN0") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_START("IN1") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_2WAY PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_2WAY PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_START("IN2") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_START("IN3") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_IMPULSE(1) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_START1 ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_START2 ) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_START("IN4") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_DIPNAME( 0x40, 0x00, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x40, DEF_STR( On ) ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_START("DSW") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_DIPNAME( 0x30, 0x10, DEF_STR( Coinage ) ) PORT_DIPSETTING( 0x00, DEF_STR( 2C_1C ) ) PORT_DIPSETTING( 0x10, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x20, DEF_STR( 1C_2C ) ) PORT_DIPSETTING( 0x30, DEF_STR( 1C_4C ) ) PORT_DIPNAME( 0x40, 0x00, DEF_STR( Lives ) ) PORT_DIPSETTING( 0x00, "3" ) PORT_DIPSETTING( 0x40, "5" ) PORT_DIPNAME( 0x80, 0x00, DEF_STR( Unknown ) ) PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x80, DEF_STR( On ) ) INPUT_PORTS_END static INPUT_PORTS_START( noahsark ) PORT_INCLUDE( tugboat ) PORT_MODIFY("IN1") PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY INPUT_PORTS_END static GFXDECODE_START( gfx_tugboat ) GFXDECODE_ENTRY( "gfx1", 0, gfx_8x8x1, 0x80, 16 ) GFXDECODE_ENTRY( "gfx2", 0, gfx_8x8x3_planar, 0x80, 16 ) GFXDECODE_ENTRY( "gfx3", 0, gfx_8x8x1, 0x00, 16 ) GFXDECODE_ENTRY( "gfx4", 0, gfx_8x8x3_planar, 0x00, 16 ) GFXDECODE_END void tugboat_state::tugboat(machine_config &config) { M6502(config, m_maincpu, 2000000); /* 2 MHz ???? */ m_maincpu->set_addrmap(AS_PROGRAM, &tugboat_state::main_map); pia6821_device &pia0(PIA6821(config, "pia0", 0)); pia0.readpa_handler().set(FUNC(tugboat_state::input_r)); pia6821_device &pia1(PIA6821(config, "pia1", 0)); pia1.readpa_handler().set_ioport("DSW"); pia1.writepb_handler().set(FUNC(tugboat_state::ctrl_w)); SCREEN(config, m_screen, SCREEN_TYPE_RASTER); m_screen->set_refresh_hz(60); m_screen->set_size(32*8,32*8); m_screen->set_visarea(1*8,31*8-1,2*8,30*8-1); m_screen->set_screen_update(FUNC(tugboat_state::screen_update)); m_screen->set_palette(m_palette); m_screen->screen_vblank().set_inputline(m_maincpu, INPUT_LINE_NMI); GFXDECODE(config, m_gfxdecode, m_palette, gfx_tugboat); PALETTE(config, m_palette, FUNC(tugboat_state::tugboat_palette), 256); /* sound hardware */ SPEAKER(config, "mono").front_center(); AY8912(config, "aysnd", XTAL(10'000'000)/8).add_route(ALL_OUTPUTS, "mono", 0.35); } ROM_START( tugboat ) ROM_REGION( 0x10000, "maincpu", 0 ) ROM_LOAD( "u7.bin", 0x5000, 0x1000, CRC(e81d7581) SHA1(c76327e3b027a5a2af69f8cfafa1f828ad0ebdb1) ) ROM_LOAD( "u8.bin", 0x6000, 0x1000, CRC(7525de06) SHA1(0722c7a0b89c55162227173679ffbe398ca350a2) ) ROM_LOAD( "u9.bin", 0x7000, 0x1000, CRC(aa4ae687) SHA1(a212eed5d04d6197aa3484ff36059fd7998604a6) ) ROM_REGION( 0x0800, "gfx1", ROMREGION_INVERT ) ROM_LOAD( "u67.bin", 0x0000, 0x0800, CRC(601c425b) SHA1(13ed54ba1307ba3f779293d88c19d0c0f2d91a96) ) ROM_REGION( 0x3000, "gfx2", ROMREGION_INVERT ) ROM_LOAD( "u68.bin", 0x0000, 0x1000, CRC(d5835182) SHA1(f67c8f93e0d7dd1bf8e3a98756719d386c133d1c) ) ROM_LOAD( "u69.bin", 0x1000, 0x1000, CRC(e6d25878) SHA1(de9096ef3108d031049be1e7f2c5e346d0bc0df1) ) ROM_LOAD( "u70.bin", 0x2000, 0x1000, CRC(34ce2850) SHA1(8883126627ed8a1d2c3bed2a3d169ce35eafc8a3) ) ROM_REGION( 0x0800, "gfx3", 0 ) ROM_LOAD( "u168.bin", 0x0000, 0x0800, CRC(279042fd) SHA1(1361fff1bc532251bbd36b7b60776c2cc137cfba) ) /* labeled u-167 */ ROM_REGION( 0x1800, "gfx4", 0 ) ROM_LOAD( "u170.bin", 0x0000, 0x0800, CRC(64d9f4d7) SHA1(3ff7fc099023512c33ec4583e91e6cbab903e7a8) ) /* labeled u-168 */ ROM_LOAD( "u169.bin", 0x0800, 0x0800, CRC(1a636296) SHA1(bcb18d714328ba3db2d16d74c47a985c16a0bbe2) ) /* labeled u-169 */ ROM_LOAD( "u167.bin", 0x1000, 0x0800, CRC(b9c9b4f7) SHA1(6685d580ae150d7c67bac2786ee4b7a2c28eddc3) ) /* labeled u-170 */ ROM_REGION( 0x0100, "proms", 0 ) ROM_LOAD( "nt2_u128.clr", 0x0000, 0x0100, CRC(236672bf) SHA1(57482d0a23223ef7b211045ad28d3e41e90f961e) ) ROM_END ROM_START( noahsark ) ROM_REGION( 0x10000, "maincpu", 0 ) ROM_LOAD( "u6.bin", 0x4000, 0x1000, CRC(3579eeac) SHA1(f54435ac6b31cf81342de83965cf8a8503b26eb8) ) ROM_LOAD( "u7.bin", 0x5000, 0x1000, CRC(64b0afae) SHA1(1fcc17490d1290565be38a817f783604bcefb8be) ) ROM_LOAD( "u8.bin", 0x6000, 0x1000, CRC(02d53f62) SHA1(e51a583a548b4bdaf43d376d5d276325ee448d49) ) ROM_LOAD( "u9.bin", 0x7000, 0x1000, CRC(d425b61c) SHA1(a8d9562435cc910916df4cd7e958468d88ff92e7) ) ROM_REGION( 0x0800, "gfx1", ROMREGION_INVERT ) ROM_LOAD( "u67.bin", 0x0000, 0x0800, CRC(1a77605b) SHA1(8c25750f94895f5820ad4f1fa4ae1ea70ee0aee2) ) ROM_REGION( 0x3000, "gfx2", ROMREGION_INVERT ) ROM_LOAD( "u68.bin", 0x0000, 0x1000, CRC(6a66eac8) SHA1(3a13c2f5ef45cdd8b8b5db07d8c1417a3304723a) ) ROM_LOAD( "u69.bin", 0x1000, 0x1000, CRC(fa2c279c) SHA1(332fcfcfe605c4132114399c32932507b16752e5) ) ROM_LOAD( "u70.bin", 0x2000, 0x1000, CRC(dcabc7c5) SHA1(68abfdedea518e3a5c90f9f72173e8c05e190535) ) ROM_REGION( 0x0800, "gfx3", 0 ) ROM_LOAD( "u168.bin", 0x0000, 0x0800, CRC(7fc7280f) SHA1(93bf46e421b580edf81177db85cb220073761c57) ) /* labeled u-167 */ ROM_REGION( 0x3000, "gfx4", 0 ) ROM_LOAD( "u170.bin", 0x0000, 0x1000, CRC(ba36641c) SHA1(df206dc4b6f2da7b60bdaa72c8175de928a630a4) ) /* labeled u-168 */ ROM_LOAD( "u169.bin", 0x1000, 0x1000, CRC(68c58207) SHA1(e09f9f8b5f1071fbf8a4883f75f296ec4bc0eca1) ) /* labeled u-169 */ ROM_LOAD( "u167.bin", 0x2000, 0x1000, CRC(76f16c5b) SHA1(a8a8f0ad7dcc57c2bf518fc5e2509ed8fb87f403) ) /* labeled u-170 */ ROM_REGION( 0x0100, "proms", 0 ) ROM_LOAD( "u128.bin", 0x0000, 0x0100, CRC(816784bd) SHA1(47181f4a6ab35c46796ca1d8c130b76f404c188d) ) ROM_END ROM_START( berenstn ) ROM_REGION( 0x10000, "maincpu", 0 ) ROM_LOAD( "u6.bin", 0x4000, 0x1000, CRC(e45275a2) SHA1(d788bc5a69b3cdb2596a3b354371ff88d39f6d46) ) ROM_LOAD( "u7.bin", 0x5000, 0x1000, CRC(1984d787) SHA1(c13959c9be075400e9d1668b5404bc73f6db5fe4) ) ROM_LOAD( "u8.bin", 0x6000, 0x1000, CRC(0c4d53b7) SHA1(45bd847fdb7bbfbe53d750003024ef3454faa6e6) ) ROM_LOAD( "u9.bin", 0x7000, 0x1000, CRC(7e058e57) SHA1(e9506fa4ec693abf0dc4e4cbfd4b93bdbcfc9ba4) ) ROM_REGION( 0x0800, "gfx1", ROMREGION_INVERT ) ROM_LOAD( "u67.bin", 0x0000, 0x0800, CRC(1a77605b) SHA1(8c25750f94895f5820ad4f1fa4ae1ea70ee0aee2) ) ROM_REGION( 0x3000, "gfx2", ROMREGION_INVERT ) ROM_LOAD( "u68.bin", 0x0000, 0x1000, CRC(21bf375f) SHA1(52bc81a4f289a96edfab034445bcf639b1524ada) ) ROM_LOAD( "u69.bin", 0x1000, 0x1000, CRC(9dc770f6) SHA1(5dc16fac72d68b521dbb415935f5e7f682c26d7f) ) ROM_LOAD( "u70.bin", 0x2000, 0x1000, CRC(a810bd45) SHA1(8be531529174c5d4b4f164bd2397116b9d5350db) ) ROM_REGION( 0x0800, "gfx3", 0 ) ROM_LOAD( "u167.bin", 0x0000, 0x0800, CRC(7fc7280f) SHA1(93bf46e421b580edf81177db85cb220073761c57) ) ROM_REGION( 0x3000, "gfx4", 0 ) ROM_LOAD( "u168.bin", 0x0000, 0x0800, CRC(af532ba3) SHA1(b196e294eaf4c25549278fd040b1dad2799e18d5) ) ROM_LOAD( "u169.bin", 0x1000, 0x0800, CRC(07b6e660) SHA1(c755f63cc7c566e200fc11199bfac06a7e8f89e4) ) ROM_LOAD( "u170.bin", 0x2000, 0x0800, CRC(73261eff) SHA1(19edd6957fceb3df12fd29cd5e156a5eb1c70710) ) ROM_REGION( 0x0100, "proms", 0 ) /* Same as Tugboat but is this actually correct? */ ROM_LOAD( "n.t.2-031j.24s10", 0x0000, 0x0100, CRC(236672bf) SHA1(57482d0a23223ef7b211045ad28d3e41e90f961e) ) ROM_END GAME( 1982, tugboat, 0, tugboat, tugboat, tugboat_state, empty_init, ROT90, "Enter-Tech, Ltd.", "Tugboat", MACHINE_IMPERFECT_GRAPHICS | MACHINE_SUPPORTS_SAVE ) GAME( 1983, noahsark, 0, tugboat, noahsark, tugboat_state, empty_init, ROT90, "Enter-Tech, Ltd.", "Noah's Ark", MACHINE_IMPERFECT_GRAPHICS | MACHINE_SUPPORTS_SAVE ) GAME( 1984, berenstn, 0, tugboat, noahsark, tugboat_state, empty_init, ROT90, "Enter-Tech, Ltd.", "The Berenstain Bears in Big Paw's Cave", MACHINE_IMPERFECT_GRAPHICS | MACHINE_WRONG_COLORS | MACHINE_SUPPORTS_SAVE )