// license:BSD-3-Clause
// copyright-holders:Nicola Salmoria
/***************************************************************************
Bally/Midway Jr. Pac-Man
Games supported:
* Jr. Pac-Man
Known issues:
* none
****************************************************************************
Jr. Pac Man memory map (preliminary)
0000-3fff ROM
4000-47ff Video RAM (also color RAM)
4800-4fff RAM
8000-dfff ROM
memory mapped ports:
read:
5000 P1
5040 P2
5080 DSW
*
* IN0 (all bits are inverted)
* bit 7 : CREDIT
* bit 6 : COIN 2
* bit 5 : COIN 1
* bit 4 : RACK TEST
* bit 3 : DOWN player 1
* bit 2 : RIGHT player 1
* bit 1 : LEFT player 1
* bit 0 : UP player 1
*
*
* IN1 (all bits are inverted)
* bit 7 : TABLE or UPRIGHT cabinet select (1 = UPRIGHT)
* bit 6 : START 2
* bit 5 : START 1
* bit 4 : TEST SWITCH
* bit 3 : DOWN player 2 (TABLE only)
* bit 2 : RIGHT player 2 (TABLE only)
* bit 1 : LEFT player 2 (TABLE only)
* bit 0 : UP player 2 (TABLE only)
*
*
* DSW1 (all bits are inverted)
* bit 7 : ?
* bit 6 : difficulty level
* 1 = Normal 0 = Harder
* bit 5 :\ bonus pac at xx000 pts
* bit 4 :/ 00 = 10000 01 = 15000 10 = 20000 11 = 30000
* bit 3 :\ nr of lives
* bit 2 :/ 00 = 1 01 = 2 10 = 3 11 = 5
* bit 1 :\ play mode
* bit 0 :/ 00 = free play 01 = 1 coin 1 credit
* 10 = 1 coin 2 credits 11 = 2 coins 1 credit
*
write:
4ff2-4ffd 6 pairs of two bytes:
the first byte contains the sprite image number (bits 2-7), Y flip (bit 0),
X flip (bit 1); the second byte the color
5000 interrupt enable
5001 sound enable
5002 unused
5003 flip screen
5004 unused
5005 unused
5006 unused
5007 coin counter
5040-5044 sound voice 1 accumulator (nibbles) (used by the sound hardware only)
5045 sound voice 1 waveform (nibble)
5046-5049 sound voice 2 accumulator (nibbles) (used by the sound hardware only)
504a sound voice 2 waveform (nibble)
504b-504e sound voice 3 accumulator (nibbles) (used by the sound hardware only)
504f sound voice 3 waveform (nibble)
5050-5054 sound voice 1 frequency (nibbles)
5055 sound voice 1 volume (nibble)
5056-5059 sound voice 2 frequency (nibbles)
505a sound voice 2 volume (nibble)
505b-505e sound voice 3 frequency (nibbles)
505f sound voice 3 volume (nibble)
5062-506d Sprite coordinates, x/y pairs for 6 sprites
5070 palette bank
5071 colortable bank
5073 background priority over sprites
5074 char gfx bank
5075 sprite gfx bank
5080 scroll
50c0 Watchdog reset
I/O ports:
OUT on port $0 sets the interrupt vector
***************************************************************************/
#include "emu.h"
#include "includes/pacman.h"
#include "cpu/z80/z80.h"
#include "machine/74259.h"
#include "screen.h"
#include "speaker.h"
class jrpacman_state : public pacman_state
{
public:
jrpacman_state(const machine_config &mconfig, device_type type, const char *tag)
: pacman_state(mconfig, type, tag) { }
void jrpacman(machine_config &config);
void init_jrpacman();
private:
void jrpacman_interrupt_vector_w(uint8_t data);
DECLARE_WRITE_LINE_MEMBER(irq_mask_w);
DECLARE_WRITE_LINE_MEMBER(vblank_irq);
void main_map(address_map &map);
void port_map(address_map &map);
};
void jrpacman_state::jrpacman_interrupt_vector_w(uint8_t data)
{
m_maincpu->set_input_line_vector(0, data); // Z80
m_maincpu->set_input_line(0, CLEAR_LINE);
}
WRITE_LINE_MEMBER(jrpacman_state::irq_mask_w)
{
m_irq_mask = state;
}
/*************************************
*
* Main CPU memory handlers
*
*************************************/
void jrpacman_state::main_map(address_map &map)
{
map(0x0000, 0x3fff).rom();
map(0x4000, 0x47ff).ram().w(FUNC(jrpacman_state::jrpacman_videoram_w)).share("videoram");
map(0x4800, 0x4fef).ram();
map(0x4ff0, 0x4fff).ram().share("spriteram");
map(0x5000, 0x503f).portr("P1");
map(0x5000, 0x5007).w("latch1", FUNC(ls259_device::write_d0));
map(0x5040, 0x507f).portr("P2");
map(0x5040, 0x505f).w(m_namco_sound, FUNC(namco_device::pacman_sound_w));
map(0x5060, 0x506f).writeonly().share("spriteram2");
map(0x5070, 0x5077).w("latch2", FUNC(ls259_device::write_d0));
map(0x5080, 0x50bf).portr("DSW");
map(0x5080, 0x5080).w(FUNC(jrpacman_state::jrpacman_scroll_w));
map(0x50c0, 0x50c0).w(m_watchdog, FUNC(watchdog_timer_device::reset_w));
map(0x8000, 0xdfff).rom();
}
void jrpacman_state::port_map(address_map &map)
{
map.global_mask(0xff);
map(0, 0).w(FUNC(jrpacman_state::jrpacman_interrupt_vector_w));
}
/*************************************
*
* Port definitions
*
*************************************/
static INPUT_PORTS_START( jrpacman )
PORT_START("P1")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_4WAY
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_4WAY
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_4WAY
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_4WAY
PORT_DIPNAME( 0x10, 0x10, "Rack Test (Cheat)" ) PORT_CODE(KEYCODE_F1)
PORT_DIPSETTING( 0x10, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_COIN1 )
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_COIN2 )
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_COIN3 )
PORT_START("P2")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_4WAY PORT_COCKTAIL
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_4WAY PORT_COCKTAIL
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_4WAY PORT_COCKTAIL
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_4WAY PORT_COCKTAIL
PORT_SERVICE( 0x10, IP_ACTIVE_LOW )
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_START1 )
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START2 )
PORT_DIPNAME( 0x80, 0x80, DEF_STR( Cabinet ) )
PORT_DIPSETTING( 0x80, DEF_STR( Upright ) )
PORT_DIPSETTING( 0x00, DEF_STR( Cocktail ) )
PORT_START("DSW")
PORT_DIPNAME( 0x03, 0x01, DEF_STR( Coinage ) ) PORT_DIPLOCATION("SW1:1,2")
PORT_DIPSETTING( 0x03, DEF_STR( 2C_1C ) )
PORT_DIPSETTING( 0x01, DEF_STR( 1C_1C ) )
PORT_DIPSETTING( 0x02, DEF_STR( 1C_2C ) )
PORT_DIPSETTING( 0x00, DEF_STR( Free_Play ) )
PORT_DIPNAME( 0x0c, 0x08, DEF_STR( Lives ) ) PORT_DIPLOCATION("SW1:3,4")
PORT_DIPSETTING( 0x00, "1" )
PORT_DIPSETTING( 0x04, "2" )
PORT_DIPSETTING( 0x08, "3" )
PORT_DIPSETTING( 0x0c, "5" )
PORT_DIPNAME( 0x30, 0x00, DEF_STR( Bonus_Life ) ) PORT_DIPLOCATION("SW1:5,6")
PORT_DIPSETTING( 0x00, "10000" )
PORT_DIPSETTING( 0x10, "15000" )
PORT_DIPSETTING( 0x20, "20000" )
PORT_DIPSETTING( 0x30, "30000" )
PORT_DIPNAME( 0x40, 0x40, DEF_STR( Difficulty ) ) PORT_DIPLOCATION("SW1:7")
PORT_DIPSETTING( 0x40, DEF_STR( Normal ) )
PORT_DIPSETTING( 0x00, DEF_STR( Hard ) )
PORT_DIPNAME( 0x80, 0x80, DEF_STR( Unknown ) ) PORT_DIPLOCATION("SW1:8")
PORT_DIPSETTING( 0x80, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
INPUT_PORTS_END
/*************************************
*
* Graphics layouts
*
*************************************/
static const gfx_layout tilelayout =
{
8,8,
RGN_FRAC(1,2),
2,
{ 0, 4 },
{ STEP4(8*8,1), STEP4(0*8,1) },
{ STEP8(0*8,8) },
16*8
};
static const gfx_layout spritelayout =
{
16,16,
RGN_FRAC(1,2),
2,
{ 0, 4 },
{ STEP4(8*8,1), STEP4(16*8,1), STEP4(24*8,1), STEP4(0*8,1) },
{ STEP8(0*8,8), STEP8(32*8,8) },
64*8
};
static GFXDECODE_START( gfx_jrpacman )
GFXDECODE_ENTRY( "gfx1", 0x0000, tilelayout, 0, 128 )
GFXDECODE_ENTRY( "gfx1", 0x2000, spritelayout, 0, 128 )
GFXDECODE_END
/*************************************
*
* Machine drivers
*
*************************************/
WRITE_LINE_MEMBER(jrpacman_state::vblank_irq)
{
if (state && m_irq_mask)
m_maincpu->set_input_line(0, HOLD_LINE);
}
void jrpacman_state::jrpacman(machine_config &config)
{
/* basic machine hardware */
Z80(config, m_maincpu, 18432000/6); /* 3.072 MHz */
m_maincpu->set_addrmap(AS_PROGRAM, &jrpacman_state::main_map);
m_maincpu->set_addrmap(AS_IO, &jrpacman_state::port_map);
ls259_device &latch1(LS259(config, "latch1")); // 5P
latch1.q_out_cb<0>().set(FUNC(jrpacman_state::irq_mask_w));
latch1.q_out_cb<1>().set("namco", FUNC(namco_device::sound_enable_w));
latch1.q_out_cb<3>().set(FUNC(jrpacman_state::flipscreen_w));
latch1.q_out_cb<7>().set(FUNC(jrpacman_state::coin_counter_w));
ls259_device &latch2(LS259(config, "latch2")); // 1H
latch2.q_out_cb<0>().set(FUNC(jrpacman_state::pengo_palettebank_w));
latch2.q_out_cb<1>().set(FUNC(jrpacman_state::pengo_colortablebank_w));
latch2.q_out_cb<3>().set(FUNC(jrpacman_state::jrpacman_bgpriority_w));
latch2.q_out_cb<4>().set(FUNC(jrpacman_state::jrpacman_charbank_w));
latch2.q_out_cb<5>().set(FUNC(jrpacman_state::jrpacman_spritebank_w));
WATCHDOG_TIMER(config, m_watchdog);
/* video hardware */
screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
screen.set_refresh_hz(60.606060);
screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500)); /* not accurate */
screen.set_size(36*8, 28*8);
screen.set_visarea(0*8, 36*8-1, 0*8, 28*8-1);
screen.set_screen_update(FUNC(jrpacman_state::screen_update_pacman));
screen.set_palette(m_palette);
screen.screen_vblank().set(FUNC(jrpacman_state::vblank_irq));
GFXDECODE(config, m_gfxdecode, m_palette, gfx_jrpacman);
PALETTE(config, m_palette, FUNC(jrpacman_state::pacman_palette), 128 * 4, 32);
MCFG_VIDEO_START_OVERRIDE(jrpacman_state,jrpacman)
/* sound hardware */
SPEAKER(config, "mono").front_center();
NAMCO(config, m_namco_sound, 3072000/32);
m_namco_sound->set_voices(3);
m_namco_sound->add_route(ALL_OUTPUTS, "mono", 1.0);
}
/*************************************
*
* ROM definitions
*
*************************************/
ROM_START( jrpacman )
ROM_REGION( 0x10000, "maincpu", 0 )
ROM_LOAD( "jrp8d.8d", 0x0000, 0x2000, CRC(e3fa972e) SHA1(5ea34621213c649ca2848ab31aab2cbe751723d4) )
ROM_LOAD( "jrp8e.8e", 0x2000, 0x2000, CRC(ec889e94) SHA1(8294e9e79f8fd19a419431fa690e6ac4a1302f58) )
ROM_LOAD( "jrp8h.8h", 0x8000, 0x2000, CRC(35f1fc6e) SHA1(b84b34560b9aae18b24274712b052283faa01730) )
ROM_LOAD( "jrp8j.8j", 0xa000, 0x2000, CRC(9737099e) SHA1(07d912a61824323c8fc1b8bd0da89172d4f70b91) )
ROM_LOAD( "jrp8k.8k", 0xc000, 0x2000, CRC(5252dd97) SHA1(18bd4d5381656120e4242811006c20776774de4d) )
ROM_REGION( 0x4000, "gfx1", 0 )
ROM_LOAD( "jrp2c.2c", 0x0000, 0x2000, CRC(0527ff9b) SHA1(37fe3176b0d125b7d629e108e7ebdc1196e4a132) ) /* tiles (bank 1 & 2) */
ROM_LOAD( "jrp2e.2e", 0x2000, 0x2000, CRC(73477193) SHA1(f00a488958ea0438642d345693787bdf771219ad) ) /* sprites (bank 1 & 2) */
ROM_REGION( 0x0120, "proms", 0 )
ROM_LOAD_NIB_LOW ( "a290-27axv-bxhd.9e", 0x0000, 0x0100, CRC(029d35c4) SHA1(d9aa2dc442e9ac36cf3c346b9fb1aa745eaf3cb8) ) /* color palette (low bits) */
ROM_LOAD_NIB_HIGH( "a290-27axv-cxhd.9f", 0x0000, 0x0100, CRC(eee34a79) SHA1(7561f8ccab2af85c111af6a02af6986eb67503e5) ) /* color palette (high bits) */
ROM_LOAD( "a290-27axv-axhd.9p", 0x0020, 0x0100, CRC(9f6ea9d8) SHA1(62cf15513934d34641433c891a7f73bef82e2fb1) ) /* color lookup table */
ROM_REGION( 0x0200, "namco", 0 )
ROM_LOAD( "a290-27axv-dxhd.7p", 0x0000, 0x0100, CRC(a9cc86bf) SHA1(bbcec0570aeceb582ff8238a4bc8546a23430081) ) /* waveform */
ROM_LOAD( "a290-27axv-exhd.5s", 0x0100, 0x0100, CRC(77245b66) SHA1(0c4d0bee858b97632411c440bea6948a74759746) ) /* timing - not used */
ROM_END
ROM_START( jrpacmanf )
ROM_REGION( 0x10000, "maincpu", 0 )
ROM_LOAD( "fast_jr.8d", 0x0000, 0x2000, CRC(461e8b57) SHA1(42e25d384e653efb95a97bd64f55a8c3b3f71239) ) // only 1 byte difference
ROM_LOAD( "jrp8e.8e", 0x2000, 0x2000, CRC(ec889e94) SHA1(8294e9e79f8fd19a419431fa690e6ac4a1302f58) )
ROM_LOAD( "jrp8h.8h", 0x8000, 0x2000, CRC(35f1fc6e) SHA1(b84b34560b9aae18b24274712b052283faa01730) )
ROM_LOAD( "jrp8j.8j", 0xa000, 0x2000, CRC(9737099e) SHA1(07d912a61824323c8fc1b8bd0da89172d4f70b91) )
ROM_LOAD( "jrp8k.8k", 0xc000, 0x2000, CRC(5252dd97) SHA1(18bd4d5381656120e4242811006c20776774de4d) )
ROM_REGION( 0x4000, "gfx1", 0 )
ROM_LOAD( "jrp2c.2c", 0x0000, 0x2000, CRC(0527ff9b) SHA1(37fe3176b0d125b7d629e108e7ebdc1196e4a132) ) /* tiles (bank 1 & 2) */
ROM_LOAD( "jrp2e.2e", 0x2000, 0x2000, CRC(73477193) SHA1(f00a488958ea0438642d345693787bdf771219ad) ) /* sprites (bank 1 & 2) */
ROM_REGION( 0x0120, "proms", 0 )
ROM_LOAD_NIB_LOW ( "a290-27axv-bxhd.9e", 0x0000, 0x0100, CRC(029d35c4) SHA1(d9aa2dc442e9ac36cf3c346b9fb1aa745eaf3cb8) ) /* color palette (low bits) */
ROM_LOAD_NIB_HIGH( "a290-27axv-cxhd.9f", 0x0000, 0x0100, CRC(eee34a79) SHA1(7561f8ccab2af85c111af6a02af6986eb67503e5) ) /* color palette (high bits) */
ROM_LOAD( "a290-27axv-axhd.9p", 0x0020, 0x0100, CRC(9f6ea9d8) SHA1(62cf15513934d34641433c891a7f73bef82e2fb1) ) /* color lookup table */
ROM_REGION( 0x0200, "namco", 0 )
ROM_LOAD( "a290-27axv-dxhd.7p", 0x0000, 0x0100, CRC(a9cc86bf) SHA1(bbcec0570aeceb582ff8238a4bc8546a23430081) ) /* waveform */
ROM_LOAD( "a290-27axv-exhd.5s", 0x0100, 0x0100, CRC(77245b66) SHA1(0c4d0bee858b97632411c440bea6948a74759746) ) /* timing - not used */
ROM_END
/*************************************
*
* Driver initialization
*
*************************************/
void jrpacman_state::init_jrpacman()
{
/* The encryption PALs garble bits 0, 2 and 7 of the ROMs. The encryption */
/* scheme is complex (basically it's a state machine) and can only be */
/* faithfully emulated at run time. To avoid the performance hit that would */
/* cause, here we have a table of the values which must be XORed with */
/* each memory region to obtain the decrypted bytes. */
/* Decryption table provided by David Caldwell (david@indigita.com) */
/* For an accurate reproduction of the encryption, see jrcrypt.c */
static const struct {
int count;
int value;
} table[] =
{
{ 0x00C1, 0x00 },{ 0x0002, 0x80 },{ 0x0004, 0x00 },{ 0x0006, 0x80 },
{ 0x0003, 0x00 },{ 0x0002, 0x80 },{ 0x0009, 0x00 },{ 0x0004, 0x80 },
{ 0x9968, 0x00 },{ 0x0001, 0x80 },{ 0x0002, 0x00 },{ 0x0001, 0x80 },
{ 0x0009, 0x00 },{ 0x0002, 0x80 },{ 0x0009, 0x00 },{ 0x0001, 0x80 },
{ 0x00AF, 0x00 },{ 0x000E, 0x04 },{ 0x0002, 0x00 },{ 0x0004, 0x04 },
{ 0x001E, 0x00 },{ 0x0001, 0x80 },{ 0x0002, 0x00 },{ 0x0001, 0x80 },
{ 0x0002, 0x00 },{ 0x0002, 0x80 },{ 0x0009, 0x00 },{ 0x0002, 0x80 },
{ 0x0009, 0x00 },{ 0x0002, 0x80 },{ 0x0083, 0x00 },{ 0x0001, 0x04 },
{ 0x0001, 0x01 },{ 0x0001, 0x00 },{ 0x0002, 0x05 },{ 0x0001, 0x00 },
{ 0x0003, 0x04 },{ 0x0003, 0x01 },{ 0x0002, 0x00 },{ 0x0001, 0x04 },
{ 0x0003, 0x01 },{ 0x0003, 0x00 },{ 0x0003, 0x04 },{ 0x0001, 0x01 },
{ 0x002E, 0x00 },{ 0x0078, 0x01 },{ 0x0001, 0x04 },{ 0x0001, 0x05 },
{ 0x0001, 0x00 },{ 0x0001, 0x01 },{ 0x0001, 0x04 },{ 0x0002, 0x00 },
{ 0x0001, 0x01 },{ 0x0001, 0x04 },{ 0x0002, 0x00 },{ 0x0001, 0x01 },
{ 0x0001, 0x04 },{ 0x0002, 0x00 },{ 0x0001, 0x01 },{ 0x0001, 0x04 },
{ 0x0001, 0x05 },{ 0x0001, 0x00 },{ 0x0001, 0x01 },{ 0x0001, 0x04 },
{ 0x0002, 0x00 },{ 0x0001, 0x01 },{ 0x0001, 0x04 },{ 0x0002, 0x00 },
{ 0x0001, 0x01 },{ 0x0001, 0x04 },{ 0x0001, 0x05 },{ 0x0001, 0x00 },
{ 0x01B0, 0x01 },{ 0x0001, 0x00 },{ 0x0002, 0x01 },{ 0x00AD, 0x00 },
{ 0x0031, 0x01 },{ 0x005C, 0x00 },{ 0x0005, 0x01 },{ 0x604E, 0x00 },
{ 0,0 }
};
uint8_t *RAM = memregion("maincpu")->base();
for (int i = 0, A = 0; table[i].count; i++)
for (int j = 0; j < table[i].count; j++)
RAM[A++] ^= table[i].value;
}
/*************************************
*
* Game drivers
*
*************************************/
GAME( 1983, jrpacman, 0, jrpacman, jrpacman, jrpacman_state, init_jrpacman, ROT90, "Bally Midway", "Jr. Pac-Man (11/9/83)", MACHINE_SUPPORTS_SAVE )
GAME( 1983, jrpacmanf, jrpacman, jrpacman, jrpacman, jrpacman_state, init_jrpacman, ROT90, "hack", "Jr. Pac-Man (speedup hack)", MACHINE_SUPPORTS_SAVE )