/*************************************************************************
X the Ball
driver by Aaron Giles
**************************************************************************/
#include "emu.h"
#include "cpu/tms34010/tms34010.h"
#include "video/tlc34076.h"
#include "machine/ticket.h"
#include "machine/nvram.h"
#include "sound/dac.h"
class xtheball_state : public driver_device
{
public:
xtheball_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag) { }
UINT16 *m_vram_bg;
UINT16 *m_vram_fg;
UINT8 m_bitvals[32];
};
/*************************************
*
* Video update
*
*************************************/
static void xtheball_scanline_update(screen_device &screen, bitmap_t *bitmap, int scanline, const tms34010_display_params *params)
{
xtheball_state *state = screen.machine().driver_data<xtheball_state>();
UINT16 *srcbg = &state->m_vram_bg[(params->rowaddr << 8) & 0xff00];
UINT32 *dest = BITMAP_ADDR32(bitmap, scanline, 0);
const rgb_t *pens = tlc34076_get_pens(screen.machine().device("tlc34076"));
int coladdr = params->coladdr;
int x;
/* bit value 0x13 controls which foreground mode to use */
if (!state->m_bitvals[0x13])
{
/* mode 0: foreground is the same as background */
UINT16 *srcfg = &state->m_vram_fg[(params->rowaddr << 8) & 0xff00];
for (x = params->heblnk; x < params->hsblnk; x += 2, coladdr++)
{
UINT16 fgpix = srcfg[coladdr & 0xff];
UINT16 bgpix = srcbg[coladdr & 0xff];
dest[x + 0] = pens[((fgpix & 0x00ff) != 0) ? (fgpix & 0xff) : (bgpix & 0xff)];
dest[x + 1] = pens[((fgpix & 0xff00) != 0) ? (fgpix >> 8) : (bgpix >> 8)];
}
}
else
{
/* mode 1: foreground is half background resolution in */
/* X and supports two pages */
UINT16 *srcfg = &state->m_vram_fg[(params->rowaddr << 7) & 0xff00];
for (x = params->heblnk; x < params->hsblnk; x += 2, coladdr++)
{
UINT16 fgpix = srcfg[(coladdr >> 1) & 0xff] >> (8 * (coladdr & 1));
UINT16 bgpix = srcbg[coladdr & 0xff];
dest[x + 0] = pens[((fgpix & 0x00ff) != 0) ? (fgpix & 0xff) : (bgpix & 0xff)];
dest[x + 1] = pens[((fgpix & 0x00ff) != 0) ? (fgpix & 0xff) : (bgpix >> 8)];
}
}
}
/*************************************
*
* Shift register transfers
*
*************************************/
static void xtheball_to_shiftreg(address_space *space, UINT32 address, UINT16 *shiftreg)
{
xtheball_state *state = space->machine().driver_data<xtheball_state>();
if (address >= 0x01000000 && address <= 0x010fffff)
memcpy(shiftreg, &state->m_vram_bg[TOWORD(address & 0xff000)], TOBYTE(0x1000));
else if (address >= 0x02000000 && address <= 0x020fffff)
memcpy(shiftreg, &state->m_vram_fg[TOWORD(address & 0xff000)], TOBYTE(0x1000));
else
logerror("%s:xtheball_to_shiftreg(%08X)\n", space->machine().describe_context(), address);
}
static void xtheball_from_shiftreg(address_space *space, UINT32 address, UINT16 *shiftreg)
{
xtheball_state *state = space->machine().driver_data<xtheball_state>();
if (address >= 0x01000000 && address <= 0x010fffff)
memcpy(&state->m_vram_bg[TOWORD(address & 0xff000)], shiftreg, TOBYTE(0x1000));
else if (address >= 0x02000000 && address <= 0x020fffff)
memcpy(&state->m_vram_fg[TOWORD(address & 0xff000)], shiftreg, TOBYTE(0x1000));
else
logerror("%s:xtheball_from_shiftreg(%08X)\n", space->machine().describe_context(), address);
}
/*************************************
*
* Output ports
*
*************************************/
static WRITE16_HANDLER( bit_controls_w )
{
xtheball_state *state = space->machine().driver_data<xtheball_state>();
UINT8 *bitvals = state->m_bitvals;
if (ACCESSING_BITS_0_7)
{
if (bitvals[offset] != (data & 1))
{
logerror("%08x:bit_controls_w(%x,%d)\n", cpu_get_pc(&space->device()), offset, data & 1);
switch (offset)
{
case 7:
ticket_dispenser_w(space->machine().device("ticket"), 0, data << 7);
break;
case 8:
set_led_status(space->machine(), 0, data & 1);
break;
}
}
bitvals[offset] = data & 1;
}
// popmessage("%d%d%d%d-%d%d%d%d--%d%d%d%d-%d%d%d%d",
/*
bitvals[0],
bitvals[1],
bitvals[2],
bitvals[3],
bitvals[4], // meter
bitvals[5],
bitvals[6], // tickets
bitvals[7], // tickets
bitvals[8], // start lamp
bitvals[9], // lamp
bitvals[10], // lamp
bitvals[11], // lamp
bitvals[12], // lamp
bitvals[13], // lamp
bitvals[14], // lamp
bitvals[15] // lamp
*/
/* bitvals[16],
bitvals[17],
bitvals[18],
bitvals[19], // video foreground control
bitvals[20],
bitvals[21],
bitvals[22],
bitvals[23],
bitvals[24],
bitvals[25],
bitvals[26],
bitvals[27],
bitvals[28],
bitvals[29],
bitvals[30],
bitvals[31]
*/
// );
}
/*************************************
*
* Input ports
*
*************************************/
static READ16_HANDLER( analogx_r )
{
return (input_port_read(space->machine(), "ANALOGX") << 8) | 0x00ff;
}
static READ16_HANDLER( analogy_watchdog_r )
{
/* doubles as a watchdog address */
watchdog_reset_w(space,0,0);
return (input_port_read(space->machine(), "ANALOGY") << 8) | 0x00ff;
}
/*************************************
*
* Main CPU memory map
*
*************************************/
static ADDRESS_MAP_START( main_map, AS_PROGRAM, 16 )
AM_RANGE(0x00000000, 0x0001ffff) AM_RAM AM_SHARE("nvram")
AM_RANGE(0x01000000, 0x010fffff) AM_RAM AM_BASE_MEMBER(xtheball_state, m_vram_bg)
AM_RANGE(0x02000000, 0x020fffff) AM_RAM AM_BASE_MEMBER(xtheball_state, m_vram_fg)
AM_RANGE(0x03000000, 0x030000ff) AM_DEVREADWRITE8("tlc34076", tlc34076_r, tlc34076_w, 0x00ff)
AM_RANGE(0x03040000, 0x030401ff) AM_WRITE(bit_controls_w)
AM_RANGE(0x03040080, 0x0304008f) AM_READ_PORT("DSW")
AM_RANGE(0x03040100, 0x0304010f) AM_READ(analogx_r)
AM_RANGE(0x03040110, 0x0304011f) AM_READ_PORT("COIN1")
AM_RANGE(0x03040130, 0x0304013f) AM_READ_PORT("SERVICE2")
AM_RANGE(0x03040140, 0x0304014f) AM_READ_PORT("COIN3")
AM_RANGE(0x03040150, 0x0304015f) AM_READ_PORT("BUTTON1")
AM_RANGE(0x03040160, 0x0304016f) AM_READ_PORT("SERVICE")
AM_RANGE(0x03040170, 0x0304017f) AM_READ_PORT("SERVICE1")
AM_RANGE(0x03040180, 0x0304018f) AM_READ(analogy_watchdog_r)
AM_RANGE(0x03060000, 0x0306000f) AM_DEVWRITE8("dac", dac_w, 0xff00)
AM_RANGE(0x04000000, 0x057fffff) AM_ROM AM_REGION("user2", 0)
AM_RANGE(0xc0000000, 0xc00001ff) AM_READWRITE(tms34010_io_register_r, tms34010_io_register_w)
AM_RANGE(0xfff80000, 0xffffffff) AM_ROM AM_REGION("user1", 0)
ADDRESS_MAP_END
/*************************************
*
* Input ports
*
*************************************/
static INPUT_PORTS_START( xtheball )
PORT_START("DSW")
PORT_BIT( 0x000f, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_BIT( 0x0010, IP_ACTIVE_LOW, IPT_SPECIAL ) PORT_READ_LINE_DEVICE("ticket", ticket_dispenser_line_r)
PORT_BIT( 0x00e0, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_DIPNAME( 0x0700, 0x0000, "Target Tickets")
PORT_DIPSETTING( 0x0000, "3" )
PORT_DIPSETTING( 0x0100, "4" )
PORT_DIPSETTING( 0x0200, "5" )
PORT_DIPSETTING( 0x0300, "6" )
PORT_DIPSETTING( 0x0400, "7" )
PORT_DIPSETTING( 0x0500, "8" )
PORT_DIPSETTING( 0x0600, "9" )
PORT_DIPSETTING( 0x0700, "10" )
PORT_DIPNAME( 0x0800, 0x0000, DEF_STR( Coinage ))
PORT_DIPSETTING( 0x0000, DEF_STR( 1C_1C ))
PORT_DIPSETTING( 0x0800, DEF_STR( 1C_2C ))
PORT_DIPNAME( 0x1000, 0x1000, "Automatic 1 Ticket" )
PORT_DIPSETTING( 0x0000, DEF_STR( Off ))
PORT_DIPSETTING( 0x1000, DEF_STR( On ))
PORT_DIPNAME( 0x2000, 0x2000, DEF_STR( Unknown ))
PORT_DIPSETTING( 0x0000, DEF_STR( Off ))
PORT_DIPSETTING( 0x2000, DEF_STR( On ))
PORT_DIPNAME( 0x4000, 0x4000, "Game Tune" )
PORT_DIPSETTING( 0x0000, DEF_STR( Off ))
PORT_DIPSETTING( 0x4000, DEF_STR( On ))
PORT_DIPNAME( 0x8000, 0x8000, DEF_STR( Demo_Sounds ))
PORT_DIPSETTING( 0x0000, DEF_STR( Off ))
PORT_DIPSETTING( 0x8000, DEF_STR( On ))
/* service mode is funky:
hit F2 to enter bookkeeping mode; hit service1 (9) to exit
hold service 1 (9) and hit F2 to enter test mode; hit service2 (0) to exit
*/
PORT_START("COIN1")
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_IMPULSE(5)
PORT_BIT( 0xfffe, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_START("SERVICE2")
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_SERVICE2 )
PORT_BIT( 0xfffe, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_START("COIN3")
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_COIN3 )
PORT_BIT( 0xfffe, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_START("BUTTON1")
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_BUTTON1 )
PORT_BIT( 0xfffe, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_START("SERVICE")
PORT_SERVICE_NO_TOGGLE( 0x0001, IP_ACTIVE_HIGH )
PORT_BIT( 0xfffe, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_START("SERVICE1")
PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_SERVICE1 )
PORT_BIT( 0xfffe, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_START("ANALOGX")
PORT_BIT( 0x00ff, 0x0000, IPT_TRACKBALL_X ) PORT_SENSITIVITY(100) PORT_KEYDELTA(10) PORT_REVERSE PORT_PLAYER(1)
PORT_START("ANALOGY")
PORT_BIT( 0x00ff, 0x0000, IPT_TRACKBALL_Y ) PORT_SENSITIVITY(100) PORT_KEYDELTA(10) PORT_REVERSE PORT_PLAYER(1)
INPUT_PORTS_END
/*************************************
*
* 34010 configuration
*
*************************************/
static const tms34010_config tms_config =
{
FALSE, /* halt on reset */
"screen", /* the screen operated on */
10000000, /* pixel clock */
1, /* pixels per clock */
xtheball_scanline_update, /* scanline callback */
NULL, /* generate interrupt */
xtheball_to_shiftreg, /* write to shiftreg function */
xtheball_from_shiftreg /* read from shiftreg function */
};
/*************************************
*
* Machine drivers
*
*************************************/
static MACHINE_CONFIG_START( xtheball, xtheball_state )
MCFG_CPU_ADD("maincpu", TMS34010, 40000000)
MCFG_CPU_CONFIG(tms_config)
MCFG_CPU_PROGRAM_MAP(main_map)
MCFG_CPU_PERIODIC_INT(irq1_line_hold, 15000)
MCFG_NVRAM_ADD_1FILL("nvram")
MCFG_TICKET_DISPENSER_ADD("ticket", 100, TICKET_MOTOR_ACTIVE_HIGH, TICKET_STATUS_ACTIVE_HIGH)
/* video hardware */
MCFG_TLC34076_ADD("tlc34076", TLC34076_6_BIT)
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_FORMAT(BITMAP_FORMAT_RGB32)
MCFG_SCREEN_RAW_PARAMS(10000000, 640, 114, 626, 257, 24, 248)
MCFG_SCREEN_UPDATE(tms340x0)
/* sound hardware */
MCFG_SPEAKER_STANDARD_MONO("mono")
MCFG_SOUND_ADD("dac", DAC, 0)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.0)
MACHINE_CONFIG_END
/*************************************
*
* ROM definitions
*
*************************************/
ROM_START( xtheball )
ROM_REGION16_LE( 0x10000, "user1", 0 ) /* 34010 code */
ROM_LOAD16_BYTE( "aces18-lo.ic13", 0x000000, 0x8000, CRC(c0e80004) SHA1(d79c2e7301857148674fffad349c7a2a98fa1ee2) )
ROM_LOAD16_BYTE( "aces18-hi.ic19", 0x000001, 0x8000, CRC(5a682f92) SHA1(ed77c02cbdcff9eac32760cee67e3a784efacac7) )
ROM_REGION16_LE( 0x300000, "user2", 0 ) /* 34010 code */
ROM_LOAD16_BYTE( "xtb-ic6.bin", 0x000000, 0x40000, CRC(a3cc01b8) SHA1(49d42bb17c314609f371df7d7ace57e54fdf6335) )
ROM_LOAD16_BYTE( "xtb-ic7.bin", 0x000001, 0x40000, CRC(8dfa6c1b) SHA1(a32940b3f9501a44e1d1ef1628f8a64b32aa2183) )
ROM_LOAD16_BYTE( "xtb-1l.ic8", 0x100000, 0x80000, CRC(df52c00f) SHA1(9a89d780ad394b55ce9540a5743bbe571543288f) )
ROM_LOAD16_BYTE( "xtb-1h.ic9", 0x100001, 0x80000, CRC(9ce7785b) SHA1(9a002ba492cdc35391df2b55dfe90c55b7d48ad1) )
ROM_LOAD16_BYTE( "xtb-2l.ic10", 0x200000, 0x80000, CRC(e2545a19) SHA1(c2fe5adf7a174cec6aad63baa1b92761ef21d5a4) )
ROM_LOAD16_BYTE( "xtb-2h.ic11", 0x200001, 0x80000, CRC(50c27558) SHA1(ecfb7d918868d35a8cde45f7d04fdfc3ffc06328) )
ROM_END
/*************************************
*
* Game drivers
*
*************************************/
GAME( 1991, xtheball, 0, xtheball, xtheball, 0, ROT0, "Rare", "X the Ball", 0 )