summaryrefslogtreecommitdiffstatshomepage
path: root/src/mess/drivers/pyl601.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mess/drivers/pyl601.c')
-rw-r--r--src/mess/drivers/pyl601.c622
1 files changed, 0 insertions, 622 deletions
diff --git a/src/mess/drivers/pyl601.c b/src/mess/drivers/pyl601.c
deleted file mode 100644
index 3073d635e20..00000000000
--- a/src/mess/drivers/pyl601.c
+++ /dev/null
@@ -1,622 +0,0 @@
-// license:BSD-3-Clause
-// copyright-holders:Miodrag Milanovic, Robbbert
-/***************************************************************************
-
- Pyldin-601
-
- 12/05/2009 Skeleton driver.
- 22/04/2012 Added sound, fixed keyboard, marked as working [Robbbert]
-
- ToDo?
- - PYL601 - command 'MODE80' does nothing
-
- - PYL601a - most software looks odd (unplayable) because of the
- different design of the screen.
- - PYL601A - command 'MODE40' doesn't go to 40-columns, instead
- there is a space between each letter.
-
-
- The BASIC
- - to get back to dos, enter SYSTEM
- - It has its own internal monitor: MON to enter, Q to exit.
-
-
-
-':maincpu' (F013): unmapped program memory write to E628 = 00 & FF
-':maincpu' (FCBC): unmapped program memory write to E636 = 00 & FF
-':maincpu' (FCBC): unmapped program memory write to E637 = 00 & FF
-':maincpu' (FCC2): unmapped program memory write to E634 = 07 & FF
-':maincpu' (FCC2): unmapped program memory write to E635 = FF & FF
-':maincpu' (FCC7): unmapped program memory write to E637 = 34 & FF
-':maincpu' (FCCC): unmapped program memory write to E637 = 3C & FF
-':maincpu' (FCCF): unmapped program memory write to E636 = 3C & FF
-':maincpu' (FCD3): unmapped program memory read from E634 & FF
-
-****************************************************************************/
-
-#include "emu.h"
-#include "cpu/m6800/m6800.h"
-#include "video/mc6845.h"
-#include "sound/speaker.h"
-#include "formats/pyldin_dsk.h"
-#include "machine/upd765.h"
-#include "machine/ram.h"
-
-
-class pyl601_state : public driver_device
-{
-public:
- pyl601_state(const machine_config &mconfig, device_type type, const char *tag)
- : driver_device(mconfig, type, tag),
- m_speaker(*this, "speaker"),
- m_fdc(*this, "upd765"),
- m_ram(*this, RAM_TAG),
- m_maincpu(*this, "maincpu"),
- m_palette(*this, "palette") { }
-
- UINT8 m_rom_page;
- UINT32 m_vdisk_addr;
- UINT8 m_key_code;
- UINT8 m_keyboard_clk;
- UINT8 m_video_mode;
- UINT8 m_tick50_mark;
- UINT8 m_floppy_ctrl;
- DECLARE_READ8_MEMBER(rom_page_r);
- DECLARE_WRITE8_MEMBER(rom_page_w);
- DECLARE_WRITE8_MEMBER(vdisk_page_w);
- DECLARE_WRITE8_MEMBER(vdisk_h_w);
- DECLARE_WRITE8_MEMBER(vdisk_l_w);
- DECLARE_WRITE8_MEMBER(vdisk_data_w);
- DECLARE_READ8_MEMBER(vdisk_data_r);
- DECLARE_READ8_MEMBER(keyboard_r);
- DECLARE_READ8_MEMBER(keycheck_r);
- DECLARE_WRITE8_MEMBER(video_mode_w);
- DECLARE_READ8_MEMBER(video_mode_r);
- DECLARE_READ8_MEMBER(timer_r);
- DECLARE_WRITE8_MEMBER(speaker_w);
- DECLARE_WRITE8_MEMBER(led_w);
- DECLARE_WRITE8_MEMBER(floppy_w);
- DECLARE_READ8_MEMBER(floppy_r);
- MC6845_UPDATE_ROW(pyl601_update_row);
- MC6845_UPDATE_ROW(pyl601a_update_row);
- UINT8 selectedline(UINT16 data);
- required_device<speaker_sound_device> m_speaker;
- required_device<upd765a_device> m_fdc;
- required_device<ram_device> m_ram;
- DECLARE_DRIVER_INIT(pyl601);
- virtual void machine_reset();
- virtual void video_start();
- INTERRUPT_GEN_MEMBER(pyl601_interrupt);
- DECLARE_FLOPPY_FORMATS( floppy_formats );
- required_device<cpu_device> m_maincpu;
- required_device<palette_device> m_palette;
-};
-
-
-
-READ8_MEMBER(pyl601_state::rom_page_r)
-{
- return m_rom_page;
-}
-
-WRITE8_MEMBER(pyl601_state::rom_page_w)
-{
- m_rom_page = data;
- if (data & 8)
- {
- int chip = (data >> 4) % 5;
- int page = data & 7;
- membank("bank2")->set_base(memregion("romdisk")->base() + chip*0x10000 + page * 0x2000);
- }
- else
- {
- membank("bank2")->set_base(m_ram->pointer() + 0xc000);
- }
-}
-
-
-WRITE8_MEMBER(pyl601_state::vdisk_page_w)
-{
- m_vdisk_addr = (m_vdisk_addr & 0x0ffff) | ((data & 0x0f)<<16);
-}
-
-WRITE8_MEMBER(pyl601_state::vdisk_h_w)
-{
- m_vdisk_addr = (m_vdisk_addr & 0xf00ff) | (data<<8);
-}
-
-WRITE8_MEMBER(pyl601_state::vdisk_l_w)
-{
- m_vdisk_addr = (m_vdisk_addr & 0xfff00) | data;
-}
-
-WRITE8_MEMBER(pyl601_state::vdisk_data_w)
-{
- m_ram->pointer()[0x10000 + (m_vdisk_addr & 0x7ffff)] = data;
- m_vdisk_addr++;
- m_vdisk_addr&=0x7ffff;
-}
-
-READ8_MEMBER(pyl601_state::vdisk_data_r)
-{
- UINT8 retVal = m_ram->pointer()[0x10000 + (m_vdisk_addr & 0x7ffff)];
- m_vdisk_addr++;
- m_vdisk_addr &= 0x7ffff;
- return retVal;
-}
-
-UINT8 pyl601_state::selectedline(UINT16 data)
-{
- UINT8 i;
- for(i = 0; i < 16; i++)
- if (BIT(data, i))
- return i;
-
- return 0;
-}
-
-READ8_MEMBER(pyl601_state::keyboard_r)
-{
- UINT8 ret = m_key_code;
- m_key_code = 0xff;
- return ret;
-}
-
-READ8_MEMBER(pyl601_state::keycheck_r)
-{
- UINT8 retVal = 0x3f;
- UINT8 *keyboard = memregion("keyboard")->base();
- UINT16 row1 = ioport("ROW1")->read();
- UINT16 row2 = ioport("ROW2")->read();
- UINT16 row3 = ioport("ROW3")->read();
- UINT16 row4 = ioport("ROW4")->read();
- UINT16 row5 = ioport("ROW5")->read();
- UINT16 all = row1 | row2 | row3 | row4 | row5;
- UINT16 addr = ioport("MODIFIERS")->read();
- if (all)
- {
- addr |= selectedline(all) << 2;
-
- addr |= ((row5 == 0x00) ? 1 : 0) << 6;
- addr |= ((row4 == 0x00) ? 1 : 0) << 7;
- addr |= ((row3 == 0x00) ? 1 : 0) << 8;
- addr |= ((row2 == 0x00) ? 1 : 0) << 9;
- addr |= ((row1 == 0x00) ? 1 : 0) << 10;
-
- m_key_code = keyboard[addr];
- m_keyboard_clk = ~m_keyboard_clk;
-
- if (m_keyboard_clk)
- retVal |= 0x80;
- }
- return retVal;
-}
-
-
-WRITE8_MEMBER(pyl601_state::video_mode_w)
-{
- m_video_mode = data;
-}
-
-READ8_MEMBER(pyl601_state::video_mode_r)
-{
- return m_video_mode;
-}
-
-READ8_MEMBER(pyl601_state::timer_r)
-{
- UINT8 retVal= m_tick50_mark | 0x37;
- m_tick50_mark = 0;
- return retVal;
-}
-
-WRITE8_MEMBER(pyl601_state::speaker_w)
-{
- m_speaker->level_w(BIT(data, 3));
-}
-
-WRITE8_MEMBER(pyl601_state::led_w)
-{
-// UINT8 caps_led = BIT(data,4);
-}
-
-WRITE8_MEMBER(pyl601_state::floppy_w)
-{
- // bit 0 is reset (if zero)
- // bit 1 is TC state
- // bit 2 is drive selected
- // bit 3 is motor state
-
- if (BIT(data,0)==0)
- //reset
- m_fdc->reset();
-
- floppy_image_device *floppy = machine().device<floppy_connector>(BIT(data,2) ? "upd765:1" : "upd765:0")->get_device();
- if(floppy)
- floppy->mon_w(!BIT(data, 3));
-
- m_fdc->tc_w(BIT(data, 1));
-
- m_floppy_ctrl = data;
-}
-
-READ8_MEMBER(pyl601_state::floppy_r)
-{
- return m_floppy_ctrl;
-}
-
-static ADDRESS_MAP_START(pyl601_mem, AS_PROGRAM, 8, pyl601_state )
- ADDRESS_MAP_UNMAP_HIGH
- AM_RANGE( 0x0000, 0xbfff ) AM_RAMBANK("bank1")
- AM_RANGE( 0xc000, 0xdfff ) AM_RAMBANK("bank2")
- AM_RANGE( 0xe000, 0xe5ff ) AM_RAMBANK("bank3")
- AM_RANGE( 0xe600, 0xe600 ) AM_MIRROR(4) AM_DEVREADWRITE("crtc", mc6845_device, status_r, address_w)
- AM_RANGE( 0xe601, 0xe601 ) AM_MIRROR(4) AM_DEVREADWRITE("crtc", mc6845_device, register_r, register_w)
- AM_RANGE( 0xe628, 0xe628 ) AM_READ(keyboard_r)
- AM_RANGE( 0xe629, 0xe629 ) AM_READWRITE(video_mode_r,video_mode_w)
- AM_RANGE( 0xe62a, 0xe62a ) AM_READWRITE(keycheck_r,led_w)
- AM_RANGE( 0xe62b, 0xe62b ) AM_READWRITE(timer_r,speaker_w)
- AM_RANGE( 0xe62d, 0xe62d ) AM_READ(video_mode_r)
- AM_RANGE( 0xe62e, 0xe62e ) AM_READWRITE(keycheck_r,led_w)
- AM_RANGE( 0xe680, 0xe680 ) AM_WRITE(vdisk_page_w)
- AM_RANGE( 0xe681, 0xe681 ) AM_WRITE(vdisk_h_w)
- AM_RANGE( 0xe682, 0xe682 ) AM_WRITE(vdisk_l_w)
- AM_RANGE( 0xe683, 0xe683 ) AM_READWRITE(vdisk_data_r,vdisk_data_w)
- AM_RANGE( 0xe6c0, 0xe6c0 ) AM_READWRITE(floppy_r, floppy_w)
- AM_RANGE( 0xe6d0, 0xe6d1 ) AM_DEVICE("upd765", upd765a_device, map)
- AM_RANGE( 0xe6f0, 0xe6f0 ) AM_READWRITE(rom_page_r, rom_page_w)
- AM_RANGE( 0xe700, 0xefff ) AM_RAMBANK("bank4")
- AM_RANGE( 0xf000, 0xffff ) AM_READ_BANK("bank5") AM_WRITE_BANK("bank6")
-ADDRESS_MAP_END
-
-/* Input ports */
-/* A small note about natural keyboard mode: Ctrl is mapped to PGUP and the 'Lat/Cyr' key is mapped to PGDOWN */
-static INPUT_PORTS_START( pyl601 )
- PORT_START("ROW1")
- PORT_BIT( 0x0001, IP_ACTIVE_HIGH, IPT_UNUSED )
- PORT_BIT( 0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Lat/Cyr") PORT_CODE(KEYCODE_LALT) PORT_CODE(KEYCODE_RALT) PORT_CHAR(UCHAR_MAMEKEY(PGDN))
- PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Del") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8)
- PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR('\\') PORT_CHAR('|')
- PORT_BIT( 0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('=') PORT_CHAR('+')
- PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_CHAR('_')
- PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(')')
- PORT_BIT( 0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR('(')
- PORT_BIT( 0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('*')
- PORT_BIT( 0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('&')
- PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('^')
- PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%')
- PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$')
- PORT_BIT( 0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#')
- PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('@')
- PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!')
-
- PORT_START("ROW2")
- PORT_BIT( 0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_RIGHT) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT))
- PORT_BIT( 0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_LEFT) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT))
- PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR(']') PORT_CHAR('}') // it should be the 4th key at right of 'L'
- PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('[') PORT_CHAR('{')
- PORT_BIT( 0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR('\'') PORT_CHAR('"')
- PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR(':')
- PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_L) PORT_CHAR('L') PORT_CHAR('l')
- PORT_BIT( 0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_K) PORT_CHAR('K') PORT_CHAR('k')
- PORT_BIT( 0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_J) PORT_CHAR('J') PORT_CHAR('j')
- PORT_BIT( 0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_H) PORT_CHAR('H') PORT_CHAR('h')
- PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_G) PORT_CHAR('G') PORT_CHAR('g')
- PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F) PORT_CHAR('F') PORT_CHAR('f')
- PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_D) PORT_CHAR('D') PORT_CHAR('d')
- PORT_BIT( 0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_S) PORT_CHAR('S') PORT_CHAR('s')
- PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_A) PORT_CHAR('A') PORT_CHAR('a')
- PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_UNUSED )
-
- PORT_START("ROW3")
- PORT_BIT( 0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_UP) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP))
- PORT_BIT( 0x0002, IP_ACTIVE_HIGH, IPT_UNUSED )
- PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_UNUSED )
- PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Return") PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13)
- PORT_BIT( 0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('`') PORT_CHAR('~')
- PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_P) PORT_CHAR('P') PORT_CHAR('p')
- PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_O) PORT_CHAR('O') PORT_CHAR('o')
- PORT_BIT( 0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_I) PORT_CHAR('I') PORT_CHAR('i')
- PORT_BIT( 0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_U) PORT_CHAR('U') PORT_CHAR('u')
- PORT_BIT( 0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') PORT_CHAR('y')
- PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_T) PORT_CHAR('T') PORT_CHAR('t')
- PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_R) PORT_CHAR('R') PORT_CHAR('r')
- PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_E) PORT_CHAR('E') PORT_CHAR('e')
- PORT_BIT( 0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_W) PORT_CHAR('W') PORT_CHAR('w')
- PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Q) PORT_CHAR('Q') PORT_CHAR('q')
- PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_TAB) PORT_CHAR('\t')
-
- PORT_START("ROW4")
- PORT_BIT( 0x0001, IP_ACTIVE_HIGH, IPT_UNUSED )
- PORT_BIT( 0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_DOWN) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN))
- PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Caps Lock") PORT_CODE(KEYCODE_CAPSLOCK)
- PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ')
- PORT_BIT( 0x0010, IP_ACTIVE_HIGH, IPT_UNUSED )
- PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?')
- PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>')
- PORT_BIT( 0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<')
- PORT_BIT( 0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_M) PORT_CHAR('M') PORT_CHAR('m')
- PORT_BIT( 0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_N) PORT_CHAR('N') PORT_CHAR('n')
- PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_B) PORT_CHAR('B') PORT_CHAR('b')
- PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_V) PORT_CHAR('V') PORT_CHAR('v')
- PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_C) PORT_CHAR('C') PORT_CHAR('c')
- PORT_BIT( 0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_X) PORT_CHAR('X') PORT_CHAR('x')
- PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Z) PORT_CHAR('Z') PORT_CHAR('z')
- PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_UNUSED )
-
- PORT_START("ROW5")
- PORT_BIT( 0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_PGDN) PORT_CHAR(UCHAR_MAMEKEY(F15))
- PORT_BIT( 0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_PGUP) PORT_CHAR(UCHAR_MAMEKEY(F14))
- PORT_BIT( 0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_HOME) PORT_CHAR(UCHAR_MAMEKEY(F13))
- PORT_BIT( 0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F12) PORT_CHAR(UCHAR_MAMEKEY(F12))
- PORT_BIT( 0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F11) PORT_CHAR(UCHAR_MAMEKEY(F11))
- PORT_BIT( 0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F10) PORT_CHAR(UCHAR_MAMEKEY(F10))
- PORT_BIT( 0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F9) PORT_CHAR(UCHAR_MAMEKEY(F9))
- PORT_BIT( 0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F8) PORT_CHAR(UCHAR_MAMEKEY(F8))
- PORT_BIT( 0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F7) PORT_CHAR(UCHAR_MAMEKEY(F7))
- PORT_BIT( 0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F6) PORT_CHAR(UCHAR_MAMEKEY(F6))
- PORT_BIT( 0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F5) PORT_CHAR(UCHAR_MAMEKEY(F5))
- PORT_BIT( 0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4))
- PORT_BIT( 0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3))
- PORT_BIT( 0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2))
- PORT_BIT( 0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1))
- PORT_BIT( 0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_ESC) PORT_CHAR(UCHAR_MAMEKEY(ESC))
-
- PORT_START("MODIFIERS")
- PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("Shift") PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
- PORT_BIT( 0x0002, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("Ctrl") PORT_CODE(KEYCODE_LCONTROL) PORT_CODE(KEYCODE_RCONTROL) PORT_CHAR(UCHAR_MAMEKEY(PGUP))
-INPUT_PORTS_END
-
-void pyl601_state::machine_reset()
-{
- UINT8 *ram = m_ram->pointer();
- m_key_code = 0xff;
- membank("bank1")->set_base(ram + 0x0000);
- membank("bank2")->set_base(ram + 0xc000);
- membank("bank3")->set_base(ram + 0xe000);
- membank("bank4")->set_base(ram + 0xe700);
- membank("bank5")->set_base(memregion("maincpu")->base() + 0xf000);
- membank("bank6")->set_base(ram + 0xf000);
-
- m_maincpu->reset();
-}
-
-void pyl601_state::video_start()
-{
-}
-
-MC6845_UPDATE_ROW( pyl601_state::pyl601_update_row )
-{
- const rgb_t *palette = m_palette->palette()->entry_list_raw();
- UINT8 *charrom = memregion("chargen")->base();
-
- int column, bit, i;
- UINT8 data;
- if (BIT(m_video_mode, 5) == 0)
- {
- for (column = 0; column < x_count; column++)
- {
- UINT8 code = m_ram->pointer()[(((ma + column) & 0x0fff) + 0xf000)];
- code = ((code << 1) | (code >> 7)) & 0xff;
- if (column == cursor_x-2)
- data = 0xff;
- else
- data = charrom[((code << 3) | (ra & 0x07)) & 0x7ff];
-
- for (bit = 0; bit < 8; bit++)
- {
- int x = (column * 8) + bit;
-
- bitmap.pix32(y, x) = palette[BIT(data, 7)];
-
- data <<= 1;
- }
- }
- }
- else
- {
- for (i = 0; i < x_count; i++)
- {
- data = m_ram->pointer()[(((ma + i) << 3) | (ra & 0x07)) & 0xffff];
- for (bit = 0; bit < 8; bit++)
- {
- bitmap.pix32(y, (i * 8) + bit) = palette[BIT(data, 7)];
- data <<= 1;
- }
- }
- }
-}
-
-MC6845_UPDATE_ROW( pyl601_state::pyl601a_update_row )
-{
- const rgb_t *palette = m_palette->palette()->entry_list_raw();
- UINT8 *charrom = memregion("chargen")->base();
-
- int column, bit, i;
- UINT8 data;
- if (BIT(m_video_mode, 5) == 0)
- {
- for (column = 0; column < x_count; column++)
- {
- UINT8 code = m_ram->pointer()[(((ma + column) & 0x0fff) + 0xf000)];
- data = charrom[((code << 4) | (ra & 0x07)) & 0xfff];
- if (column == cursor_x)
- data = 0xff;
-
- for (bit = 0; bit < 8; bit++)
- {
- int x = (column * 8) + bit;
-
- bitmap.pix32(y, x) = palette[BIT(data, 7)];
-
- data <<= 1;
- }
- }
- }
- else
- {
- for (i = 0; i < x_count; i++)
- {
- data = m_ram->pointer()[(((ma + i) << 3) | (ra & 0x07)) & 0xffff];
- for (bit = 0; bit < 8; bit++)
- {
- bitmap.pix32(y, (i * 8) + bit) = palette[BIT(data, 7)];
- data <<= 1;
- }
- }
- }
-}
-
-
-
-DRIVER_INIT_MEMBER(pyl601_state,pyl601)
-{
- memset(m_ram->pointer(), 0, 64 * 1024);
-}
-
-INTERRUPT_GEN_MEMBER(pyl601_state::pyl601_interrupt)
-{
- m_tick50_mark = 0x80;
- device.execute().set_input_line(0, HOLD_LINE);
-}
-
-FLOPPY_FORMATS_MEMBER( pyl601_state::floppy_formats )
- FLOPPY_PYLDIN_FORMAT
-FLOPPY_FORMATS_END
-
-static SLOT_INTERFACE_START( pyl601_floppies )
- SLOT_INTERFACE( "525hd", FLOPPY_525_HD )
-SLOT_INTERFACE_END
-
-/* F4 Character Displayer */
-static const gfx_layout pyl601_charlayout =
-{
- 8, 8, /* 8 x 8 characters */
- 256, /* 256 characters */
- 1, /* 1 bits per pixel */
- { 0 }, /* no bitplanes */
- /* x offsets */
- { 0, 1, 2, 3, 4, 5, 6, 7 },
- /* y offsets */
- { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8 },
- 8*8 /* every char takes 8 bytes */
-};
-
-static const gfx_layout pyl601a_charlayout =
-{
- 8, 8, /* 8 x 8 characters */
- 256, /* 256 characters */
- 1, /* 1 bits per pixel */
- { 0 }, /* no bitplanes */
- /* x offsets */
- { 0, 1, 2, 3, 4, 5, 6, 7 },
- /* y offsets */
- { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8 },
- 8*16 /* every char takes 16 bytes */
-};
-
-static GFXDECODE_START( pyl601 )
- GFXDECODE_ENTRY( "chargen", 0x0000, pyl601_charlayout, 0, 1 )
-GFXDECODE_END
-
-static GFXDECODE_START( pyl601a )
- GFXDECODE_ENTRY( "chargen", 0x0000, pyl601a_charlayout, 0, 1 )
-GFXDECODE_END
-
-static MACHINE_CONFIG_START( pyl601, pyl601_state )
- /* basic machine hardware */
- MCFG_CPU_ADD("maincpu",M6800, XTAL_1MHz)
- MCFG_CPU_PROGRAM_MAP(pyl601_mem)
- MCFG_CPU_VBLANK_INT_DRIVER("screen", pyl601_state, pyl601_interrupt)
-
- /* 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(640, 200)
- MCFG_SCREEN_VISIBLE_AREA(0, 640 - 1, 0, 200 - 1)
- MCFG_SCREEN_UPDATE_DEVICE("crtc", mc6845_device, screen_update)
- MCFG_GFXDECODE_ADD("gfxdecode", "palette", pyl601)
- MCFG_PALETTE_ADD_MONOCHROME_GREEN("palette")
-
- /* sound hardware */
- MCFG_SPEAKER_STANDARD_MONO("mono")
- MCFG_SOUND_ADD("speaker", SPEAKER_SOUND, 0)
- MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.50)
-
- /* Devices */
- MCFG_MC6845_ADD("crtc", MC6845, "screen", XTAL_2MHz)
- MCFG_MC6845_SHOW_BORDER_AREA(false)
- MCFG_MC6845_CHAR_WIDTH(8) /* ? */
- MCFG_MC6845_UPDATE_ROW_CB(pyl601_state, pyl601_update_row)
-
- MCFG_UPD765A_ADD("upd765", true, true)
- MCFG_FLOPPY_DRIVE_ADD("upd765:0", pyl601_floppies, "525hd", pyl601_state::floppy_formats)
- MCFG_FLOPPY_DRIVE_ADD("upd765:1", pyl601_floppies, "525hd", pyl601_state::floppy_formats)
- MCFG_SOFTWARE_LIST_ADD("flop_list","pyl601")
-
- /* internal ram */
- MCFG_RAM_ADD(RAM_TAG)
- MCFG_RAM_DEFAULT_SIZE("576K") // 64 + 512
-MACHINE_CONFIG_END
-
-static MACHINE_CONFIG_DERIVED( pyl601a, pyl601 )
- MCFG_CPU_MODIFY("maincpu")
- MCFG_CPU_CLOCK( XTAL_2MHz)
-
- MCFG_GFXDECODE_MODIFY("gfxdecode", pyl601a)
-
- MCFG_DEVICE_REMOVE("crtc")
- MCFG_MC6845_ADD("crtc", MC6845, "screen", XTAL_2MHz)
- MCFG_MC6845_SHOW_BORDER_AREA(false)
- MCFG_MC6845_CHAR_WIDTH(8) /* ? */
- MCFG_MC6845_UPDATE_ROW_CB(pyl601_state, pyl601a_update_row)
-MACHINE_CONFIG_END
-
-/* ROM definition */
-ROM_START( pyl601 )
- ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
- ROM_LOAD( "bios.rom", 0xf000, 0x1000, CRC(41fe4c4b) SHA1(d8ca92aea0eb283e8d7779cb976bcdfa03e81aea))
-
- ROM_REGION(0x0800, "chargen", 0)
- ROM_LOAD( "video.rom", 0x0000, 0x0800, CRC(1c23ba43) SHA1(eb1cfc139858abd0aedbbf3d523f8ba55d27a11d))
-
- ROM_REGION(0x50000, "romdisk", ROMREGION_ERASEFF)
- ROM_LOAD( "rom0.rom", 0x00000, 0x10000, CRC(60103920) SHA1(ee5b4ee5b513c4a0204da751e53d63b8c6c0aab9))
- ROM_LOAD( "rom1.rom", 0x10000, 0x10000, CRC(cb4a9b22) SHA1(dd09e4ba35b8d1a6f60e6e262aaf2f156367e385))
- ROM_LOAD( "rom2.rom", 0x20000, 0x08000, CRC(0b7684bf) SHA1(c02ad1f2a6f484cd9d178d8b060c21c0d4e53442))
- ROM_COPY("romdisk", 0x20000, 0x28000, 0x08000)
- ROM_LOAD( "rom3.rom", 0x30000, 0x08000, CRC(e4a86dfa) SHA1(96e6bb9ffd66f81fca63bf7491fbba81c4ff1fd2))
- ROM_COPY("romdisk", 0x30000, 0x38000, 0x08000)
- ROM_LOAD( "rom4.rom", 0x40000, 0x08000, CRC(d88ac21d) SHA1(022db11fdcf8db81ce9efd9cd9fa50ebca88e79e))
- ROM_COPY("romdisk", 0x40000, 0x48000, 0x08000)
-
- ROM_REGION(0x0800, "keyboard", 0)
- ROM_LOAD( "keyboard.rom", 0x0000, 0x0800, CRC(41fbe5ca) SHA1(875adaef53bc37e92ad0b6b6ee3d8fd28344d358))
-ROM_END
-
-ROM_START( pyl601a )
- ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
- ROM_LOAD( "bios_a.rom", 0xf000, 0x1000, CRC(e018b11e) SHA1(884d59abd5fa5af1295d1b5a53693facc7945b63))
-
- ROM_REGION(0x1000, "chargen", 0)
- ROM_LOAD( "video_a.rom", 0x0000,0x1000, CRC(00fa4077) SHA1(d39d15969a08bdb768d08bea4ec9a9cb498232fd))
-
- ROM_REGION(0x50000, "romdisk", ROMREGION_ERASEFF)
- ROM_LOAD( "rom0.rom", 0x00000, 0x10000, CRC(60103920) SHA1(ee5b4ee5b513c4a0204da751e53d63b8c6c0aab9))
- ROM_LOAD( "rom1.rom", 0x10000, 0x10000, CRC(cb4a9b22) SHA1(dd09e4ba35b8d1a6f60e6e262aaf2f156367e385))
- ROM_LOAD( "rom2.rom", 0x20000, 0x08000, CRC(0b7684bf) SHA1(c02ad1f2a6f484cd9d178d8b060c21c0d4e53442))
- ROM_COPY("romdisk", 0x20000, 0x28000, 0x08000)
- ROM_LOAD( "rom3.rom", 0x30000, 0x08000, CRC(e4a86dfa) SHA1(96e6bb9ffd66f81fca63bf7491fbba81c4ff1fd2))
- ROM_COPY("romdisk", 0x30000, 0x38000, 0x08000)
- ROM_LOAD( "rom4.rom", 0x40000, 0x08000, CRC(d88ac21d) SHA1(022db11fdcf8db81ce9efd9cd9fa50ebca88e79e))
- ROM_COPY("romdisk", 0x40000, 0x48000, 0x08000)
-
- ROM_REGION(0x0800, "keyboard", 0)
- ROM_LOAD( "keyboard.rom", 0x0000, 0x0800, CRC(41fbe5ca) SHA1(875adaef53bc37e92ad0b6b6ee3d8fd28344d358))
-ROM_END
-/* Driver */
-
-/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
-COMP( 1989, pyl601, 0, 0, pyl601, pyl601, pyl601_state, pyl601, "Mikroelektronika", "Pyldin-601", 0 )
-COMP( 1989, pyl601a, pyl601, 0, pyl601a, pyl601, pyl601_state, pyl601, "Mikroelektronika", "Pyldin-601A", 0 )