/***************************************************************************
Atari Ultra Tank driver
***************************************************************************/
#include "emu.h"
#include "cpu/m6502/m6502.h"
#include "includes/ultratnk.h"
#include "audio/sprint4.h"
#define MASTER_CLOCK 12096000
#define HTOTAL 384
#define VTOTAL 262
#define PIXEL_CLOCK (MASTER_CLOCK / 2)
static CUSTOM_INPUT( get_collision )
{
ultratnk_state *state = field.machine().driver_data<ultratnk_state>();
return state->m_collision[(FPTR) param];
}
static CUSTOM_INPUT( get_joystick )
{
ultratnk_state *state = field.machine().driver_data<ultratnk_state>();
UINT8 joy = input_port_read(field.machine(), (const char *)param) & 3;
if (joy == 1)
{
return (state->m_da_latch < 8) ? 1 : 0;
}
if (joy == 2)
{
return 0;
}
return 1;
}
static TIMER_CALLBACK( nmi_callback )
{
int scanline = param + 64;
if (scanline >= VTOTAL)
scanline = 32;
/* NMI and watchdog are disabled during service mode */
watchdog_enable(machine, input_port_read(machine, "IN0") & 0x40);
if (input_port_read(machine, "IN0") & 0x40)
cputag_set_input_line(machine, "maincpu", INPUT_LINE_NMI, PULSE_LINE);
machine.scheduler().timer_set(machine.primary_screen->time_until_pos(scanline), FUNC(nmi_callback), scanline);
}
static MACHINE_RESET( ultratnk )
{
machine.scheduler().timer_set(machine.primary_screen->time_until_pos(32), FUNC(nmi_callback), 32);
}
static READ8_HANDLER( ultratnk_wram_r )
{
ultratnk_state *state = space->machine().driver_data<ultratnk_state>();
UINT8 *videoram = state->m_videoram;
return videoram[0x380 + offset];
}
static READ8_HANDLER( ultratnk_analog_r )
{
return (input_port_read(space->machine(), "ANALOG") << (~offset & 7)) & 0x80;
}
static READ8_HANDLER( ultratnk_coin_r )
{
return (input_port_read(space->machine(), "COIN") << (~offset & 7)) & 0x80;
}
static READ8_HANDLER( ultratnk_collision_r )
{
return (input_port_read(space->machine(), "COLLISION") << (~offset & 7)) & 0x80;
}
static READ8_HANDLER( ultratnk_options_r )
{
return (input_port_read(space->machine(), "DIP") >> (2 * (offset & 3))) & 3;
}
static WRITE8_HANDLER( ultratnk_wram_w )
{
ultratnk_state *state = space->machine().driver_data<ultratnk_state>();
UINT8 *videoram = state->m_videoram;
videoram[0x380 + offset] = data;
}
static WRITE8_HANDLER( ultratnk_collision_reset_w )
{
ultratnk_state *state = space->machine().driver_data<ultratnk_state>();
state->m_collision[(offset >> 1) & 3] = 0;
}
static WRITE8_HANDLER( ultratnk_da_latch_w )
{
ultratnk_state *state = space->machine().driver_data<ultratnk_state>();
state->m_da_latch = data & 15;
}
static WRITE8_HANDLER( ultratnk_led_1_w )
{
set_led_status(space->machine(), 0, offset & 1); /* left player start */
}
static WRITE8_HANDLER( ultratnk_led_2_w )
{
set_led_status(space->machine(), 1, offset & 1); /* right player start */
}
static WRITE8_HANDLER( ultratnk_lockout_w )
{
coin_lockout_global_w(space->machine(), ~offset & 1);
}
static WRITE8_DEVICE_HANDLER( ultratnk_fire_1_w )
{
discrete_sound_w(device, ULTRATNK_FIRE_EN_1, offset & 1);
}
static WRITE8_DEVICE_HANDLER( ultratnk_fire_2_w )
{
discrete_sound_w(device, ULTRATNK_FIRE_EN_2, offset & 1);
}
static WRITE8_DEVICE_HANDLER( ultratnk_attract_w )
{
discrete_sound_w(device, ULTRATNK_ATTRACT_EN, data & 1);
}
static WRITE8_DEVICE_HANDLER( ultratnk_explosion_w )
{
discrete_sound_w(device, ULTRATNK_EXPLOSION_DATA, data & 15);
}
static ADDRESS_MAP_START( ultratnk_cpu_map, AS_PROGRAM, 8 )
ADDRESS_MAP_GLOBAL_MASK(0x3fff)
AM_RANGE(0x0000, 0x007f) AM_MIRROR(0x700) AM_RAM
AM_RANGE(0x0080, 0x00ff) AM_MIRROR(0x700) AM_READWRITE(ultratnk_wram_r, ultratnk_wram_w)
AM_RANGE(0x0800, 0x0bff) AM_MIRROR(0x400) AM_RAM_WRITE(ultratnk_video_ram_w) AM_BASE_MEMBER(ultratnk_state, m_videoram)
AM_RANGE(0x1000, 0x17ff) AM_READ_PORT("IN0")
AM_RANGE(0x1800, 0x1fff) AM_READ_PORT("IN1")
AM_RANGE(0x2000, 0x2007) AM_MIRROR(0x718) AM_READ(ultratnk_analog_r)
AM_RANGE(0x2020, 0x2027) AM_MIRROR(0x718) AM_READ(ultratnk_coin_r)
AM_RANGE(0x2040, 0x2047) AM_MIRROR(0x718) AM_READ(ultratnk_collision_r)
AM_RANGE(0x2060, 0x2063) AM_MIRROR(0x71c) AM_READ(ultratnk_options_r)
AM_RANGE(0x2000, 0x2000) AM_MIRROR(0x71f) AM_DEVWRITE("discrete", ultratnk_attract_w)
AM_RANGE(0x2020, 0x2027) AM_MIRROR(0x718) AM_WRITE(ultratnk_collision_reset_w)
AM_RANGE(0x2040, 0x2041) AM_MIRROR(0x718) AM_WRITE(ultratnk_da_latch_w)
AM_RANGE(0x2042, 0x2043) AM_MIRROR(0x718) AM_DEVWRITE("discrete", ultratnk_explosion_w)
AM_RANGE(0x2044, 0x2045) AM_MIRROR(0x718) AM_WRITE(watchdog_reset_w)
AM_RANGE(0x2066, 0x2067) AM_MIRROR(0x710) AM_WRITE(ultratnk_lockout_w)
AM_RANGE(0x2068, 0x2069) AM_MIRROR(0x710) AM_WRITE(ultratnk_led_1_w)
AM_RANGE(0x206a, 0x206b) AM_MIRROR(0x710) AM_WRITE(ultratnk_led_2_w)
AM_RANGE(0x206c, 0x206d) AM_MIRROR(0x710) AM_DEVWRITE("discrete", ultratnk_fire_2_w)
AM_RANGE(0x206e, 0x206f) AM_MIRROR(0x710) AM_DEVWRITE("discrete", ultratnk_fire_1_w)
AM_RANGE(0x2800, 0x2fff) AM_NOP /* diagnostic ROM */
AM_RANGE(0x3000, 0x3fff) AM_ROM
ADDRESS_MAP_END
static INPUT_PORTS_START( ultratnk )
PORT_START("IN0")
PORT_SERVICE( 0x40, IP_ACTIVE_LOW )
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_VBLANK )
PORT_START("IN1")
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_NAME("Option 1") PORT_TOGGLE
PORT_START("COLLISION")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_collision, (void *)0 )
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_collision, (void *)1 )
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_UNUSED ) /* VCC */
PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_collision, (void *)2 )
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_TILT ) /* SLAM */
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_collision, (void *)3 )
PORT_START("COIN")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_COIN1 )
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_COIN2 )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_SERVICE2 ) PORT_NAME("Option 2") PORT_TOGGLE
PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_SERVICE3 ) PORT_NAME("Option 3") PORT_TOGGLE
PORT_START("DIP")
PORT_DIPNAME( 0x01, 0x00, DEF_STR( Unused ) ) PORT_DIPLOCATION("DIP:8")
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x01, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x00, DEF_STR( Unused ) ) PORT_DIPLOCATION("DIP:7")
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x02, DEF_STR( On ) )
PORT_DIPNAME( 0x0c, 0x08, DEF_STR( Coinage ) ) PORT_DIPLOCATION("DIP:6,5")
PORT_DIPSETTING( 0x0c, DEF_STR( 2C_1C ) )
PORT_DIPSETTING( 0x08, DEF_STR( 1C_1C ) )
PORT_DIPSETTING( 0x04, DEF_STR( 1C_2C ) )
PORT_DIPSETTING( 0x00, DEF_STR( Free_Play ) )
PORT_DIPNAME( 0x30, 0x10, "Game Length" ) PORT_DIPLOCATION("DIP:4,3")
PORT_DIPSETTING( 0x00, "60 Seconds" )
PORT_DIPSETTING( 0x10, "90 Seconds" )
PORT_DIPSETTING( 0x20, "120 Seconds" )
PORT_DIPSETTING( 0x30, "150 Seconds" )
PORT_DIPNAME( 0xc0, 0x40, "Extended Play" ) PORT_DIPLOCATION("DIP:2,1")
PORT_DIPSETTING( 0x40, "25 Points" )
PORT_DIPSETTING( 0x80, "50 Points" )
PORT_DIPSETTING( 0xc0, "75 Points" )
PORT_DIPSETTING( 0x00, DEF_STR( None ) )
PORT_START("ANALOG")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_START1 )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_joystick, "JOY-W" )
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_START2 )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_joystick, "JOY-Y" )
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(1)
PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_joystick, "JOY-X" )
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(2)
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_SPECIAL ) PORT_CUSTOM( get_joystick, "JOY-Z" )
PORT_START("JOY-W")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICKLEFT_DOWN ) PORT_PLAYER(1)
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICKLEFT_UP ) PORT_PLAYER(1)
PORT_START("JOY-X")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICKRIGHT_DOWN ) PORT_PLAYER(1)
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICKRIGHT_UP ) PORT_PLAYER(1)
PORT_START("JOY-Y")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICKLEFT_DOWN ) PORT_PLAYER(2)
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICKLEFT_UP ) PORT_PLAYER(2)
PORT_START("JOY-Z")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICKRIGHT_DOWN ) PORT_PLAYER(2)
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICKRIGHT_UP ) PORT_PLAYER(2)
PORT_START("MOTOR1")
PORT_ADJUSTER( 35, "Motor 1 RPM" )
PORT_START("MOTOR2")
PORT_ADJUSTER( 40, "Motor 2 RPM" )
INPUT_PORTS_END
static const gfx_layout motion_layout =
{
15, 16,
RGN_FRAC(1,4),
1,
{ 0 },
{
7 + RGN_FRAC(0,4), 6 + RGN_FRAC(0,4), 5 + RGN_FRAC(0,4), 4 + RGN_FRAC(0,4),
7 + RGN_FRAC(1,4), 6 + RGN_FRAC(1,4), 5 + RGN_FRAC(1,4), 4 + RGN_FRAC(1,4),
7 + RGN_FRAC(2,4), 6 + RGN_FRAC(2,4), 5 + RGN_FRAC(2,4), 4 + RGN_FRAC(2,4),
7 + RGN_FRAC(3,4), 6 + RGN_FRAC(3,4), 5 + RGN_FRAC(3,4)
},
{
0x00, 0x08, 0x10, 0x18, 0x20, 0x28, 0x30, 0x38,
0x40, 0x48, 0x50, 0x58, 0x60, 0x68, 0x70, 0x78
},
0x80
};
static GFXDECODE_START( ultratnk )
GFXDECODE_ENTRY( "gfx1", 0, gfx_8x8x1, 0, 5 )
GFXDECODE_ENTRY( "gfx2", 0, motion_layout, 0, 5 )
GFXDECODE_END
static MACHINE_CONFIG_START( ultratnk, ultratnk_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu", M6502, PIXEL_CLOCK / 8)
MCFG_CPU_PROGRAM_MAP(ultratnk_cpu_map)
MCFG_WATCHDOG_VBLANK_INIT(8)
MCFG_MACHINE_RESET(ultratnk)
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16)
MCFG_SCREEN_RAW_PARAMS(PIXEL_CLOCK, HTOTAL, 0, 256, VTOTAL, 0, 224)
MCFG_SCREEN_UPDATE(ultratnk)
MCFG_SCREEN_EOF(ultratnk)
MCFG_GFXDECODE(ultratnk)
MCFG_PALETTE_LENGTH(10)
MCFG_PALETTE_INIT(ultratnk)
MCFG_VIDEO_START(ultratnk)
/* sound hardware */
MCFG_SPEAKER_STANDARD_MONO("mono")
MCFG_SOUND_ADD("discrete", DISCRETE, 0)
MCFG_SOUND_CONFIG_DISCRETE(ultratnk)
MCFG_SOUND_ROUTE(0, "mono", 1.0)
MACHINE_CONFIG_END
ROM_START( ultratnk )
ROM_REGION( 0x4000, "maincpu", 0 )
ROM_LOAD_NIB_LOW ( "030180.n1", 0x3000, 0x0800, CRC(b6aa6056) SHA1(6de094017b5d87a238053fac88129d20260f8222) ) /* ROM 3 */
ROM_LOAD_NIB_HIGH( "030181.k1", 0x3000, 0x0800, CRC(17145c97) SHA1(afe0c9c562c27cd1fba57ea83377b0a4c12496db) ) /* ROM 3 */
ROM_LOAD_NIB_LOW ( "030182.m1", 0x3800, 0x0800, CRC(034366a2) SHA1(dc289ce4c79e9937977ca8804ce07b4c8e40e969) ) /* ROM 4 */
ROM_LOAD_NIB_HIGH( "030183.l1", 0x3800, 0x0800, CRC(be141602) SHA1(17aad9bab9bf6bd22dc3c2214b049bbd68c87380) ) /* ROM 4 */
ROM_REGION( 0x0200, "gfx1", 0 ) /* playfield */
ROM_LOAD_NIB_HIGH( "30172-01.j6", 0x0000, 0x0200, CRC(1d364b23) SHA1(44c5792ed3f33f40cd8632718b0e82152559ecdf) )
ROM_LOAD_NIB_LOW ( "30173-01.h6", 0x0000, 0x0200, CRC(5c32f331) SHA1(c1d675891490fbc533eaa0da57545398d7325df8) )
ROM_REGION( 0x1000, "gfx2", 0 ) /* motion */
ROM_LOAD( "30174-01.n6", 0x0000, 0x0400, CRC(d0e20e73) SHA1(0df1ed4a73255032bb809fb4d0a4bf3f151c749d) )
ROM_LOAD( "30175-01.m6", 0x0400, 0x0400, CRC(a47459c9) SHA1(4ca92edc172fbac923ba71731a25546c04ffc7b0) )
ROM_LOAD( "30176-01.l6", 0x0800, 0x0400, CRC(1cc7c2dd) SHA1(7f8aebe8375751183afeae35ea2d241d22ee7a4f) )
ROM_LOAD( "30177-01.k6", 0x0c00, 0x0400, CRC(3a91b09f) SHA1(1e713cb612eb7d78fc4a003e4e60308f62e0b169) )
ROM_REGION( 0x0020, "proms", 0 )
ROM_LOAD( "30218-01.j10", 0x0000, 0x0020, CRC(d7a2c7b4) SHA1(7453921ecb6268b604dee3743f6e217db19c9871) )
ROM_REGION( 0x0200, "user1", 0 )
ROM_LOAD( "30024-01.p8", 0x0000, 0x0200, CRC(e71d2e22) SHA1(434c3a8237468604cce7feb40e6061d2670013b3) ) /* SYNC */
ROM_END
GAME( 1978, ultratnk, 0, ultratnk, ultratnk, 0, 0, "Atari", "Ultra Tank", 0 )