// license:BSD-3-Clause // copyright-holders:Tomasz Slanina /* Field Combat (c)1985 Jaleco TS 2004.10.22. analog[at]op.pl - fixed sprite issues - added backgrounds and terrain info (external roms) (press buttons 1+2 at the same time, to release 'army' ;) todo: - fix colours (sprites , bg) */ /* Field Combat (c)1985 Jaleco From a working board. CPU: Z80 (running at 3.332 MHz measured at pin 6) Sound: Z80 (running at 3.332 MHz measured at pin 6), YM2149 (x3) Other: Unmarked 24 pin near ROMs 2 & 3 RAM: 6116 (x3) X-TAL: 20 MHz inputs + notes by stephh */ #include "emu.h" #include "includes/fcombat.h" #include "cpu/z80/z80.h" #include "machine/gen_latch.h" #include "sound/ay8910.h" #include "screen.h" #include "speaker.h" INPUT_CHANGED_MEMBER(fcombat_state::coin_inserted) { /* coin insertion causes an NMI */ m_maincpu->set_input_line(INPUT_LINE_NMI, newval ? CLEAR_LINE : ASSERT_LINE); } /* is it protection? */ u8 fcombat_state::protection_r() { /* Must match ONE of these values after a "and $3E" intruction : 76F0: 1E 04 2E 26 34 32 3A 16 3E 36 Check code at 0x76c8 for more infos. */ return 0xff; // seems enough } /* same as exerion again */ u8 fcombat_state::port01_r() { /* the cocktail flip bit muxes between ports 0 and 1 */ return m_io_in[m_cocktail_flip ? 1 : 0]->read(); } //bg scrolls void fcombat_state::e900_w(u8 data) { m_fcombat_sh = data; } void fcombat_state::ea00_w(u8 data) { m_fcombat_sv = (m_fcombat_sv & 0xff00) | data; } void fcombat_state::eb00_w(u8 data) { m_fcombat_sv = (m_fcombat_sv & 0xff) | (data << 8); } // terrain info (ec00=x, ed00=y, return val in e300 void fcombat_state::ec00_w(u8 data) { m_tx = data; } void fcombat_state::ed00_w(u8 data) { m_ty = data; } u8 fcombat_state::e300_r() { const int wx = (m_tx + m_fcombat_sh) / 16; const int wy = (m_ty * 2 + m_fcombat_sv) / 16; return m_user2_region[wx * 32 * 16 + wy]; } void fcombat_state::ee00_w(u8 data) { } void fcombat_state::main_map(address_map &map) { map(0x0000, 0x7fff).rom(); map(0xc000, 0xc7ff).ram(); map(0xd000, 0xd7ff).ram().share("videoram"); map(0xd800, 0xd8ff).ram().share("spriteram"); map(0xe000, 0xe000).r(FUNC(fcombat_state::port01_r)); map(0xe100, 0xe100).portr("DSW0"); map(0xe200, 0xe200).portr("DSW1"); map(0xe300, 0xe300).r(FUNC(fcombat_state::e300_r)); map(0xe400, 0xe400).r(FUNC(fcombat_state::protection_r)); // protection? map(0xe800, 0xe800).w(FUNC(fcombat_state::videoreg_w)); // at least bit 0 for flip screen and joystick input multiplexor map(0xe900, 0xe900).w(FUNC(fcombat_state::e900_w)); map(0xea00, 0xea00).w(FUNC(fcombat_state::ea00_w)); map(0xeb00, 0xeb00).w(FUNC(fcombat_state::eb00_w)); map(0xec00, 0xec00).w(FUNC(fcombat_state::ec00_w)); map(0xed00, 0xed00).w(FUNC(fcombat_state::ed00_w)); map(0xee00, 0xee00).w(FUNC(fcombat_state::ee00_w)); // related to protection ? - doesn't seem to have any effect map(0xef00, 0xef00).w("soundlatch", FUNC(generic_latch_8_device::write)); } void fcombat_state::audio_map(address_map &map) { map(0x0000, 0x3fff).rom(); map(0x4000, 0x47ff).ram(); map(0x6000, 0x6000).r("soundlatch", FUNC(generic_latch_8_device::read)); map(0x8001, 0x8001).r("ay1", FUNC(ym2149_device::data_r)); map(0x8002, 0x8003).w("ay1", FUNC(ym2149_device::data_address_w)); map(0xa001, 0xa001).r("ay2", FUNC(ym2149_device::data_r)); map(0xa002, 0xa003).w("ay2", FUNC(ym2149_device::data_address_w)); map(0xc001, 0xc001).r("ay3", FUNC(ym2149_device::data_r)); map(0xc002, 0xc003).w("ay3", FUNC(ym2149_device::data_address_w)); } /************************************* * * Input ports * *************************************/ static INPUT_PORTS_START( fcombat ) PORT_START("IN0") /* player 1 inputs (muxed on 0xe000) */ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_PLAYER(1) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START1 ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_START2 ) PORT_START("IN1") /* player 2 inputs (muxed on 0xe000) */ PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_PLAYER(2) PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START1 ) PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_START2 ) PORT_START("DSW0") /* dip switches (0xe100) */ PORT_DIPNAME( 0x07, 0x02, DEF_STR( Lives ) ) PORT_DIPSETTING( 0x00, "1" ) PORT_DIPSETTING( 0x01, "2" ) PORT_DIPSETTING( 0x02, "3" ) PORT_DIPSETTING( 0x03, "4" ) PORT_DIPSETTING( 0x04, "5" ) PORT_DIPSETTING( 0x07, "Infinite (Cheat)") PORT_DIPNAME( 0x18, 0x00, DEF_STR( Bonus_Life ) ) PORT_DIPSETTING( 0x00, "10000" ) PORT_DIPSETTING( 0x08, "20000" ) PORT_DIPSETTING( 0x10, "30000" ) PORT_DIPSETTING( 0x18, "40000" ) PORT_DIPNAME( 0x20, 0x20, DEF_STR( Unused ) ) PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x20, DEF_STR( On ) ) PORT_DIPNAME( 0x40, 0x00, DEF_STR( Unused ) ) PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x40, DEF_STR( On ) ) PORT_DIPNAME( 0x80, 0x00, DEF_STR( Cabinet ) ) PORT_DIPSETTING( 0x00, DEF_STR( Upright ) ) PORT_DIPSETTING( 0x80, DEF_STR( Cocktail ) ) PORT_START("DSW1") /* dip switches/VBLANK (0xe200) */ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_CUSTOM ) PORT_VBLANK("screen") PORT_DIPNAME( 0x02, 0x00, DEF_STR( Unknown ) ) // related to vblank PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) PORT_DIPSETTING( 0x02, DEF_STR( On ) ) PORT_DIPNAME( 0x0c, 0x00, DEF_STR( Coinage ) ) PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x04, DEF_STR( 1C_2C ) ) PORT_DIPSETTING( 0x08, DEF_STR( 1C_3C ) ) PORT_DIPSETTING( 0x0c, DEF_STR( 1C_4C ) ) PORT_BIT( 0xf0, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_START("COIN") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN1 ) PORT_CHANGED_MEMBER(DEVICE_SELF, fcombat_state,coin_inserted, 0) INPUT_PORTS_END /************************************* * * Graphics layouts * *************************************/ static const gfx_layout charlayout = { 8,8, RGN_FRAC(1,1), 2, { STEP2(0,4) }, { STEP4(3,-1), STEP4(4*2+3,-1) }, { STEP8(0,4*4) }, 16*8 }; /* 16 x 16 sprites -- requires reorganizing characters in init_fcombat() */ static const gfx_layout spritelayout = { 16,16, RGN_FRAC(1,1), 2, { STEP2(0,4) }, { STEP4(3,-1), STEP4(4*2+3,-1), STEP4(4*4+3,-1), STEP4(4*6+3,-1) }, { STEP16(0,4*8) }, 64*8 }; static GFXDECODE_START( gfx_fcombat ) GFXDECODE_ENTRY( "gfx1", 0, charlayout, 0, 64 ) GFXDECODE_ENTRY( "gfx2", 0, spritelayout, 256, 64 ) GFXDECODE_ENTRY( "gfx3", 0, spritelayout, 512, 64 ) GFXDECODE_END /************************************* * * Machine drivers * *************************************/ void fcombat_state::machine_start() { save_item(NAME(m_cocktail_flip)); save_item(NAME(m_char_palette)); save_item(NAME(m_sprite_palette)); save_item(NAME(m_char_bank)); save_item(NAME(m_fcombat_sh)); save_item(NAME(m_fcombat_sv)); save_item(NAME(m_tx)); save_item(NAME(m_ty)); } void fcombat_state::machine_reset() { m_cocktail_flip = 0; m_char_palette = 0; m_sprite_palette = 0; m_char_bank = 0; m_fcombat_sh = 0; m_fcombat_sv = 0; m_tx = 0; m_ty = 0; } void fcombat_state::fcombat(machine_config &config) { /* basic machine hardware */ Z80(config, m_maincpu, 10000000/3); m_maincpu->set_addrmap(AS_PROGRAM, &fcombat_state::main_map); z80_device &audiocpu(Z80(config, "audiocpu", 10000000/3)); audiocpu.set_addrmap(AS_PROGRAM, &fcombat_state::audio_map); /* video hardware */ screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); screen.set_raw(FCOMBAT_PIXEL_CLOCK, FCOMBAT_HTOTAL, FCOMBAT_HBEND, FCOMBAT_HBSTART, FCOMBAT_VTOTAL, FCOMBAT_VBEND, FCOMBAT_VBSTART); screen.set_screen_update(FUNC(fcombat_state::screen_update)); screen.set_palette(m_palette); GFXDECODE(config, m_gfxdecode, m_palette, gfx_fcombat); PALETTE(config, m_palette, FUNC(fcombat_state::fcombat_palette), 256*3, 32); /* audio hardware */ SPEAKER(config, "mono").front_center(); GENERIC_LATCH_8(config, "soundlatch"); YM2149(config, "ay1", 1500000).add_route(ALL_OUTPUTS, "mono", 0.12); YM2149(config, "ay2", 1500000).add_route(ALL_OUTPUTS, "mono", 0.12); YM2149(config, "ay3", 1500000).add_route(ALL_OUTPUTS, "mono", 0.12); } /************************************* * * Driver initialization * *************************************/ void fcombat_state::init_fcombat() { /* allocate some temporary space */ std::vector temp(0x10000); /* make a temporary copy of the character data */ u8 *src = &temp[0]; u8 *dst = memregion("gfx1")->base(); u32 length = memregion("gfx1")->bytes(); memcpy(src, dst, length); /* decode the characters */ /* the bits in the ROM are ordered: n8-n7 n6 n5 n4-v2 v1 v0 n3-n2 n1 n0 h2 */ /* we want them ordered like this: n8-n7 n6 n5 n4-n3 n2 n1 n0-v2 v1 v0 h2 */ for (u32 oldaddr = 0; oldaddr < length; oldaddr++) { u32 newaddr = ((oldaddr ) & 0x1f00) | /* keep n8-n4 */ ((oldaddr << 3) & 0x00f0) | /* move n3-n0 */ ((oldaddr >> 4) & 0x000e) | /* move v2-v0 */ ((oldaddr ) & 0x0001); /* keep h2 */ dst[newaddr] = src[oldaddr]; } /* make a temporary copy of the sprite data */ src = &temp[0]; dst = memregion("gfx2")->base(); length = memregion("gfx2")->bytes(); memcpy(src, dst, length); /* decode the sprites */ /* the bits in the ROMs are ordered: n9 n8 n3 n7-n6 n5 n4 v3-v2 v1 v0 n2-n1 n0 h3 h2 */ /* we want them ordered like this: n9 n8 n7 n6-n5 n4 n3 n2-n1 n0 v3 v2-v1 v0 h3 h2 */ for (u32 oldaddr = 0; oldaddr < length; oldaddr++) { u32 newaddr = ((oldaddr << 1) & 0x3c00) | /* move n7-n4 */ ((oldaddr >> 4) & 0x0200) | /* move n3 */ ((oldaddr << 4) & 0x01c0) | /* move n2-n0 */ ((oldaddr >> 3) & 0x003c) | /* move v3-v0 */ ((oldaddr ) & 0xc003); /* keep n9-n8 h3-h2 */ dst[newaddr] = src[oldaddr]; } /* make a temporary copy of the character data */ src = &temp[0]; dst = memregion("gfx3")->base(); length = memregion("gfx3")->bytes(); memcpy(src, dst, length); /* decode the characters */ /* the bits in the ROM are ordered: n8-n7 n6 n5 n4-v2 v1 v0 n3-n2 n1 n0 h2 */ /* we want them ordered like this: n8-n7 n6 n5 n4-n3 n2 n1 n0-v2 v1 v0 h2 */ for (u32 oldaddr = 0; oldaddr < length; oldaddr++) { u32 newaddr = ((oldaddr << 1) & 0x3c00) | /* move n7-n4 */ ((oldaddr >> 4) & 0x0200) | /* move n3 */ ((oldaddr << 4) & 0x01c0) | /* move n2-n0 */ ((oldaddr >> 3) & 0x003c) | /* move v3-v0 */ ((oldaddr ) & 0xc003); /* keep n9-n8 h3-h2 */ dst[newaddr] = src[oldaddr]; } src = &temp[0]; dst = memregion("bgdata")->base(); length = memregion("bgdata")->bytes(); memcpy(src, dst, length); for (u32 oldaddr = 0; oldaddr < 32; oldaddr++) { memcpy(&dst[oldaddr * 32 * 8 * 2], &src[oldaddr * 32 * 8], 32 * 8); memcpy(&dst[oldaddr * 32 * 8 * 2 + 32 * 8], &src[oldaddr * 32 * 8 + 0x2000], 32 * 8); } src = &temp[0]; dst = memregion("user2")->base(); length = memregion("user2")->bytes(); memcpy(src, dst, length); for (u32 oldaddr = 0; oldaddr < 32; oldaddr++) { memcpy(&dst[oldaddr * 32 * 8 * 2], &src[oldaddr * 32 * 8], 32 * 8); memcpy(&dst[oldaddr * 32 * 8 * 2 + 32 * 8], &src[oldaddr * 32 * 8 + 0x2000], 32 * 8); } } ROM_START( fcombat ) ROM_REGION( 0x10000, "maincpu", 0 ) ROM_LOAD( "fcombat2.t9", 0x0000, 0x4000, CRC(30cb0c14) SHA1(8b5b6a4efaca2f138709184725e9e0e0b9cfc4c7) ) ROM_LOAD( "fcombat3.10t", 0x4000, 0x4000, CRC(e8511da0) SHA1(bab5c9244c970b97c025381c37ad372aa3b5cddf) ) ROM_REGION( 0x10000, "audiocpu", 0 ) /* 64k for the second CPU */ ROM_LOAD( "fcombat1.t5", 0x0000, 0x4000, CRC(a0cc1216) SHA1(3a8963ffde2ff4a3f428369133f94bb37717cae5) ) ROM_REGION( 0x02000, "gfx1", 0 ) ROM_LOAD( "fcombat7.l11", 0x00000, 0x2000, CRC(401061b5) SHA1(09dd23e86a56db8021e14432aced0eaf013fefe2) ) /* fg chars */ ROM_REGION( 0x0c000, "gfx2", 0 ) ROM_LOAD( "fcombat8.d10", 0x00000, 0x4000, CRC(e810941e) SHA1(19ae85af0bf245caf3afe10d65e618cfb47d33c2) ) /* sprites */ ROM_LOAD( "fcombat9.d11", 0x04000, 0x4000, CRC(f95988e6) SHA1(25876652decca7ec1e9b37a16536c15ca2d1cb12) ) ROM_LOAD( "fcomba10.d12", 0x08000, 0x4000, CRC(908f154c) SHA1(b3761ee60d4a5ea36376759875105d23c57b4bf2) ) ROM_REGION( 0x04000, "gfx3", 0 ) ROM_LOAD( "fcombat6.f3", 0x00000, 0x4000, CRC(97282729) SHA1(72db0593551c2d15631341bf621b96013b46ce72) ) ROM_REGION( 0x04000, "bgdata", 0 ) ROM_LOAD( "fcombat5.l3", 0x00000, 0x4000, CRC(96194ca7) SHA1(087d6ac8f93f087cb5e378dbe9a8cfcffa2cdddc) ) /* bg data */ ROM_REGION( 0x04000, "user2", 0 ) ROM_LOAD( "fcombat4.p3", 0x00000, 0x4000, CRC(efe098ab) SHA1(fe64a5e9170835d242368109b1b221b0f8090e7e) ) /* terrain info */ ROM_REGION( 0x0420, "proms", 0 ) ROM_LOAD( "fcprom_a.c2", 0x0000, 0x0020, CRC(7ac480f0) SHA1(f491fe4da19d8c037e3733a5836de35cc438907e) ) /* palette */ ROM_LOAD( "fcprom_d.k12", 0x0020, 0x0100, CRC(9a348250) SHA1(faf8db4c42adee07795d06bea20704f8c51090ff) ) /* fg char lookup table */ ROM_LOAD( "fcprom_b.c4", 0x0120, 0x0100, CRC(ac9049f6) SHA1(57aa5b5df3e181bad76149745a422c3dd1edad49) ) /* sprite lookup table */ ROM_LOAD( "fcprom_c.a9", 0x0220, 0x0100, CRC(768ac120) SHA1(ceede1d6cbeae08da96ef52bdca2718a839d88ab) ) /* bg char mixer */ ROM_END GAME( 1985, fcombat, 0, fcombat, fcombat, fcombat_state, init_fcombat, ROT90, "Jaleco", "Field Combat", MACHINE_WRONG_COLORS | MACHINE_SUPPORTS_SAVE )