mirror of
https://github.com/holub/mame
synced 2025-06-04 11:56:28 +03:00
a2bdecb071
p.s. I tested several games/systems and I triple checked the diff to be sure I did not make any copy and paste mistake in the 195 files touched by this, but let me know if any system suddenly stops working!
345 lines
13 KiB
C
345 lines
13 KiB
C
// license:MAME
|
|
// copyright-holders:Miodrag Milanovic, Robbbert
|
|
/***************************************************************************
|
|
|
|
|
|
|
|
NEC TK80 / MIKROLAB KR580IK80
|
|
*****************************
|
|
TK80 driver by Robbbert
|
|
Mikrolab driver by Micko
|
|
Merged by Robbbert.
|
|
|
|
TK80 (Training Kit 80) considered to be Japan's first home computer.
|
|
It consisted of 25 keys and 8 LED digits, and was programmed in hex.
|
|
The Mikrolab is a Russian clone which appears to be almost completely identical.
|
|
|
|
TK85 seems to be the same as TK80, except is has a larger ROM. No
|
|
schematics etc are available. Thanks to 'Nama' who dumped the rom.
|
|
It has 25 keys, so a few aren't defined yet.
|
|
|
|
ND-80Z : http://www.alles.or.jp/~thisida/nd80z3syokai.html (newer version)
|
|
Like the TK85, it has a 2KB rom. Thanks again to 'Nama' who dumped it.
|
|
|
|
When booted, the system begins at 0000 which is ROM. You need to change the
|
|
address to 8000 before entering a program. Here is a test to paste in:
|
|
8000-11^22^33^44^55^66^77^88^99^8000-
|
|
Press the right-arrow to confirm data has been entered.
|
|
|
|
Operation:
|
|
4 digits at left is the address; 2 digits at right is the data.
|
|
As you increment addresses, the middle 2 digits show the previous byte.
|
|
You can enter 4 digits, and pressing 'ADRS SET' will transfer this info
|
|
to the left, thus setting the address to this value. Press 'WRITE INCR' to
|
|
store new data and increment the address. Press 'READ INCR' and 'READ DECR'
|
|
to scan through data without updating it. Other keys unknown/not implemented.
|
|
|
|
ToDo:
|
|
- Add storage
|
|
|
|
|
|
|
|
ICS8080
|
|
- Keys labels are correct, but which key is which is not known
|
|
- Character B is corrupt
|
|
- Operation is different to the other systems
|
|
|
|
****************************************************************************/
|
|
|
|
#include "emu.h"
|
|
#include "cpu/i8085/i8085.h"
|
|
#include "machine/i8255.h"
|
|
#include "machine/keyboard.h"
|
|
#include "tk80.lh"
|
|
|
|
|
|
class tk80_state : public driver_device
|
|
{
|
|
public:
|
|
tk80_state(const machine_config &mconfig, device_type type, const char *tag)
|
|
: driver_device(mconfig, type, tag)
|
|
, m_maincpu(*this, "maincpu")
|
|
{ }
|
|
|
|
DECLARE_READ8_MEMBER(key_matrix_r);
|
|
DECLARE_READ8_MEMBER(nd80z_key_r);
|
|
DECLARE_READ8_MEMBER(serial_r);
|
|
DECLARE_WRITE8_MEMBER(serial_w);
|
|
DECLARE_WRITE8_MEMBER(mikrolab_serial_w);
|
|
DECLARE_READ8_MEMBER(display_r);
|
|
DECLARE_WRITE8_MEMBER(display_w);
|
|
UINT8 m_term_data;
|
|
UINT8 m_keyb_press;
|
|
UINT8 m_keyb_press_flag;
|
|
UINT8 m_shift_press_flag;
|
|
UINT8 m_ppi_portc;
|
|
required_device<cpu_device> m_maincpu;
|
|
};
|
|
|
|
|
|
READ8_MEMBER( tk80_state::display_r )
|
|
{
|
|
return output_get_digit_value(offset);
|
|
}
|
|
|
|
WRITE8_MEMBER( tk80_state::display_w )
|
|
{
|
|
output_set_digit_value(offset, data);
|
|
}
|
|
|
|
static ADDRESS_MAP_START(tk80_mem, AS_PROGRAM, 8, tk80_state)
|
|
ADDRESS_MAP_UNMAP_HIGH
|
|
ADDRESS_MAP_GLOBAL_MASK(0x83ff) // A10-14 not connected
|
|
AM_RANGE(0x0000, 0x02ff) AM_ROM
|
|
AM_RANGE(0x0300, 0x03ff) AM_RAM // EEPROM
|
|
AM_RANGE(0x8000, 0x83f7) AM_RAM // RAM
|
|
AM_RANGE(0x83f8, 0x83ff) AM_RAM AM_READWRITE(display_r,display_w)
|
|
ADDRESS_MAP_END
|
|
|
|
static ADDRESS_MAP_START(tk85_mem, AS_PROGRAM, 8, tk80_state)
|
|
ADDRESS_MAP_UNMAP_HIGH
|
|
ADDRESS_MAP_GLOBAL_MASK(0x87ff) // A10-14 not connected
|
|
AM_RANGE(0x0000, 0x07ff) AM_ROM
|
|
AM_RANGE(0x8000, 0x83f7) AM_RAM
|
|
AM_RANGE(0x83f8, 0x83ff) AM_RAM AM_READWRITE(display_r,display_w)
|
|
ADDRESS_MAP_END
|
|
|
|
static ADDRESS_MAP_START(ics8080_mem, AS_PROGRAM, 8, tk80_state)
|
|
ADDRESS_MAP_UNMAP_HIGH
|
|
//ADDRESS_MAP_GLOBAL_MASK(0x87ff) // A10-14 not connected
|
|
AM_RANGE(0x0000, 0x1fff) AM_ROM
|
|
AM_RANGE(0x8000, 0x83f7) AM_RAM
|
|
AM_RANGE(0x83f8, 0x83ff) AM_RAM AM_READWRITE(display_r,display_w)
|
|
AM_RANGE(0x8400, 0x8fff) AM_RAM
|
|
ADDRESS_MAP_END
|
|
|
|
static ADDRESS_MAP_START(tk80_io, AS_IO, 8, tk80_state)
|
|
ADDRESS_MAP_UNMAP_HIGH
|
|
ADDRESS_MAP_GLOBAL_MASK(0x03)
|
|
AM_RANGE(0x00, 0x03) AM_DEVREADWRITE("ppi8255", i8255_device, read, write)
|
|
ADDRESS_MAP_END
|
|
|
|
static ADDRESS_MAP_START(mikrolab_io, AS_IO, 8, tk80_state)
|
|
ADDRESS_MAP_UNMAP_HIGH
|
|
ADDRESS_MAP_GLOBAL_MASK(0x03)
|
|
AM_RANGE(0x00, 0x03) AM_DEVREADWRITE("ppi8255", i8255_device, read, write)
|
|
ADDRESS_MAP_END
|
|
|
|
static ADDRESS_MAP_START(nd80z_io, AS_IO, 8, tk80_state)
|
|
ADDRESS_MAP_UNMAP_HIGH
|
|
ADDRESS_MAP_GLOBAL_MASK(0x03)
|
|
AM_RANGE(0x00, 0x03) AM_DEVREADWRITE("ppi8255", i8255_device, read, write)
|
|
ADDRESS_MAP_END
|
|
|
|
/* Input ports */
|
|
static INPUT_PORTS_START( tk80 )
|
|
PORT_START("X0") /* KEY ROW 0 */
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_CHAR('0')
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("1") PORT_CODE(KEYCODE_1) PORT_CHAR('1')
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("2") PORT_CODE(KEYCODE_2) PORT_CHAR('2')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("3") PORT_CODE(KEYCODE_3) PORT_CHAR('3')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("4") PORT_CODE(KEYCODE_4) PORT_CHAR('4')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("5") PORT_CODE(KEYCODE_5) PORT_CHAR('5')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("6") PORT_CODE(KEYCODE_6) PORT_CHAR('6')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("7") PORT_CODE(KEYCODE_7) PORT_CHAR('7')
|
|
|
|
PORT_START("X1") /* KEY ROW 1 */
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("8") PORT_CODE(KEYCODE_8) PORT_CHAR('8')
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("9") PORT_CODE(KEYCODE_9) PORT_CHAR('9')
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('A')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('B')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('C')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('D')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('E')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('F')
|
|
|
|
PORT_START("X2") /* KEY ROW 2 */
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("RUN") PORT_CODE(KEYCODE_X) PORT_CHAR('X')
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("RET") PORT_CODE(KEYCODE_W)
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("ADRS SET") PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("READ DECR") PORT_CODE(KEYCODE_LEFT)
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("READ INCR") PORT_CODE(KEYCODE_RIGHT)
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("WRITE INCR") PORT_CODE(KEYCODE_UP) PORT_CHAR('^')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("STORE DATA") PORT_CODE(KEYCODE_I)
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("LOAD DATA") PORT_CODE(KEYCODE_O)
|
|
INPUT_PORTS_END
|
|
|
|
INPUT_PORTS_START( mikrolab )
|
|
PORT_INCLUDE( tk80 )
|
|
PORT_MODIFY("X2")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("RUN") PORT_CODE(KEYCODE_X) PORT_CHAR('X')
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("RESUME") PORT_CODE(KEYCODE_W)
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("ADDRESS") PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("-") PORT_CODE(KEYCODE_LEFT)
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("+") PORT_CODE(KEYCODE_RIGHT)
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("SAVE") PORT_CODE(KEYCODE_UP) PORT_CHAR('^')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("END") PORT_CODE(KEYCODE_I)
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("ENTER") PORT_CODE(KEYCODE_O)
|
|
INPUT_PORTS_END
|
|
|
|
INPUT_PORTS_START( ics8080 )
|
|
PORT_INCLUDE( tk80 )
|
|
PORT_MODIFY("X2")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("ADDR") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('=')
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("MEM") PORT_CODE(KEYCODE_T)
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("BRK") PORT_CODE(KEYCODE_Y)
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("CLR") PORT_CODE(KEYCODE_U)
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("STEP") PORT_CODE(KEYCODE_I)
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("NEXT") PORT_CODE(KEYCODE_UP) PORT_CHAR('^')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("REG") PORT_CODE(KEYCODE_R)
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("RUN") PORT_CODE(KEYCODE_O)
|
|
INPUT_PORTS_END
|
|
|
|
READ8_MEMBER( tk80_state::key_matrix_r )
|
|
{
|
|
// PA0-7 keyscan in
|
|
|
|
UINT8 data = 0xff;
|
|
|
|
if (BIT(m_ppi_portc, 4))
|
|
data &= ioport("X0")->read();
|
|
if (BIT(m_ppi_portc, 5))
|
|
data &= ioport("X1")->read();
|
|
if (BIT(m_ppi_portc, 6))
|
|
data &= ioport("X2")->read();
|
|
|
|
return data;
|
|
}
|
|
|
|
READ8_MEMBER( tk80_state::nd80z_key_r )
|
|
{
|
|
// PA0-7 keyscan in
|
|
|
|
UINT8 data = 0xff, row = m_ppi_portc & 7;
|
|
if (row == 6)
|
|
data &= ioport("X0")->read();
|
|
else
|
|
if (row == 5)
|
|
data &= ioport("X1")->read();
|
|
else
|
|
if (row == 3)
|
|
data &= ioport("X2")->read();
|
|
|
|
return data;
|
|
}
|
|
|
|
READ8_MEMBER( tk80_state::serial_r )
|
|
{
|
|
// PB0 - serial in
|
|
//printf("B R\n");
|
|
|
|
return 0;
|
|
}
|
|
|
|
WRITE8_MEMBER( tk80_state::serial_w )
|
|
{
|
|
// PC0 - serial out
|
|
// PC4-6 keyscan out
|
|
// PC7 - display on/off
|
|
m_ppi_portc = data ^ 0x70;
|
|
}
|
|
|
|
WRITE8_MEMBER( tk80_state::mikrolab_serial_w )
|
|
{
|
|
// PC0 - serial out
|
|
// PC4-6 keyscan out
|
|
// PC7 - display on/off
|
|
m_ppi_portc = data;
|
|
}
|
|
|
|
static MACHINE_CONFIG_START( tk80, tk80_state )
|
|
/* basic machine hardware */
|
|
MCFG_CPU_ADD("maincpu",I8080, XTAL_1MHz) // 18.432 / 9
|
|
MCFG_CPU_PROGRAM_MAP(tk80_mem)
|
|
MCFG_CPU_IO_MAP(tk80_io)
|
|
|
|
/* video hardware */
|
|
MCFG_DEFAULT_LAYOUT(layout_tk80)
|
|
|
|
/* Devices */
|
|
MCFG_DEVICE_ADD("ppi8255", I8255, 0)
|
|
MCFG_I8255_IN_PORTA_CB(READ8(tk80_state, key_matrix_r))
|
|
MCFG_I8255_IN_PORTB_CB(READ8(tk80_state, serial_r))
|
|
MCFG_I8255_OUT_PORTC_CB(WRITE8(tk80_state, serial_w))
|
|
MACHINE_CONFIG_END
|
|
|
|
static MACHINE_CONFIG_DERIVED( mikrolab, tk80 )
|
|
MCFG_CPU_MODIFY("maincpu")
|
|
MCFG_CPU_PROGRAM_MAP(tk85_mem)
|
|
MCFG_CPU_IO_MAP(mikrolab_io)
|
|
|
|
/* Devices */
|
|
MCFG_DEVICE_REMOVE("ppi8255")
|
|
MCFG_DEVICE_ADD("ppi8255", I8255, 0)
|
|
MCFG_I8255_IN_PORTA_CB(READ8(tk80_state, key_matrix_r))
|
|
MCFG_I8255_IN_PORTB_CB(READ8(tk80_state, serial_r))
|
|
MCFG_I8255_OUT_PORTC_CB(WRITE8(tk80_state, mikrolab_serial_w))
|
|
MACHINE_CONFIG_END
|
|
|
|
static MACHINE_CONFIG_DERIVED( nd80z, tk80 )
|
|
MCFG_CPU_MODIFY("maincpu")
|
|
MCFG_CPU_PROGRAM_MAP(tk85_mem)
|
|
MCFG_CPU_IO_MAP(nd80z_io)
|
|
|
|
/* Devices */
|
|
MCFG_DEVICE_REMOVE("ppi8255")
|
|
MCFG_DEVICE_ADD("ppi8255", I8255, 0)
|
|
MCFG_I8255_IN_PORTA_CB(READ8(tk80_state, nd80z_key_r))
|
|
MCFG_I8255_IN_PORTB_CB(READ8(tk80_state, serial_r))
|
|
MCFG_I8255_OUT_PORTC_CB(WRITE8(tk80_state, mikrolab_serial_w))
|
|
MACHINE_CONFIG_END
|
|
|
|
static MACHINE_CONFIG_DERIVED( tk85, tk80 )
|
|
MCFG_CPU_MODIFY("maincpu")
|
|
MCFG_CPU_PROGRAM_MAP(tk85_mem)
|
|
MACHINE_CONFIG_END
|
|
|
|
static MACHINE_CONFIG_DERIVED( ics8080, tk80 )
|
|
MCFG_CPU_MODIFY("maincpu")
|
|
MCFG_CPU_PROGRAM_MAP(ics8080_mem)
|
|
MACHINE_CONFIG_END
|
|
|
|
|
|
/* ROM definition */
|
|
ROM_START( tk80 )
|
|
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
|
ROM_LOAD( "tk80-1.bin", 0x0000, 0x0100, CRC(897295e4) SHA1(50fb42b07252fc48044830e2f228e218fc59481c))
|
|
ROM_LOAD( "tk80-2.bin", 0x0100, 0x0100, CRC(d54480c3) SHA1(354962aca1710ac75b40c8c23a6c303938f9d596))
|
|
ROM_LOAD( "tk80-3.bin", 0x0200, 0x0100, CRC(8d4b02ef) SHA1(2b5a1ee8f97db23ffec48b96f12986461024c995))
|
|
ROM_END
|
|
|
|
ROM_START( ics8080 )
|
|
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
|
ROM_LOAD( "amtsmnonv27.rom1", 0x0000, 0x0800, CRC(82d40dc5) SHA1(9215457101c3b9b8706dbebe902196494993a282) )
|
|
ROM_LOAD( "thmcplv11.rom2", 0x0800, 0x0800, CRC(51784f70) SHA1(c05c75d566c4ff8f681eba29cd48e72b95be89e0) )
|
|
ROM_LOAD( "tunev08.rom3", 0x1000, 0x0800, CRC(aae2344b) SHA1(b02b22cadb43c7ac26c43d443688b9b19d465973) )
|
|
ROM_LOAD( "mtrspdv12.rom4", 0x1800, 0x0800, CRC(920dda33) SHA1(631ee5e6314d9788e7be0ae00a97b55693eeb855) )
|
|
ROM_END
|
|
|
|
ROM_START( mikrolab )
|
|
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
|
/* these dumps are taken from PDF so need check with real device */
|
|
ROM_LOAD( "rom-1.bin", 0x0000, 0x0200, BAD_DUMP CRC(eed5f23b) SHA1(c82f7a16ce44c4fcbcb333245555feae1fcdf058))
|
|
ROM_LOAD( "rom-2.bin", 0x0200, 0x0200, BAD_DUMP CRC(726a224f) SHA1(7ed8d2c6dd4fb7836475e207e1972e33a6a91d2f))
|
|
ROM_END
|
|
|
|
ROM_START( nectk85 )
|
|
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
|
ROM_LOAD( "tk85.bin", 0x0000, 0x0800, CRC(8a0b6d7e) SHA1(6acc8c04990692b08929043ccf638761b7301def))
|
|
ROM_END
|
|
|
|
ROM_START( nd80z )
|
|
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
|
ROM_LOAD( "nd80z.bin", 0x0000, 0x0800, CRC(fe829f1d) SHA1(6fff31884b8d984076d4450ca3a3e48efadeb648))
|
|
ROM_END
|
|
|
|
|
|
/* Driver */
|
|
|
|
/* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */
|
|
COMP( 1976, tk80, 0, 0, tk80, tk80, driver_device, 0, "Nippon Electronic Company", "TK-80", GAME_NO_SOUND_HW)
|
|
COMP( 1980, nectk85, tk80, 0, tk85, tk80, driver_device, 0, "Nippon Electronic Company", "TK-85", GAME_NO_SOUND_HW)
|
|
COMP( 19??, nd80z, tk80, 0, nd80z, tk80, driver_device, 0, "Chunichi", "ND-80Z", GAME_NO_SOUND_HW)
|
|
COMP( 19??, mikrolab, tk80, 0, mikrolab, mikrolab, driver_device, 0, "<unknown>", "Mikrolab KR580IK80", GAME_NO_SOUND_HW)
|
|
COMP( 19??, ics8080, tk80, 0, ics8080, ics8080, driver_device, 0, "<unknown>", "ICS8080", GAME_NOT_WORKING | GAME_NO_SOUND_HW)
|