Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-06-06 04:43:45 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity
1354091c0a
mame/src/mess/drivers/a2600.c
Miodrag Milanovic c93ed344fb Cleanups and version bump
2014-10-15 07:19:47 +00:00

546 lines
20 KiB
C
Raw Blame History

/***************************************************************************
Atari VCS 2600 driver
TODO:
- Move the 2 32-in-1 rom dumps into their own driver
- Add 128-in-1 driver
***************************************************************************/
#include "emu.h"
#include "machine/6532riot.h"
#include "cpu/m6502/m6502.h"
#include "sound/tiaintf.h"
#include "video/tia.h"
#include "bus/vcs/vcs_slot.h"
#include "bus/vcs/rom.h"
#include "bus/vcs/dpc.h"
#include "bus/vcs/scharger.h"
#include "bus/vcs/compumat.h"
#include "bus/vcs_ctrl/ctrl.h"
#define CONTROL1_TAG "joyport1"
#define CONTROL2_TAG "joyport2"
class a2600_state : public driver_device
{
public:
a2600_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_riot_ram(*this, "riot_ram"),
m_joy1(*this, CONTROL1_TAG),
m_joy2(*this, CONTROL2_TAG) ,
m_cart(*this, "cartslot"),
m_tia(*this, "tia_video"),
m_maincpu(*this, "maincpu"),
m_screen(*this, "screen") { }
required_shared_ptr<UINT8> m_riot_ram;
UINT16 m_current_screen_height;
DECLARE_MACHINE_START(a2600);
DECLARE_WRITE8_MEMBER(switch_A_w);
DECLARE_READ8_MEMBER(switch_A_r);
DECLARE_WRITE8_MEMBER(switch_B_w);
DECLARE_WRITE_LINE_MEMBER(irq_callback);
DECLARE_READ8_MEMBER(riot_input_port_8_r);
DECLARE_READ16_MEMBER(a2600_read_input_port);
DECLARE_READ8_MEMBER(a2600_get_databus_contents);
DECLARE_WRITE16_MEMBER(a2600_tia_vsync_callback);
DECLARE_WRITE16_MEMBER(a2600_tia_vsync_callback_pal);
DECLARE_WRITE8_MEMBER(cart_over_tia_w);
// investigate how the carts mapped here (Mapper JVP) interact with the RIOT device
DECLARE_READ8_MEMBER(cart_over_riot_r);
DECLARE_WRITE8_MEMBER(cart_over_riot_w);
protected:
required_device<vcs_control_port_device> m_joy1;
required_device<vcs_control_port_device> m_joy2;
required_device<vcs_cart_slot_device> m_cart;
required_device<tia_video_device> m_tia;
unsigned long detect_2600controllers();
required_device<m6502_device> m_maincpu;
required_device<screen_device> m_screen;
};
#define MASTER_CLOCK_NTSC 3579545
#define MASTER_CLOCK_PAL 3546894
#define CATEGORY_SELECT 16
static const UINT16 supported_screen_heights[4] = { 262, 312, 328, 342 };
static ADDRESS_MAP_START(a2600_mem, AS_PROGRAM, 8, a2600_state )
ADDRESS_MAP_GLOBAL_MASK(0x1fff)
AM_RANGE(0x0000, 0x007f) AM_MIRROR(0x0f00) AM_DEVREADWRITE("tia_video", tia_video_device, read, write)
AM_RANGE(0x0080, 0x00ff) AM_MIRROR(0x0d00) AM_RAM AM_SHARE("riot_ram")
AM_RANGE(0x0280, 0x029f) AM_MIRROR(0x0d00) AM_DEVREADWRITE("riot", riot6532_device, read, write)
// AM_RANGE(0x1000, 0x1fff) is cart data and it is configured at reset time, depending on the mounted cart!
ADDRESS_MAP_END
WRITE8_MEMBER(a2600_state::switch_A_w)
{
/* Left controller port */
m_joy1->joy_w( data >> 4 );
/* Right controller port */
m_joy2->joy_w( data & 0x0f );
// switch( ioport("CONTROLLERS")->read() % CATEGORY_SELECT )
// {
// case 0x0a: /* KidVid voice module */
// m_cassette->change_state(( data & 0x02 ) ? (cassette_state)CASSETTE_MOTOR_DISABLED : (cassette_state)(CASSETTE_MOTOR_ENABLED | CASSETTE_PLAY), (cassette_state)CASSETTE_MOTOR_DISABLED );
// break;
// }
}
READ8_MEMBER(a2600_state::switch_A_r)
{
UINT8 val = 0;
/* Left controller port PINs 1-4 ( 4321 ) */
val |= ( m_joy1->joy_r() & 0x0F ) << 4;
/* Right controller port PINs 1-4 ( 4321 ) */
val |= m_joy2->joy_r() & 0x0F;
return val;
}
WRITE8_MEMBER(a2600_state::switch_B_w)
{
}
WRITE_LINE_MEMBER(a2600_state::irq_callback)
{
}
READ8_MEMBER(a2600_state::riot_input_port_8_r)
{
return ioport("SWB")->read();
}
READ16_MEMBER(a2600_state::a2600_read_input_port)
{
switch( offset )
{
case 0: /* Left controller port PIN 5 */
return m_joy1->pot_x_r();
case 1: /* Left controller port PIN 9 */
return m_joy1->pot_y_r();
case 2: /* Right controller port PIN 5 */
return m_joy2->pot_x_r();
case 3: /* Right controller port PIN 9 */
return m_joy2->pot_y_r();
case 4: /* Left controller port PIN 6 */
return ( m_joy1->joy_r() & 0x20 ) ? 0xff : 0x7f;
case 5: /* Right controller port PIN 6 */
return ( m_joy2->joy_r() & 0x20 ) ? 0xff : 0x7f;
}
return 0xff;
}
/* There are a few games that do an LDA ($80-$FF),Y instruction.
The contents off the databus then depend on whatever was read
from the RAM. To do this really properly the 6502 core would
need to keep track of the last databus contents so we can query
that. For now this is a quick hack to determine that value anyway.
Examples:
Q-Bert's Qubes (NTSC,F6) at 0x1594
Berzerk at 0xF093.
*/
READ8_MEMBER(a2600_state::a2600_get_databus_contents)
{
UINT16 last_address, prev_address;
UINT8 last_byte, prev_byte;
address_space& prog_space = m_maincpu->space(AS_PROGRAM);
last_address = m_maincpu->pc() - 1;
if ( ! ( last_address & 0x1080 ) )
{
return offset;
}
last_byte = prog_space.read_byte(last_address );
if ( last_byte < 0x80 || last_byte == 0xFF )
{
return last_byte;
}
prev_address = last_address - 1;
if ( ! ( prev_address & 0x1080 ) )
{
return last_byte;
}
prev_byte = prog_space.read_byte(prev_address );
if ( prev_byte == 0xB1 )
{ /* LDA (XX),Y */
return prog_space.read_byte(last_byte + 1 );
}
return last_byte;
}
#if 0
static const rectangle visarea[4] = {
{ 26, 26 + 160 + 16, 24, 24 + 192 + 31 }, /* 262 */
{ 26, 26 + 160 + 16, 32, 32 + 228 + 31 }, /* 312 */
{ 26, 26 + 160 + 16, 45, 45 + 240 + 31 }, /* 328 */
{ 26, 26 + 160 + 16, 48, 48 + 240 + 31 } /* 342 */
};
#endif
WRITE16_MEMBER(a2600_state::a2600_tia_vsync_callback)
{
int i;
for ( i = 0; i < ARRAY_LENGTH(supported_screen_heights); i++ )
{
if ( data >= supported_screen_heights[i] - 3 && data <= supported_screen_heights[i] + 3 )
{
if ( supported_screen_heights[i] != m_current_screen_height )
{
m_current_screen_height = supported_screen_heights[i];
// machine.first_screen()->configure(228, m_current_screen_height, &visarea[i], HZ_TO_ATTOSECONDS( MASTER_CLOCK_NTSC ) * 228 * m_current_screen_height );
}
}
}
}
WRITE16_MEMBER(a2600_state::a2600_tia_vsync_callback_pal)
{
int i;
for ( i = 0; i < ARRAY_LENGTH(supported_screen_heights); i++ )
{
if ( data >= supported_screen_heights[i] - 3 && data <= supported_screen_heights[i] + 3 )
{
if ( supported_screen_heights[i] != m_current_screen_height )
{
m_current_screen_height = supported_screen_heights[i];
// machine.first_screen()->configure(228, m_current_screen_height, &visarea[i], HZ_TO_ATTOSECONDS( MASTER_CLOCK_PAL ) * 228 * m_current_screen_height );
}
}
}
}
// TODO: is this the correct behavior for the real hardware?!?
READ8_MEMBER(a2600_state::cart_over_riot_r)
{
if (!space.debugger_access())
m_cart->write_bank(space, offset, 0);
return m_riot_ram[0x20 + offset];
}
WRITE8_MEMBER(a2600_state::cart_over_riot_w)
{
m_cart->write_bank(space, offset, 0);
m_riot_ram[0x20 + offset] = data;
}
WRITE8_MEMBER(a2600_state::cart_over_tia_w)
{
// Both Cart & TIA see these addresses
m_cart->write_bank(space, offset, data);
m_tia->write(space, offset, data);
}
MACHINE_START_MEMBER(a2600_state,a2600)
{
m_current_screen_height = m_screen->height();
memset(m_riot_ram, 0x00, 0x80);
switch (m_cart->get_cart_type())
{
case A26_2K:
case A26_4K:
case A26_F4:
case A26_F8:
case A26_F8SW:
case A26_FA:
case A26_E0:
case A26_E7:
case A26_CV:
case A26_DC:
case A26_FV:
case A26_8IN1:
m_maincpu->space(AS_PROGRAM).install_readwrite_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart), write8_delegate(FUNC(vcs_cart_slot_device::write_bank),(vcs_cart_slot_device*)m_cart));
break;
case A26_F6:
case A26_DPC:
m_maincpu->space(AS_PROGRAM).install_readwrite_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart), write8_delegate(FUNC(vcs_cart_slot_device::write_bank),(vcs_cart_slot_device*)m_cart));
m_maincpu->space(AS_PROGRAM).set_direct_update_handler(direct_update_delegate(FUNC(vcs_cart_slot_device::cart_opbase),(vcs_cart_slot_device*)m_cart));
break;
case A26_FE:
m_maincpu->space(AS_PROGRAM).install_readwrite_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart), write8_delegate(FUNC(vcs_cart_slot_device::write_ram),(vcs_cart_slot_device*)m_cart));
m_maincpu->space(AS_PROGRAM).install_read_handler(0x01fe, 0x01ff, read8_delegate(FUNC(vcs_cart_slot_device::read_bank),(vcs_cart_slot_device*)m_cart));
m_maincpu->space(AS_PROGRAM).install_write_handler(0x01fe, 0x01fe, write8_delegate(FUNC(vcs_cart_slot_device::write_bank),(vcs_cart_slot_device*)m_cart));
break;
case A26_3E:
m_maincpu->space(AS_PROGRAM).install_readwrite_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart), write8_delegate(FUNC(vcs_cart_slot_device::write_ram),(vcs_cart_slot_device*)m_cart));
m_maincpu->space(AS_PROGRAM).install_write_handler(0x00, 0x3f, write8_delegate(FUNC(a2600_state::cart_over_tia_w), this));
break;
case A26_3F:
m_maincpu->space(AS_PROGRAM).install_read_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart));
m_maincpu->space(AS_PROGRAM).install_write_handler(0x00, 0x3f, write8_delegate(FUNC(a2600_state::cart_over_tia_w), this));
break;
case A26_UA:
m_maincpu->space(AS_PROGRAM).install_read_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart));
m_maincpu->space(AS_PROGRAM).install_readwrite_handler(0x200, 0x27f, read8_delegate(FUNC(vcs_cart_slot_device::read_bank),(vcs_cart_slot_device*)m_cart), write8_delegate(FUNC(vcs_cart_slot_device::write_bank),(vcs_cart_slot_device*)m_cart));
break;
case A26_JVP:
m_maincpu->space(AS_PROGRAM).install_readwrite_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart), write8_delegate(FUNC(vcs_cart_slot_device::write_bank),(vcs_cart_slot_device*)m_cart));
// to verify the actual behavior...
m_maincpu->space(AS_PROGRAM).install_readwrite_handler(0xfa0, 0xfc0, read8_delegate(FUNC(a2600_state::cart_over_riot_r), this), write8_delegate(FUNC(a2600_state::cart_over_riot_w), this));
break;
case A26_4IN1:
case A26_32IN1:
m_maincpu->space(AS_PROGRAM).install_read_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart));
break;
case A26_SS:
m_maincpu->space(AS_PROGRAM).install_read_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart));
break;
case A26_CM:
m_maincpu->space(AS_PROGRAM).install_read_handler(0x1000, 0x1fff, read8_delegate(FUNC(vcs_cart_slot_device::read_rom),(vcs_cart_slot_device*)m_cart));
break;
}
/* Banks may have changed, reset the cpu so it uses the correct reset vector */
m_maincpu->reset();
}
#ifdef UNUSED_FUNCTIONS
// try to detect 2600 controller setup. returns 32bits with left/right controller info
unsigned a2600_state::long detect_2600controllers()
{
#define JOYS 0x001
#define PADD 0x002
#define KEYP 0x004
#define LGUN 0x008
#define INDY 0x010
#define BOOS 0x020
#define KVID 0x040
#define CMTE 0x080
#define MLNK 0x100
#define AMSE 0x200
#define CX22 0x400
#define CX80 0x800
unsigned int left,right;
int i,j,foundkeypad = 0;
UINT8 *cart;
static const unsigned char signatures[][5] = {
{ 0x55, 0xa5, 0x3c, 0x29, 0}, // star raiders
{ 0xf9, 0xff, 0xa5, 0x80, 1}, // sentinel
{ 0x81, 0x02, 0xe8, 0x86, 1}, // shooting arcade
{ 0x02, 0xa9, 0xec, 0x8d, 1}, // guntest4 tester
{ 0x85, 0x2c, 0x85, 0xa7, 2}, // INDY 500
{ 0xa1, 0x8d, 0x9d, 0x02, 2}, // omega race INDY
{ 0x65, 0x72, 0x44, 0x43, 2}, // Sprintmaster INDY
{ 0x89, 0x8a, 0x99, 0xaa, 3}, // omega race
{ 0x9a, 0x8e, 0x81, 0x02, 4},
{ 0xdd, 0x8d, 0x80, 0x02, 4},
{ 0x85, 0x8e, 0x81, 0x02, 4},
{ 0x8d, 0x81, 0x02, 0xe6, 4},
{ 0xff, 0x8d, 0x81, 0x02, 4},
{ 0xa9, 0x03, 0x8d, 0x81, 5},
{ 0xa9, 0x73, 0x8d, 0x80, 6},
// { 0x82, 0x02, 0x85, 0x8f, 7}, // Mind Maze (really Mind Link??)
{ 0xa9, 0x30, 0x8d, 0x80, 7}, // Bionic Breakthrough
{ 0x02, 0x8e, 0x81, 0x02, 7}, // Telepathy
{ 0x41, 0x6d, 0x69, 0x67, 9}, // Missile Command Amiga Mouse
{ 0x43, 0x58, 0x2d, 0x32, 10}, // Missile Command CX22 TrackBall
{ 0x43, 0x58, 0x2d, 0x38, 11}, // Missile Command CX80 TrackBall
{ 0x4e, 0xa8, 0xa4, 0xa2, 12}, // Omega Race for Joystick ONLY
{ 0xa6, 0xef, 0xb5, 0x38, 8} // Warlords.. paddles ONLY
};
// start with this.. if anyone finds a game that does NOT work with both controllers enabled
// it can be fixed here with a new signature (note that the Coleco Gemini has this setup also)
left = JOYS+PADD; right = JOYS+PADD;
// default for bad dumps and roms too large to have special controllers
if ((m_cart_size > 0x4000) || (m_cart_size & 0x7ff)) return (left << 16) + right;
cart = CART;
for (i = 0; i < m_cart_size - (sizeof signatures/sizeof signatures[0]); i++)
{
for (j = 0; j < (sizeof signatures/sizeof signatures[0]); j++)
{
if (!memcmp(&cart[i], &signatures[j],sizeof signatures[0] - 1))
{
int k = signatures[j][4];
if (k == 0) return (JOYS << 16) + KEYP;
if (k == 1) return (LGUN << 16);
if (k == 2) return (INDY << 16) + INDY;
if (k == 3) return (BOOS << 16) + BOOS;
if (k == 5) return (JOYS << 16) + KVID;
if (k == 6) return (CMTE << 16) + CMTE;
if (k == 7) return (MLNK << 16) + MLNK;
if (k == 8) return (PADD << 16) + PADD;
if (k == 9) return (AMSE << 16) + AMSE;
if (k == 10) return (CX22 << 16) + CX22;
if (k == 11) return (CX80 << 16) + CX80;
if (k == 12) return (JOYS << 16) + JOYS;
if (k == 4) foundkeypad = 1;
}
}
}
if (foundkeypad) return (KEYP << 16) + KEYP;
return (left << 16) + right;
}
#endif
static INPUT_PORTS_START( a2600 )
PORT_START("SWB")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_OTHER ) PORT_NAME("Reset Game") PORT_CODE(KEYCODE_2)
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_OTHER ) PORT_NAME("Select Game") PORT_CODE(KEYCODE_1)
PORT_BIT ( 0x04, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_DIPNAME( 0x08, 0x08, "TV Type" ) PORT_CODE(KEYCODE_C) PORT_TOGGLE
PORT_DIPSETTING( 0x08, "Color" )
PORT_DIPSETTING( 0x00, "B&W" )
PORT_BIT ( 0x10, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_BIT ( 0x20, IP_ACTIVE_LOW, IPT_UNUSED )
PORT_DIPNAME( 0x40, 0x00, "Left Diff. Switch" ) PORT_CODE(KEYCODE_3) PORT_TOGGLE
PORT_DIPSETTING( 0x40, "A" )
PORT_DIPSETTING( 0x00, "B" )
PORT_DIPNAME( 0x80, 0x00, "Right Diff. Switch" ) PORT_CODE(KEYCODE_4) PORT_TOGGLE
PORT_DIPSETTING( 0x80, "A" )
PORT_DIPSETTING( 0x00, "B" )
INPUT_PORTS_END
static SLOT_INTERFACE_START(a2600_cart)
SLOT_INTERFACE_INTERNAL("a26_2k", A26_ROM_2K)
SLOT_INTERFACE_INTERNAL("a26_4k", A26_ROM_4K)
SLOT_INTERFACE_INTERNAL("a26_f4", A26_ROM_F4)
SLOT_INTERFACE_INTERNAL("a26_f6", A26_ROM_F6)
SLOT_INTERFACE_INTERNAL("a26_f8", A26_ROM_F8)
SLOT_INTERFACE_INTERNAL("a26_f8sw", A26_ROM_F8_SW)
SLOT_INTERFACE_INTERNAL("a26_fa", A26_ROM_FA)
SLOT_INTERFACE_INTERNAL("a26_fe", A26_ROM_FE)
SLOT_INTERFACE_INTERNAL("a26_3e", A26_ROM_3E)
SLOT_INTERFACE_INTERNAL("a26_3f", A26_ROM_3F)
SLOT_INTERFACE_INTERNAL("a26_e0", A26_ROM_E0)
SLOT_INTERFACE_INTERNAL("a26_e7", A26_ROM_E7)
SLOT_INTERFACE_INTERNAL("a26_ua", A26_ROM_UA)
SLOT_INTERFACE_INTERNAL("a26_cv", A26_ROM_CV)
SLOT_INTERFACE_INTERNAL("a26_dc", A26_ROM_DC)
SLOT_INTERFACE_INTERNAL("a26_fv", A26_ROM_FV)
SLOT_INTERFACE_INTERNAL("a26_jvp", A26_ROM_JVP)
SLOT_INTERFACE_INTERNAL("a26_cm", A26_ROM_COMPUMATE)
SLOT_INTERFACE_INTERNAL("a26_ss", A26_ROM_SUPERCHARGER)
SLOT_INTERFACE_INTERNAL("a26_dpc", A26_ROM_DPC)
SLOT_INTERFACE_INTERNAL("a26_4in1", A26_ROM_4IN1)
SLOT_INTERFACE_INTERNAL("a26_8in1", A26_ROM_8IN1)
SLOT_INTERFACE_INTERNAL("a26_32in1", A26_ROM_32IN1)
SLOT_INTERFACE_END
static MACHINE_CONFIG_FRAGMENT(a2600_cartslot)
MCFG_VCS_CARTRIDGE_ADD("cartslot", a2600_cart, NULL)
/* software lists */
MCFG_SOFTWARE_LIST_ADD("cart_list","a2600")
MCFG_SOFTWARE_LIST_ADD("cass_list","a2600_cass")
MACHINE_CONFIG_END
static MACHINE_CONFIG_START( a2600, a2600_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu", M6502, MASTER_CLOCK_NTSC / 3) /* actually M6507 */
MCFG_M6502_DISABLE_DIRECT()
MCFG_CPU_PROGRAM_MAP(a2600_mem)
MCFG_MACHINE_START_OVERRIDE(a2600_state,a2600)
/* video hardware */
MCFG_DEVICE_ADD("tia_video", TIA_NTSC_VIDEO, 0)
MCFG_TIA_READ_INPUT_PORT_CB(READ16(a2600_state, a2600_read_input_port))
MCFG_TIA_DATABUS_CONTENTS_CB(READ8(a2600_state, a2600_get_databus_contents))
MCFG_TIA_VSYNC_CB(WRITE16(a2600_state, a2600_tia_vsync_callback))
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_RAW_PARAMS( MASTER_CLOCK_NTSC, 228, 26, 26 + 160 + 16, 262, 24 , 24 + 192 + 31 )
MCFG_SCREEN_UPDATE_DEVICE("tia_video", tia_video_device, screen_update)
MCFG_SCREEN_PALETTE("tia_video:palette")
/* sound hardware */
MCFG_SPEAKER_STANDARD_MONO("mono")
MCFG_SOUND_TIA_ADD("tia", MASTER_CLOCK_NTSC/114)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.90)
/* devices */
MCFG_DEVICE_ADD("riot", RIOT6532, MASTER_CLOCK_NTSC / 3)
MCFG_RIOT6532_IN_PA_CB(READ8(a2600_state, switch_A_r))
MCFG_RIOT6532_OUT_PA_CB(WRITE8(a2600_state, switch_A_w))
MCFG_RIOT6532_IN_PB_CB(READ8(a2600_state, riot_input_port_8_r))
MCFG_RIOT6532_OUT_PB_CB(WRITE8(a2600_state, switch_B_w))
MCFG_RIOT6532_IRQ_CB(WRITELINE(a2600_state, irq_callback))
MCFG_VCS_CONTROL_PORT_ADD(CONTROL1_TAG, vcs_control_port_devices, "joy")
MCFG_VCS_CONTROL_PORT_ADD(CONTROL2_TAG, vcs_control_port_devices, NULL)
MCFG_FRAGMENT_ADD(a2600_cartslot)
MCFG_SOFTWARE_LIST_FILTER("cart_list", "NTSC")
MACHINE_CONFIG_END
static MACHINE_CONFIG_START( a2600p, a2600_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu", M6502, MASTER_CLOCK_PAL / 3) /* actually M6507 */
MCFG_CPU_PROGRAM_MAP(a2600_mem)
MCFG_M6502_DISABLE_DIRECT()
MCFG_MACHINE_START_OVERRIDE(a2600_state,a2600)
/* video hardware */
MCFG_DEVICE_ADD("tia_video", TIA_PAL_VIDEO, 0)
MCFG_TIA_READ_INPUT_PORT_CB(READ16(a2600_state, a2600_read_input_port))
MCFG_TIA_DATABUS_CONTENTS_CB(READ8(a2600_state, a2600_get_databus_contents))
MCFG_TIA_VSYNC_CB(WRITE16(a2600_state, a2600_tia_vsync_callback_pal))
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_RAW_PARAMS( MASTER_CLOCK_PAL, 228, 26, 26 + 160 + 16, 312, 32, 32 + 228 + 31 )
MCFG_SCREEN_UPDATE_DEVICE("tia_video", tia_video_device, screen_update)
MCFG_SCREEN_PALETTE("tia_video:palette")
/* sound hardware */
MCFG_SPEAKER_STANDARD_MONO("mono")
MCFG_SOUND_TIA_ADD("tia", MASTER_CLOCK_PAL/114)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.90)
/* devices */
MCFG_DEVICE_ADD("riot", RIOT6532, MASTER_CLOCK_PAL / 3)
MCFG_RIOT6532_IN_PA_CB(READ8(a2600_state, switch_A_r))
MCFG_RIOT6532_OUT_PA_CB(WRITE8(a2600_state, switch_A_w))
MCFG_RIOT6532_IN_PB_CB(READ8(a2600_state, riot_input_port_8_r))
MCFG_RIOT6532_OUT_PB_CB(WRITE8(a2600_state, switch_B_w))
MCFG_RIOT6532_IRQ_CB(WRITELINE(a2600_state, irq_callback))
MCFG_VCS_CONTROL_PORT_ADD(CONTROL1_TAG, vcs_control_port_devices, "joy")
MCFG_VCS_CONTROL_PORT_ADD(CONTROL2_TAG, vcs_control_port_devices, NULL)
MCFG_FRAGMENT_ADD(a2600_cartslot)
MCFG_SOFTWARE_LIST_FILTER("cart_list", "PAL")
MACHINE_CONFIG_END
ROM_START( a2600 )
ROM_REGION( 0x2000, "maincpu", ROMREGION_ERASEFF )
ROM_END
#define rom_a2600p rom_a2600
/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME */
CONS( 1977, a2600, 0, 0, a2600, a2600, driver_device, 0, "Atari", "Atari 2600 (NTSC)" , 0)
CONS( 1978, a2600p, a2600, 0, a2600p, a2600, driver_device, 0, "Atari", "Atari 2600 (PAL)", 0)
Reference in New Issue View Git Blame Copy Permalink