diff options
Diffstat (limited to 'src/mame/drivers/pyl601.cpp')
-rw-r--r-- | src/mame/drivers/pyl601.cpp | 641 |
1 files changed, 0 insertions, 641 deletions
diff --git a/src/mame/drivers/pyl601.cpp b/src/mame/drivers/pyl601.cpp deleted file mode 100644 index eb926ad0b5a..00000000000 --- a/src/mame/drivers/pyl601.cpp +++ /dev/null @@ -1,641 +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 "imagedev/floppy.h" -#include "machine/ram.h" -#include "machine/upd765.h" -#include "sound/spkrdev.h" -#include "video/mc6845.h" - -#include "emupal.h" -#include "softlist.h" -#include "screen.h" -#include "speaker.h" - -#include "formats/pyldin_dsk.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_floppy(*this, "upd765:%u", 0U), - m_ram(*this, RAM_TAG), - m_maincpu(*this, "maincpu"), - m_palette(*this, "palette") - { } - - void pyl601(machine_config &config); - void pyl601a(machine_config &config); - void init_pyl601(); - -private: - 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_t selectedline(uint16_t data); - - virtual void machine_reset() override; - virtual void video_start() override; - INTERRUPT_GEN_MEMBER(pyl601_interrupt); - DECLARE_FLOPPY_FORMATS( floppy_formats ); - void pyl601_mem(address_map &map); - - uint8_t m_rom_page; - uint32_t m_vdisk_addr; - uint8_t m_key_code; - uint8_t m_keyboard_clk; - uint8_t m_video_mode; - uint8_t m_tick50_mark; - uint8_t m_floppy_ctrl; - - required_device<speaker_sound_device> m_speaker; - required_device<upd765a_device> m_fdc; - required_device_array<floppy_connector, 2> m_floppy; - required_device<ram_device> m_ram; - 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_t retVal = m_ram->pointer()[0x10000 + (m_vdisk_addr & 0x7ffff)]; - m_vdisk_addr++; - m_vdisk_addr &= 0x7ffff; - return retVal; -} - -uint8_t pyl601_state::selectedline(uint16_t data) -{ - uint8_t i; - for(i = 0; i < 16; i++) - if (BIT(data, i)) - return i; - - return 0; -} - -READ8_MEMBER(pyl601_state::keyboard_r) -{ - uint8_t ret = m_key_code; - m_key_code = 0xff; - return ret; -} - -READ8_MEMBER(pyl601_state::keycheck_r) -{ - uint8_t retVal = 0x3f; - uint8_t *keyboard = memregion("keyboard")->base(); - uint16_t row1 = ioport("ROW1")->read(); - uint16_t row2 = ioport("ROW2")->read(); - uint16_t row3 = ioport("ROW3")->read(); - uint16_t row4 = ioport("ROW4")->read(); - uint16_t row5 = ioport("ROW5")->read(); - uint16_t all = row1 | row2 | row3 | row4 | row5; - uint16_t 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_t 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_t 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 = m_floppy[BIT(data, 2)]->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; -} - -void pyl601_state::pyl601_mem(address_map &map) -{ - map.unmap_value_high(); - map(0x0000, 0xbfff).bankrw("bank1"); - map(0xc000, 0xdfff).bankrw("bank2"); - map(0xe000, 0xe5ff).bankrw("bank3"); - map(0xe600, 0xe600).mirror(4).rw("crtc", FUNC(mc6845_device::status_r), FUNC(mc6845_device::address_w)); - map(0xe601, 0xe601).mirror(4).rw("crtc", FUNC(mc6845_device::register_r), FUNC(mc6845_device::register_w)); - map(0xe628, 0xe628).r(FUNC(pyl601_state::keyboard_r)); - map(0xe629, 0xe629).rw(FUNC(pyl601_state::video_mode_r), FUNC(pyl601_state::video_mode_w)); - map(0xe62a, 0xe62a).rw(FUNC(pyl601_state::keycheck_r), FUNC(pyl601_state::led_w)); - map(0xe62b, 0xe62b).rw(FUNC(pyl601_state::timer_r), FUNC(pyl601_state::speaker_w)); - map(0xe62d, 0xe62d).r(FUNC(pyl601_state::video_mode_r)); - map(0xe62e, 0xe62e).rw(FUNC(pyl601_state::keycheck_r), FUNC(pyl601_state::led_w)); - map(0xe680, 0xe680).w(FUNC(pyl601_state::vdisk_page_w)); - map(0xe681, 0xe681).w(FUNC(pyl601_state::vdisk_h_w)); - map(0xe682, 0xe682).w(FUNC(pyl601_state::vdisk_l_w)); - map(0xe683, 0xe683).rw(FUNC(pyl601_state::vdisk_data_r), FUNC(pyl601_state::vdisk_data_w)); - map(0xe6c0, 0xe6c0).rw(FUNC(pyl601_state::floppy_r), FUNC(pyl601_state::floppy_w)); - map(0xe6d0, 0xe6d1).m(m_fdc, FUNC(upd765a_device::map)); - map(0xe6f0, 0xe6f0).rw(FUNC(pyl601_state::rom_page_r), FUNC(pyl601_state::rom_page_w)); - map(0xe700, 0xefff).bankrw("bank4"); - map(0xf000, 0xffff).bankr("bank5").bankw("bank6"); -} - -/* 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_t *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_t *charrom = memregion("chargen")->base(); - - int column, bit, i; - uint8_t data; - if (BIT(m_video_mode, 5) == 0) - { - for (column = 0; column < x_count; column++) - { - uint8_t 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_t *charrom = memregion("chargen")->base(); - - int column, bit, i; - uint8_t data; - if (BIT(m_video_mode, 5) == 0) - { - for (column = 0; column < x_count; column++) - { - uint8_t 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; - } - } - } -} - - - -void pyl601_state::init_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 void pyl601_floppies(device_slot_interface &device) -{ - device.option_add("525hd", FLOPPY_525_HD); -} - -/* 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( gfx_pyl601 ) - GFXDECODE_ENTRY( "chargen", 0x0000, pyl601_charlayout, 0, 1 ) -GFXDECODE_END - -static GFXDECODE_START( gfx_pyl601a ) - GFXDECODE_ENTRY( "chargen", 0x0000, pyl601a_charlayout, 0, 1 ) -GFXDECODE_END - -void pyl601_state::pyl601(machine_config &config) -{ - /* basic machine hardware */ - M6800(config, m_maincpu, 1_MHz_XTAL); - m_maincpu->set_addrmap(AS_PROGRAM, &pyl601_state::pyl601_mem); - m_maincpu->set_vblank_int("screen", FUNC(pyl601_state::pyl601_interrupt)); - - /* video hardware */ - screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER, rgb_t::green())); - screen.set_refresh_hz(50); - screen.set_vblank_time(ATTOSECONDS_IN_USEC(2500)); /* not accurate */ - screen.set_size(640, 200); - screen.set_visarea(0, 640 - 1, 0, 200 - 1); - screen.set_screen_update("crtc", FUNC(mc6845_device::screen_update)); - GFXDECODE(config, "gfxdecode", m_palette, gfx_pyl601); - PALETTE(config, m_palette, palette_device::MONOCHROME); - - /* sound hardware */ - SPEAKER(config, "mono").front_center(); - SPEAKER_SOUND(config, m_speaker).add_route(ALL_OUTPUTS, "mono", 0.50); - - /* Devices */ - mc6845_device &crtc(MC6845(config, "crtc", 2_MHz_XTAL)); - crtc.set_screen("screen"); - crtc.set_show_border_area(false); - crtc.set_char_width(8); /* ? */ - crtc.set_update_row_callback(FUNC(pyl601_state::pyl601_update_row)); - - UPD765A(config, m_fdc, 8'000'000, true, true); - FLOPPY_CONNECTOR(config, "upd765:0", pyl601_floppies, "525hd", pyl601_state::floppy_formats); - FLOPPY_CONNECTOR(config, "upd765:1", pyl601_floppies, "525hd", pyl601_state::floppy_formats); - SOFTWARE_LIST(config, "flop_list").set_original("pyl601"); - - /* internal ram */ - RAM(config, RAM_TAG).set_default_size("576K"); // 64 + 512 -} - -void pyl601_state::pyl601a(machine_config &config) -{ - pyl601(config); - - m_maincpu->set_clock(2_MHz_XTAL); - - subdevice<gfxdecode_device>("gfxdecode")->set_info(gfx_pyl601a); - - subdevice<mc6845_device>("crtc")->set_update_row_callback(FUNC(pyl601_state::pyl601a_update_row)); -} - -/* 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 CLASS INIT COMPANY FULLNAME FLAGS */ -COMP( 1989, pyl601, 0, 0, pyl601, pyl601, pyl601_state, init_pyl601, "Mikroelektronika", "Pyldin-601", 0 ) -COMP( 1989, pyl601a, pyl601, 0, pyl601a, pyl601, pyl601_state, init_pyl601, "Mikroelektronika", "Pyldin-601A", 0 ) |