mirror of
https://github.com/holub/mame
synced 2025-04-20 15:32:45 +03:00
New machines marked as NOT_WORKING
---------------------------------- Facit 4431 [Bitsavers] - Create directory for Facit and move facit4440 driver
This commit is contained in:
Dirk Best
parent
e8bc96e9b7
commit
eb760e879a
359
src/mame/facit/f4431.cpp
Normal file
359
src/mame/facit/f4431.cpp
Normal file
@ -0,0 +1,359 @@
|
||||
// license: BSD-3-Clause
|
||||
// copyright-holders: Dirk Best
|
||||
/***************************************************************************
|
||||
|
||||
Facit 4431
|
||||
|
||||
VT100 compatible terminal
|
||||
|
||||
Hardware:
|
||||
- Z80
|
||||
- TMS9927 CRTC
|
||||
- Z80A-DART
|
||||
- Z80A-CTC
|
||||
- ER1400
|
||||
- 6116
|
||||
- 6116 x2
|
||||
- 2114 x4
|
||||
- XTAL 9.828 MHz (B1), 14.976 MHz (B2), 4 MHz (B3)
|
||||
- AY-5-1013A UART
|
||||
|
||||
TODO:
|
||||
- Almost everything
|
||||
- Move ergo201 driver here? The hardware is very similar
|
||||
|
||||
Notes:
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
#include "emu.h"
|
||||
#include "cpu/z80/z80.h"
|
||||
#include "machine/ay31015.h"
|
||||
#include "machine/clock.h"
|
||||
#include "machine/er1400.h"
|
||||
#include "machine/z80ctc.h"
|
||||
#include "machine/z80sio.h"
|
||||
#include "video/tms9927.h"
|
||||
#include "emupal.h"
|
||||
#include "screen.h"
|
||||
|
||||
|
||||
namespace {
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// TYPE DEFINITIONS
|
||||
//**************************************************************************
|
||||
|
||||
class f4431_state : public driver_device
|
||||
{
|
||||
public:
|
||||
f4431_state(const machine_config &mconfig, device_type type, const char *tag) :
|
||||
driver_device(mconfig, type, tag),
|
||||
m_maincpu(*this, "maincpu"),
|
||||
m_earom(*this, "earom"),
|
||||
m_ctc(*this, "ctc"),
|
||||
m_dart(*this, "dart"),
|
||||
m_vtc(*this, "vtc"),
|
||||
m_screen(*this, "screen"),
|
||||
m_uart(*this, "uart"),
|
||||
m_ascii(*this, "ascii"),
|
||||
m_chargen(*this, "chargen"),
|
||||
m_switches(*this, "switches"),
|
||||
m_display_enabled(false),
|
||||
m_nmi_disabled(true)
|
||||
{ }
|
||||
|
||||
void f4431(machine_config &config);
|
||||
|
||||
protected:
|
||||
virtual void machine_start() override;
|
||||
virtual void machine_reset() override;
|
||||
|
||||
private:
|
||||
required_device<z80_device> m_maincpu;
|
||||
required_device<er1400_device> m_earom;
|
||||
required_device<z80ctc_device> m_ctc;
|
||||
required_device<z80dart_device> m_dart;
|
||||
required_device<tms9927_device> m_vtc;
|
||||
required_device<screen_device> m_screen;
|
||||
required_device<ay31015_device> m_uart;
|
||||
required_shared_ptr<uint8_t> m_ascii;
|
||||
required_region_ptr<uint8_t> m_chargen;
|
||||
required_ioport m_switches;
|
||||
|
||||
void mem_map(address_map &map);
|
||||
void io_map(address_map &map);
|
||||
|
||||
uint8_t latch_r();
|
||||
void latch_w(uint8_t data);
|
||||
|
||||
void scanline_cb(uint32_t data);
|
||||
uint32_t screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect);
|
||||
void brightness_w(uint8_t data);
|
||||
|
||||
bool m_display_enabled;
|
||||
bool m_nmi_disabled;
|
||||
};
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// ADDRESS MAPS
|
||||
//**************************************************************************
|
||||
|
||||
void f4431_state::mem_map(address_map &map)
|
||||
{
|
||||
map(0x0000, 0x5fff).rom();
|
||||
map(0x2000, 0x2000).w(FUNC(f4431_state::brightness_w));
|
||||
map(0x3000, 0x300f).w(m_vtc, FUNC(tms9927_device::write));
|
||||
map(0x4000, 0x4000).w(FUNC(f4431_state::latch_w));
|
||||
map(0x5000, 0x5000).w(m_uart, FUNC(ay31015_device::transmit));
|
||||
map(0x6000, 0x6000).r(m_uart, FUNC(ay31015_device::receive));
|
||||
map(0x6001, 0x6001).r(FUNC(f4431_state::latch_r));
|
||||
map(0x7000, 0x77ff).ram(); // scratchpad ram
|
||||
map(0x8000, 0x8fff).ram().share(m_ascii);
|
||||
map(0xc000, 0xcfff).ram(); // attribute ram
|
||||
}
|
||||
|
||||
void f4431_state::io_map(address_map &map)
|
||||
{
|
||||
map.global_mask(0xff);
|
||||
map(0xf4, 0xf7).rw(m_dart, FUNC(z80dart_device::cd_ba_r), FUNC(z80dart_device::cd_ba_w));
|
||||
map(0xf8, 0xfb).rw(m_ctc, FUNC(z80ctc_device::read), FUNC(z80ctc_device::write));
|
||||
}
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// INPUT PORT DEFINITIONS
|
||||
//**************************************************************************
|
||||
|
||||
static INPUT_PORTS_START( f4431 )
|
||||
PORT_START("switches")
|
||||
PORT_DIPNAME(0x01, 0x01, "W4 (Production Test)")
|
||||
PORT_DIPSETTING( 0x01, DEF_STR( Off ))
|
||||
PORT_DIPSETTING( 0x00, DEF_STR( On ))
|
||||
PORT_DIPNAME(0x02, 0x02, "W5 (Disable EAROM Save)")
|
||||
PORT_DIPSETTING( 0x02, DEF_STR( Off ))
|
||||
PORT_DIPSETTING( 0x00, DEF_STR( On ))
|
||||
INPUT_PORTS_END
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// VIDEO EMULATION
|
||||
//**************************************************************************
|
||||
|
||||
void f4431_state::scanline_cb(uint32_t data)
|
||||
{
|
||||
// in the actual system this would be generated
|
||||
// by the r0 and r3 output of the vtc
|
||||
|
||||
if (!m_nmi_disabled && ((data % 10) == 0))
|
||||
{
|
||||
m_maincpu->set_input_line(INPUT_LINE_NMI, ASSERT_LINE);
|
||||
m_maincpu->set_input_line(INPUT_LINE_NMI, CLEAR_LINE);
|
||||
}
|
||||
}
|
||||
|
||||
uint32_t f4431_state::screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect)
|
||||
{
|
||||
if (m_display_enabled)
|
||||
{
|
||||
for (int y = 0; y < 25; y++)
|
||||
{
|
||||
for (int x = 0; x < 80; x++)
|
||||
{
|
||||
uint8_t code = m_ascii[y * 80 + x];
|
||||
|
||||
for (int i = 0; i < 10; i++)
|
||||
{
|
||||
uint8_t data = m_chargen[(i << 7) | code];
|
||||
|
||||
bitmap.pix(y * 10 + i, x * 10 + 0) = BIT(data, 7) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 1) = (BIT(data, 7) || BIT(data, 6)) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 2) = (BIT(data, 6) || BIT(data, 5)) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 3) = (BIT(data, 5) || BIT(data, 4)) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 4) = (BIT(data, 4) || BIT(data, 3)) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 5) = (BIT(data, 3) || BIT(data, 2)) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 6) = (BIT(data, 2) || BIT(data, 1)) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 7) = (BIT(data, 1) || BIT(data, 0)) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 8) = BIT(data, 0) ? rgb_t::white() : rgb_t::black();
|
||||
bitmap.pix(y * 10 + i, x * 10 + 9) = rgb_t::black();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
bitmap.fill(rgb_t::black(), cliprect);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
void f4431_state::brightness_w(uint8_t data)
|
||||
{
|
||||
logerror("brightness_w: %02x\n", data);
|
||||
}
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// MACHINE EMULATION
|
||||
//**************************************************************************
|
||||
|
||||
uint8_t f4431_state::latch_r()
|
||||
{
|
||||
// 7------- vsync
|
||||
// -6------ not connected
|
||||
// --5----- earom data
|
||||
// ---4---- not connected
|
||||
// ----3--- switch w5 (disable earom save)
|
||||
// -----2-- switch w4 (production test)
|
||||
// ------1- uart dav
|
||||
// -------0 uart tbe/boc
|
||||
|
||||
uint8_t data = 0;
|
||||
|
||||
data |= (m_uart->tbmt_r() | m_uart->eoc_r()) << 0;
|
||||
data |= m_uart->dav_r() << 1;
|
||||
data |= m_switches->read() << 2;
|
||||
data |= m_earom->data_r() << 5;
|
||||
data |= m_screen->vblank() << 7;
|
||||
|
||||
return data;
|
||||
}
|
||||
|
||||
void f4431_state::latch_w(uint8_t data)
|
||||
{
|
||||
// 7------- 80/132 columns
|
||||
// -6------ interrupt disable
|
||||
// --5----- screen blank
|
||||
// ---4---- earom clock
|
||||
// ----3--- earom c2
|
||||
// -----2-- earom c3
|
||||
// ------1- earom data
|
||||
// -------0 earom c1
|
||||
|
||||
logerror("latch_w: %02x\n", data);
|
||||
|
||||
m_earom->c1_w(BIT(data, 0));
|
||||
|
||||
// correct?
|
||||
m_earom->data_w(BIT(data, 4) ? 0 : BIT(data, 1));
|
||||
|
||||
m_earom->c3_w(BIT(data, 2));
|
||||
m_earom->c2_w(BIT(data, 3));
|
||||
m_earom->clock_w(BIT(data, 4));
|
||||
|
||||
m_display_enabled = bool(BIT(data, 5));
|
||||
m_nmi_disabled = bool(BIT(data, 6));
|
||||
}
|
||||
|
||||
void f4431_state::machine_start()
|
||||
{
|
||||
// register for save states
|
||||
save_item(NAME(m_display_enabled));
|
||||
save_item(NAME(m_nmi_disabled));
|
||||
}
|
||||
|
||||
void f4431_state::machine_reset()
|
||||
{
|
||||
m_display_enabled = false;
|
||||
m_nmi_disabled = true;
|
||||
}
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// MACHINE DEFINTIONS
|
||||
//**************************************************************************
|
||||
|
||||
static const z80_daisy_config daisy_chain[] =
|
||||
{
|
||||
{ "dart" },
|
||||
{ "ctc" },
|
||||
{ nullptr }
|
||||
};
|
||||
|
||||
void f4431_state::f4431(machine_config &config)
|
||||
{
|
||||
Z80(config, m_maincpu, 4_MHz_XTAL);
|
||||
m_maincpu->set_addrmap(AS_PROGRAM, &f4431_state::mem_map);
|
||||
m_maincpu->set_addrmap(AS_IO, &f4431_state::io_map);
|
||||
m_maincpu->set_daisy_config(daisy_chain);
|
||||
|
||||
ER1400(config, m_earom);
|
||||
|
||||
Z80CTC(config, m_ctc, 4_MHz_XTAL);
|
||||
m_ctc->intr_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0);
|
||||
m_ctc->set_clk<0>(4_MHz_XTAL / 13);
|
||||
m_ctc->zc_callback<0>().set(m_dart, FUNC(z80dart_device::rxca_w));
|
||||
m_ctc->set_clk<1>(4_MHz_XTAL / 13);
|
||||
m_ctc->zc_callback<1>().set(m_dart, FUNC(z80dart_device::txca_w));
|
||||
m_ctc->set_clk<2>(4_MHz_XTAL / 13);
|
||||
m_ctc->zc_callback<2>().set(m_dart, FUNC(z80dart_device::rxtxcb_w));
|
||||
|
||||
Z80DART(config, m_dart, 4_MHz_XTAL);
|
||||
m_dart->out_int_callback().set_inputline(m_maincpu, INPUT_LINE_IRQ0);
|
||||
// port a: serial i/o
|
||||
// port b: printer
|
||||
|
||||
SCREEN(config, m_screen, SCREEN_TYPE_RASTER);
|
||||
m_screen->set_color(rgb_t::green());
|
||||
m_screen->set_raw(9.828_MHz_XTAL * 2, 1020, 0, 800, 268, 0, 250); // probably wrong
|
||||
m_screen->set_screen_update(FUNC(f4431_state::screen_update));
|
||||
m_screen->scanline().set(FUNC(f4431_state::scanline_cb));
|
||||
|
||||
PALETTE(config, "palette", palette_device::MONOCHROME);
|
||||
|
||||
TMS9927(config, m_vtc, 9.828_MHz_XTAL / 6); // ?
|
||||
m_vtc->set_char_width(10); // renders in half-dots?
|
||||
m_vtc->set_screen("screen");
|
||||
m_vtc->hsyn_callback().set(m_ctc, FUNC(z80ctc_device::trg3));
|
||||
|
||||
AY31015(config, m_uart);
|
||||
}
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// ROM DEFINITIONS
|
||||
//**************************************************************************
|
||||
|
||||
ROM_START( f4431 )
|
||||
ROM_REGION(0x6000, "maincpu", 0)
|
||||
ROM_LOAD("11420050-00_4431.d73", 0x0000, 0x1000, CRC(e7a9c982) SHA1(60c2eb769bd6051b4acaf38750ef40b9d02c568c))
|
||||
ROM_COPY("maincpu", 0x0000, 0x1000, 0x1000)
|
||||
ROM_LOAD("11420060-00_4431.d74", 0x2000, 0x1000, CRC(e9703cf0) SHA1(9eef6d4f0b57a6430a034f9405d4d8279723e2a0))
|
||||
ROM_COPY("maincpu", 0x2000, 0x3000, 0x1000)
|
||||
ROM_LOAD("11420070-00_4431.d75", 0x4000, 0x1000, CRC(a0d5b59e) SHA1(fca5b25163d942ec688d82004253850a3e08b0af))
|
||||
ROM_COPY("maincpu", 0x4000, 0x5000, 0x1000)
|
||||
|
||||
ROM_REGION(0x800, "chargen", 0)
|
||||
ROM_LOAD("11419840-00_cg30.d40", 0x000, 0x800, CRC(d2988792) SHA1(bc3b59882c351fb503371e358e396e7d683c9467))
|
||||
// National variants (not dumped):
|
||||
// 1141 89 50-00/0 UK
|
||||
// 1141 98 60-00/9 FRA
|
||||
// 1141 90 70-00/8 GER
|
||||
// 1141 98 80-00/7 NOR
|
||||
// 1141 98 90-00/6 SWE/FIN
|
||||
// 1141 99 00-00/3 SPA
|
||||
// 1141 99 10-00/2 DEN
|
||||
|
||||
ROM_REGION(0x800, "attr", 0)
|
||||
ROM_LOAD("11419950-00_4431.d57", 0x000, 0x800, CRC(066dc6bd) SHA1(1ad17c9ec96544278d9f8494c19b4b3bce8e3a8e))
|
||||
|
||||
ROM_REGION(0x20, "prom", 0)
|
||||
ROM_LOAD("11419960-00_4431.d19", 0x00, 0x20, CRC(daae0c28) SHA1(58c55b8b9d4161a9d38259a4375cf19799ea0b7a))
|
||||
|
||||
ROM_REGION(0x800, "keyb", 0)
|
||||
ROM_LOAD("11419660-00_kb31.u3", 0x000, 0x800, CRC(45b90749) SHA1(91d0ef181fe05e9474871e26dc75c313cb67c337))
|
||||
ROM_END
|
||||
|
||||
|
||||
} // anonymous namespace
|
||||
|
||||
|
||||
//**************************************************************************
|
||||
// SYSTEM DRIVERS
|
||||
//**************************************************************************
|
||||
|
||||
// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS
|
||||
COMP( 1981, f4431, 0, 0, f4431, f4431, f4431_state, empty_init, "Facit", "4431", MACHINE_IS_SKELETON )
|
||||
@ -13872,12 +13872,15 @@ f1gpb // bootleg
|
||||
mosaicf2 // (c) 1999 F2 System
|
||||
royalpk2 //
|
||||
|
||||
@source:facit/f4431.cpp
|
||||
f4431 // 1981 Facit
|
||||
|
||||
@source:facit/facit4440.cpp
|
||||
facit4440 // 1984
|
||||
|
||||
@source:fairchild/f387x.cpp
|
||||
f387x // (c) 1979 Fairchild
|
||||
|
||||
@source:skeleton/facit4440.cpp
|
||||
facit4440 // 1984
|
||||
|
||||
@source:falco/falco500.cpp
|
||||
falco5220e // 1987
|
||||
falco500e // 1991
|
||||
|
||||
@ -247,6 +247,8 @@ epson/qx10.cpp
|
||||
ericsson/e9161.cpp
|
||||
ericsson/eispc.cpp
|
||||
exidy/sorcerer.cpp
|
||||
facit/f4431.cpp
|
||||
facit/facit4440.cpp
|
||||
fairchild/channelf.cpp
|
||||
fairchild/f387x.cpp
|
||||
fairlight/cmi.cpp
|
||||
@ -827,7 +829,6 @@ skeleton/epic14e.cpp
|
||||
skeleton/esprit.cpp
|
||||
skeleton/eurit.cpp
|
||||
skeleton/eurocom2.cpp
|
||||
skeleton/facit4440.cpp
|
||||
skeleton/fanucs15.cpp
|
||||
skeleton/fanucspmg.cpp
|
||||
skeleton/fc100.cpp
|
||||
|
||||
Loading…
Reference in New Issue
Block a user