From 0c8d9011950dd4af80a2401a64749eb0d27ec769 Mon Sep 17 00:00:00 2001 From: Dirk Best Date: Sun, 16 Jan 2022 15:49:04 +0100 Subject: falco500: Rewrite driver - Move from falco5220.cpp to falco500.cpp - Implement many ASIC features and support most video options - Fully hook up RS232 ports - Hook up bell - Add keyboard - Add detailed hardware descriptions for 3 models New machines marked as NOT_WORKING ---------------------------------- Falco 500e [Bitsavers] --- scripts/target/mame/mess.lua | 4 +- src/mame/drivers/falco500.cpp | 629 +++++++++++++++++++++++++++++++++++++++++ src/mame/drivers/falco5220.cpp | 238 ---------------- src/mame/machine/f5220_kbd.cpp | 300 ++++++++++++++++++++ src/mame/machine/f5220_kbd.h | 60 ++++ src/mame/mame.lst | 3 +- src/mame/mess.flt | 2 +- 7 files changed, 995 insertions(+), 241 deletions(-) create mode 100644 src/mame/drivers/falco500.cpp delete mode 100644 src/mame/drivers/falco5220.cpp create mode 100644 src/mame/machine/f5220_kbd.cpp create mode 100644 src/mame/machine/f5220_kbd.h diff --git a/scripts/target/mame/mess.lua b/scripts/target/mame/mess.lua index 108774417ea..af4dc49cdd4 100644 --- a/scripts/target/mame/mess.lua +++ b/scripts/target/mame/mess.lua @@ -2471,7 +2471,9 @@ files { createMESSProjects(_target, _subtarget, "falco") files { - MAME_DIR .. "src/mame/drivers/falco5220.cpp", + MAME_DIR .. "src/mame/drivers/falco500.cpp", + MAME_DIR .. "src/mame/machine/f5220_kbd.cpp", + MAME_DIR .. "src/mame/machine/f5220_kbd.h", MAME_DIR .. "src/mame/drivers/falcots.cpp", MAME_DIR .. "src/mame/drivers/falcots28.cpp", } diff --git a/src/mame/drivers/falco500.cpp b/src/mame/drivers/falco500.cpp new file mode 100644 index 00000000000..0ca0d2fe875 --- /dev/null +++ b/src/mame/drivers/falco500.cpp @@ -0,0 +1,629 @@ +// license: BSD-3-Clause +// copyright-holders: AJR, Dirk Best +/**************************************************************************** + + Falco 500 series terminals + + Third generation of Falco terminals, after the TS and FAME series. Many + functions are now handled by a custom ASIC that was updated a few times + between models. + + List of models (incomplete): + - 1986: 500, 542, 5220, 5500 + - 1987: 500e, 5220e, 5000, 5600 + - 1988: 5600s, 5220s, 580, 5330 + + This drivers contains dumps for the 500e, 5220e and 5220s models. The + 5220e is emulated to an advanced stage and usable, the others are + skeletons for now. + + Additional notes: + - The keyboard interface is completely wrong. It should be serially + connected to the ASIC (and support different models) + - The ASIC emulation still needs lots of work. Lots of guesses and + many unknown and unhandled writes. + + Detailed hardware descriptions for the dumped models: + + Falco 5220e: + - Z0840006PSC Z80 CPU + - Z0843006PSC Z80 CTC + - Z0844006PSC Z80 SIO/0 + - L1A3417 041500-001 FALCO TAE8739Δ + - PAL labeled F-500E + - D43256C-10L labeled ARAM1, socket label AROM0 empty + - D43256C-10L labeled CRAM1, socket label CROM0 empty + - CXK5864AP-10L (next to ASIC) + - TMM27256AD-20*2 152321-000 (ROM0) 152321-001 (ROM1) + - CXK5864AP-10L (next to ROMs) + - 37.980 MHz XTAL + - 12.288 MHz XTAL + - Bell + - Space for an IC labeled "CLOCK", not fitted + + Falco 500e + - PCB labeled "PWB MINOTAUR V016 P/N 130165-016 FALCO DATA PRODUCTS COPYRIGHT 4-93" + - Z0840006PSC Z80 CPU + - Z0843006PSC Z80 CTC + - Z0844006PSC Z80 SIO/0 + - L1A3641 041501-001 NAP 9314Δ (SG) WA39038 HONG KONG + - PALs labeled 150133 and 150424 (near ASIC/CPU) + - PAL labeled 150423 (near CPU/CTC/SIO) + - HY62256ALP-70 and empty socket + - HY62256ALP-70 and empty socket + - HY62256ALP-70 (next to ASIC) + - 27C512-15*2 155710-000 and 155710-001 + - HY62256ALP-10 + - 54.046000 MHz XTAL + - 12.288 MHz XTAL + - Bell + + Falco 5220s: + - Z0840006PSC Z80 CPU + - Z0843006PSC Z80 CTC + - Z0844006PSC Z80 SIO/0 + - L1A3641 041501-001 FALCO TAG 8914 Δ 8276 HONG KONG + - PAL unlabeled + - HY6264P-10 labeled ARAM1, socket label AROM0 empty + - HY6264LP labeled CRAM1, socket label CROM0 empty + - HY6264P-10 (next to ASIC) + - 27256*2 168412-000 (ROM0) 168412-001 (ROM1) + - HY6264LP-12 + - 37.980 MHz XTAL + - 12.288 MHz XTAL + - Bell + +****************************************************************************/ + +#include "emu.h" +#include "bus/rs232/hlemouse.h" +#include "bus/rs232/rs232.h" +#include "cpu/z80/z80.h" +#include "machine/bankdev.h" +#include "machine/clock.h" +#include "machine/f5220_kbd.h" +#include "machine/nvram.h" +#include "machine/z80ctc.h" +#include "machine/z80sio.h" +#include "sound/spkrdev.h" +#include "emupal.h" +#include "screen.h" +#include "speaker.h" + + +namespace { + + +//************************************************************************** +// TYPE DEFINITIONS +//************************************************************************** + +class falco500_state : public driver_device +{ +public: + falco500_state(const machine_config &mconfig, device_type type, const char *tag) + : driver_device(mconfig, type, tag), + m_maincpu(*this, "maincpu"), + m_rambank(*this, "rambank"), + m_ctc(*this, "ctc"), + m_screen(*this, "screen"), + m_palette(*this, "palette"), + m_rombank(*this, "rombank"), + m_ram(*this, "ram"), + m_charram(*this, "charram"), + m_kbd(*this, "kbd"), + m_asic_5a(0) + { } + + void falco500(machine_config &config); + +protected: + virtual void machine_start() override; + virtual void machine_reset() override; + +private: + required_device m_maincpu; + required_device m_rambank; + required_device m_ctc; + required_device m_screen; + required_device m_palette; + required_memory_bank m_rombank; + required_shared_ptr m_ram; + required_shared_ptr m_charram; + required_device m_kbd; + + void mem_map(address_map &map); + void bank_map(address_map &map); + void io_map(address_map &map); + + uint8_t asic_data_r(); + uint8_t asic_status_r(); + void asic_rambank_w(uint8_t data); + void asic_settings_w(uint8_t data); + void asic_cursor_addr_w(offs_t offset, uint8_t data); + void asic_56_w(uint8_t data); + void asic_5a_w(uint8_t data); + void asic_mode_w(uint8_t data); + void asic_cmd_w(uint8_t data); + + void kbd_int_w(int state); + + uint32_t screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect); + + void rombank_w(uint8_t data); + void unk_40_w(uint8_t data); + + uint8_t m_unk_40; + uint8_t m_asic_status; + uint8_t m_asic_settings; + uint16_t m_asic_cursor_addr; + uint8_t m_asic_56; + uint8_t m_asic_5a; + uint8_t m_asic_mode; +}; + + +//************************************************************************** +// ADDRESS MAPS +//************************************************************************** + +void falco500_state::mem_map(address_map &map) +{ + map(0x0000, 0x7fff).rom().region("maincpu", 0); + map(0x8000, 0xbfff).bankr("rombank"); + map(0xc000, 0xdfff).ram().share("nvram"); + map(0xe000, 0xffff).m(m_rambank, FUNC(address_map_bank_device::amap8)); +} + +void falco500_state::bank_map(address_map &map) +{ + map(0x00000, 0x0ffff).ram().share("ram"); // 2x NEC D43256C-10L? (5220s only has 2x HY6264P-10) + map(0x10000, 0x11fff).ram().share("charram"); // CXK5864AP-10L / HY6264LP-12? +} + +void falco500_state::io_map(address_map &map) +{ + map.global_mask(0xff); + map(0x00, 0x00).w(FUNC(falco500_state::rombank_w)); + map(0x40, 0x40).w(FUNC(falco500_state::unk_40_w)); + map(0x50, 0x50).r(FUNC(falco500_state::asic_data_r)); + map(0x51, 0x51).r(FUNC(falco500_state::asic_status_r)); + map(0x52, 0x52).w(FUNC(falco500_state::asic_rambank_w)); + map(0x53, 0x53).w(FUNC(falco500_state::asic_settings_w)); + map(0x54, 0x55).w(FUNC(falco500_state::asic_cursor_addr_w)); + map(0x56, 0x56).w(FUNC(falco500_state::asic_56_w)); + map(0x5a, 0x5a).w(FUNC(falco500_state::asic_5a_w)); // L1A3641 only? + map(0x5b, 0x5b).w(FUNC(falco500_state::asic_cmd_w)); + map(0x5d, 0x5d).w(FUNC(falco500_state::asic_mode_w)); + map(0x60, 0x63).rw("sio", FUNC(z80sio_device::ba_cd_r), FUNC(z80sio_device::ba_cd_w)); + map(0x70, 0x73).rw(m_ctc, FUNC(z80ctc_device::read), FUNC(z80ctc_device::write)); + map(0x88, 0x8b).nopw(); // second SIO? + map(0x90, 0x93).nopw(); // second CTC? +} + + +//************************************************************************** +// ASIC +//************************************************************************** + +void falco500_state::asic_rambank_w(u8 data) +{ + m_rambank->set_bank(data & 0x0f); + + if (data > 8) + logerror("rambank_w: %02x\n", data); +} + +uint8_t falco500_state::asic_data_r() +{ + return m_kbd->read(); +} + +uint8_t falco500_state::asic_status_r() +{ + // 765----- unknown (not used?) + // ---4---- keyboard data available + // ----3--- unknown + // -----2-- unknown (needs to toggle) + // ------1- unknown + // -------0 unknown + + m_asic_status &= ~0x04; + m_asic_status |= m_screen->vblank() ? 0x04 : 0x00; // maybe? + + return m_asic_status; +} + +void falco500_state::asic_settings_w(u8 data) +{ + logerror("asic_settings_w: unk %d curblink %d curshape %d curen %d undrline %d\n", + BIT(data, 7), BIT(data, 6), BIT(data, 5), BIT(data, 4), data & 0x0f); + + // 7------- unknown + // -6------ cursor blink enabled + // --5----- cursor shape (underline, block) + // ---4---- cursor enabled + // ----3210 underline location + + m_asic_settings = data; +} + +void falco500_state::asic_cursor_addr_w(offs_t offset, uint8_t data) +{ + if (offset) + { + m_asic_cursor_addr &= 0x00ff; + m_asic_cursor_addr |= ((data & 0xf0) << 8) << 1; + m_asic_cursor_addr |= (data & 0x0f) << 8; + } + else + { + m_asic_cursor_addr = (m_asic_cursor_addr & 0xff00) | (data << 0); + } +} + +void falco500_state::asic_56_w(uint8_t data) +{ + if (data != m_asic_56) + logerror("asic_56_w: %02x\n", data); + + m_asic_56 = data; +} + +void falco500_state::asic_5a_w(u8 data) +{ + logerror("asic_5a_w: %02x\n", data); + m_asic_5a = data; +} + +void falco500_state::asic_cmd_w(uint8_t data) +{ + //logerror("asic_cmd_w: %02x\n", data); + + // 0x7f -> reset asic? + + // 7------- unknown + // -6------ reset keyboard data available? + // --543210 unknown + + if (BIT(data, 6)) + m_asic_status &= ~0x10; +} + +void falco500_state::asic_mode_w(uint8_t data) +{ + if (data != m_asic_mode) + logerror("asic_mode_w: %02x\n", data); + + m_asic_mode = data; + + // 7654321- unknown + // -------0 80/132 columns + + // timing wrong + rectangle visarea(0, (BIT(data, 0) ? 132 * 10 : 80 * 10) - 1, 0, 400 - 1); + m_screen->configure(1500, 422, visarea, HZ_TO_ATTOSECONDS(60)); +} + +void falco500_state::kbd_int_w(int state) +{ + if (state) + m_asic_status |= 0x10; +} + + +//************************************************************************** +// VIDEO EMULATION +//************************************************************************** + +uint32_t falco500_state::screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect) +{ + const pen_t *const pen = m_palette->pens(); + + bitmap.fill(pen[0], cliprect); + + int y = 0; + + for (int line = 0; line < 50; line++) + { + // line attributes for each line + uint8_t la0 = m_ram[0x0000 + line * 2 + 0]; + uint8_t la1 = m_ram[0x0000 + line * 2 + 1]; + uint8_t la2 = m_ram[0x1000 + line * 2 + 0]; + uint8_t la3 = m_ram[0x1000 + line * 2 + 1]; + + // la0 layout + // 76543210 line address offset low bytes + + // la1 layout + // 7654---- line height + // ----3210 offset for double-height lines + + // la2 layout + // 7654---- line address bank (multiply by 2 to get the address) + // ----3210 line address offset high bytes + + // la3 layout + // 7------- unknown + // -6------ set on the line between windows + // --5----- 80 columns/132 columns + // ---43--- unknown + // -----2-- double width + // ------1- double height first half + // -------0 double height second half (but not working for line modes 26 and 44?) + + uint16_t line_addr = (la2 << 8) | la0; + line_addr = ((line_addr & 0xf000) << 1) | (line_addr & 0x0fff); + + //uint8_t unk_code = m_ram[0x0000 + line_addr]; // ? + //uint8_t unk_attr = m_ram[0x1000 + line_addr]; // ? + + // skip unknown value + line_addr++; + + uint8_t line_height = la1 >> 4; + line_height++; + + // figure out number of columns + int cols = BIT(la3, 5) ? 80 : 132; + + if (BIT(la3, 2)) + cols /= 2; + + // safety check to prevent writing out of bounds + if (y + line_height > (cliprect.max_y + 1)) + return 0; + + for (int col = 0; col < cols; col++) + { + uint16_t char_addr = line_addr + col; + + uint8_t code = m_ram[0x0000 + char_addr]; + uint8_t attr = m_ram[0x1000 + char_addr]; + + // code layout + // 7------- unknown + // -6543210 chargen address + + // attr layout + // 7------- unknown + // -6------ chargen address high bit + // --5----- unknown + // ---4---- normal/bold + // ----3--- unknown + // -----2-- reverse + // ------1- blink + // -------0 underline + + for (int y_char = 0; y_char < line_height; y_char++) + { + bool blink = bool(m_screen->frame_number() & 0x10); // timing? + bool underline = bool(y_char == (m_asic_settings & 0x0f)); + + int y_chargen = y_char; + + // double height enabled? + if (la3 & 0x03) + y_chargen /= 2; + + // double-height, first half + if (BIT(la3, 1)) + y_chargen += 0; + + // double height, second half + if (BIT(la3, 0)) + y_chargen += ((la1 & 0x0f) + 1); + + uint16_t gfx = m_charram[(BIT(attr, 6) << 12) | ((code & 0x7f) << 4) | y_chargen]; + + if (BIT(attr, 0) && underline) + gfx = 0x3ff; + + if (BIT(attr, 1) && blink) + gfx = 0x000; + + if (BIT(attr, 2)) + gfx ^= 0x3ff; + + // cursor + if (BIT(m_asic_settings, 4) && (m_asic_cursor_addr == char_addr)) + { + if ((BIT(m_asic_settings, 5) == 1 && BIT(m_asic_settings, 6) == 0) || // block + (BIT(m_asic_settings, 5) == 1 && BIT(m_asic_settings, 6) == 1 && blink) || // block-blink + (BIT(m_asic_settings, 5) == 0 && underline && BIT(m_asic_settings, 6) == 0) || // underline + (BIT(m_asic_settings, 5) == 0 && underline && BIT(m_asic_settings, 6) == 1 && blink)) // underline-blink + gfx ^= 0x3ff; // might be solid instead + } + + // foreground/background colors + rgb_t fg = BIT(attr, 4) ? pen[1] : pen[2]; + rgb_t bg = pen[0]; + + for (int x = 0; x < 10; x++) + { + if (BIT(la3, 2)) + { + // double-width + bitmap.pix(y + y_char, col * 2 * 10 + x * 2 + 0) = BIT(gfx, x) ? fg : bg; + bitmap.pix(y + y_char, col * 2 * 10 + x * 2 + 1) = BIT(gfx, x) ? fg : bg; + } + else + { + bitmap.pix(y + y_char, col * 10 + x) = BIT(gfx, x) ? fg : bg; + } + } + } + } + + y += line_height; + } + + return 0; +} + +static const gfx_layout char_layout = +{ + 8, 16, + 512, + 1, + { 0 }, + { 7, 6, 5, 4, 3, 2, 1, 0 }, + { STEP16(0, 8) }, + 8 * 16 +}; + +static GFXDECODE_START(chars) + GFXDECODE_RAM("charram", 0, char_layout, 0, 1) +GFXDECODE_END + + +//************************************************************************** +// MACHINE EMULATION +//************************************************************************** + +void falco500_state::rombank_w(u8 data) +{ + m_rombank->set_entry(data & 3); + + if (data > 3) + logerror("rombank_w: %02x\n", data); +} + +void falco500_state::unk_40_w(uint8_t data) +{ + if (data != m_unk_40) + logerror("unk_40_w: %02x\n", data); + + m_unk_40 = data; +} + +void falco500_state::machine_start() +{ + m_rombank->configure_entries(0, 4, memregion("maincpu")->base(), 0x4000); + + // register for save states + save_item(NAME(m_unk_40)); + save_item(NAME(m_asic_status)); + save_item(NAME(m_asic_settings)); + save_item(NAME(m_asic_cursor_addr)); + save_item(NAME(m_asic_56)); + save_item(NAME(m_asic_5a)); + save_item(NAME(m_asic_mode)); +} + +void falco500_state::machine_reset() +{ + m_rombank->set_entry(0); + m_rambank->set_bank(0); +} + + +//************************************************************************** +// MACHINE DEFINTIONS +//************************************************************************** + +static const z80_daisy_config daisy_chain[] = +{ + { "ctc" }, + { "sio" }, + { nullptr } +}; + +void falco500_state::falco500(machine_config &config) +{ + Z80(config, m_maincpu, 12.288_MHz_XTAL / 2); // Z0840006PSC + m_maincpu->set_addrmap(AS_PROGRAM, &falco500_state::mem_map); + m_maincpu->set_addrmap(AS_IO, &falco500_state::io_map); + m_maincpu->set_daisy_config(daisy_chain); + + ADDRESS_MAP_BANK(config, m_rambank); + m_rambank->set_map(&falco500_state::bank_map); + m_rambank->set_data_width(8); + m_rambank->set_addr_width(17); + m_rambank->set_stride(0x2000); + + NVRAM(config, "nvram", nvram_device::DEFAULT_ALL_0); // CXK5864AP-10L + battery + + SCREEN(config, m_screen, SCREEN_TYPE_RASTER); + m_screen->set_color(rgb_t::amber()); + m_screen->set_raw(37.98_MHz_XTAL, 1500, 0, 800, 422, 0, 400); // 25.32 kHz/60 Hz confirmed + m_screen->set_screen_update(FUNC(falco500_state::screen_update)); + m_screen->screen_vblank().set_inputline(m_maincpu, INPUT_LINE_NMI); // maybe? + + PALETTE(config, m_palette, palette_device::MONOCHROME_HIGHLIGHT); + + GFXDECODE(config, "gfxdecode", m_palette, chars); + + Z80CTC(config, m_ctc, 12.288_MHz_XTAL / 2); // Z0843006PSC + m_ctc->intr_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0); + m_ctc->set_clk<0>(12.288_MHz_XTAL / 10); + m_ctc->zc_callback<0>().set("sio", FUNC(z80sio_device::rxca_w)); + m_ctc->zc_callback<0>().append("sio", FUNC(z80sio_device::txca_w)); + m_ctc->set_clk<1>(12.288_MHz_XTAL / 10); + m_ctc->zc_callback<1>().set("sio", FUNC(z80sio_device::rxtxcb_w)); + m_ctc->set_clk<2>(12.288_MHz_XTAL / 10); // ? + m_ctc->zc_callback<2>().set("bell", FUNC(speaker_sound_device::level_w)); + m_ctc->set_clk<3>(12.288_MHz_XTAL / 10); // ? + + z80sio_device &sio(Z80SIO(config, "sio", 12.288_MHz_XTAL / 2)); // Z0844006PSC + sio.out_int_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0); + sio.out_txda_callback().set("porta", FUNC(rs232_port_device::write_txd)); + sio.out_rtsa_callback().set("porta", FUNC(rs232_port_device::write_rts)); + sio.out_txdb_callback().set("portb", FUNC(rs232_port_device::write_txd)); + sio.out_rtsb_callback().set("portb", FUNC(rs232_port_device::write_rts)); + + rs232_port_device &porta(RS232_PORT(config, "porta", default_rs232_devices, nullptr)); + porta.rxd_handler().set("sio", FUNC(z80sio_device::rxa_w)); + porta.cts_handler().set("sio", FUNC(z80sio_device::ctsa_w)); + porta.option_add("microsoft_mouse", MSFT_HLE_SERIAL_MOUSE); + porta.option_add("msystems_mouse", MSYSTEMS_HLE_SERIAL_MOUSE); + + rs232_port_device &portb(RS232_PORT(config, "portb", default_rs232_devices, nullptr)); + portb.rxd_handler().set("sio", FUNC(z80sio_device::rxb_w)); + portb.cts_handler().set("sio", FUNC(z80sio_device::ctsb_w)); + portb.option_add("microsoft_mouse", MSFT_HLE_SERIAL_MOUSE); + portb.option_add("msystems_mouse", MSYSTEMS_HLE_SERIAL_MOUSE); + + SPEAKER(config, "mono").front_center(); + + SPEAKER_SOUND(config, "bell").add_route(ALL_OUTPUTS, "mono", 1.00); + + F5220_KBD(config, m_kbd); + m_kbd->int_handler().set(FUNC(falco500_state::kbd_int_w)); +} + + +//************************************************************************** +// ROM DEFINITIONS +//************************************************************************** + +ROM_START( falco5220e ) + ROM_REGION(0x10000, "maincpu", 0) // (c) 1987 FDP, Inc 2321 + ROM_LOAD("152321-000.bin", 0x0000, 0x8000, BAD_DUMP CRC(45ef4a68) SHA1(71e12dce710f9b66290618e299b2382834845057)) // wrong checksum, might be a bit flip + ROM_LOAD("152321-001.bin", 0x8000, 0x8000, CRC(91056626) SHA1(217ca3de76d5e9861284f5b64f8eff8e541fad3d)) +ROM_END + +ROM_START( falco500e ) + ROM_REGION(0x20000, "maincpu", 0) // (c) 1991 FDP, Inc 1710 + ROM_LOAD("155710-000.bin", 0x00000, 0x10000, CRC(cc7c53b8) SHA1(214e7f7b4ce2f0b4106292e4d73125df2c4ddc92)) + ROM_LOAD("155710-001.bin", 0x10000, 0x10000, CRC(d1b51d71) SHA1(fd5aee5da1422d4f19045a98663df4f09472ca6b)) +ROM_END + +ROM_START( falco5220s ) + ROM_REGION(0x10000, "maincpu", 0) // (c) 1989 FDP, Inc 0412 + ROM_LOAD("168412-00.bin", 0x0000, 0x8000, CRC(de34b149) SHA1(6a4824eb5941f4c6475949011e64b28ab185ba59)) + ROM_LOAD("168412-01.bin", 0x8000, 0x8000, CRC(e6facd5b) SHA1(2b9bf3ca18e3e30032dcb6faf0809b6cf6f467ac)) +ROM_END + + +} // anonymous namespace + + +//************************************************************************** +// SYSTEM DRIVERS +//************************************************************************** + +// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS +COMP( 1987, falco5220e, 0, 0, falco500, 0, falco500_state, empty_init, "Falco Data Products", "Falco 5220e", MACHINE_NOT_WORKING | MACHINE_SUPPORTS_SAVE ) +COMP( 1991, falco500e, falco5220e, 0, falco500, 0, falco500_state, empty_init, "Falco Data Products", "Falco 500e", MACHINE_IS_SKELETON ) +COMP( 1989, falco5220s, falco5220e, 0, falco500, 0, falco500_state, empty_init, "Falco Data Products", "Falco 5220s", MACHINE_IS_SKELETON ) diff --git a/src/mame/drivers/falco5220.cpp b/src/mame/drivers/falco5220.cpp deleted file mode 100644 index e70ed40b199..00000000000 --- a/src/mame/drivers/falco5220.cpp +++ /dev/null @@ -1,238 +0,0 @@ -// license:BSD-3-Clause -// copyright-holders:AJR -/**************************************************************************** - - Skeleton driver for Falco 5220 terminal. - - Three variations of this terminal were introduced in 1986. Falco 5220 - primarily emulates the DEC VT220; Falco 542 primarily emulates the LSI - ADM 42; and Falco 5500 primarily emulates the Wyse WY-50. - - All three of these terminals have the same video characteristics, with - 9x12 characters rendered in a 10x16 cell, displayed in up to 2 screen - windows on 24 or 44 lines (not counting the status line). They also - likely share the gate array which is thus labeled on the Falco 5220 - PCB: - - LIA3417 - 041500-001 - FALCO - TAE8379Δ - - The Falco 500 is also supposed to be part of the series, though it was - introduced earlier and has definitely different video capabilities. - -****************************************************************************/ - -#include "emu.h" -//#include "bus/rs232/rs232.h" -#include "cpu/z80/z80.h" -#include "machine/bankdev.h" -#include "machine/nvram.h" -#include "machine/z80ctc.h" -#include "machine/z80sio.h" -#include "emupal.h" -#include "screen.h" - -class falco5220_state : public driver_device -{ -public: - falco5220_state(const machine_config &mconfig, device_type type, const char *tag) - : driver_device(mconfig, type, tag) - , m_maincpu(*this, "maincpu") - , m_rambank(*this, "rambank") - , m_screen(*this, "screen") - , m_rombank(*this, "rombank") - , m_ram(*this, "ram") - , m_charram(*this, "charram") - , m_5a(0) - { - } - - void falco5220(machine_config &config); - -protected: - virtual void machine_start() override; - virtual void machine_reset() override; - -private: - u32 screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect); - - void rombank_w(u8 data); - void rambank_w(u8 data); - void unk5a_w(u8 data); - - void mem_map(address_map &map); - void bank_map(address_map &map); - void io_map(address_map &map); - - required_device m_maincpu; - required_device m_rambank; - required_device m_screen; - required_memory_bank m_rombank; - required_shared_ptr m_ram; - required_shared_ptr m_charram; - - u8 m_5a; -}; - -u32 falco5220_state::screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect) -{ - offs_t start = m_5a ? 0x0000 : 0x2000; - - for (int col = 0; col < 25; col++) - { - for (int row = 0; row < 80; row++) - { - u8 code = m_ram[start + col * 80 + row]; - u8 attr = m_ram[start + 0x1000 + col * 80 + row]; - - for (int y = 0; y < 16; y++) - { - u8 gfx = m_charram[code << 4 | y]; - - // underline - if (BIT(attr, 0) && y == 15) - gfx = 0xff; - - for (int x = 0; x < 8; x++) - bitmap.pix(col*16 + y, row*8 + x) = BIT(gfx, x) ? rgb_t::white() : rgb_t::black(); - } - } - } - - return 0; -} - -void falco5220_state::rambank_w(u8 data) -{ - if (data < 9) - m_rambank->set_bank(data); - else - logerror("rambank_w: %02x\n", data); -} - -void falco5220_state::rombank_w(u8 data) -{ - m_rombank->set_entry(data & 3); -} - -void falco5220_state::unk5a_w(u8 data) -{ - logerror("5a = %02x\n", data); - m_5a = data; -} - -void falco5220_state::mem_map(address_map &map) -{ - map(0x0000, 0x7fff).rom().region("roms", 0); - map(0x8000, 0xbfff).bankr("rombank"); - map(0xc000, 0xdfff).ram().share("nvram"); - map(0xe000, 0xffff).m(m_rambank, FUNC(address_map_bank_device::amap8)); -} - -void falco5220_state::bank_map(address_map &map) -{ - map(0x00000, 0x0ffff).ram().share("ram"); // 2x NEC D43256C-10L? (5220s only has 2x HY6264P-10) - map(0x10000, 0x11fff).ram().share("charram"); // CXK5864AP-10L / HY6264LP-12? -} - -void falco5220_state::io_map(address_map &map) -{ - map.global_mask(0xff); - map(0x00, 0x00).w(FUNC(falco5220_state::rombank_w)); -// map(0x50, 0x50).r // keyboard data -// map(0x51, 0x51).r // keyboard status - map(0x52, 0x52).w(FUNC(falco5220_state::rambank_w)); -// map(0x54, 0x54).w // vram address (low)? -// map(0x55, 0x55).w // vram address (high)? - map(0x5a, 0x5a).w(FUNC(falco5220_state::unk5a_w)); // 5220s only? - map(0x60, 0x63).rw("sio", FUNC(z80sio_device::ba_cd_r), FUNC(z80sio_device::ba_cd_w)); - map(0x70, 0x73).rw("ctc", FUNC(z80ctc_device::read), FUNC(z80ctc_device::write)); - map(0x88, 0x8b).nopw(); // second SIO? - map(0x90, 0x93).nopw(); // second CTC? -} - -void falco5220_state::machine_start() -{ - m_rombank->configure_entries(0, 4, memregion("roms")->base(), 0x4000); -} - -void falco5220_state::machine_reset() -{ - m_rombank->set_entry(0); - m_rambank->set_bank(0); -} - -static INPUT_PORTS_START(falco5220) -INPUT_PORTS_END - -static const gfx_layout char_layout = -{ - 8,16, - 512, - 1, - { 0 }, - { 7, 6, 5, 4, 3, 2, 1, 0 }, - { STEP16(0, 8) }, - 8*16 -}; - -static GFXDECODE_START(chars) - GFXDECODE_RAM("charram", 0, char_layout, 0, 1) -GFXDECODE_END - -static const z80_daisy_config daisy_chain[] = -{ - { "ctc" }, - { "sio" }, - { nullptr } -}; - -void falco5220_state::falco5220(machine_config &config) -{ - Z80(config, m_maincpu, 12.288_MHz_XTAL / 2); // Z0840006PSC - m_maincpu->set_addrmap(AS_PROGRAM, &falco5220_state::mem_map); - m_maincpu->set_addrmap(AS_IO, &falco5220_state::io_map); - m_maincpu->set_daisy_config(daisy_chain); - - ADDRESS_MAP_BANK(config, m_rambank); - m_rambank->set_map(&falco5220_state::bank_map); - m_rambank->set_data_width(8); - m_rambank->set_addr_width(17); - m_rambank->set_stride(0x2000); - - NVRAM(config, "nvram", nvram_device::DEFAULT_ALL_0); // CXK5864AP-10L + battery - - z80ctc_device &ctc(Z80CTC(config, "ctc", 12.288_MHz_XTAL / 2)); // Z0843006PSC - ctc.set_clk<0>(12.288_MHz_XTAL / 10); - ctc.set_clk<1>(12.288_MHz_XTAL / 10); - ctc.intr_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0); - - z80sio_device &sio(Z80SIO(config, "sio", 12.288_MHz_XTAL / 2)); // Z0844006PSC - sio.out_int_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0); - - screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); - screen.set_color(rgb_t::amber()); - screen.set_raw(37.98_MHz_XTAL, 1500, 0, 1320, 422, 0, 400); // 25.32 kHz/60 Hz confirmed - screen.set_screen_update(FUNC(falco5220_state::screen_update)); - - PALETTE(config, "palette", palette_device::MONOCHROME_HIGHLIGHT); - - GFXDECODE(config, "gfxdecode", "palette", chars); -} - -ROM_START(falco5220e) - ROM_REGION(0x10000, "roms", 0) // (c) 1987 FDP, Inc 2321 - ROM_LOAD("152321-000.bin", 0x0000, 0x8000, CRC(45ef4a68) SHA1(71e12dce710f9b66290618e299b2382834845057)) - ROM_LOAD("152321-001.bin", 0x8000, 0x8000, CRC(91056626) SHA1(217ca3de76d5e9861284f5b64f8eff8e541fad3d)) -ROM_END - -ROM_START(falco5220s) - ROM_REGION(0x10000, "roms", 0) // (c) 1989 FDP, Inc 0412 - ROM_LOAD("168412-00.bin", 0x0000, 0x8000, CRC(de34b149) SHA1(6a4824eb5941f4c6475949011e64b28ab185ba59)) - ROM_LOAD("168412-01.bin", 0x8000, 0x8000, CRC(e6facd5b) SHA1(2b9bf3ca18e3e30032dcb6faf0809b6cf6f467ac)) -ROM_END - -COMP(1987, falco5220e, 0, 0, falco5220, falco5220, falco5220_state, empty_init, "Falco Data Products", "Falco 5220e", MACHINE_IS_SKELETON) -COMP(1989, falco5220s, falco5220e, 0, falco5220, falco5220, falco5220_state, empty_init, "Falco Data Products", "Falco 5220s", MACHINE_IS_SKELETON) diff --git a/src/mame/machine/f5220_kbd.cpp b/src/mame/machine/f5220_kbd.cpp new file mode 100644 index 00000000000..8cd25c89967 --- /dev/null +++ b/src/mame/machine/f5220_kbd.cpp @@ -0,0 +1,300 @@ +// license: BSD-3-Clause +// copyright-holders: Dirk Best +/*************************************************************************** + + Falco F5220 Keyboard + +***************************************************************************/ + +#include "emu.h" +#include "f5220_kbd.h" +#include "machine/keyboard.ipp" + + +DEFINE_DEVICE_TYPE(F5220_KBD, f5220_kbd_device, "f5220_kbd", "F5220 Keyboard") + + +//************************************************************************** +// DEVICE DEFINITIONS +//************************************************************************** + +//------------------------------------------------- +// input_ports - device-specific input ports +//------------------------------------------------- + +// Missing: Local Print, Break, Function + +static INPUT_PORTS_START( keyboard ) + PORT_START("row_0") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 00 */ PORT_NAME("00") + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 01 */ PORT_CODE(KEYCODE_SCRLOCK) PORT_NAME("Hold Session") + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 02 */ PORT_NAME("02") // print? + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 03 */ PORT_NAME("03") // print? + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 04 */ PORT_CODE(KEYCODE_ASTERISK) PORT_NAME("SetUp") + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 05 */ PORT_NAME("05") + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 06 */ PORT_NAME("06") + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 07 */ PORT_NAME("Switch Session") + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 08 */ PORT_CODE(KEYCODE_F6) PORT_CHAR(UCHAR_MAMEKEY(F6)) + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 09 */ PORT_CODE(KEYCODE_F7) PORT_CHAR(UCHAR_MAMEKEY(F7)) + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0a */ PORT_CODE(KEYCODE_F8) PORT_CHAR(UCHAR_MAMEKEY(F8)) + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0b */ PORT_CODE(KEYCODE_F9) PORT_CHAR(UCHAR_MAMEKEY(F9)) + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0c */ PORT_CODE(KEYCODE_F10) PORT_CHAR(UCHAR_MAMEKEY(F10)) + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0d */ PORT_CODE(KEYCODE_F11) PORT_CHAR(UCHAR_MAMEKEY(F11)) + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0e */ PORT_CODE(KEYCODE_F12) PORT_CHAR(UCHAR_MAMEKEY(F12)) + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 0f */ PORT_CODE(KEYCODE_F13) PORT_CHAR(UCHAR_MAMEKEY(F13)) + + PORT_START("row_1") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 10 */ PORT_CODE(KEYCODE_F14) PORT_CHAR(UCHAR_MAMEKEY(F14)) + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 11 */ PORT_CODE(KEYCODE_F15) PORT_NAME("Help") + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 12 */ PORT_CODE(KEYCODE_END) PORT_NAME("Prev Scrn") + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 13 */ PORT_CODE(KEYCODE_F16) PORT_NAME("Do") + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 14 */ PORT_NAME("14") + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 15 */ PORT_CODE(KEYCODE_F17) PORT_CHAR(UCHAR_MAMEKEY(F17)) + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 16 */ PORT_CODE(KEYCODE_F18) PORT_CHAR(UCHAR_MAMEKEY(F18)) + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 17 */ PORT_CODE(KEYCODE_F19) PORT_CHAR(UCHAR_MAMEKEY(F19)) + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 18 */ PORT_CODE(KEYCODE_F20) PORT_CHAR(UCHAR_MAMEKEY(F20)) + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 19 */ PORT_CODE(KEYCODE_PGDN) PORT_NAME("Next Scrn") + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1a */ PORT_CODE(KEYCODE_TILDE) PORT_CHAR('`') PORT_CHAR('~') + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1b */ PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!') + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1c */ PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('@') + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1d */ PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#') + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1e */ PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$') + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 1f */ PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%') + + PORT_START("row_2") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 20 */ PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('^') + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 21 */ PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('&') + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 22 */ PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('*') + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 23 */ PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR('(') + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 24 */ PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(')') + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 25 */ PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_CHAR('_') + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 26 */ PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('=') PORT_CHAR('+') + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 27 */ PORT_CODE(KEYCODE_RCONTROL) PORT_CHAR(UCHAR_MAMEKEY(DEL)) + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 28 */ PORT_CODE(KEYCODE_INSERT) PORT_NAME("Find") + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 29 */ PORT_CODE(KEYCODE_HOME) PORT_NAME("Insert Here") + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 2a */ PORT_CODE(KEYCODE_PGUP) PORT_NAME("Remove") + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 2b */ PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2)) PORT_NAME("PF2") + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 2c */ PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3)) PORT_NAME("PF3") + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 2d */ PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4)) PORT_NAME("PF4") + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 2e */ PORT_CODE(KEYCODE_ESC) PORT_CHAR(27) + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 2f */ PORT_CODE(KEYCODE_TAB) PORT_CHAR(9) + + PORT_START("row_3") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 30 */ PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q') + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 31 */ PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W') + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 32 */ PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E') + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 33 */ PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R') + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 34 */ PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T') + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 35 */ PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y') + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 36 */ PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U') + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 37 */ PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I') + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 38 */ PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O') + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 39 */ PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P') + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 3a */ PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('[') PORT_CHAR('{') + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 3b */ PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR(']') PORT_CHAR('}') + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 3c */ PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 3d */ PORT_NAME("3d") + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 3e */ PORT_CODE(KEYCODE_DEL) PORT_NAME("Select") + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 3f */ PORT_NAME("3f") + + PORT_START("row_4") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 40 */ PORT_CODE(KEYCODE_8_PAD) PORT_CHAR(UCHAR_MAMEKEY(8_PAD)) + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 41 */ PORT_CODE(KEYCODE_9_PAD) PORT_CHAR(UCHAR_MAMEKEY(9_PAD)) + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 42 */ PORT_CODE(KEYCODE_MINUS_PAD) PORT_CHAR(UCHAR_MAMEKEY(MINUS_PAD)) + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 43 */ PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_SHIFT_2) + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 44 */ PORT_CODE(KEYCODE_CAPSLOCK) PORT_CHAR(UCHAR_MAMEKEY(CAPSLOCK)) + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 45 */ PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A') + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 46 */ PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S') + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 47 */ PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D') + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 48 */ PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F') + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 49 */ PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G') + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4a */ PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H') + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4b */ PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J') + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4c */ PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K') + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4d */ PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L') + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4e */ PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR(':') + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 4f */ PORT_CODE(KEYCODE_QUOTE) PORT_CHAR('\'') PORT_CHAR('"') + + PORT_START("row_5") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 50 */ PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('\\') PORT_CHAR('|') + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 51 */ PORT_NAME("51") + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 52 */ PORT_NAME("52") + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 53 */ PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) PORT_NAME("\xe2\x86\x91") + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 54 */ PORT_NAME("54") + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 55 */ PORT_CODE(KEYCODE_5_PAD) PORT_CHAR(UCHAR_MAMEKEY(5_PAD)) + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 56 */ PORT_CODE(KEYCODE_6_PAD) PORT_CHAR(UCHAR_MAMEKEY(6_PAD)) + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 57 */ PORT_CODE(KEYCODE_COMMA_PAD) PORT_CHAR(UCHAR_MAMEKEY(COMMA_PAD)) + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 58 */ PORT_NAME("58") + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 59 */ PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1) PORT_NAME("Left Shift") + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5a */ PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR('<') PORT_CHAR('>') + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5b */ PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z') + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5c */ PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X') + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5d */ PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C') + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5e */ PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V') + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 5f */ PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B') + + PORT_START("row_6") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 60 */ PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N') + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 61 */ PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M') + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 62 */ PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 63 */ PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 64 */ PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?') + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 65 */ PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1) PORT_NAME("Right Shift") + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 66 */ PORT_NAME("66") + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 67 */ PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) PORT_NAME("\xe2\x86\x93") + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 68 */ PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) PORT_NAME("\xe2\x86\x92") + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 69 */ PORT_CODE(KEYCODE_2_PAD) PORT_CHAR(UCHAR_MAMEKEY(2_PAD)) + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6a */ PORT_CODE(KEYCODE_3_PAD) PORT_CHAR(UCHAR_MAMEKEY(3_PAD)) + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6b */ PORT_CODE(KEYCODE_ENTER_PAD) PORT_CHAR(UCHAR_MAMEKEY(ENTER_PAD)) + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6c */ PORT_NAME("6c") + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6d */ PORT_NAME("6d") + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6e */ PORT_NAME("6e Function?") + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 6f */ PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') + + PORT_START("row_7") + PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 70 */ PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8) + PORT_BIT(0x0002, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 71 */ PORT_CODE(KEYCODE_RCONTROL) PORT_NAME("Line Feed Home") + PORT_BIT(0x0004, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 72 */ PORT_CODE(KEYCODE_0_PAD) PORT_CHAR(UCHAR_MAMEKEY(0_PAD)) + PORT_BIT(0x0008, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 73 */ PORT_NAME("73") + PORT_BIT(0x0010, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 74 */ PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) PORT_NAME("\xe2\x86\x90") + PORT_BIT(0x0020, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 75 */ PORT_CODE(KEYCODE_1_PAD) PORT_CHAR(UCHAR_MAMEKEY(1_PAD)) + PORT_BIT(0x0040, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 76 */ PORT_CODE(KEYCODE_4_PAD) PORT_CHAR(UCHAR_MAMEKEY(4_PAD)) + PORT_BIT(0x0080, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 77 */ PORT_CODE(KEYCODE_7_PAD) PORT_CHAR(UCHAR_MAMEKEY(7_PAD)) + PORT_BIT(0x0100, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 78 */ PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1)) PORT_NAME("PF1") + PORT_BIT(0x0200, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 79 */ PORT_NAME("79") + PORT_BIT(0x0400, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 7a */ PORT_NAME("7a") + PORT_BIT(0x0800, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 7b */ PORT_NAME("7b") + PORT_BIT(0x1000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 7c */ PORT_NAME("7c") + PORT_BIT(0x2000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 7d */ PORT_NAME("7d") + PORT_BIT(0x4000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 7e */ PORT_NAME("7e") + PORT_BIT(0x8000, IP_ACTIVE_HIGH, IPT_KEYBOARD) /* 7f */ PORT_NAME("7f") +INPUT_PORTS_END + +ioport_constructor f5220_kbd_device::device_input_ports() const +{ + return INPUT_PORTS_NAME( keyboard ); +} + + +//************************************************************************** +// LIVE DEVICE +//************************************************************************** + +//------------------------------------------------- +// f5220_kbd_device - constructor +//------------------------------------------------- + +f5220_kbd_device::f5220_kbd_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock) + : device_t(mconfig, F5220_KBD, tag, owner, clock), + device_matrix_keyboard_interface(mconfig, *this, "row_0", "row_1", "row_2", "row_3", "row_4", "row_5", "row_6", "row_7"), + m_int_handler(*this), + m_data(0x00) +{ +} + + +//------------------------------------------------- +// device_start - device-specific startup +//------------------------------------------------- + +void f5220_kbd_device::device_start() +{ + // resolve callbacks + m_int_handler.resolve_safe(); + + // timer for initial keyboard data + m_reset_timer = timer_alloc(0); + m_reset_timer->adjust(attotime::from_msec(1000)); + + // register for state saving + save_item(NAME(m_data)); +} + +//------------------------------------------------- +// device_start - device-specific reset +//------------------------------------------------- + +void f5220_kbd_device::device_reset() +{ + reset_key_state(); + start_processing(attotime::from_hz(9600)); + typematic_stop(); + + m_data = 0x00; +} + +//------------------------------------------------- +// device_timer - device-specific timer +//------------------------------------------------- + +void f5220_kbd_device::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) +{ + logerror("Reset\n"); + + m_int_handler(1); + m_int_handler(0); +} + +//------------------------------------------------- +// read - external read from keyboard +//------------------------------------------------- + +uint8_t f5220_kbd_device::read() +{ + return m_data; +} + +//------------------------------------------------- +// key_make - handle a key being pressed +//------------------------------------------------- + +void f5220_kbd_device::key_make(uint8_t row, uint8_t column) +{ + uint8_t code = translate(row, column); + send_key(code); + typematic_start(row, column, attotime::from_msec(750), attotime::from_msec(50)); +} + +//------------------------------------------------- +// key_break - handle a key being released +//------------------------------------------------- + +void f5220_kbd_device::key_break(uint8_t row, uint8_t column) +{ + if (typematic_is(row, column)) + typematic_stop(); + + uint8_t code = translate(row, column); + + send_key(0x80 | code); +} + +//------------------------------------------------- +// key_repeat - handle a key being repeated +//------------------------------------------------- + +void f5220_kbd_device::key_repeat(u8 row, u8 column) +{ + uint8_t code = translate(row, column); + send_key(code); +} + +//------------------------------------------------- +// translate - row and column to key code +//------------------------------------------------- + +uint8_t f5220_kbd_device::translate(uint8_t row, uint8_t column) +{ + return row * 16 + column; +} + +//------------------------------------------------- +// send_key - send key code to host +//------------------------------------------------- + +void f5220_kbd_device::send_key(uint8_t code) +{ + m_data = code; + m_int_handler(1); + m_int_handler(0); +} diff --git a/src/mame/machine/f5220_kbd.h b/src/mame/machine/f5220_kbd.h new file mode 100644 index 00000000000..66539505cc4 --- /dev/null +++ b/src/mame/machine/f5220_kbd.h @@ -0,0 +1,60 @@ +// license: BSD-3-Clause +// copyright-holders: Dirk Best +/*************************************************************************** + + Falco F5220 Keyboard + +***************************************************************************/ + +#ifndef MAME_MACHINE_F5220_KBD_H +#define MAME_MACHINE_F5220_KBD_H + +#pragma once + +#include "machine/keyboard.h" + + +//************************************************************************** +// TYPE DEFINITIONS +//************************************************************************** + +// ======================> f5220_kbd_device + +class f5220_kbd_device : public device_t, protected device_matrix_keyboard_interface<8> +{ +public: + // construction/destruction + f5220_kbd_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock = 0); + + // callbacks + auto int_handler() { return m_int_handler.bind(); } + + uint8_t read(); + +protected: + // device-level overrides + virtual ioport_constructor device_input_ports() const override; + virtual void device_start() override; + virtual void device_reset() override; + virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) override; + + // device_matrix_keyboard_interface overrides + virtual void key_make(uint8_t row, uint8_t column) override; + virtual void key_break(uint8_t row, uint8_t column) override; + virtual void key_repeat(uint8_t row, uint8_t column) override; + +private: + devcb_write_line m_int_handler; + + uint8_t translate(uint8_t row, uint8_t column); + void send_key(uint8_t code); + + emu_timer *m_reset_timer; + + uint8_t m_data; +}; + +// device type definition +DECLARE_DEVICE_TYPE(F5220_KBD, f5220_kbd_device) + +#endif // MAME_MACHINE_F5220_KBD_H diff --git a/src/mame/mame.lst b/src/mame/mame.lst index 5ac38c121bb..afc75f93085 100644 --- a/src/mame/mame.lst +++ b/src/mame/mame.lst @@ -13744,8 +13744,9 @@ f387x // (c) 1979 Fairchild @source:facit4440.cpp facit4440 // 1984 -@source:falco5220.cpp +@source:falco500.cpp falco5220e // 1987 +falco500e // 1991 falco5220s // 1989 @source:falcots.cpp diff --git a/src/mame/mess.flt b/src/mame/mess.flt index d0953273662..137134b2be9 100644 --- a/src/mame/mess.flt +++ b/src/mame/mess.flt @@ -307,7 +307,7 @@ exorterm.cpp exp85.cpp f387x.cpp facit4440.cpp -falco5220.cpp +falco500.cpp falcots.cpp falcots28.cpp fanucs15.cpp -- cgit v1.2.3