mirror of
https://github.com/holub/mame
synced 2025-04-16 13:34:55 +03:00
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]
This commit is contained in:
Dirk Best
parent
728397ecca
commit
0c8d901195
@ -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",
|
||||
}
|
||||
|
||||
629
src/mame/drivers/falco500.cpp
Normal file
629
src/mame/drivers/falco500.cpp
Normal file
@ -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<z80_device> m_maincpu;
|
||||
required_device<address_map_bank_device> m_rambank;
|
||||
required_device<z80ctc_device> m_ctc;
|
||||
required_device<screen_device> m_screen;
|
||||
required_device<palette_device> m_palette;
|
||||
required_memory_bank m_rombank;
|
||||
required_shared_ptr<uint8_t> m_ram;
|
||||
required_shared_ptr<uint8_t> m_charram;
|
||||
required_device<f5220_kbd_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 )
|
||||
@ -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<z80_device> m_maincpu;
|
||||
required_device<address_map_bank_device> m_rambank;
|
||||
required_device<screen_device> m_screen;
|
||||
required_memory_bank m_rombank;
|
||||
required_shared_ptr<u8> m_ram;
|
||||
required_shared_ptr<u8> 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)
|
||||
300
src/mame/machine/f5220_kbd.cpp
Normal file
300
src/mame/machine/f5220_kbd.cpp
Normal file
@ -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);
|
||||
}
|
||||
60
src/mame/machine/f5220_kbd.h
Normal file
60
src/mame/machine/f5220_kbd.h
Normal file
@ -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
|
||||
@ -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
|
||||
|
||||
@ -307,7 +307,7 @@ exorterm.cpp
|
||||
exp85.cpp
|
||||
f387x.cpp
|
||||
facit4440.cpp
|
||||
falco5220.cpp
|
||||
falco500.cpp
|
||||
falcots.cpp
|
||||
falcots28.cpp
|
||||
fanucs15.cpp
|
||||
|
||||
Loading…
Reference in New Issue
Block a user