/******************************************************************************
Exidy Max-A-Flex driver
by Mariusz Wojcieszek
Based on Atari 400/800 MESS Driver by Juergen Buchmueller
TODO:
- fix LCD digits display controlling
******************************************************************************/
#include "emu.h"
#include "deprecat.h"
#include "cpu/m6502/m6502.h"
#include "cpu/m6805/m6805.h"
#include "includes/atari.h"
#include "sound/speaker.h"
#include "sound/pokey.h"
#include "machine/6821pia.h"
#include "video/gtia.h"
#include "maxaflex.lh"
class maxaflex_state : public driver_device
{
public:
maxaflex_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag) { }
UINT8 m_portA_in;
UINT8 m_portA_out;
UINT8 m_ddrA;
UINT8 m_portB_in;
UINT8 m_portB_out;
UINT8 m_ddrB;
UINT8 m_portC_in;
UINT8 m_portC_out;
UINT8 m_ddrC;
UINT8 m_tdr;
UINT8 m_tcr;
timer_device *m_mcu_timer;
};
/* Supervisor board emulation */
/* Port A:
0 (in) DSW
1 (in) DSW
2 (in) DSW
3 (in) DSW
4 (in) coin
5 (in) START button
6 -
7 (out) AUDIO
*/
static READ8_HANDLER( mcu_portA_r )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
state->m_portA_in = input_port_read(space->machine(), "dsw") | (input_port_read(space->machine(), "coin") << 4) | (input_port_read(space->machine(), "console") << 5);
return (state->m_portA_in & ~state->m_ddrA) | (state->m_portA_out & state->m_ddrA);
}
static WRITE8_HANDLER( mcu_portA_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
state->m_portA_out = data;
speaker_level_w(space->machine().device("speaker"), data >> 7);
}
/* Port B:
0 (out) Select 7-segment display to control by writing port C
1 (out)
2 (out) clear coin interrupt
3 (out) STRKEY - line connected to keyboard input in 600XL, seems to be not used
4 (out) RES600 - reset 600
5 (out) AUDMUTE - mutes audio
6 (out) latch for lamps
7 (out) TOFF - enables/disables user controls
*/
static READ8_HANDLER( mcu_portB_r )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
return (state->m_portB_in & ~state->m_ddrB) | (state->m_portB_out & state->m_ddrB);
}
static WRITE8_HANDLER( mcu_portB_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
UINT8 diff = data ^ state->m_portB_out;
state->m_portB_out = data;
/* clear coin interrupt */
if (data & 0x04)
cputag_set_input_line(space->machine(), "mcu", M6805_IRQ_LINE, CLEAR_LINE );
/* AUDMUTE */
space->machine().sound().system_enable((data >> 5) & 1);
/* RES600 */
if (diff & 0x10)
cputag_set_input_line(space->machine(), "maincpu", INPUT_LINE_RESET, (data & 0x10) ? CLEAR_LINE : ASSERT_LINE);
/* latch for lamps */
if ((diff & 0x40) && !(data & 0x40))
{
output_set_lamp_value(0, (state->m_portC_out >> 0) & 1);
output_set_lamp_value(1, (state->m_portC_out >> 1) & 1);
output_set_lamp_value(2, (state->m_portC_out >> 2) & 1);
output_set_lamp_value(3, (state->m_portC_out >> 3) & 1);
}
}
/* Port C:
0 (out) lamp COIN
1 (out) lamp PLAY
2 (out) lamp START
3 (out) lamp OVER */
static READ8_HANDLER( mcu_portC_r )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
return (state->m_portC_in & ~state->m_ddrC) | (state->m_portC_out & state->m_ddrC);
}
static WRITE8_HANDLER( mcu_portC_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
/* uses a 7447A, which is equivalent to an LS47/48 */
static const UINT8 ls48_map[16] =
{ 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7c,0x07,0x7f,0x67,0x58,0x4c,0x62,0x69,0x78,0x00 };
state->m_portC_out = data & 0x0f;
/* displays */
switch( state->m_portB_out & 0x3 )
{
case 0x0: output_set_digit_value(0, ls48_map[state->m_portC_out]); break;
case 0x1: output_set_digit_value(1, ls48_map[state->m_portC_out]); break;
case 0x2: output_set_digit_value(2, ls48_map[state->m_portC_out]); break;
case 0x3: break;
}
}
static READ8_HANDLER( mcu_ddr_r )
{
return 0xff;
}
static WRITE8_HANDLER( mcu_portA_ddr_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
state->m_ddrA = data;
}
static WRITE8_HANDLER( mcu_portB_ddr_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
state->m_ddrB = data;
}
static WRITE8_HANDLER( mcu_portC_ddr_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
state->m_ddrC = data;
}
static TIMER_DEVICE_CALLBACK( mcu_timer_proc )
{
maxaflex_state *state = timer.machine().driver_data<maxaflex_state>();
if ( --state->m_tdr == 0x00 )
{
if ( (state->m_tcr & 0x40) == 0 )
{
//timer interrupt!
generic_pulse_irq_line(timer.machine().device("mcu"), M68705_INT_TIMER);
}
}
}
/* Timer Data Reg */
static READ8_HANDLER( mcu_tdr_r )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
return state->m_tdr;
}
static WRITE8_HANDLER( mcu_tdr_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
state->m_tdr = data;
}
/* Timer control reg */
static READ8_HANDLER( mcu_tcr_r )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
return state->m_tcr & ~0x08;
}
static WRITE8_HANDLER( mcu_tcr_w )
{
maxaflex_state *state = space->machine().driver_data<maxaflex_state>();
state->m_tcr = data;
if ( (state->m_tcr & 0x40) == 0 )
{
int divider;
attotime period;
if ( !(state->m_tcr & 0x20) )
{
/* internal clock / 4*/
divider = 4;
}
else
{
/* external clock */
divider = 1;
}
if ( state->m_tcr & 0x07 )
{
/* use prescaler */
divider = divider * (1 << (state->m_tcr & 0x7));
}
period = attotime::from_hz(3579545) * divider;
state->m_mcu_timer->adjust(period, 0, period);
}
}
static MACHINE_RESET(supervisor_board)
{
maxaflex_state *state = machine.driver_data<maxaflex_state>();
state->m_portA_in = state->m_portA_out = state->m_ddrA = 0;
state->m_portB_in = state->m_portB_out = state->m_ddrB = 0;
state->m_portC_in = state->m_portC_out = state->m_ddrC = 0;
state->m_tdr = state->m_tcr = 0;
state->m_mcu_timer = machine.device<timer_device>("mcu_timer");
output_set_lamp_value(0, 0);
output_set_lamp_value(1, 0);
output_set_lamp_value(2, 0);
output_set_lamp_value(3, 0);
output_set_digit_value(0, 0x00);
output_set_digit_value(1, 0x00);
output_set_digit_value(2, 0x00);
}
static INPUT_CHANGED( coin_inserted )
{
if (!newval)
cputag_set_input_line(field.machine(), "mcu", M6805_IRQ_LINE, HOLD_LINE );
}
int atari_input_disabled(running_machine &machine)
{
maxaflex_state *state = machine.driver_data<maxaflex_state>();
return (state->m_portB_out & 0x80) == 0x00;
}
static ADDRESS_MAP_START(a600xl_mem, AS_PROGRAM, 8)
AM_RANGE(0x0000, 0x3fff) AM_RAM
AM_RANGE(0x5000, 0x57ff) AM_ROM AM_REGION("maincpu", 0x5000) /* self test */
AM_RANGE(0x8000, 0xbfff) AM_ROM /* game cartridge */
AM_RANGE(0xc000, 0xcfff) AM_ROM /* OS */
AM_RANGE(0xd000, 0xd0ff) AM_READWRITE(atari_gtia_r, atari_gtia_w)
AM_RANGE(0xd100, 0xd1ff) AM_NOP
AM_RANGE(0xd200, 0xd2ff) AM_DEVREADWRITE("pokey", pokey_r, pokey_w)
AM_RANGE(0xd300, 0xd3ff) AM_DEVREADWRITE_MODERN("pia", pia6821_device, read_alt, write_alt)
AM_RANGE(0xd400, 0xd4ff) AM_READWRITE(atari_antic_r, atari_antic_w)
AM_RANGE(0xd500, 0xd7ff) AM_NOP
AM_RANGE(0xd800, 0xffff) AM_ROM /* OS */
ADDRESS_MAP_END
static ADDRESS_MAP_START( mcu_mem, AS_PROGRAM, 8 )
ADDRESS_MAP_GLOBAL_MASK(0x7ff)
AM_RANGE(0x0000, 0x0000) AM_READ( mcu_portA_r ) AM_WRITE( mcu_portA_w )
AM_RANGE(0x0001, 0x0001) AM_READ( mcu_portB_r ) AM_WRITE( mcu_portB_w )
AM_RANGE(0x0002, 0x0002) AM_READ( mcu_portC_r ) AM_WRITE( mcu_portC_w )
AM_RANGE(0x0004, 0x0004) AM_READ( mcu_ddr_r ) AM_WRITE( mcu_portA_ddr_w )
AM_RANGE(0x0005, 0x0005) AM_READ( mcu_ddr_r ) AM_WRITE( mcu_portB_ddr_w )
AM_RANGE(0x0006, 0x0006) AM_READ( mcu_ddr_r ) AM_WRITE( mcu_portC_ddr_w )
AM_RANGE(0x0008, 0x0008) AM_READ( mcu_tdr_r ) AM_WRITE( mcu_tdr_w )
AM_RANGE(0x0009, 0x0009) AM_READ( mcu_tcr_r ) AM_WRITE( mcu_tcr_w )
AM_RANGE(0x0010, 0x007f) AM_RAM
AM_RANGE(0x0080, 0x07ff) AM_ROM
ADDRESS_MAP_END
static INPUT_PORTS_START( a600xl )
PORT_START("console") /* IN0 console keys & switch settings */
PORT_BIT(0x04, 0x04, IPT_KEYPAD) PORT_NAME("Option") PORT_CODE(KEYCODE_F2)
PORT_BIT(0x02, 0x02, IPT_KEYPAD) PORT_NAME("Select") PORT_CODE(KEYCODE_F1)
PORT_BIT(0x01, 0x01, IPT_START1 )
PORT_START("djoy_0_1") /* IN1 digital joystick #1 + #2 (PIA port A) */
PORT_BIT(0x01, 0x01, IPT_JOYSTICK_UP) PORT_PLAYER(1)
PORT_BIT(0x02, 0x02, IPT_JOYSTICK_DOWN) PORT_PLAYER(1)
PORT_BIT(0x04, 0x04, IPT_JOYSTICK_LEFT) PORT_PLAYER(1)
PORT_BIT(0x08, 0x08, IPT_JOYSTICK_RIGHT) PORT_PLAYER(1)
/* player #2 input is not connected */
PORT_BIT(0x10, 0x10, IPT_JOYSTICK_UP) PORT_PLAYER(2)
PORT_BIT(0x20, 0x20, IPT_JOYSTICK_DOWN) PORT_PLAYER(2)
PORT_BIT(0x40, 0x40, IPT_JOYSTICK_LEFT) PORT_PLAYER(2)
PORT_BIT(0x80, 0x80, IPT_JOYSTICK_RIGHT) PORT_PLAYER(2)
PORT_START("djoy_2_3") /* IN2 digital joystick #3 + #4 (PIA port B) */
/* not connected */
PORT_BIT(0x01, 0x01, IPT_JOYSTICK_UP) PORT_PLAYER(3)
PORT_BIT(0x02, 0x02, IPT_JOYSTICK_DOWN) PORT_PLAYER(3)
PORT_BIT(0x04, 0x04, IPT_JOYSTICK_LEFT) PORT_PLAYER(3)
PORT_BIT(0x08, 0x08, IPT_JOYSTICK_RIGHT) PORT_PLAYER(3)
PORT_BIT(0x10, 0x10, IPT_JOYSTICK_UP) PORT_PLAYER(4)
PORT_BIT(0x20, 0x20, IPT_JOYSTICK_DOWN) PORT_PLAYER(4)
PORT_BIT(0x40, 0x40, IPT_JOYSTICK_LEFT) PORT_PLAYER(4)
PORT_BIT(0x80, 0x80, IPT_JOYSTICK_RIGHT) PORT_PLAYER(4)
PORT_START("djoy_b") /* IN3 digital joystick buttons (GTIA button bits) */
PORT_BIT(0x01, 0x01, IPT_BUTTON1) PORT_PLAYER(1)
PORT_BIT(0x02, 0x02, IPT_BUTTON1) PORT_PLAYER(2)
PORT_BIT(0x04, 0x04, IPT_BUTTON1) PORT_PLAYER(3)
PORT_BIT(0x08, 0x08, IPT_BUTTON1) PORT_PLAYER(4)
PORT_BIT(0x10, 0x10, IPT_BUTTON2) PORT_PLAYER(1)
PORT_BIT(0x20, 0x20, IPT_BUTTON2) PORT_PLAYER(2)
PORT_BIT(0x40, 0x40, IPT_BUTTON2) PORT_PLAYER(3)
PORT_BIT(0x80, 0x80, IPT_BUTTON2) PORT_PLAYER(4)
/* Max-A-Flex specific ports */
PORT_START("coin") /* IN4 coin */
PORT_BIT(0x1, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_CHANGED(coin_inserted, 0)
PORT_START("dsw") /* IN5 DSW */
PORT_DIPNAME(0xf, 0x9, "Coin/Time" )
PORT_DIPSETTING( 0x0, "30 sec" )
PORT_DIPSETTING( 0x1, "60 sec" )
PORT_DIPSETTING( 0x2, "90 sec" )
PORT_DIPSETTING( 0x3, "120 sec" )
PORT_DIPSETTING( 0x4, "150 sec" )
PORT_DIPSETTING( 0x5, "180 sec" )
PORT_DIPSETTING( 0x6, "210 sec" )
PORT_DIPSETTING( 0x7, "240 sec" )
PORT_DIPSETTING( 0x8, "270 sec" )
PORT_DIPSETTING( 0x9, "300 sec" )
PORT_DIPSETTING( 0xa, "330 sec" )
PORT_DIPSETTING( 0xb, "360 sec" )
PORT_DIPSETTING( 0xc, "390 sec" )
PORT_DIPSETTING( 0xd, "420 sec" )
PORT_DIPSETTING( 0xe, "450 sec" )
PORT_DIPSETTING( 0xf, "480 sec" )
INPUT_PORTS_END
static const pokey_interface pokey_config = {
{ DEVCB_NULL },
DEVCB_NULL,
DEVCB_NULL,DEVCB_NULL,
atari_interrupt_cb
};
static MACHINE_CONFIG_START( a600xl, maxaflex_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu", M6502, FREQ_17_EXACT)
MCFG_CPU_PROGRAM_MAP(a600xl_mem)
MCFG_CPU_VBLANK_INT_HACK(a800xl_interrupt, TOTAL_LINES_60HZ)
MCFG_CPU_ADD("mcu", M68705, 3579545)
MCFG_CPU_PROGRAM_MAP(mcu_mem)
MCFG_PIA6821_ADD("pia", atarixl_pia_interface)
MCFG_TIMER_ADD("mcu_timer", mcu_timer_proc)
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(0))
MCFG_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16)
MCFG_SCREEN_VISIBLE_AREA(MIN_X, MAX_X, MIN_Y, MAX_Y)
MCFG_SCREEN_REFRESH_RATE(FRAME_RATE_60HZ)
MCFG_SCREEN_SIZE(HWIDTH*8, TOTAL_LINES_60HZ)
MCFG_SCREEN_UPDATE(atari)
MCFG_PALETTE_LENGTH(256)
MCFG_PALETTE_INIT(atari)
MCFG_DEFAULT_LAYOUT(layout_maxaflex)
MCFG_VIDEO_START(atari)
/* sound hardware */
MCFG_SPEAKER_STANDARD_MONO("mono")
MCFG_SOUND_ADD("pokey", POKEY, FREQ_17_EXACT)
MCFG_SOUND_CONFIG(pokey_config)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.0)
MCFG_SOUND_ADD("speaker", SPEAKER_SOUND, 0)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.50)
MCFG_MACHINE_START( atarixl )
MACHINE_CONFIG_END
static MACHINE_CONFIG_DERIVED( maxaflex, a600xl )
MCFG_MACHINE_RESET( supervisor_board )
MACHINE_CONFIG_END
ROM_START(maxaflex)
ROM_REGION(0x10000,"maincpu",0) /* 64K for the CPU */
ROM_LOAD("atarixl.rom", 0xc000, 0x4000, CRC(1f9cd270) SHA1(ae4f523ba08b6fd59f3cae515a2b2410bbd98f55))
ROM_REGION( 0x0800, "mcu", 0 ) /* 2k for the microcontroller */
ROM_LOAD("maxaflex.uc", 0x0000, 0x0800, CRC(fe9cf53c) SHA1(4b02bc2f0c8a1eab799814fac82d5812c0160206))
ROM_REGION( 0x200, "proms", 0 )
ROM_LOAD("maxprom.prm", 0x0000, 0x0200, CRC(edf5c950) SHA1(9ad046ea41a61585dd8d2f2d4167a3cc39d2928f)) /* for simulating keystrokes ?*/
ROM_END
ROM_START(mf_bdash)
ROM_REGION(0x10000,"maincpu",0) /* 64K for the CPU */
ROM_LOAD("bd-acs-1.rom", 0x8000, 0x2000, CRC(2b11750e) SHA1(43e9ae44eb1767621920bb94a4370ed602d81056))
ROM_LOAD("bd-acs-2.rom", 0xa000, 0x2000, CRC(e9ea2658) SHA1(189ede7201ef122cf2b72fc847a896b9dbe007e5))
ROM_LOAD("atarixl.rom", 0xc000, 0x4000, CRC(1f9cd270) SHA1(ae4f523ba08b6fd59f3cae515a2b2410bbd98f55))
ROM_REGION( 0x0800, "mcu", 0 ) /* 2k for the microcontroller */
ROM_LOAD("maxaflex.uc", 0x0000, 0x0800, CRC(fe9cf53c) SHA1(4b02bc2f0c8a1eab799814fac82d5812c0160206))
ROM_REGION( 0x200, "proms", 0 )
ROM_LOAD("maxprom.prm", 0x0000, 0x0200, CRC(edf5c950) SHA1(9ad046ea41a61585dd8d2f2d4167a3cc39d2928f)) /* for simulating keystrokes ?*/
ROM_END
ROM_START(mf_achas)
ROM_REGION(0x10000,"maincpu",0) /* 64K for the CPU */
ROM_LOAD("ac.rom", 0x8000, 0x4000, CRC(18752991) SHA1(f508b89d2251c53d017cff6cb23b8e9880a0cc0b))
ROM_LOAD("atarixl.rom", 0xc000, 0x4000, CRC(1f9cd270) SHA1(ae4f523ba08b6fd59f3cae515a2b2410bbd98f55))
ROM_REGION( 0x0800, "mcu", 0 ) /* 2k for the microcontroller */
ROM_LOAD("maxaflex.uc", 0x0000, 0x0800, CRC(fe9cf53c) SHA1(4b02bc2f0c8a1eab799814fac82d5812c0160206))
ROM_REGION( 0x200, "proms", 0 )
ROM_LOAD("maxprom.prm", 0x0000, 0x0200, CRC(edf5c950) SHA1(9ad046ea41a61585dd8d2f2d4167a3cc39d2928f)) /* for simulating keystrokes ?*/
ROM_END
ROM_START(mf_brist)
ROM_REGION(0x10000,"maincpu",0) /* 64K for the CPU */
ROM_LOAD("brist.rom", 0x8000, 0x4000, CRC(4263d64d) SHA1(80a041bceb499e1466516488013aa4439b3db6f2))
ROM_LOAD("atarixl.rom", 0xc000, 0x4000, CRC(1f9cd270) SHA1(ae4f523ba08b6fd59f3cae515a2b2410bbd98f55))
ROM_REGION( 0x0800, "mcu", 0 ) /* 2k for the microcontroller */
ROM_LOAD("maxaflex.uc", 0x0000, 0x0800, CRC(fe9cf53c) SHA1(4b02bc2f0c8a1eab799814fac82d5812c0160206))
ROM_REGION( 0x200, "proms", 0 )
ROM_LOAD("maxprom.prm", 0x0000, 0x0200, CRC(edf5c950) SHA1(9ad046ea41a61585dd8d2f2d4167a3cc39d2928f)) /* for simulating keystrokes ?*/
ROM_END
ROM_START(mf_flip)
ROM_REGION(0x10000,"maincpu",0) /* 64K for the CPU */
ROM_LOAD("flipflop.rom", 0x8000, 0x4000, CRC(8ae057be) SHA1(ba26d6a3790ebdb754c1192b2c28f0fe93aca377))
ROM_LOAD("atarixl.rom", 0xc000, 0x4000, CRC(1f9cd270) SHA1(ae4f523ba08b6fd59f3cae515a2b2410bbd98f55))
ROM_REGION( 0x0800, "mcu", 0 ) /* 2k for the microcontroller */
ROM_LOAD("maxaflex.uc", 0x0000, 0x0800, CRC(fe9cf53c) SHA1(4b02bc2f0c8a1eab799814fac82d5812c0160206))
ROM_REGION( 0x200, "proms", 0 )
ROM_LOAD("maxprom.prm", 0x0000, 0x0200, CRC(edf5c950) SHA1(9ad046ea41a61585dd8d2f2d4167a3cc39d2928f)) /* for simulating keystrokes ?*/
ROM_END
static DRIVER_INIT( a600xl )
{
UINT8 *rom = machine.region("maincpu")->base();
memcpy( rom + 0x5000, rom + 0xd000, 0x800 );
}
GAME( 1984, maxaflex, 0, maxaflex, a600xl, a600xl, ROT0, "Exidy", "Max-A-Flex", GAME_IS_BIOS_ROOT )
GAME( 1982, mf_achas, maxaflex, maxaflex, a600xl, a600xl, ROT0, "Exidy / First Star Software", "Astro Chase (Max-A-Flex)", 0 )
GAME( 1983, mf_brist, maxaflex, maxaflex, a600xl, a600xl, ROT0, "Exidy / First Star Software", "Bristles (Max-A-Flex)", 0 )
GAME( 1983, mf_flip, maxaflex, maxaflex, a600xl, a600xl, ROT0, "Exidy / First Star Software", "Flip & Flop (Max-A-Flex)", 0 )
GAME( 1984, mf_bdash, maxaflex, maxaflex, a600xl, a600xl, ROT0, "Exidy / First Star Software", "Boulder Dash (Max-A-Flex)", 0 )