mirror of
https://github.com/holub/mame
synced 2025-07-05 01:48:29 +03:00
(MESS) New skeleton [Robbbert]
------------------------------------------------- ICS8080 Trainer
This commit is contained in:
parent
52b7438dc1
commit
a10b004531
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6584,6 +6584,7 @@ src/mess/drivers/tiki100.c svneol=native#text/plain
|
|||||||
src/mess/drivers/tim011.c svneol=native#text/plain
|
src/mess/drivers/tim011.c svneol=native#text/plain
|
||||||
src/mess/drivers/tim100.c svneol=native#text/plain
|
src/mess/drivers/tim100.c svneol=native#text/plain
|
||||||
src/mess/drivers/timex.c svneol=native#text/plain
|
src/mess/drivers/timex.c svneol=native#text/plain
|
||||||
|
src/mess/drivers/tk80.c svneol=native#text/plain
|
||||||
src/mess/drivers/tk80bs.c svneol=native#text/plain
|
src/mess/drivers/tk80bs.c svneol=native#text/plain
|
||||||
src/mess/drivers/tm990189.c svneol=native#text/plain
|
src/mess/drivers/tm990189.c svneol=native#text/plain
|
||||||
src/mess/drivers/tmc1800.c svneol=native#text/plain
|
src/mess/drivers/tmc1800.c svneol=native#text/plain
|
||||||
|
362
src/mess/drivers/tk80.c
Normal file
362
src/mess/drivers/tk80.c
Normal file
@ -0,0 +1,362 @@
|
|||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
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_0", 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_1", 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_2", 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 I8255_INTERFACE( ppi_intf_0 )
|
||||||
|
{
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, key_matrix_r), /* Port A read */
|
||||||
|
DEVCB_NULL, /* Port A write */
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, serial_r), /* Port B read */
|
||||||
|
DEVCB_NULL, /* Port B write */
|
||||||
|
DEVCB_NULL, /* Port C read */
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, serial_w) /* Port C write */
|
||||||
|
};
|
||||||
|
|
||||||
|
static I8255_INTERFACE( ppi_intf_1 )
|
||||||
|
{
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, key_matrix_r), /* Port A read */
|
||||||
|
DEVCB_NULL, /* Port A write */
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, serial_r), /* Port B read */
|
||||||
|
DEVCB_NULL, /* Port B write */
|
||||||
|
DEVCB_NULL, /* Port C read */
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, mikrolab_serial_w) /* Port C write */
|
||||||
|
};
|
||||||
|
|
||||||
|
static I8255_INTERFACE( ppi_intf_2 )
|
||||||
|
{
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, nd80z_key_r), /* Port A read */
|
||||||
|
DEVCB_NULL, /* Port A write */
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, serial_r), /* Port B read */
|
||||||
|
DEVCB_NULL, /* Port B write */
|
||||||
|
DEVCB_NULL, /* Port C read */
|
||||||
|
DEVCB_DRIVER_MEMBER(tk80_state, mikrolab_serial_w) /* Port C write */
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
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_I8255_ADD( "ppi8255_0", ppi_intf_0 )
|
||||||
|
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_0")
|
||||||
|
MCFG_I8255_ADD( "ppi8255_1", ppi_intf_1 )
|
||||||
|
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_0")
|
||||||
|
MCFG_I8255_ADD( "ppi8255_2", ppi_intf_2 )
|
||||||
|
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)
|
@ -1,41 +1,6 @@
|
|||||||
/***************************************************************************
|
/***************************************************************************
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
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
|
|
||||||
|
|
||||||
|
|
||||||
NEC TK80BS
|
NEC TK80BS
|
||||||
**********
|
**********
|
||||||
TK-80BS (c) 1980 NEC
|
TK-80BS (c) 1980 NEC
|
||||||
@ -56,27 +21,20 @@ TODO:
|
|||||||
#include "cpu/i8085/i8085.h"
|
#include "cpu/i8085/i8085.h"
|
||||||
#include "machine/i8255.h"
|
#include "machine/i8255.h"
|
||||||
#include "machine/keyboard.h"
|
#include "machine/keyboard.h"
|
||||||
#include "tk80.lh"
|
|
||||||
|
|
||||||
|
|
||||||
class tk80bs_state : public driver_device
|
class tk80bs_state : public driver_device
|
||||||
{
|
{
|
||||||
public:
|
public:
|
||||||
tk80bs_state(const machine_config &mconfig, device_type type, const char *tag)
|
tk80bs_state(const machine_config &mconfig, device_type type, const char *tag)
|
||||||
: driver_device(mconfig, type, tag),
|
: driver_device(mconfig, type, tag)
|
||||||
m_maincpu(*this, "maincpu"),
|
, m_maincpu(*this, "maincpu")
|
||||||
m_ppi8255_2(*this, "ppi8255_2"),
|
, m_ppi(*this, "ppi")
|
||||||
m_p_videoram(*this, "videoram"){ }
|
, m_p_videoram(*this, "videoram")
|
||||||
|
{ }
|
||||||
|
|
||||||
DECLARE_READ8_MEMBER(ppi_custom_r);
|
DECLARE_READ8_MEMBER(ppi_custom_r);
|
||||||
DECLARE_WRITE8_MEMBER(ppi_custom_w);
|
DECLARE_WRITE8_MEMBER(ppi_custom_w);
|
||||||
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);
|
|
||||||
DECLARE_WRITE8_MEMBER(kbd_put);
|
DECLARE_WRITE8_MEMBER(kbd_put);
|
||||||
DECLARE_READ8_MEMBER(port_a_r);
|
DECLARE_READ8_MEMBER(port_a_r);
|
||||||
DECLARE_READ8_MEMBER(port_b_r);
|
DECLARE_READ8_MEMBER(port_b_r);
|
||||||
@ -85,244 +43,12 @@ public:
|
|||||||
UINT8 m_keyb_press_flag;
|
UINT8 m_keyb_press_flag;
|
||||||
UINT8 m_shift_press_flag;
|
UINT8 m_shift_press_flag;
|
||||||
UINT8 m_ppi_portc;
|
UINT8 m_ppi_portc;
|
||||||
DECLARE_MACHINE_RESET(tk80);
|
|
||||||
DECLARE_MACHINE_START(tk80bs);
|
|
||||||
DECLARE_MACHINE_RESET(tk80bs);
|
|
||||||
DECLARE_VIDEO_START(tk80bs);
|
|
||||||
UINT32 screen_update_tk80bs(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
UINT32 screen_update_tk80bs(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
||||||
required_device<cpu_device> m_maincpu;
|
required_device<cpu_device> m_maincpu;
|
||||||
optional_device<i8255_device> m_ppi8255_2;
|
required_device<i8255_device> m_ppi;
|
||||||
optional_shared_ptr<UINT8> m_p_videoram;
|
required_shared_ptr<UINT8> m_p_videoram;
|
||||||
};
|
};
|
||||||
|
|
||||||
/************************************************* TK80 ******************************************/
|
|
||||||
|
|
||||||
READ8_MEMBER( tk80bs_state::display_r )
|
|
||||||
{
|
|
||||||
return output_get_digit_value(offset);
|
|
||||||
}
|
|
||||||
|
|
||||||
WRITE8_MEMBER( tk80bs_state::display_w )
|
|
||||||
{
|
|
||||||
output_set_digit_value(offset, data);
|
|
||||||
}
|
|
||||||
|
|
||||||
static ADDRESS_MAP_START(tk80_mem, AS_PROGRAM, 8, tk80bs_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, tk80bs_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(tk80_io, AS_IO, 8, tk80bs_state)
|
|
||||||
ADDRESS_MAP_UNMAP_HIGH
|
|
||||||
ADDRESS_MAP_GLOBAL_MASK(0xff) // possibly should be 3
|
|
||||||
AM_RANGE(0xf8, 0xfb) AM_DEVREADWRITE("ppi8255_0", i8255_device, read, write)
|
|
||||||
ADDRESS_MAP_END
|
|
||||||
|
|
||||||
static ADDRESS_MAP_START(mikrolab_io, AS_IO, 8, tk80bs_state)
|
|
||||||
ADDRESS_MAP_UNMAP_HIGH
|
|
||||||
ADDRESS_MAP_GLOBAL_MASK(0xff) // possibly should be 3
|
|
||||||
AM_RANGE(0xf8, 0xfb) AM_DEVREADWRITE("ppi8255_1", i8255_device, read, write)
|
|
||||||
ADDRESS_MAP_END
|
|
||||||
|
|
||||||
static ADDRESS_MAP_START(nd80z_io, AS_IO, 8, tk80bs_state)
|
|
||||||
ADDRESS_MAP_UNMAP_HIGH
|
|
||||||
ADDRESS_MAP_GLOBAL_MASK(0xff) // possibly should be 3
|
|
||||||
AM_RANGE(0xf8, 0xfb) AM_DEVREADWRITE("ppi8255_3", 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
|
|
||||||
|
|
||||||
MACHINE_RESET_MEMBER(tk80bs_state,tk80)
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
READ8_MEMBER( tk80bs_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( tk80bs_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( tk80bs_state::serial_r )
|
|
||||||
{
|
|
||||||
// PB0 - serial in
|
|
||||||
//printf("B R\n");
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
WRITE8_MEMBER( tk80bs_state::serial_w )
|
|
||||||
{
|
|
||||||
// PC0 - serial out
|
|
||||||
// PC4-6 keyscan out
|
|
||||||
// PC7 - display on/off
|
|
||||||
m_ppi_portc = data ^ 0x70;
|
|
||||||
}
|
|
||||||
|
|
||||||
WRITE8_MEMBER( tk80bs_state::mikrolab_serial_w )
|
|
||||||
{
|
|
||||||
// PC0 - serial out
|
|
||||||
// PC4-6 keyscan out
|
|
||||||
// PC7 - display on/off
|
|
||||||
m_ppi_portc = data;
|
|
||||||
}
|
|
||||||
|
|
||||||
static I8255_INTERFACE( ppi8255_intf_0 )
|
|
||||||
{
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, key_matrix_r), /* Port A read */
|
|
||||||
DEVCB_NULL, /* Port A write */
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, serial_r), /* Port B read */
|
|
||||||
DEVCB_NULL, /* Port B write */
|
|
||||||
DEVCB_NULL, /* Port C read */
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, serial_w) /* Port C write */
|
|
||||||
};
|
|
||||||
|
|
||||||
static I8255_INTERFACE( ppi8255_intf_1 )
|
|
||||||
{
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, key_matrix_r), /* Port A read */
|
|
||||||
DEVCB_NULL, /* Port A write */
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, serial_r), /* Port B read */
|
|
||||||
DEVCB_NULL, /* Port B write */
|
|
||||||
DEVCB_NULL, /* Port C read */
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, mikrolab_serial_w) /* Port C write */
|
|
||||||
};
|
|
||||||
|
|
||||||
static I8255_INTERFACE( ppi8255_intf_3 )
|
|
||||||
{
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, nd80z_key_r), /* Port A read */
|
|
||||||
DEVCB_NULL, /* Port A write */
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, serial_r), /* Port B read */
|
|
||||||
DEVCB_NULL, /* Port B write */
|
|
||||||
DEVCB_NULL, /* Port C read */
|
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, mikrolab_serial_w) /* Port C write */
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
static MACHINE_CONFIG_START( tk80, tk80bs_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)
|
|
||||||
|
|
||||||
MCFG_MACHINE_RESET_OVERRIDE(tk80bs_state,tk80)
|
|
||||||
|
|
||||||
/* video hardware */
|
|
||||||
MCFG_DEFAULT_LAYOUT(layout_tk80)
|
|
||||||
|
|
||||||
/* Devices */
|
|
||||||
MCFG_I8255_ADD( "ppi8255_0", ppi8255_intf_0 )
|
|
||||||
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_0")
|
|
||||||
MCFG_I8255_ADD( "ppi8255_1", ppi8255_intf_1 )
|
|
||||||
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_0")
|
|
||||||
MCFG_I8255_ADD( "ppi8255_3", ppi8255_intf_3 )
|
|
||||||
MACHINE_CONFIG_END
|
|
||||||
|
|
||||||
static MACHINE_CONFIG_DERIVED( tk85, tk80 )
|
|
||||||
MCFG_CPU_MODIFY("maincpu")
|
|
||||||
MCFG_CPU_PROGRAM_MAP(tk85_mem)
|
|
||||||
MACHINE_CONFIG_END
|
|
||||||
|
|
||||||
/************************************************* TK80BS ****************************************/
|
|
||||||
|
|
||||||
VIDEO_START_MEMBER(tk80bs_state,tk80bs)
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
UINT32 tk80bs_state::screen_update_tk80bs(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
UINT32 tk80bs_state::screen_update_tk80bs(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
||||||
{
|
{
|
||||||
@ -350,11 +76,11 @@ READ8_MEMBER( tk80bs_state::ppi_custom_r )
|
|||||||
switch(offset)
|
switch(offset)
|
||||||
{
|
{
|
||||||
case 1:
|
case 1:
|
||||||
return m_ppi8255_2->read(space, 2);
|
return m_ppi->read(space, 2);
|
||||||
case 2:
|
case 2:
|
||||||
return m_ppi8255_2->read(space, 1);
|
return m_ppi->read(space, 1);
|
||||||
default:
|
default:
|
||||||
return m_ppi8255_2->read(space, offset);
|
return m_ppi->read(space, offset);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -363,13 +89,13 @@ WRITE8_MEMBER( tk80bs_state::ppi_custom_w )
|
|||||||
switch(offset)
|
switch(offset)
|
||||||
{
|
{
|
||||||
case 1:
|
case 1:
|
||||||
m_ppi8255_2->write(space, 2, data);
|
m_ppi->write(space, 2, data);
|
||||||
break;
|
break;
|
||||||
case 2:
|
case 2:
|
||||||
m_ppi8255_2->write(space, 1, data);
|
m_ppi->write(space, 1, data);
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
m_ppi8255_2->write(space, offset, data);
|
m_ppi->write(space, offset, data);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -390,14 +116,6 @@ ADDRESS_MAP_END
|
|||||||
static INPUT_PORTS_START( tk80bs )
|
static INPUT_PORTS_START( tk80bs )
|
||||||
INPUT_PORTS_END
|
INPUT_PORTS_END
|
||||||
|
|
||||||
MACHINE_START_MEMBER(tk80bs_state,tk80bs)
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
MACHINE_RESET_MEMBER(tk80bs_state,tk80bs)
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
READ8_MEMBER( tk80bs_state::port_a_r )
|
READ8_MEMBER( tk80bs_state::port_a_r )
|
||||||
{
|
{
|
||||||
UINT8 ret = m_term_data;
|
UINT8 ret = m_term_data;
|
||||||
@ -410,14 +128,14 @@ READ8_MEMBER( tk80bs_state::port_b_r )
|
|||||||
{
|
{
|
||||||
if (m_term_data)
|
if (m_term_data)
|
||||||
{
|
{
|
||||||
m_ppi8255_2->pc4_w(0); // send a strobe pulse
|
m_ppi->pc4_w(0); // send a strobe pulse
|
||||||
return 0x20;
|
return 0x20;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
static I8255_INTERFACE( ppi8255_intf_2 )
|
static I8255_INTERFACE( ppi_intf )
|
||||||
{
|
{
|
||||||
DEVCB_DRIVER_MEMBER(tk80bs_state, port_a_r), /* Port A read */
|
DEVCB_DRIVER_MEMBER(tk80bs_state, port_a_r), /* Port A read */
|
||||||
DEVCB_NULL, /* Port A write */
|
DEVCB_NULL, /* Port A write */
|
||||||
@ -462,50 +180,22 @@ static MACHINE_CONFIG_START( tk80bs, tk80bs_state )
|
|||||||
MCFG_CPU_ADD("maincpu",I8080, XTAL_1MHz) //unknown clock
|
MCFG_CPU_ADD("maincpu",I8080, XTAL_1MHz) //unknown clock
|
||||||
MCFG_CPU_PROGRAM_MAP(tk80bs_mem)
|
MCFG_CPU_PROGRAM_MAP(tk80bs_mem)
|
||||||
|
|
||||||
MCFG_MACHINE_START_OVERRIDE(tk80bs_state,tk80bs)
|
|
||||||
MCFG_MACHINE_RESET_OVERRIDE(tk80bs_state,tk80bs)
|
|
||||||
|
|
||||||
/* video hardware */
|
/* video hardware */
|
||||||
MCFG_SCREEN_ADD("screen", RASTER)
|
MCFG_SCREEN_ADD("screen", RASTER)
|
||||||
MCFG_SCREEN_REFRESH_RATE(50)
|
MCFG_SCREEN_REFRESH_RATE(50)
|
||||||
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
|
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
|
||||||
MCFG_SCREEN_SIZE(256, 128)
|
MCFG_SCREEN_SIZE(256, 128)
|
||||||
MCFG_SCREEN_VISIBLE_AREA(0, 256-1, 0, 128-1)
|
MCFG_SCREEN_VISIBLE_AREA(0, 256-1, 0, 128-1)
|
||||||
MCFG_VIDEO_START_OVERRIDE(tk80bs_state,tk80bs)
|
|
||||||
MCFG_SCREEN_UPDATE_DRIVER(tk80bs_state, screen_update_tk80bs)
|
MCFG_SCREEN_UPDATE_DRIVER(tk80bs_state, screen_update_tk80bs)
|
||||||
MCFG_PALETTE_LENGTH(2)
|
MCFG_PALETTE_LENGTH(2)
|
||||||
MCFG_PALETTE_INIT_OVERRIDE(driver_device, black_and_white)
|
MCFG_PALETTE_INIT_OVERRIDE(driver_device, black_and_white)
|
||||||
MCFG_GFXDECODE(tk80bs)
|
MCFG_GFXDECODE(tk80bs)
|
||||||
|
|
||||||
/* Devices */
|
/* Devices */
|
||||||
MCFG_I8255_ADD( "ppi8255_2", ppi8255_intf_2 )
|
MCFG_I8255_ADD( "ppi", ppi_intf)
|
||||||
MCFG_ASCII_KEYBOARD_ADD(KEYBOARD_TAG, keyboard_intf)
|
MCFG_ASCII_KEYBOARD_ADD(KEYBOARD_TAG, keyboard_intf)
|
||||||
MACHINE_CONFIG_END
|
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( 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
|
|
||||||
|
|
||||||
ROM_START( tk80bs )
|
ROM_START( tk80bs )
|
||||||
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
||||||
@ -534,9 +224,5 @@ ROM_END
|
|||||||
|
|
||||||
/* Driver */
|
/* Driver */
|
||||||
|
|
||||||
/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
|
/* 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, tk80bs, tk80, 0, tk80bs, tk80bs, driver_device, 0, "Nippon Electronic Company", "TK-80BS", GAME_NOT_WORKING | GAME_NO_SOUND_HW)
|
COMP( 1980, tk80bs, tk80, 0, tk80bs, tk80bs, driver_device, 0, "Nippon Electronic Company", "TK-80BS", GAME_NOT_WORKING | 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)
|
|
||||||
|
@ -2253,3 +2253,4 @@ ibm6580
|
|||||||
zorba
|
zorba
|
||||||
mice
|
mice
|
||||||
lola8a
|
lola8a
|
||||||
|
ics8080
|
||||||
|
@ -2210,12 +2210,13 @@ $(MESSOBJ)/trainer.a: \
|
|||||||
$(MESS_DRIVERS)/babbage.o \
|
$(MESS_DRIVERS)/babbage.o \
|
||||||
$(MESS_DRIVERS)/bob85.o \
|
$(MESS_DRIVERS)/bob85.o \
|
||||||
$(MESS_DRIVERS)/cvicny.o \
|
$(MESS_DRIVERS)/cvicny.o \
|
||||||
$(MESS_DRIVERS)/instruct.o \
|
|
||||||
$(MESS_DRIVERS)/dolphunk.o \
|
$(MESS_DRIVERS)/dolphunk.o \
|
||||||
|
$(MESS_DRIVERS)/instruct.o \
|
||||||
$(MESS_DRIVERS)/mk14.o \
|
$(MESS_DRIVERS)/mk14.o \
|
||||||
$(MESS_DRIVERS)/pro80.o \
|
$(MESS_DRIVERS)/pro80.o \
|
||||||
$(MESS_DRIVERS)/savia84.o \
|
$(MESS_DRIVERS)/savia84.o \
|
||||||
$(MESS_DRIVERS)/selz80.o \
|
$(MESS_DRIVERS)/selz80.o \
|
||||||
|
$(MESS_DRIVERS)/tk80.o \
|
||||||
|
|
||||||
$(MESSOBJ)/trs.a: \
|
$(MESSOBJ)/trs.a: \
|
||||||
$(MESS_MACHINE)/6883sam.o \
|
$(MESS_MACHINE)/6883sam.o \
|
||||||
@ -2552,6 +2553,7 @@ $(MESS_DRIVERS)/fidelz80.o: $(MESS_LAYOUT)/fidelz80.lh \
|
|||||||
$(MESS_LAYOUT)/vsc.lh
|
$(MESS_LAYOUT)/vsc.lh
|
||||||
$(MESS_DRIVERS)/glasgow.o: $(MESS_LAYOUT)/glasgow.lh
|
$(MESS_DRIVERS)/glasgow.o: $(MESS_LAYOUT)/glasgow.lh
|
||||||
$(MESS_DRIVERS)/h8.o: $(MESS_LAYOUT)/h8.lh
|
$(MESS_DRIVERS)/h8.o: $(MESS_LAYOUT)/h8.lh
|
||||||
|
$(MESS_DRIVERS)/ics8080.o: $(MESS_LAYOUT)/ics8080.lh
|
||||||
$(MESS_DRIVERS)/instruct.o: $(MESS_LAYOUT)/instruct.lh
|
$(MESS_DRIVERS)/instruct.o: $(MESS_LAYOUT)/instruct.lh
|
||||||
$(MESS_DRIVERS)/k1003.o: $(MESS_LAYOUT)/k1003.lh
|
$(MESS_DRIVERS)/k1003.o: $(MESS_LAYOUT)/k1003.lh
|
||||||
$(MESS_DRIVERS)/kim1.o: $(MESS_LAYOUT)/kim1.lh
|
$(MESS_DRIVERS)/kim1.o: $(MESS_LAYOUT)/kim1.lh
|
||||||
|
Loading…
Reference in New Issue
Block a user