// license:MAME // copyright-holders:Angelo Salese, Robbbert /*************************************************************************** NEC TK80BS ********** TK-80BS (c) 1980 NEC Preliminary driver by Angelo Salese Various additions by Robbbert The TK80BS (Basic Station) has a plugin keyboard, BASIC in rom, and connected to a tv. TODO: - (try to) dump proper roms, the whole driver is based off fake roms; - bios 0 BASIC doesn't seem to work properly; (It does if you type NEW first) - bios 1 does not boot up because it runs off into the weeds - bios 2 also does that, somehow it starts up anyway, but no commands work ****************************************************************************/ #include "emu.h" #include "cpu/i8085/i8085.h" #include "machine/i8255.h" #include "machine/keyboard.h" #define KEYBOARD_TAG "keyboard" class tk80bs_state : public driver_device { public: tk80bs_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag), m_p_videoram(*this, "videoram"), m_maincpu(*this, "maincpu"), m_ppi(*this, "ppi"), m_gfxdecode(*this, "gfxdecode"), m_palette(*this, "palette") { } DECLARE_READ8_MEMBER(ppi_custom_r); DECLARE_WRITE8_MEMBER(ppi_custom_w); DECLARE_WRITE8_MEMBER(kbd_put); DECLARE_READ8_MEMBER(port_a_r); DECLARE_READ8_MEMBER(port_b_r); UINT32 screen_update_tk80bs(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); required_shared_ptr m_p_videoram; private: UINT8 m_term_data; required_device m_maincpu; required_device m_ppi; required_device m_gfxdecode; required_device m_palette; }; UINT32 tk80bs_state::screen_update_tk80bs(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) { int x,y; int count; count = 0; for(y=0;y<16;y++) { for(x=0;x<32;x++) { int tile = m_p_videoram[count++]; m_gfxdecode->gfx(0)->opaque(bitmap,cliprect, tile, 0, 0, 0, x*8, y*8); } } return 0; } /* A0 and A1 are swapped at the 8255 chip */ READ8_MEMBER( tk80bs_state::ppi_custom_r ) { switch(offset) { case 1: return m_ppi->read(space, 2); case 2: return m_ppi->read(space, 1); default: return m_ppi->read(space, offset); } } WRITE8_MEMBER( tk80bs_state::ppi_custom_w ) { switch(offset) { case 1: m_ppi->write(space, 2, data); break; case 2: m_ppi->write(space, 1, data); break; default: m_ppi->write(space, offset, data); } } static ADDRESS_MAP_START(tk80bs_mem, AS_PROGRAM, 8, tk80bs_state) ADDRESS_MAP_UNMAP_HIGH AM_RANGE(0x0000, 0x07ff) AM_ROM // AM_RANGE(0x0c00, 0x7bff) AM_ROM // ext AM_RANGE(0x7df8, 0x7df9) AM_NOP // i8251 sio AM_RANGE(0x7dfc, 0x7dff) AM_READWRITE(ppi_custom_r,ppi_custom_w) AM_RANGE(0x7e00, 0x7fff) AM_RAM AM_SHARE("videoram") // video ram AM_RANGE(0x8000, 0xcfff) AM_RAM // RAM AM_RANGE(0xd000, 0xefff) AM_ROM // BASIC AM_RANGE(0xf000, 0xffff) AM_ROM // BSMON ADDRESS_MAP_END /* Input ports */ static INPUT_PORTS_START( tk80bs ) INPUT_PORTS_END READ8_MEMBER( tk80bs_state::port_a_r ) { UINT8 ret = m_term_data; m_term_data = 0; return ret; } READ8_MEMBER( tk80bs_state::port_b_r ) { if (m_term_data) { m_ppi->pc4_w(0); // send a strobe pulse return 0x20; } else return 0; } static I8255_INTERFACE( ppi_intf ) { DEVCB_DRIVER_MEMBER(tk80bs_state, port_a_r), /* Port A read */ DEVCB_NULL, /* Port A write */ DEVCB_DRIVER_MEMBER(tk80bs_state, port_b_r), /* Port B read */ DEVCB_NULL, /* Port B write */ DEVCB_NULL, /* Port C read */ DEVCB_NULL /* Port C write */ }; WRITE8_MEMBER( tk80bs_state::kbd_put ) { data &= 0x7f; if (data > 0x5f) data-=0x20; m_term_data = data; } /* F4 Character Displayer */ static const gfx_layout tk80bs_charlayout = { 8, 8, 512, 1, { 0 }, { 0, 1, 2, 3, 4, 5, 6, 7 }, { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8 }, 8*8 }; static GFXDECODE_START( tk80bs ) GFXDECODE_ENTRY( "chargen", 0x0000, tk80bs_charlayout, 0, 1 ) GFXDECODE_END static MACHINE_CONFIG_START( tk80bs, tk80bs_state ) /* basic machine hardware */ MCFG_CPU_ADD("maincpu",I8080, XTAL_1MHz) //unknown clock MCFG_CPU_PROGRAM_MAP(tk80bs_mem) /* video hardware */ MCFG_SCREEN_ADD("screen", RASTER) MCFG_SCREEN_REFRESH_RATE(50) MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ MCFG_SCREEN_SIZE(256, 128) MCFG_SCREEN_VISIBLE_AREA(0, 256-1, 0, 128-1) MCFG_SCREEN_UPDATE_DRIVER(tk80bs_state, screen_update_tk80bs) MCFG_SCREEN_PALETTE("palette") MCFG_PALETTE_ADD_BLACK_AND_WHITE("palette") MCFG_GFXDECODE_ADD("gfxdecode", "palette", tk80bs) /* Devices */ MCFG_I8255_ADD( "ppi", ppi_intf) MCFG_DEVICE_ADD(KEYBOARD_TAG, GENERIC_KEYBOARD, 0) MCFG_GENERIC_KEYBOARD_CB(WRITE8(tk80bs_state, kbd_put)) MACHINE_CONFIG_END ROM_START( tk80bs ) ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF ) /* all of these aren't taken from an original machine*/ ROM_SYSTEM_BIOS(0, "psedo", "Pseudo LEVEL 1") ROMX_LOAD( "tk80.dummy", 0x0000, 0x0800, BAD_DUMP CRC(553b25ca) SHA1(939350d7fa56ce567ddf393c9f4b9db6ebc18a2c), ROM_BIOS(1)) ROMX_LOAD( "ext.l1", 0x0c00, 0x6e46, BAD_DUMP CRC(d05ed3ff) SHA1(8544aa2cb58df9edf221f5be2cdafa248dd33828), ROM_BIOS(1)) ROMX_LOAD( "lv1basic.l1",0xe000, 0x09a2, BAD_DUMP CRC(3ff67a71) SHA1(528c9331740637e853c099e1739ecdea6dd200bc), ROM_BIOS(1)) ROMX_LOAD( "bsmon.l1", 0xf000, 0x0db0, BAD_DUMP CRC(5daa599b) SHA1(7e6ec5bfb3eea114f7ee9ef589a89246b8533b2f), ROM_BIOS(1)) ROM_SYSTEM_BIOS(1, "psedo10", "Pseudo LEVEL 2 1.0") ROMX_LOAD( "tk80.dummy", 0x0000, 0x0800, BAD_DUMP CRC(553b25ca) SHA1(939350d7fa56ce567ddf393c9f4b9db6ebc18a2c), ROM_BIOS(2)) ROMX_LOAD( "ext.10", 0x0c00, 0x3dc2, BAD_DUMP CRC(3c64d488) SHA1(919180d5b34b981ab3dd8b2885d3c0933203f355), ROM_BIOS(2)) ROMX_LOAD( "lv2basic.10",0xd000, 0x2000, BAD_DUMP CRC(594fe70e) SHA1(5854c1be5fa78c1bfee365379495f14bc23e15e7), ROM_BIOS(2)) ROMX_LOAD( "bsmon.10", 0xf000, 0x0daf, BAD_DUMP CRC(d0047983) SHA1(79e2b5dc47b574b55375cbafffff144744093ec1), ROM_BIOS(2)) ROM_SYSTEM_BIOS(2, "psedo11", "Pseudo LEVEL 2 1.1") ROMX_LOAD( "tk80.dummy", 0x0000, 0x0800, BAD_DUMP CRC(553b25ca) SHA1(939350d7fa56ce567ddf393c9f4b9db6ebc18a2c), ROM_BIOS(3)) ROMX_LOAD( "ext.11", 0x0c00, 0x3dd4, BAD_DUMP CRC(bd5c5169) SHA1(2ad70828348372328b76bac0fa93d3f6f17ade34), ROM_BIOS(3)) ROMX_LOAD( "lv2basic.11",0xd000, 0x2000, BAD_DUMP CRC(3df9a3bd) SHA1(9539409c876bce27d630fe47d07a4316d2ce09cb), ROM_BIOS(3)) ROMX_LOAD( "bsmon.11", 0xf000, 0x0ff6, BAD_DUMP CRC(fca7a609) SHA1(7c7eb5e5e4cf1e0021383bdfc192b88262aba6f5), ROM_BIOS(3)) ROM_REGION( 0x1000, "chargen", ROMREGION_ERASEFF ) ROM_LOAD( "font.rom", 0x0000, 0x1000, BAD_DUMP CRC(94d95199) SHA1(9fe741eab866b0c520d4108bccc6277172fa190c)) ROM_END /* Driver */ /* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */ COMP( 1980, tk80bs, tk80, 0, tk80bs, tk80bs, driver_device, 0, "Nippon Electronic Company", "TK-80BS", GAME_NOT_WORKING | GAME_NO_SOUND_HW)