/***************************************************************************
Atari Triple Hunt Driver
Calibrate controls in service mode the first time you run this game.
To Do:
The 3 different overlays need to be found, scanned and added as artwork
to really make the game complete.
***************************************************************************/
#include "emu.h"
#include "cpu/m6800/m6800.h"
#include "machine/nvram.h"
#include "includes/triplhnt.h"
static DRIVER_INIT( triplhnt )
{
triplhnt_state *state = machine.driver_data<triplhnt_state>();
machine.device<nvram_device>("nvram")->set_base(state->m_cmos, sizeof(state->m_cmos));
}
void triplhnt_set_collision(running_machine &machine, int code)
{
triplhnt_state *state = machine.driver_data<triplhnt_state>();
state->m_hit_code = code;
cputag_set_input_line(machine, "maincpu", 0, HOLD_LINE);
}
static void triplhnt_update_misc(running_machine &machine, int offset)
{
triplhnt_state *state = machine.driver_data<triplhnt_state>();
device_t *samples = machine.device("samples");
device_t *discrete = machine.device("discrete");
UINT8 is_witch_hunt;
UINT8 bit = offset >> 1;
/* BIT0 => UNUSED */
/* BIT1 => LAMP */
/* BIT2 => SCREECH */
/* BIT3 => LOCKOUT */
/* BIT4 => SPRITE ZOOM */
/* BIT5 => CMOS WRITE */
/* BIT6 => TAPE CTRL */
/* BIT7 => SPRITE BANK */
if (offset & 1)
{
state->m_misc_flags |= 1 << bit;
if (bit == 5)
{
state->m_cmos[state->m_cmos_latch] = state->m_da_latch;
}
}
else
{
state->m_misc_flags &= ~(1 << bit);
}
state->m_sprite_zoom = (state->m_misc_flags >> 4) & 1;
state->m_sprite_bank = (state->m_misc_flags >> 7) & 1;
set_led_status(machine, 0, state->m_misc_flags & 0x02);
coin_lockout_w(machine, 0, !(state->m_misc_flags & 0x08));
coin_lockout_w(machine, 1, !(state->m_misc_flags & 0x08));
discrete_sound_w(discrete, TRIPLHNT_SCREECH_EN, state->m_misc_flags & 0x04); // screech
discrete_sound_w(discrete, TRIPLHNT_LAMP_EN, state->m_misc_flags & 0x02); // Lamp is used to reset noise
discrete_sound_w(discrete, TRIPLHNT_BEAR_EN, state->m_misc_flags & 0x80); // bear
is_witch_hunt = input_port_read(machine, "0C09") == 0x40;
bit = ~state->m_misc_flags & 0x40;
/* if we're not playing the sample yet, start it */
if (!sample_playing(samples, 0))
sample_start(samples, 0, 0, 1);
if (!sample_playing(samples, 1))
sample_start(samples, 1, 1, 1);
/* bit 6 turns cassette on/off */
sample_set_pause(samples, 0, is_witch_hunt || bit);
sample_set_pause(samples, 1, !is_witch_hunt || bit);
}
static WRITE8_HANDLER( triplhnt_misc_w )
{
triplhnt_update_misc(space->machine(), offset);
}
static READ8_HANDLER( triplhnt_cmos_r )
{
triplhnt_state *state = space->machine().driver_data<triplhnt_state>();
state->m_cmos_latch = offset;
return state->m_cmos[state->m_cmos_latch] ^ 15;
}
static READ8_HANDLER( triplhnt_input_port_4_r )
{
watchdog_reset_w(space, 0, 0);
return input_port_read(space->machine(), "0C0B");
}
static READ8_HANDLER( triplhnt_misc_r )
{
triplhnt_state *state = space->machine().driver_data<triplhnt_state>();
triplhnt_update_misc(space->machine(), offset);
return input_port_read(space->machine(), "VBLANK") | state->m_hit_code;
}
static READ8_HANDLER( triplhnt_da_latch_r )
{
triplhnt_state *state = space->machine().driver_data<triplhnt_state>();
int cross_x = input_port_read(space->machine(), "STICKX");
int cross_y = input_port_read(space->machine(), "STICKY");
state->m_da_latch = offset;
/* the following is a slight simplification */
return (offset & 1) ? cross_x : cross_y;
}
static ADDRESS_MAP_START( triplhnt_map, AS_PROGRAM, 8 )
ADDRESS_MAP_GLOBAL_MASK(0x7fff)
AM_RANGE(0x0000, 0x00ff) AM_RAM AM_MIRROR(0x300)
AM_RANGE(0x0400, 0x04ff) AM_WRITEONLY AM_BASE_MEMBER(triplhnt_state, m_playfield_ram)
AM_RANGE(0x0800, 0x080f) AM_WRITEONLY AM_BASE_MEMBER(triplhnt_state, m_vpos_ram)
AM_RANGE(0x0810, 0x081f) AM_WRITEONLY AM_BASE_MEMBER(triplhnt_state, m_hpos_ram)
AM_RANGE(0x0820, 0x082f) AM_WRITEONLY AM_BASE_MEMBER(triplhnt_state, m_orga_ram)
AM_RANGE(0x0830, 0x083f) AM_WRITEONLY AM_BASE_MEMBER(triplhnt_state, m_code_ram)
AM_RANGE(0x0c00, 0x0c00) AM_READ_PORT("0C00")
AM_RANGE(0x0c08, 0x0c08) AM_READ_PORT("0C08")
AM_RANGE(0x0c09, 0x0c09) AM_READ_PORT("0C09")
AM_RANGE(0x0c0a, 0x0c0a) AM_READ_PORT("0C0A")
AM_RANGE(0x0c0b, 0x0c0b) AM_READ(triplhnt_input_port_4_r)
AM_RANGE(0x0c10, 0x0c1f) AM_READ(triplhnt_da_latch_r)
AM_RANGE(0x0c20, 0x0c2f) AM_READ(triplhnt_cmos_r) AM_SHARE("nvram")
AM_RANGE(0x0c30, 0x0c3f) AM_READWRITE(triplhnt_misc_r, triplhnt_misc_w)
AM_RANGE(0x0c40, 0x0c40) AM_READ_PORT("0C40")
AM_RANGE(0x0c48, 0x0c48) AM_READ_PORT("0C48")
AM_RANGE(0x7000, 0x7fff) AM_ROM /* program */
ADDRESS_MAP_END
static INPUT_PORTS_START( triplhnt )
PORT_START("0C00") /* 0C00 */
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START1 )
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_COIN1 )
PORT_START("0C08") /* 0C08 */
PORT_DIPNAME( 0xc0, 0x00, "Play Time" )
PORT_DIPSETTING( 0x00, "32 seconds / 16 raccoons" )
PORT_DIPSETTING( 0x40, "64 seconds / 32 raccoons" )
PORT_DIPSETTING( 0x80, "96 seconds / 48 raccoons" )
PORT_DIPSETTING( 0xc0, "128 seconds / 64 raccoons" )
PORT_START("0C09") /* 0C09 */
PORT_DIPNAME( 0xc0, 0x40, "Game Select" )
PORT_DIPSETTING( 0x00, "Hit the Bear" )
PORT_DIPSETTING( 0x40, "Witch Hunt" )
PORT_DIPSETTING( 0xc0, "Raccoon Hunt" )
PORT_START("0C0A") /* 0C0A */
PORT_DIPNAME( 0xc0, 0x00, DEF_STR( Coinage ))
PORT_DIPSETTING( 0x40, DEF_STR( 2C_1C ))
PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ))
PORT_DIPSETTING( 0x80, DEF_STR( 1C_2C ))
PORT_START("0C0B") /* 0C0B */
PORT_DIPNAME( 0x80, 0x00, "Extended Play" )
PORT_DIPSETTING( 0x80, DEF_STR( Off ))
PORT_DIPSETTING( 0x00, DEF_STR( On ))
PORT_START("0C40") /* 0C40 */
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_TILT )
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_COIN2 )
PORT_START("0C48") /* 0C48 */
// default to service enabled to make users calibrate gun
// PORT_SERVICE( 0x40, IP_ACTIVE_LOW )
PORT_DIPNAME( 0x40, 0x00, DEF_STR( Service_Mode )) PORT_TOGGLE PORT_CODE(KEYCODE_F2)
PORT_DIPSETTING( 0x40, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_BUTTON1 )
PORT_START("VBLANK")
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_VBLANK )
PORT_START("STICKX")
PORT_BIT( 0xfc, 0x80, IPT_AD_STICK_X ) PORT_MINMAX(0x00,0xfc) PORT_CROSSHAIR(X, 62.0/64, 1.0/64, 0) PORT_SENSITIVITY(25) PORT_KEYDELTA(15)
PORT_START("STICKY")
PORT_BIT( 0xfc, 0x78, IPT_AD_STICK_Y ) PORT_MINMAX(0x00,0xec) PORT_CROSSHAIR(Y, 1.0, 0.0, 0) PORT_SENSITIVITY(25) PORT_KEYDELTA(15)
PORT_START("BEAR") /* 10 */
PORT_ADJUSTER( 35, "Bear Roar Frequency" )
INPUT_PORTS_END
static const gfx_layout triplhnt_small_sprite_layout =
{
32, 32, /* width, height */
16, /* total */
2, /* planes */
/* plane offsets */
{ 0x0000, 0x4000 },
{
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07,
0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F,
0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17,
0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F
},
{
0x000, 0x020, 0x040, 0x060, 0x080, 0x0A0, 0x0C0, 0x0E0,
0x100, 0x120, 0x140, 0x160, 0x180, 0x1A0, 0x1C0, 0x1E0,
0x200, 0x220, 0x240, 0x260, 0x280, 0x2A0, 0x2C0, 0x2E0,
0x300, 0x320, 0x340, 0x360, 0x380, 0x3A0, 0x3C0, 0x3E0
},
0x400 /* increment */
};
static const UINT32 triplhnt_large_sprite_layout_xoffset[64] =
{
0x00, 0x00, 0x01, 0x01, 0x02, 0x02, 0x03, 0x03,
0x04, 0x04, 0x05, 0x05, 0x06, 0x06, 0x07, 0x07,
0x08, 0x08, 0x09, 0x09, 0x0A, 0x0A, 0x0B, 0x0B,
0x0C, 0x0C, 0x0D, 0x0D, 0x0E, 0x0E, 0x0F, 0x0F,
0x10, 0x10, 0x11, 0x11, 0x12, 0x12, 0x13, 0x13,
0x14, 0x14, 0x15, 0x15, 0x16, 0x16, 0x17, 0x17,
0x18, 0x18, 0x19, 0x19, 0x1A, 0x1A, 0x1B, 0x1B,
0x1C, 0x1C, 0x1D, 0x1D, 0x1E, 0x1E, 0x1F, 0x1F
};
static const UINT32 triplhnt_large_sprite_layout_yoffset[64] =
{
0x000, 0x000, 0x020, 0x020, 0x040, 0x040, 0x060, 0x060,
0x080, 0x080, 0x0A0, 0x0A0, 0x0C0, 0x0C0, 0x0E0, 0x0E0,
0x100, 0x100, 0x120, 0x120, 0x140, 0x140, 0x160, 0x160,
0x180, 0x180, 0x1A0, 0x1A0, 0x1C0, 0x1C0, 0x1E0, 0x1E0,
0x200, 0x200, 0x220, 0x220, 0x240, 0x240, 0x260, 0x260,
0x280, 0x280, 0x2A0, 0x2A0, 0x2C0, 0x2C0, 0x2E0, 0x2E0,
0x300, 0x300, 0x320, 0x320, 0x340, 0x340, 0x360, 0x360,
0x380, 0x380, 0x3A0, 0x3A0, 0x3C0, 0x3C0, 0x3E0, 0x3E0
};
static const gfx_layout triplhnt_large_sprite_layout =
{
64, 64, /* width, height */
16, /* total */
2, /* planes */
{ 0x0000, 0x4000 },
EXTENDED_XOFFS,
EXTENDED_YOFFS,
0x400,
triplhnt_large_sprite_layout_xoffset,
triplhnt_large_sprite_layout_yoffset
};
static const gfx_layout triplhnt_tile_layout =
{
16, 16, /* width, height */
64, /* total */
1, /* planes */
{ 0 }, /* plane offsets */
{
0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7
},
{
0x00, 0x00, 0x08, 0x08, 0x10, 0x10, 0x18, 0x18,
0x20, 0x20, 0x28, 0x28, 0x30, 0x30, 0x38, 0x38
},
0x40 /* increment */
};
static GFXDECODE_START( triplhnt )
GFXDECODE_ENTRY( "gfx1", 0, triplhnt_small_sprite_layout, 0, 1 )
GFXDECODE_ENTRY( "gfx1", 0, triplhnt_large_sprite_layout, 0, 1 )
GFXDECODE_ENTRY( "gfx2", 0, triplhnt_tile_layout, 4, 2 )
GFXDECODE_END
static PALETTE_INIT( triplhnt )
{
palette_set_color(machine, 0, MAKE_RGB(0xAF, 0xAF, 0xAF)); /* sprites */
palette_set_color(machine, 1, MAKE_RGB(0x00, 0x00, 0x00));
palette_set_color(machine, 2, MAKE_RGB(0xFF, 0xFF, 0xFF));
palette_set_color(machine, 3, MAKE_RGB(0x50, 0x50, 0x50));
palette_set_color(machine, 4, MAKE_RGB(0x00, 0x00, 0x00)); /* tiles */
palette_set_color(machine, 5, MAKE_RGB(0x3F, 0x3F, 0x3F));
palette_set_color(machine, 6, MAKE_RGB(0x00, 0x00, 0x00));
palette_set_color(machine, 7, MAKE_RGB(0x3F, 0x3F, 0x3F));
}
static MACHINE_CONFIG_START( triplhnt, triplhnt_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu", M6800, 800000)
MCFG_CPU_PROGRAM_MAP(triplhnt_map)
MCFG_CPU_VBLANK_INT("screen", irq0_line_hold)
MCFG_NVRAM_ADD_0FILL("nvram")
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_REFRESH_RATE(60)
MCFG_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16)
MCFG_SCREEN_SIZE(256, 262)
MCFG_SCREEN_VISIBLE_AREA(0, 255, 0, 239)
MCFG_SCREEN_UPDATE(triplhnt)
MCFG_GFXDECODE(triplhnt)
MCFG_PALETTE_LENGTH(8)
MCFG_PALETTE_INIT(triplhnt)
MCFG_VIDEO_START(triplhnt)
/* sound hardware */
MCFG_SPEAKER_STANDARD_MONO("mono")
MCFG_SOUND_ADD("samples", SAMPLES, 0)
MCFG_SOUND_CONFIG(triplhnt_samples_interface)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.20)
MCFG_SOUND_ADD("discrete", DISCRETE, 0)
MCFG_SOUND_CONFIG_DISCRETE(triplhnt)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.90)
MACHINE_CONFIG_END
ROM_START( triplhnt )
ROM_REGION( 0x8000, "maincpu", 0 )
ROM_LOAD_NIB_HIGH( "8404.f1", 0x7000, 0x400, CRC(abc8acd5) SHA1(bcef2abc5829829a01aa21776c3deb2e1bf1d4ac) )
ROM_LOAD_NIB_LOW ( "8408.f2", 0x7000, 0x400, CRC(77fcdd3f) SHA1(ce0196abb8d6510aa9a5308f8efd6442e94272c4) )
ROM_LOAD_NIB_HIGH( "8403.e1", 0x7400, 0x400, CRC(8d756fa1) SHA1(48a74f710b130d9af0c866483d6fc4ecce4a3ac5) )
ROM_LOAD_NIB_LOW ( "8407.e2", 0x7400, 0x400, CRC(de268f4b) SHA1(937f97421ffb4f0f704402847892382ae8032b7c) )
ROM_LOAD_NIB_HIGH( "8402.d1", 0x7800, 0x400, CRC(eb75c936) SHA1(48f9d4113a7ab8413a5aacd44b3506afc99d26ce) )
ROM_LOAD_NIB_LOW ( "8406.d2", 0x7800, 0x400, CRC(e7ab1186) SHA1(7185fb837966bfb4aa70be3dd948d44f356b0452) )
ROM_LOAD_NIB_HIGH( "8401.c1", 0x7C00, 0x400, CRC(7461b05e) SHA1(16573ae655c306a38ff0f29a3c3285d636907f38) )
ROM_LOAD_NIB_LOW ( "8405.c2", 0x7C00, 0x400, CRC(ba370b97) SHA1(5d799ce6ae56c315ff0abedea7ad9204bacc266b) )
ROM_REGION( 0x1000, "gfx1", 0 ) /* sprites */
ROM_LOAD( "8423.n1", 0x0000, 0x800, CRC(9937d0da) SHA1(abb906c2d9869b09be5172cc7639bb9cda38831b) )
ROM_LOAD( "8422.r1", 0x0800, 0x800, CRC(803621dd) SHA1(ffbd7f87a86477e5eb94f12fc20a837128a02442) )
ROM_REGION( 0x200, "gfx2", 0 ) /* tiles */
ROM_LOAD_NIB_HIGH( "8409.l3", 0x0000, 0x200, CRC(ec304172) SHA1(ccbf7e117fef7fa4288e3bf68f1a150b3a492ce6) )
ROM_LOAD_NIB_LOW ( "8410.m3", 0x0000, 0x200, CRC(f75a1b08) SHA1(81b4733194462cd4cef7f4221ecb7abd1556b871) )
ROM_END
GAME( 1977, triplhnt, 0, triplhnt, triplhnt, triplhnt, 0, "Atari", "Triple Hunt", 0 )