// 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_pokey(*this, "pokey")
, 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_lamps(*this, "lamp%u", 0U)
, m_digits(*this, "digit%u", 0U)
{
}
void maxaflex(machine_config &config);
DECLARE_INPUT_CHANGED_MEMBER(coin_inserted);
private:
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);
void a600xl_mem(address_map &map);
uint8_t m_portb_out;
uint8_t m_portc_out;
required_device<m68705p3_device> m_mcu;
required_device<pokey_device> m_pokey;
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_lamps;
output_finder<3> m_digits;
};
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_lamps[0] = BIT(m_portc_out, 0);
m_lamps[1] = BIT(m_portc_out, 1);
m_lamps[2] = BIT(m_portc_out, 2);
m_lamps[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_digits[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_lamps.resolve();
m_digits.resolve();
save_item(NAME(m_portb_out));
save_item(NAME(m_portc_out));
}
void maxaflex_state::machine_reset()
{
atari_common_state::machine_reset();
m_pokey->write(machine().dummy_space(), 15, 0);
// Supervisor board reset
m_portb_out = 0xff;
m_portc_out = 0xff;
std::fill(std::begin(m_lamps), std::end(m_lamps), 0);
std::fill(std::begin(m_digits), std::end(m_digits), 0x00);
}
TIMER_DEVICE_CALLBACK_MEMBER( maxaflex_state::mf_interrupt )
{
m_antic->generic_interrupt(2);
}
void maxaflex_state::maxaflex(machine_config &config)
{
/* basic machine hardware */
m6502_device &maincpu(M6502(config, "maincpu", pokey_device::FREQ_17_EXACT));
maincpu.set_addrmap(AS_PROGRAM, &maxaflex_state::a600xl_mem);
TIMER(config, "scantimer").configure_scanline(FUNC(maxaflex_state::mf_interrupt), "screen", 0, 1);
M68705P3(config, m_mcu, 3579545);
m_mcu->porta_r().set(FUNC(maxaflex_state::mcu_porta_r));
m_mcu->porta_w().set(FUNC(maxaflex_state::mcu_porta_w));
m_mcu->portb_w().set(FUNC(maxaflex_state::mcu_portb_w));
m_mcu->portc_w().set(FUNC(maxaflex_state::mcu_portc_w));
ATARI_GTIA(config, m_gtia, 0);
m_gtia->set_region(GTIA_NTSC);
m_gtia->read_callback().set_ioport("console");
ATARI_ANTIC(config, m_antic, 0);
m_antic->set_gtia_tag(m_gtia);
pia6821_device &pia(PIA6821(config, "pia", 0));
pia.readpa_handler().set(FUNC(maxaflex_state::pia_pa_r));
pia.readpb_handler().set(FUNC(maxaflex_state::pia_pb_r));
pia.writepb_handler().set(FUNC(maxaflex_state::pia_pb_w));
pia.cb2_handler().set(FUNC(maxaflex_state::pia_cb2_w));
/* video hardware */
screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
screen.set_vblank_time(ATTOSECONDS_IN_USEC(0));
screen.set_visarea(antic_device::MIN_X, antic_device::MAX_X, antic_device::MIN_Y, antic_device::MAX_Y);
screen.set_refresh_hz(antic_device::FRAME_RATE_60HZ);
screen.set_size(antic_device::HWIDTH * 8, antic_device::TOTAL_LINES_60HZ);
screen.set_screen_update("antic", FUNC(antic_device::screen_update));
screen.set_palette("palette");
PALETTE(config, "palette", FUNC(maxaflex_state::atari_palette), 256);
config.set_default_layout(layout_maxaflex);
/* sound hardware */
SPEAKER(config, "mono").front_center();
POKEY(config, m_pokey, pokey_device::FREQ_17_EXACT);
m_pokey->set_interrupt_callback(FUNC(maxaflex_state::interrupt_cb));
m_pokey->set_output_rc(RES_K(1), CAP_U(0.0), 5.0);
m_pokey->add_route(ALL_OUTPUTS, "mono", 1.0);
SPEAKER_SOUND(config, m_speaker);
m_speaker->add_route(ALL_OUTPUTS, "mono", 0.50);
RAM(config, RAM_TAG).set_default_size("16K");
}
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 )