diff options
Diffstat (limited to 'src/mame/drivers/tk80.c')
-rw-r--r-- | src/mame/drivers/tk80.c | 344 |
1 files changed, 344 insertions, 0 deletions
diff --git a/src/mame/drivers/tk80.c b/src/mame/drivers/tk80.c new file mode 100644 index 00000000000..c6b79cc7d54 --- /dev/null +++ b/src/mame/drivers/tk80.c @@ -0,0 +1,344 @@ +// license:BSD-3-Clause +// 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", MACHINE_NO_SOUND_HW) +COMP( 1980, nectk85, tk80, 0, tk85, tk80, driver_device, 0, "Nippon Electronic Company", "TK-85", MACHINE_NO_SOUND_HW) +COMP( 19??, nd80z, tk80, 0, nd80z, tk80, driver_device, 0, "Chunichi", "ND-80Z", MACHINE_NO_SOUND_HW) +COMP( 19??, mikrolab, tk80, 0, mikrolab, mikrolab, driver_device, 0, "<unknown>", "Mikrolab KR580IK80", MACHINE_NO_SOUND_HW) +COMP( 19??, ics8080, tk80, 0, ics8080, ics8080, driver_device, 0, "<unknown>", "ICS8080", MACHINE_NOT_WORKING | MACHINE_NO_SOUND_HW) |