Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-05-23 14:19:01 +03:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity
cc1eff9abd
mame/src/mess/drivers/babbage.c

296 lines
8.7 KiB
C
Raw Blame History

/***************************************************************************
Babbage-2nd skeleton driver (19/OCT/2011)
http://homepage3.nifty.com/takeda-toshiya/babbage/index.html
Pasting:
0-F : as is
INC : ^
AD : -
DA : =
GO : X
Here is a test program to turn on the LEDs.
Copy the text and Paste into the emulator.
=3E^=0F^=D3^=13^=3E^=07^=D3^=13^=3E^=00^=D3^=12^=76^-1000X
ToDo:
- Blank the display if digits aren't being refreshed
***************************************************************************/
#include "emu.h"
#include "cpu/z80/z80.h"
#include "machine/z80ctc.h"
#include "machine/z80pio.h"
#include "cpu/z80/z80daisy.h"
#include "babbage.lh"
#define MAIN_CLOCK 25e5
class babbage_state : public driver_device
{
public:
babbage_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_pio_1(*this, "z80pio_1"),
m_pio_2(*this, "z80pio_2"),
m_ctc(*this, "z80ctc")
{ }
required_device<cpu_device> m_maincpu;
required_device<z80pio_device> m_pio_1;
required_device<z80pio_device> m_pio_2;
required_device<z80ctc_device> m_ctc;
DECLARE_READ8_MEMBER(pio2_a_r);
DECLARE_WRITE8_MEMBER(pio1_b_w);
DECLARE_WRITE8_MEMBER(pio2_b_w);
DECLARE_WRITE_LINE_MEMBER(ctc_z0_w);
DECLARE_WRITE_LINE_MEMBER(ctc_z1_w);
DECLARE_WRITE_LINE_MEMBER(ctc_z2_w);
UINT8 m_segment;
UINT8 m_key;
UINT8 m_prev_key;
bool m_step;
virtual void machine_reset();
virtual void machine_start();
TIMER_DEVICE_CALLBACK_MEMBER(keyboard_callback);
};
/***************************************************************************
Machine
***************************************************************************/
void babbage_state::machine_start()
{
}
void babbage_state::machine_reset()
{
}
/***************************************************************************
Address Map
***************************************************************************/
static ADDRESS_MAP_START( babbage_map, AS_PROGRAM, 8, babbage_state )
ADDRESS_MAP_GLOBAL_MASK(0x3fff)
AM_RANGE(0x0000, 0x07ff) AM_ROM
AM_RANGE(0x1000, 0x17ff) AM_RAM
ADDRESS_MAP_END
static ADDRESS_MAP_START( babbage_io, AS_IO, 8, babbage_state )
ADDRESS_MAP_GLOBAL_MASK(0xff)
AM_RANGE(0x00, 0x03) AM_DEVREADWRITE("z80ctc", z80ctc_device, read, write)
AM_RANGE(0x10, 0x13) AM_DEVREADWRITE("z80pio_1", z80pio_device, read_alt, write_alt)
AM_RANGE(0x20, 0x23) AM_DEVREADWRITE("z80pio_2", z80pio_device, read_alt, write_alt)
ADDRESS_MAP_END
/**************************************************************************
Keyboard Layout
***************************************************************************/
// no idea of the actual key matrix
static INPUT_PORTS_START( babbage )
PORT_START("X0")
PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_CHAR('0')
PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("4") PORT_CODE(KEYCODE_4) PORT_CHAR('4')
PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("8") PORT_CODE(KEYCODE_8) PORT_CHAR('8')
PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('C')
PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("GO") PORT_CODE(KEYCODE_X) PORT_CHAR('X')
PORT_START("X1")
PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("1") PORT_CODE(KEYCODE_1) PORT_CHAR('1')
PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("5") PORT_CODE(KEYCODE_5) PORT_CHAR('5')
PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("9") PORT_CODE(KEYCODE_9) PORT_CHAR('9')
PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('D')
PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("AD") PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-')
PORT_START("X2")
PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("2") PORT_CODE(KEYCODE_2) PORT_CHAR('2')
PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("6") PORT_CODE(KEYCODE_6) PORT_CHAR('6')
PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('A')
PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('E')
PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("DA") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('=')
PORT_START("X3")
PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("3") PORT_CODE(KEYCODE_3) PORT_CHAR('3')
PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("7") PORT_CODE(KEYCODE_7) PORT_CHAR('7')
PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('B')
PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('F')
PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("INC") PORT_CODE(KEYCODE_UP) PORT_CHAR('^')
INPUT_PORTS_END
/* Z80-CTC Interface */
WRITE_LINE_MEMBER( babbage_state::ctc_z0_w )
{
}
WRITE_LINE_MEMBER( babbage_state::ctc_z1_w )
{
}
WRITE_LINE_MEMBER( babbage_state::ctc_z2_w )
{
}
static Z80CTC_INTERFACE( babbage_ctc_intf )
{
DEVCB_CPU_INPUT_LINE("maincpu", INPUT_LINE_IRQ0), /* interrupt handler */
DEVCB_DRIVER_LINE_MEMBER(babbage_state, ctc_z0_w), /* ZC/TO0 callback */
DEVCB_DRIVER_LINE_MEMBER(babbage_state, ctc_z1_w), /* ZC/TO1 callback */
DEVCB_DRIVER_LINE_MEMBER(babbage_state, ctc_z2_w) /* ZC/TO2 callback */
};
/* Z80-PIO Interface */
// The 8 LEDs
// bios never writes here - you need to set PIO for output yourself - see test program above
WRITE8_MEMBER( babbage_state::pio1_b_w )
{
char ledname[8];
for (int i = 0; i < 8; i++)
{
sprintf(ledname,"led%d",i);
output_set_value(ledname, BIT(data, i));
}
}
static Z80PIO_INTERFACE( babbage_z80pio1_intf )
{
DEVCB_CPU_INPUT_LINE("maincpu", INPUT_LINE_IRQ0), /* int callback */
DEVCB_NULL, /* port a read */
DEVCB_NULL, /* port a write */
DEVCB_NULL, /* ready a */
DEVCB_NULL, /* port b read */
DEVCB_DRIVER_MEMBER(babbage_state, pio1_b_w), /* port b write */
DEVCB_NULL /* ready b */
};
READ8_MEMBER( babbage_state::pio2_a_r )
{
machine().device("maincpu")->execute().set_input_line(0, CLEAR_LINE); // release interrupt
return m_key;
}
WRITE8_MEMBER( babbage_state::pio2_b_w )
{
if (BIT(data, 7))
m_step = false;
else
if (!m_step)
{
m_segment = data;
m_step = true;
}
else
output_set_digit_value(data, m_segment);
}
static Z80PIO_INTERFACE( babbage_z80pio2_intf )
{
DEVCB_CPU_INPUT_LINE("maincpu", INPUT_LINE_IRQ0), /* int callback */
DEVCB_DRIVER_MEMBER(babbage_state, pio2_a_r), /* port a read */
DEVCB_NULL, /* port a write */
DEVCB_NULL, /* ready a */
DEVCB_NULL, /* port b read */
DEVCB_DRIVER_MEMBER(babbage_state, pio2_b_w), /* port b write */
DEVCB_NULL /* ready b */
};
static const z80_daisy_config babbage_daisy_chain[] =
{// need to check the order
{ "z80pio_1" },
{ "z80pio_2" },
{ "z80ctc" },
{ NULL }
};
TIMER_DEVICE_CALLBACK_MEMBER(babbage_state::keyboard_callback)
{
UINT8 i, j, inp;
char kbdrow[6];
UINT8 data = 0xff;
for (i = 0; i < 4; i++)
{
sprintf(kbdrow,"X%X",i);
inp = machine().root_device().ioport(kbdrow)->read();
for (j = 0; j < 5; j++)
if (BIT(inp, j))
data = (j << 2) | i;
}
/* make sure only one keystroke */
if (data != m_prev_key)
m_prev_key = data;
else
data = 0xff;
/* while key is down, activate strobe. When key released, deactivate strobe which causes an interrupt */
if (data < 0xff)
{
m_key = data;
m_pio_2->strobe(0, 0);
}
else
m_pio_2->strobe(0, 1);
}
/***************************************************************************
Machine driver
***************************************************************************/
static MACHINE_CONFIG_START( babbage, babbage_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu", Z80, MAIN_CLOCK) //2.5MHz
MCFG_CPU_PROGRAM_MAP(babbage_map)
MCFG_CPU_IO_MAP(babbage_io)
MCFG_CPU_CONFIG(babbage_daisy_chain)
/* video hardware */
MCFG_DEFAULT_LAYOUT(layout_babbage)
/* Devices */
MCFG_Z80CTC_ADD( "z80ctc", MAIN_CLOCK, babbage_ctc_intf)
MCFG_Z80PIO_ADD( "z80pio_1", MAIN_CLOCK, babbage_z80pio1_intf )
MCFG_Z80PIO_ADD( "z80pio_2", MAIN_CLOCK, babbage_z80pio2_intf )
MCFG_TIMER_DRIVER_ADD_PERIODIC("keyboard_timer", babbage_state, keyboard_callback, attotime::from_hz(30))
MACHINE_CONFIG_END
/***************************************************************************
Game driver
***************************************************************************/
ROM_START(babbage)
ROM_REGION(0x10000, "maincpu", ROMREGION_ERASEFF)
ROM_LOAD("mon.rom", 0x0000, 0x0200, CRC(469bd607) SHA1(8f3489a0f96de6a03b05c1ee01b89d9848f4b152) )
ROM_END
/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME */
COMP( 1986, babbage, 0, 0, babbage, babbage, driver_device, 0, "Mr Takafumi Aihara", "Babbage-2nd" , GAME_NO_SOUND_HW )
Reference in New Issue View Git Blame Copy Permalink