diff options
Diffstat (limited to 'src/mame/drivers/a2600.c')
-rw-r--r-- | src/mame/drivers/a2600.c | 552 |
1 files changed, 552 insertions, 0 deletions
diff --git a/src/mame/drivers/a2600.c b/src/mame/drivers/a2600.c new file mode 100644 index 00000000000..cf61e133b62 --- /dev/null +++ b/src/mame/drivers/a2600.c @@ -0,0 +1,552 @@ +// license:BSD-3-Clause +// copyright-holders:Nathan Woods, Wilbert Pol +/*************************************************************************** + + 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/mos6530n.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"), + m_swb(*this, "SWB") + { } + + 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; + required_ioport m_swb; +}; + + + +#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_DEVICE("riot", mos6532_t, io_map) + // 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 m_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]; +// m_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]; +// m_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(); + + save_item(NAME(m_current_screen_height)); +} + + +#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", MOS6532n, MASTER_CLOCK_NTSC / 3) + MCFG_MOS6530n_IN_PA_CB(READ8(a2600_state, switch_A_r)) + MCFG_MOS6530n_OUT_PA_CB(WRITE8(a2600_state, switch_A_w)) + MCFG_MOS6530n_IN_PB_CB(READ8(a2600_state, riot_input_port_8_r)) + MCFG_MOS6530n_OUT_PB_CB(WRITE8(a2600_state, switch_B_w)) + MCFG_MOS6530n_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", MOS6532n, MASTER_CLOCK_PAL / 3) + MCFG_MOS6530n_IN_PA_CB(READ8(a2600_state, switch_A_r)) + MCFG_MOS6530n_OUT_PA_CB(WRITE8(a2600_state, switch_A_w)) + MCFG_MOS6530n_IN_PB_CB(READ8(a2600_state, riot_input_port_8_r)) + MCFG_MOS6530n_OUT_PB_CB(WRITE8(a2600_state, switch_B_w)) + MCFG_MOS6530n_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)" , MACHINE_SUPPORTS_SAVE ) +CONS( 1978, a2600p, a2600, 0, a2600p, a2600, driver_device, 0, "Atari", "Atari 2600 (PAL)", MACHINE_SUPPORTS_SAVE ) |