// license:BSD-3-Clause
// copyright-holders:Mariusz Wojcieszek, Aaron Giles
/******************************************************************************
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 "includes/atari400.h"
#include "cpu/m6502/m6502.h"
#include "cpu/m6805/m68705.h"
#include "machine/6821pia.h"
#include "machine/timer.h"
#include "sound/spkrdev.h"
#include "sound/pokey.h"
#include "video/gtia.h"
#include "screen.h"
#include "speaker.h"
#include "maxaflex.lh"
class maxaflex_state : public atari_common_state
{
public:
maxaflex_state(const machine_config &mconfig, device_type type, const char *tag)
: atari_common_state(mconfig, type, tag)
, m_mcu(*this, "mcu")
, m_speaker(*this, "speaker")
, m_region_maincpu(*this, "maincpu")
, m_dsw(*this, "dsw")
, m_coin(*this, "coin")
, m_console(*this, "console")
, m_joy01(*this, "djoy_0_1")
, m_joy23(*this, "djoy_2_3")
, m_lamp(*this, "lamp%u", 0U)
, m_digit(*this, "digit%u", 0U)
{
}
DECLARE_INPUT_CHANGED_MEMBER(coin_inserted);
void maxaflex(machine_config &config);
protected:
DECLARE_READ8_MEMBER(mcu_portA_r);
DECLARE_WRITE8_MEMBER(mcu_portA_w);
DECLARE_WRITE8_MEMBER(mcu_portB_w);
DECLARE_WRITE8_MEMBER(mcu_portC_w);
DECLARE_READ8_MEMBER(pia_pa_r);
DECLARE_READ8_MEMBER(pia_pb_r);
WRITE8_MEMBER(pia_pb_w) { mmu(data); }
WRITE_LINE_MEMBER(pia_cb2_w) { } // This is used by Floppy drive on Atari 8bits Home Computers
TIMER_DEVICE_CALLBACK_MEMBER(mf_interrupt);
virtual void machine_start() override;
virtual void machine_reset() override;
bool atari_input_disabled() const { return !BIT(m_portB_out, 7); }
void mmu(uint8_t new_mmu);
private:
void a600xl_mem(address_map &map);
uint8_t m_portB_out;
uint8_t m_portC_out;
required_device<cpu_device> m_mcu;
required_device<speaker_sound_device> m_speaker;
required_region_ptr<uint8_t> m_region_maincpu;
required_ioport m_dsw;
required_ioport m_coin;
required_ioport m_console;
required_ioport m_joy01;
required_ioport m_joy23;
output_finder<4> m_lamp;
output_finder<3> m_digit;
};
void maxaflex_state::mmu(uint8_t new_mmu)
{
/* check if self-test ROM changed */
if (new_mmu & 0x80)
{
logerror("%s MMU SELFTEST RAM\n", machine().system().name);
m_maincpu->space(AS_PROGRAM).nop_readwrite(0x5000, 0x57ff);
}
else
{
logerror("%s MMU SELFTEST ROM\n", machine().system().name);
m_maincpu->space(AS_PROGRAM).install_rom(0x5000, 0x57ff, &m_region_maincpu[0xd000]);
m_maincpu->space(AS_PROGRAM).unmap_write(0x5000, 0x57ff);
}
}
/* 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
*/
READ8_MEMBER(maxaflex_state::mcu_portA_r)
{
return
((m_dsw->read() << 0) & 0x0f) |
((m_coin->read() << 4) & 0x10) |
((m_console->read() << 5) & 0x20) |
0xc0;
}
WRITE8_MEMBER(maxaflex_state::mcu_portA_w)
{
m_speaker->level_w(BIT(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
*/
WRITE8_MEMBER(maxaflex_state::mcu_portB_w)
{
const uint8_t diff = data ^ m_portB_out;
m_portB_out = data;
/* clear coin interrupt */
if (BIT(data, 2))
m_mcu->set_input_line(M6805_IRQ_LINE, CLEAR_LINE);
/* RES600 */
if (BIT(diff, 4))
m_maincpu->set_input_line(INPUT_LINE_RESET, BIT(data, 4) ? CLEAR_LINE : ASSERT_LINE);
/* AUDMUTE */
machine().sound().system_enable(BIT(data, 5));
/* latch for lamps */
if (BIT(diff, 6) && !BIT(data, 6))
{
m_lamp[0] = BIT(m_portC_out, 0);
m_lamp[1] = BIT(m_portC_out, 1);
m_lamp[2] = BIT(m_portC_out, 2);
m_lamp[3] = BIT(m_portC_out, 3);
}
}
/* Port C:
0 (out) lamp COIN
1 (out) lamp PLAY
2 (out) lamp START
3 (out) lamp OVER */
WRITE8_MEMBER(maxaflex_state::mcu_portC_w)
{
/* uses a 7447A, which is equivalent to an LS47/48 */
constexpr static uint8_t ls48_map[16] =
{ 0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7c, 0x07, 0x7f, 0x67, 0x58, 0x4c, 0x62, 0x69, 0x78, 0x00 };
m_portC_out = data & 0x0f;
/* displays */
uint8_t const sel = m_portB_out & 0x03;
if (3U > sel)
m_digit[sel] = ls48_map[m_portC_out];
}
INPUT_CHANGED_MEMBER(maxaflex_state::coin_inserted)
{
if (!newval)
m_mcu->set_input_line(M6805_IRQ_LINE, ASSERT_LINE);
}
void maxaflex_state::a600xl_mem(address_map &map)
{
map(0x0000, 0x3fff).ram();
map(0x5000, 0x57ff).rom().region("maincpu", 0xd000); /* self test */
map(0x8000, 0xbfff).rom(); /* game cartridge */
map(0xc000, 0xcfff).rom(); /* OS */
map(0xd000, 0xd0ff).rw(m_gtia, FUNC(gtia_device::read), FUNC(gtia_device::write));
map(0xd100, 0xd1ff).noprw();
map(0xd200, 0xd2ff).rw("pokey", FUNC(pokey_device::read), FUNC(pokey_device::write));
map(0xd300, 0xd3ff).rw("pia", FUNC(pia6821_device::read_alt), FUNC(pia6821_device::write_alt));
map(0xd400, 0xd4ff).rw(m_antic, FUNC(antic_device::read), FUNC(antic_device::write));
map(0xd500, 0xd7ff).noprw();
map(0xd800, 0xffff).rom(); /* OS */
}
static INPUT_PORTS_START( a600xl )
PORT_START("console")
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")
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")
/* 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")
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")
PORT_BIT(0x1, IP_ACTIVE_LOW, IPT_COIN1) PORT_CHANGED_MEMBER(DEVICE_SELF, maxaflex_state, coin_inserted, 0)
PORT_START("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
READ8_MEMBER(maxaflex_state::pia_pa_r)
{
return atari_input_disabled() ? 0xff : m_joy01.read_safe(0);
}
READ8_MEMBER(maxaflex_state::pia_pb_r)
{
return atari_input_disabled() ? 0xff : m_joy23.read_safe(0);
}
void maxaflex_state::machine_start()
{
atari_common_state::machine_start();
m_lamp.resolve();
m_digit.resolve();
save_item(NAME(m_portB_out));
save_item(NAME(m_portC_out));
}
void maxaflex_state::machine_reset()
{
atari_common_state::machine_reset();
pokey_device *pokey = machine().device<pokey_device>("pokey");
pokey->write(15,0);
// Supervisor board reset
m_portB_out = 0xff;
m_portC_out = 0xff;
std::fill(std::begin(m_lamp), std::end(m_lamp), 0);
std::fill(std::begin(m_digit), std::end(m_digit), 0x00);
}
TIMER_DEVICE_CALLBACK_MEMBER( maxaflex_state::mf_interrupt )
{
m_antic->generic_interrupt(2);
}
MACHINE_CONFIG_START(maxaflex_state::maxaflex)
/* basic machine hardware */
MCFG_DEVICE_ADD("maincpu", M6502, pokey_device::FREQ_17_EXACT)
MCFG_DEVICE_PROGRAM_MAP(a600xl_mem)
MCFG_TIMER_DRIVER_ADD_SCANLINE("scantimer", maxaflex_state, mf_interrupt, "screen", 0, 1)
MCFG_DEVICE_ADD("mcu", M68705P3, 3579545)
MCFG_M68705_PORTA_R_CB(READ8(*this, maxaflex_state, mcu_portA_r))
MCFG_M68705_PORTA_W_CB(WRITE8(*this, maxaflex_state, mcu_portA_w))
MCFG_M68705_PORTB_W_CB(WRITE8(*this, maxaflex_state, mcu_portB_w))
MCFG_M68705_PORTC_W_CB(WRITE8(*this, maxaflex_state, mcu_portC_w))
MCFG_DEVICE_ADD("gtia", ATARI_GTIA, 0)
MCFG_GTIA_REGION(GTIA_NTSC)
MCFG_GTIA_READ_CB(IOPORT("console"))
MCFG_DEVICE_ADD("antic", ATARI_ANTIC, 0)
MCFG_ANTIC_GTIA("gtia")
MCFG_DEVICE_ADD("pia", PIA6821, 0)
MCFG_PIA_READPA_HANDLER(READ8(*this, maxaflex_state, pia_pa_r))
MCFG_PIA_READPB_HANDLER(READ8(*this, maxaflex_state, pia_pb_r))
MCFG_PIA_WRITEPB_HANDLER(WRITE8(*this, maxaflex_state, pia_pb_w))
MCFG_PIA_CB2_HANDLER(WRITELINE(*this, maxaflex_state, pia_cb2_w))
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(0))
MCFG_SCREEN_VISIBLE_AREA_ANTIC()
MCFG_SCREEN_REFRESH_RATE_ANTIC_60HZ()
MCFG_SCREEN_SIZE_ANTIC_60HZ()
MCFG_SCREEN_UPDATE_DEVICE("antic", antic_device, screen_update)
MCFG_SCREEN_PALETTE("palette")
MCFG_PALETTE_ADD("palette", 256)
MCFG_PALETTE_INIT_OWNER(maxaflex_state, atari)
MCFG_DEFAULT_LAYOUT(layout_maxaflex)
/* sound hardware */
SPEAKER(config, "mono").front_center();
MCFG_DEVICE_ADD("pokey", POKEY, pokey_device::FREQ_17_EXACT)
MCFG_POKEY_INTERRUPT_CB(maxaflex_state, interrupt_cb)
MCFG_POKEY_OUTPUT_RC(RES_K(1), CAP_U(0.0), 5.0)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.0)
MCFG_DEVICE_ADD("speaker", SPEAKER_SOUND)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.50)
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
GAME( 1984, maxaflex, 0, maxaflex, a600xl, maxaflex_state, empty_init, ROT0, "Exidy", "Max-A-Flex", MACHINE_IS_BIOS_ROOT )
GAME( 1982, mf_achas, maxaflex, maxaflex, a600xl, maxaflex_state, empty_init, ROT0, "Exidy / First Star Software", "Astro Chase (Max-A-Flex)", 0 )
GAME( 1983, mf_brist, maxaflex, maxaflex, a600xl, maxaflex_state, empty_init, ROT0, "Exidy / First Star Software", "Bristles (Max-A-Flex)", 0 )
GAME( 1983, mf_flip, maxaflex, maxaflex, a600xl, maxaflex_state, empty_init, ROT0, "Exidy / First Star Software", "Flip & Flop (Max-A-Flex)", 0 )
GAME( 1984, mf_bdash, maxaflex, maxaflex, a600xl, maxaflex_state, empty_init, ROT0, "Exidy / First Star Software", "Boulder Dash (Max-A-Flex)", 0 )