mirror of
https://github.com/holub/mame
synced 2025-04-18 22:49:58 +03:00
Nascom: Clean up, add NASBUS emulation and make the floppy disc
controller a NASBUS card, convert to the new wdc emulation, add generic socket emulation, add initial software list.
This commit is contained in:
Dirk Best
parent
f63baa6dca
commit
1e9f57c2cd
45
hash/nascom_socket.xml
Normal file
45
hash/nascom_socket.xml
Normal file
@ -0,0 +1,45 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<!DOCTYPE softwarelist SYSTEM "softwarelist.dtd">
|
||||||
|
|
||||||
|
<!-- Nascom internal sockets for ROM/RAM -->
|
||||||
|
|
||||||
|
<softwarelist name="nascom_socket" description="Nascom internal sockets">
|
||||||
|
|
||||||
|
<software name="nasdos">
|
||||||
|
<description>NAS-DOS</description>
|
||||||
|
<year>1982</year>
|
||||||
|
<publisher>Lucas Control Systems</publisher>
|
||||||
|
<info name="usage" value="Enter ED000 to start" />
|
||||||
|
<part name="socket" interface="nascom_socket">
|
||||||
|
<dataarea name="d000" size="0x1000">
|
||||||
|
<!-- Normally supplied as 4 1k ROMs -->
|
||||||
|
<rom name="nasdos.rom" size="0x1000" crc="54a36f6d" sha1="1d063d04be5024f128bd589e6edc066e9a63fc1b" offset="0" />
|
||||||
|
</dataarea>
|
||||||
|
</part>
|
||||||
|
</software>
|
||||||
|
|
||||||
|
<software name="odebdis">
|
||||||
|
<description>Super-Debug 3.1 & Nas-Dis</description>
|
||||||
|
<year>198?</year>
|
||||||
|
<publisher><unknown></publisher>
|
||||||
|
<info name="usage" value="Enter EC000 to start Super-Debug or EC400 to start Nas-Dis" />
|
||||||
|
<part name="socket" interface="nascom_socket">
|
||||||
|
<dataarea name="c000" size="0x1000">
|
||||||
|
<rom name="odebdis.rom" size="0x1000" crc="b0dce113" sha1="545466ab12bcf2ab613d6aff90946efa319bd943" offset="0" />
|
||||||
|
</dataarea>
|
||||||
|
</part>
|
||||||
|
</software>
|
||||||
|
|
||||||
|
<software name="zeap">
|
||||||
|
<description>ZEAP Z80 Editor-Assembler 2.1</description>
|
||||||
|
<year>1980?</year>
|
||||||
|
<publisher>Sigma Accouting & Management Services</publisher>
|
||||||
|
<info name="usage" value="Enter ED000 to start" />
|
||||||
|
<part name="socket" interface="nascom_socket">
|
||||||
|
<dataarea name="d000" size="0x1000">
|
||||||
|
<rom name="zeap.rom" size="0x1000" crc="87ce8f68" sha1="e6dff4c30eecc9a5557395088d1d83776b9b4514" offset="0" />
|
||||||
|
</dataarea>
|
||||||
|
</part>
|
||||||
|
</software>
|
||||||
|
|
||||||
|
</softwarelist>
|
||||||
@ -2414,3 +2414,19 @@ if (BUSES["PSX_CONTROLLER"]~=null) then
|
|||||||
MAME_DIR .. "src/emu/bus/psx/memcard.h",
|
MAME_DIR .. "src/emu/bus/psx/memcard.h",
|
||||||
}
|
}
|
||||||
end
|
end
|
||||||
|
|
||||||
|
---------------------------------------------------
|
||||||
|
--
|
||||||
|
--@src/emu/bus/nasbus/nasbus.h,BUSES += NASBUS
|
||||||
|
---------------------------------------------------
|
||||||
|
|
||||||
|
if (BUSES["NASBUS"]~=null) then
|
||||||
|
files {
|
||||||
|
MAME_DIR .. "src/emu/bus/nasbus/nasbus.c",
|
||||||
|
MAME_DIR .. "src/emu/bus/nasbus/nasbus.h",
|
||||||
|
MAME_DIR .. "src/emu/bus/nasbus/cards.c",
|
||||||
|
MAME_DIR .. "src/emu/bus/nasbus/cards.h",
|
||||||
|
MAME_DIR .. "src/emu/bus/nasbus/floppy.c",
|
||||||
|
MAME_DIR .. "src/emu/bus/nasbus/floppy.h",
|
||||||
|
}
|
||||||
|
end
|
||||||
|
|||||||
@ -279,6 +279,8 @@ project "formats"
|
|||||||
MAME_DIR .. "src/lib/formats/mz_cas.h",
|
MAME_DIR .. "src/lib/formats/mz_cas.h",
|
||||||
MAME_DIR .. "src/lib/formats/nanos_dsk.c",
|
MAME_DIR .. "src/lib/formats/nanos_dsk.c",
|
||||||
MAME_DIR .. "src/lib/formats/nanos_dsk.h",
|
MAME_DIR .. "src/lib/formats/nanos_dsk.h",
|
||||||
|
MAME_DIR .. "src/lib/formats/nascom_dsk.c",
|
||||||
|
MAME_DIR .. "src/lib/formats/nascom_dsk.h",
|
||||||
MAME_DIR .. "src/lib/formats/naslite_dsk.c",
|
MAME_DIR .. "src/lib/formats/naslite_dsk.c",
|
||||||
MAME_DIR .. "src/lib/formats/naslite_dsk.h",
|
MAME_DIR .. "src/lib/formats/naslite_dsk.h",
|
||||||
MAME_DIR .. "src/lib/formats/nes_dsk.c",
|
MAME_DIR .. "src/lib/formats/nes_dsk.c",
|
||||||
|
|||||||
@ -606,6 +606,7 @@ BUSES["MACPDS"] = true
|
|||||||
BUSES["MIDI"] = true
|
BUSES["MIDI"] = true
|
||||||
BUSES["MEGADRIVE"] = true
|
BUSES["MEGADRIVE"] = true
|
||||||
BUSES["MSX_SLOT"] = true
|
BUSES["MSX_SLOT"] = true
|
||||||
|
BUSES["NASBUS"] = true
|
||||||
BUSES["NEOGEO"] = true
|
BUSES["NEOGEO"] = true
|
||||||
BUSES["NES"] = true
|
BUSES["NES"] = true
|
||||||
BUSES["NES_CTRL"] = true
|
BUSES["NES_CTRL"] = true
|
||||||
@ -1790,8 +1791,6 @@ files {
|
|||||||
createMESSProjects(_target, _subtarget, "nascom")
|
createMESSProjects(_target, _subtarget, "nascom")
|
||||||
files {
|
files {
|
||||||
MAME_DIR .. "src/mess/drivers/nascom1.c",
|
MAME_DIR .. "src/mess/drivers/nascom1.c",
|
||||||
MAME_DIR .. "src/mess/machine/nascom1.c",
|
|
||||||
MAME_DIR .. "src/mess/video/nascom1.c",
|
|
||||||
}
|
}
|
||||||
|
|
||||||
createMESSProjects(_target, _subtarget, "ne")
|
createMESSProjects(_target, _subtarget, "ne")
|
||||||
|
|||||||
13
src/emu/bus/nasbus/cards.c
Normal file
13
src/emu/bus/nasbus/cards.c
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom NASBUS Slot Devices
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#include "cards.h"
|
||||||
|
|
||||||
|
SLOT_INTERFACE_START( nasbus_slot_cards )
|
||||||
|
SLOT_INTERFACE("floppy", NASCOM_FDC)
|
||||||
|
SLOT_INTERFACE_END
|
||||||
20
src/emu/bus/nasbus/cards.h
Normal file
20
src/emu/bus/nasbus/cards.h
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom NASBUS Slot Devices
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#pragma once
|
||||||
|
|
||||||
|
#ifndef __NASBUS_CARDS_H__
|
||||||
|
#define __NASBUS_CARDS_H__
|
||||||
|
|
||||||
|
#include "emu.h"
|
||||||
|
|
||||||
|
#include "floppy.h"
|
||||||
|
|
||||||
|
SLOT_INTERFACE_EXTERN( nasbus_slot_cards );
|
||||||
|
|
||||||
|
#endif // __NASBUS_CARDS_H__
|
||||||
129
src/emu/bus/nasbus/floppy.c
Normal file
129
src/emu/bus/nasbus/floppy.c
Normal file
@ -0,0 +1,129 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom NASBUS Floppy Disc Controller
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#include "floppy.h"
|
||||||
|
#include "formats/nascom_dsk.h"
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// DEVICE DEFINITIONS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
const device_type NASCOM_FDC = &device_creator<nascom_fdc_device>;
|
||||||
|
|
||||||
|
FLOPPY_FORMATS_MEMBER( nascom_fdc_device::floppy_formats )
|
||||||
|
FLOPPY_NASCOM_FORMAT
|
||||||
|
FLOPPY_FORMATS_END
|
||||||
|
|
||||||
|
static SLOT_INTERFACE_START( nascom_floppies )
|
||||||
|
SLOT_INTERFACE("525qd", FLOPPY_525_QD)
|
||||||
|
SLOT_INTERFACE_END
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// machine_config_additions - device-specific
|
||||||
|
// machine configurations
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
static MACHINE_CONFIG_FRAGMENT( nascom_fdc )
|
||||||
|
MCFG_FD1793x_ADD("fd1793", XTAL_16MHz / 4 / 4)
|
||||||
|
|
||||||
|
MCFG_FLOPPY_DRIVE_ADD("fd1793:0", nascom_floppies, "525qd", nascom_fdc_device::floppy_formats)
|
||||||
|
MCFG_FLOPPY_DRIVE_ADD("fd1793:1", nascom_floppies, NULL, nascom_fdc_device::floppy_formats)
|
||||||
|
MCFG_FLOPPY_DRIVE_ADD("fd1793:2", nascom_floppies, NULL, nascom_fdc_device::floppy_formats)
|
||||||
|
MCFG_FLOPPY_DRIVE_ADD("fd1793:3", nascom_floppies, NULL, nascom_fdc_device::floppy_formats)
|
||||||
|
MACHINE_CONFIG_END
|
||||||
|
|
||||||
|
machine_config_constructor nascom_fdc_device::device_mconfig_additions() const
|
||||||
|
{
|
||||||
|
return MACHINE_CONFIG_NAME( nascom_fdc );
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// LIVE DEVICE
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// wordpro_device - constructor
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
nascom_fdc_device::nascom_fdc_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) :
|
||||||
|
device_t(mconfig, NASCOM_FDC, "Nascom Floppy Disc Controller", tag, owner, clock, "nascom_fdc", __FILE__),
|
||||||
|
device_nasbus_card_interface(mconfig, *this),
|
||||||
|
m_fdc(*this, "fd1793"),
|
||||||
|
m_floppy0(*this, "fd1793:0"),
|
||||||
|
m_floppy1(*this, "fd1793:1"),
|
||||||
|
m_floppy2(*this, "fd1793:2"),
|
||||||
|
m_floppy3(*this, "fd1793:3"),
|
||||||
|
m_floppy(NULL),
|
||||||
|
m_select(0)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// device_start - device-specific startup
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nascom_fdc_device::device_start()
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// device_reset - device-specific reset
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nascom_fdc_device::device_reset()
|
||||||
|
{
|
||||||
|
m_nasbus->m_io->install_readwrite_handler(0xe0, 0xe3, read8_delegate(FUNC(fd1793_t::read), m_fdc.target()), write8_delegate(FUNC(fd1793_t::write), m_fdc.target()));
|
||||||
|
m_nasbus->m_io->install_readwrite_handler(0xe4, 0xe4, read8_delegate(FUNC(nascom_fdc_device::select_r), this), write8_delegate(FUNC(nascom_fdc_device::select_w), this));
|
||||||
|
m_nasbus->m_io->install_read_handler(0xe5, 0xe5, read8_delegate(FUNC(nascom_fdc_device::status_r), this));
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// IMPLEMENTATION
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
READ8_MEMBER( nascom_fdc_device::select_r )
|
||||||
|
{
|
||||||
|
return m_select | 0xa0;
|
||||||
|
}
|
||||||
|
|
||||||
|
WRITE8_MEMBER( nascom_fdc_device::select_w )
|
||||||
|
{
|
||||||
|
logerror("nascom_fdc_device::select_w: 0x%02x\n", data);
|
||||||
|
|
||||||
|
m_floppy = NULL;
|
||||||
|
|
||||||
|
if (BIT(data, 0)) m_floppy = m_floppy0->get_device();
|
||||||
|
if (BIT(data, 1)) m_floppy = m_floppy1->get_device();
|
||||||
|
if (BIT(data, 2)) m_floppy = m_floppy2->get_device();
|
||||||
|
if (BIT(data, 3)) m_floppy = m_floppy3->get_device();
|
||||||
|
|
||||||
|
m_fdc->set_floppy(m_floppy);
|
||||||
|
|
||||||
|
if (m_floppy)
|
||||||
|
{
|
||||||
|
m_floppy->ss_w(BIT(data, 4));
|
||||||
|
m_floppy->mon_w(!BIT(data, 5));
|
||||||
|
}
|
||||||
|
|
||||||
|
m_fdc->dden_w(BIT(data, 6));
|
||||||
|
|
||||||
|
m_select = data;
|
||||||
|
}
|
||||||
|
|
||||||
|
READ8_MEMBER( nascom_fdc_device::status_r )
|
||||||
|
{
|
||||||
|
UINT8 data = 0;
|
||||||
|
|
||||||
|
data |= m_fdc->intrq_r() << 0;
|
||||||
|
data |= m_fdc->drq_r() << 7;
|
||||||
|
|
||||||
|
return data;
|
||||||
|
}
|
||||||
57
src/emu/bus/nasbus/floppy.h
Normal file
57
src/emu/bus/nasbus/floppy.h
Normal file
@ -0,0 +1,57 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom NASBUS Floppy Disc Controller
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#pragma once
|
||||||
|
|
||||||
|
#ifndef __NASBUS_FLOPPY_H__
|
||||||
|
#define __NASBUS_FLOPPY_H__
|
||||||
|
|
||||||
|
#include "emu.h"
|
||||||
|
#include "nasbus.h"
|
||||||
|
#include "machine/wd_fdc.h"
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// TYPE DEFINITIONS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
// ======================> nascom_fdc_device
|
||||||
|
|
||||||
|
class nascom_fdc_device : public device_t, public device_nasbus_card_interface
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
// construction/destruction
|
||||||
|
nascom_fdc_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock);
|
||||||
|
|
||||||
|
DECLARE_READ8_MEMBER( select_r );
|
||||||
|
DECLARE_WRITE8_MEMBER( select_w );
|
||||||
|
DECLARE_READ8_MEMBER( status_r );
|
||||||
|
|
||||||
|
DECLARE_FLOPPY_FORMATS(floppy_formats);
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual machine_config_constructor device_mconfig_additions() const;
|
||||||
|
virtual void device_start();
|
||||||
|
virtual void device_reset();
|
||||||
|
|
||||||
|
private:
|
||||||
|
required_device<fd1793_t> m_fdc;
|
||||||
|
required_device<floppy_connector> m_floppy0;
|
||||||
|
required_device<floppy_connector> m_floppy1;
|
||||||
|
required_device<floppy_connector> m_floppy2;
|
||||||
|
required_device<floppy_connector> m_floppy3;
|
||||||
|
|
||||||
|
floppy_image_device *m_floppy;
|
||||||
|
|
||||||
|
UINT8 m_select;
|
||||||
|
};
|
||||||
|
|
||||||
|
// device type definition
|
||||||
|
extern const device_type NASCOM_FDC;
|
||||||
|
|
||||||
|
#endif // __NASBUS_FLOPPY_H__
|
||||||
159
src/emu/bus/nasbus/nasbus.c
Normal file
159
src/emu/bus/nasbus/nasbus.c
Normal file
@ -0,0 +1,159 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom NASBUS
|
||||||
|
|
||||||
|
77-pin slot
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#include "nasbus.h"
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// NASBUS SLOT DEVICE
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
const device_type NASBUS_SLOT = &device_creator<nasbus_slot_device>;
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// nasbus_slot_device - constructor
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
nasbus_slot_device::nasbus_slot_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) :
|
||||||
|
device_t(mconfig, NASBUS_SLOT, "NASBUS Slot", tag, owner, clock, "nasbus_slot", __FILE__),
|
||||||
|
device_slot_interface(mconfig, *this),
|
||||||
|
m_nasbus_tag(NULL)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
nasbus_slot_device::nasbus_slot_device(const machine_config &mconfig, device_type type, const char *name,
|
||||||
|
const char *tag, device_t *owner, UINT32 clock, const char *shortname, const char *source) :
|
||||||
|
device_t(mconfig, type, name, tag, owner, clock, shortname, source),
|
||||||
|
device_slot_interface(mconfig, *this),
|
||||||
|
m_nasbus_tag(NULL)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
void nasbus_slot_device::set_nasbus_slot(device_t &device, device_t *owner, const char *nasbus_tag)
|
||||||
|
{
|
||||||
|
nasbus_slot_device &nasbus_card = dynamic_cast<nasbus_slot_device &>(device);
|
||||||
|
nasbus_card.m_owner = owner;
|
||||||
|
nasbus_card.m_nasbus_tag = nasbus_tag;
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// device_start - device-specific startup
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nasbus_slot_device::device_start()
|
||||||
|
{
|
||||||
|
device_nasbus_card_interface *dev = dynamic_cast<device_nasbus_card_interface *>(get_card_device());
|
||||||
|
|
||||||
|
if (dev)
|
||||||
|
{
|
||||||
|
nasbus_device *m_nasbus = downcast<nasbus_device *>(m_owner->subdevice(m_nasbus_tag));
|
||||||
|
m_nasbus->add_card(dev);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// NASBUS DEVICE
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
const device_type NASBUS = &device_creator<nasbus_device>;
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// nasbus_device - constructor
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
nasbus_device::nasbus_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) :
|
||||||
|
device_t(mconfig, NASBUS_SLOT, "NASBUS Backplane", tag, owner, clock, "nasbus", __FILE__),
|
||||||
|
m_program(NULL),
|
||||||
|
m_io(NULL)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// nasbus_device - destructor
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
nasbus_device::~nasbus_device()
|
||||||
|
{
|
||||||
|
m_dev.detach_all();
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// device_start - device-specific startup
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nasbus_device::device_start()
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// device_reset - device-specific reset
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nasbus_device::device_reset()
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// add_card - add new card to our bus
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nasbus_device::add_card(device_nasbus_card_interface *card)
|
||||||
|
{
|
||||||
|
card->set_nasbus_device(this);
|
||||||
|
m_dev.append(*card);
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// set_program_space - set address space we are attached to
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nasbus_device::set_program_space(address_space *program)
|
||||||
|
{
|
||||||
|
m_program = program;
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// set_io_space - set address space we are attached to
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
void nasbus_device::set_io_space(address_space *io)
|
||||||
|
{
|
||||||
|
m_io = io;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// CARTRIDGE INTERFACE
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// device_nasbus_card_interface - constructor
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
device_nasbus_card_interface::device_nasbus_card_interface(const machine_config &mconfig, device_t &device) :
|
||||||
|
device_slot_card_interface(mconfig, device),
|
||||||
|
m_next(NULL),
|
||||||
|
m_nasbus(NULL)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
//-------------------------------------------------
|
||||||
|
// ~device_nasbus_card_interface - destructor
|
||||||
|
//-------------------------------------------------
|
||||||
|
|
||||||
|
device_nasbus_card_interface::~device_nasbus_card_interface()
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
void device_nasbus_card_interface::set_nasbus_device(nasbus_device *nasbus)
|
||||||
|
{
|
||||||
|
m_nasbus = nasbus;
|
||||||
|
}
|
||||||
199
src/emu/bus/nasbus/nasbus.h
Normal file
199
src/emu/bus/nasbus/nasbus.h
Normal file
@ -0,0 +1,199 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom NASBUS
|
||||||
|
|
||||||
|
77-pin slot
|
||||||
|
|
||||||
|
1 0V
|
||||||
|
2 0V
|
||||||
|
3 0V
|
||||||
|
4 0V
|
||||||
|
5 Clock
|
||||||
|
6 (spare)
|
||||||
|
7 (spare)
|
||||||
|
8 (spare)
|
||||||
|
9 /RAM DISABLE
|
||||||
|
10 /RESET SWITCH
|
||||||
|
11 /NASCOM MEM
|
||||||
|
12 /NASCOM IO
|
||||||
|
13 /DBDR
|
||||||
|
14 /RESET
|
||||||
|
15 /HALT
|
||||||
|
16 /BAI
|
||||||
|
17 /BAO
|
||||||
|
18 /BUSRQ
|
||||||
|
19 IEI
|
||||||
|
20 IEO
|
||||||
|
21 (reserved for /NMI)
|
||||||
|
22 /INT
|
||||||
|
23 /WAIT
|
||||||
|
24 /RFSH
|
||||||
|
25 /MI
|
||||||
|
26 /IORQ
|
||||||
|
27 /MREQ
|
||||||
|
28 /WR
|
||||||
|
29 /RD
|
||||||
|
30 A0
|
||||||
|
31 A1
|
||||||
|
32 A2
|
||||||
|
33 A3
|
||||||
|
34 A4
|
||||||
|
35 A5
|
||||||
|
36 A6
|
||||||
|
37 A7
|
||||||
|
38 A8
|
||||||
|
39 A9
|
||||||
|
40 A10
|
||||||
|
41 A11
|
||||||
|
42 A12
|
||||||
|
43 A13
|
||||||
|
44 A14
|
||||||
|
45 A15
|
||||||
|
46 (reserved)
|
||||||
|
47 (reserved)
|
||||||
|
48 (reserved)
|
||||||
|
49 (reserved)
|
||||||
|
50 D0
|
||||||
|
51 D1
|
||||||
|
52 D2
|
||||||
|
53 D3
|
||||||
|
54 D4
|
||||||
|
55 D5
|
||||||
|
56 D6
|
||||||
|
57 D7
|
||||||
|
58 (reserved)
|
||||||
|
59 (reserved)
|
||||||
|
60 (reserved)
|
||||||
|
61 (reserved)
|
||||||
|
62 (reserved)
|
||||||
|
63 (reserved)
|
||||||
|
64 (reserved)
|
||||||
|
65 (reserved)
|
||||||
|
66 (unused)
|
||||||
|
67 (unused)
|
||||||
|
68 -5V
|
||||||
|
69 -5V
|
||||||
|
70 -12V
|
||||||
|
71 -12V
|
||||||
|
72 Keyway
|
||||||
|
73 +12V
|
||||||
|
74 +12V
|
||||||
|
75 +5V
|
||||||
|
76 +5V
|
||||||
|
77 +5V
|
||||||
|
78 +5V
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#pragma once
|
||||||
|
|
||||||
|
#ifndef __NASBUS_H__
|
||||||
|
#define __NASBUS_H__
|
||||||
|
|
||||||
|
#include "emu.h"
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// CONSTANTS / MACROS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
#define NASBUS_TAG "nasbus"
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// INTERFACE CONFIGURATION MACROS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
#define MCFG_NASBUS_ADD(_tag) \
|
||||||
|
MCFG_DEVICE_ADD(_tag, NASBUS, 0)
|
||||||
|
|
||||||
|
#define MCFG_NASBUS_SLOT_ADD(_tag, _slot_intf, _def_slot) \
|
||||||
|
MCFG_DEVICE_ADD(_tag, NASBUS_SLOT, 0) \
|
||||||
|
MCFG_DEVICE_SLOT_INTERFACE(_slot_intf, _def_slot, false) \
|
||||||
|
nasbus_slot_device::set_nasbus_slot(*device, owner, NASBUS_TAG);
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// TYPE DEFINITIONS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
// forward declaration
|
||||||
|
class device_nasbus_card_interface;
|
||||||
|
|
||||||
|
// ======================> nasbus_slot_device
|
||||||
|
|
||||||
|
class nasbus_slot_device : public device_t, public device_slot_interface
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
// construction/destruction
|
||||||
|
nasbus_slot_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock);
|
||||||
|
nasbus_slot_device(const machine_config &mconfig, device_type type, const char *name,
|
||||||
|
const char *tag, device_t *owner, UINT32 clock, const char *shortname, const char *source);
|
||||||
|
|
||||||
|
// device-level overrides
|
||||||
|
virtual void device_start();
|
||||||
|
|
||||||
|
// inline configuration
|
||||||
|
static void set_nasbus_slot(device_t &device, device_t *owner, const char *nasbus_tag);
|
||||||
|
|
||||||
|
protected:
|
||||||
|
// configuration
|
||||||
|
const char *m_nasbus_tag;
|
||||||
|
};
|
||||||
|
|
||||||
|
// device type definition
|
||||||
|
extern const device_type NASBUS_SLOT;
|
||||||
|
|
||||||
|
// ======================> nasbus_device
|
||||||
|
|
||||||
|
class nasbus_device : public device_t
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
// construction/destruction
|
||||||
|
nasbus_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock);
|
||||||
|
virtual ~nasbus_device();
|
||||||
|
|
||||||
|
void add_card(device_nasbus_card_interface *card);
|
||||||
|
|
||||||
|
void set_program_space(address_space *program);
|
||||||
|
void set_io_space(address_space *io);
|
||||||
|
|
||||||
|
address_space *m_program;
|
||||||
|
address_space *m_io;
|
||||||
|
|
||||||
|
protected:
|
||||||
|
// device-level overrides
|
||||||
|
virtual void device_start();
|
||||||
|
virtual void device_reset();
|
||||||
|
|
||||||
|
private:
|
||||||
|
simple_list<device_nasbus_card_interface> m_dev;
|
||||||
|
};
|
||||||
|
|
||||||
|
// device type definition
|
||||||
|
extern const device_type NASBUS;
|
||||||
|
|
||||||
|
// ======================> device_nasbus_interface
|
||||||
|
|
||||||
|
class device_nasbus_card_interface : public device_slot_card_interface
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
// construction/destruction
|
||||||
|
device_nasbus_card_interface(const machine_config &mconfig, device_t &device);
|
||||||
|
virtual ~device_nasbus_card_interface();
|
||||||
|
|
||||||
|
void set_nasbus_device(nasbus_device *nasbus);
|
||||||
|
|
||||||
|
device_nasbus_card_interface *next() const { return m_next; }
|
||||||
|
device_nasbus_card_interface *m_next;
|
||||||
|
|
||||||
|
protected:
|
||||||
|
nasbus_device *m_nasbus;
|
||||||
|
};
|
||||||
|
|
||||||
|
// include here so drivers don't need to
|
||||||
|
#include "cards.h"
|
||||||
|
|
||||||
|
#endif // __NASBUS_H__
|
||||||
45
src/lib/formats/nascom_dsk.c
Normal file
45
src/lib/formats/nascom_dsk.c
Normal file
@ -0,0 +1,45 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom 1/2/3
|
||||||
|
|
||||||
|
Disk image format
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#include "nascom_dsk.h"
|
||||||
|
|
||||||
|
nascom_format::nascom_format() : wd177x_format(formats)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
const char *nascom_format::name() const
|
||||||
|
{
|
||||||
|
return "nascom";
|
||||||
|
}
|
||||||
|
|
||||||
|
const char *nascom_format::description() const
|
||||||
|
{
|
||||||
|
return "Nascom disk image";
|
||||||
|
}
|
||||||
|
|
||||||
|
const char *nascom_format::extensions() const
|
||||||
|
{
|
||||||
|
return "dsk";
|
||||||
|
}
|
||||||
|
|
||||||
|
const nascom_format::format nascom_format::formats[] =
|
||||||
|
{
|
||||||
|
{ // 360k 5 1/4 inch double density single sided
|
||||||
|
floppy_image::FF_525, floppy_image::SSQD, floppy_image::MFM,
|
||||||
|
2000, 16, 80, 1, 256, {}, 1, {}, 32, 22, 54
|
||||||
|
},
|
||||||
|
{ // 720k 5 1/4 inch double density double sided
|
||||||
|
floppy_image::FF_525, floppy_image::DSQD, floppy_image::MFM,
|
||||||
|
2000, 16, 80, 2, 256, {}, 1, {}, 32, 22, 54
|
||||||
|
},
|
||||||
|
{}
|
||||||
|
};
|
||||||
|
|
||||||
|
const floppy_format_type FLOPPY_NASCOM_FORMAT = &floppy_image_format_creator<nascom_format>;
|
||||||
33
src/lib/formats/nascom_dsk.h
Normal file
33
src/lib/formats/nascom_dsk.h
Normal file
@ -0,0 +1,33 @@
|
|||||||
|
// license:GPL-2.0+
|
||||||
|
// copyright-holders:Dirk Best
|
||||||
|
/***************************************************************************
|
||||||
|
|
||||||
|
Nascom 1/2/3
|
||||||
|
|
||||||
|
Disk image format
|
||||||
|
|
||||||
|
***************************************************************************/
|
||||||
|
|
||||||
|
#pragma once
|
||||||
|
|
||||||
|
#ifndef __NASCOM_DSK_H__
|
||||||
|
#define __NASCOM_DSK_H__
|
||||||
|
|
||||||
|
#include "wd177x_dsk.h"
|
||||||
|
|
||||||
|
class nascom_format : public wd177x_format
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
nascom_format();
|
||||||
|
|
||||||
|
virtual const char *name() const;
|
||||||
|
virtual const char *description() const;
|
||||||
|
virtual const char *extensions() const;
|
||||||
|
|
||||||
|
private:
|
||||||
|
static const format formats[];
|
||||||
|
};
|
||||||
|
|
||||||
|
extern const floppy_format_type FLOPPY_NASCOM_FORMAT;
|
||||||
|
|
||||||
|
#endif // __NASCOM_DSK_H__
|
||||||
@ -1,119 +1,351 @@
|
|||||||
// license:GPL-2.0+
|
// license:GPL-2.0+
|
||||||
// copyright-holders:(Original Author?), Dirk Best
|
// copyright-holders:Dirk Best
|
||||||
/************************************************************************
|
/***************************************************************************
|
||||||
|
|
||||||
Nascom 1 and Nascom 2
|
Nascom 1/2/3
|
||||||
|
|
||||||
Memory map
|
Single board computer
|
||||||
|
|
||||||
CPU: z80
|
***************************************************************************/
|
||||||
0000-03ff ROM (Nascom1 Monitor)
|
|
||||||
0400-07ff ROM (Nascom2 Monitor extension)
|
|
||||||
0800-0bff RAM (Screen)
|
|
||||||
0c00-0c7f RAM (OS workspace)
|
|
||||||
0c80-0cff RAM (extended OS workspace)
|
|
||||||
0d00-0f7f RAM (Firmware workspace)
|
|
||||||
0f80-0fff RAM (Stack space)
|
|
||||||
1000-8fff RAM (User space)
|
|
||||||
9000-97ff RAM (Programmable graphics RAM/User space)
|
|
||||||
9800-afff RAM (Colour graphics RAM/User space)
|
|
||||||
b000-b7ff ROM (OS extensions)
|
|
||||||
b800-bfff ROM (WP/Naspen software)
|
|
||||||
c000-cfff ROM (Disassembler/colour graphics software)
|
|
||||||
d000-dfff ROM (Assembler/Basic extensions)
|
|
||||||
e000-ffff ROM (Nascom2 Basic)
|
|
||||||
|
|
||||||
Interrupts:
|
|
||||||
|
|
||||||
Ports:
|
|
||||||
OUT (00) 0: Increment keyboard scan
|
|
||||||
1: Reset keyboard scan
|
|
||||||
2:
|
|
||||||
3: Read from cassette
|
|
||||||
4:
|
|
||||||
5:
|
|
||||||
6:
|
|
||||||
7:
|
|
||||||
IN (00) Read keyboard
|
|
||||||
OUT (01) Write to cassette/serial
|
|
||||||
IN (01) Read from cassette/serial
|
|
||||||
OUT (02) Unused
|
|
||||||
IN (02) ?
|
|
||||||
|
|
||||||
Monitors:
|
|
||||||
Nasbug1 1K Original Nascom1
|
|
||||||
Nasbug2 1K
|
|
||||||
Nasbug3 Probably non existing
|
|
||||||
Nasbug4 2K
|
|
||||||
Nassys1 2K Original Nascom2
|
|
||||||
Nassys2 Probably non existing
|
|
||||||
Nassys3 2K
|
|
||||||
Nassys4 2K
|
|
||||||
T4 2K
|
|
||||||
|
|
||||||
************************************************************************/
|
|
||||||
|
|
||||||
/* Core includes */
|
|
||||||
#include "emu.h"
|
#include "emu.h"
|
||||||
#include "includes/nascom1.h"
|
|
||||||
|
|
||||||
/* Components */
|
|
||||||
#include "cpu/z80/z80.h"
|
#include "cpu/z80/z80.h"
|
||||||
#include "machine/wd17xx.h"
|
|
||||||
#include "machine/z80pio.h"
|
|
||||||
|
|
||||||
/* Devices */
|
|
||||||
#include "imagedev/flopdrv.h"
|
|
||||||
#include "formats/basicdsk.h"
|
|
||||||
#include "imagedev/cassette.h"
|
|
||||||
#include "machine/ram.h"
|
#include "machine/ram.h"
|
||||||
|
#include "machine/z80pio.h"
|
||||||
|
#include "machine/ay31015.h"
|
||||||
|
#include "imagedev/cassette.h"
|
||||||
|
#include "imagedev/snapquik.h"
|
||||||
|
#include "bus/generic/slot.h"
|
||||||
|
#include "bus/generic/carts.h"
|
||||||
|
#include "bus/nasbus/nasbus.h"
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
//**************************************************************************
|
||||||
*
|
// CONSTANTS/MACROS
|
||||||
* Memory maps
|
//**************************************************************************
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
static ADDRESS_MAP_START( nascom1_mem, AS_PROGRAM, 8, nascom1_state )
|
#define NASCOM1_KEY_RESET 0x02
|
||||||
AM_RANGE(0x0000, 0x07ff) AM_ROM
|
#define NASCOM1_KEY_INCR 0x01
|
||||||
AM_RANGE(0x0800, 0x0bff) AM_RAM AM_SHARE("videoram")
|
|
||||||
AM_RANGE(0x0c00, 0x0fff) AM_RAM
|
|
||||||
AM_RANGE(0x1000, 0x13ff) AM_RAM /* 1Kb */
|
|
||||||
AM_RANGE(0x1400, 0x4fff) AM_RAM /* 16Kb */
|
|
||||||
AM_RANGE(0x5000, 0x8fff) AM_RAM /* 32Kb */
|
|
||||||
AM_RANGE(0x9000, 0xafff) AM_RAM /* 40Kb */
|
|
||||||
AM_RANGE(0xb000, 0xffff) AM_ROM
|
|
||||||
ADDRESS_MAP_END
|
|
||||||
|
|
||||||
|
|
||||||
static ADDRESS_MAP_START( nascom1_io, AS_IO, 8, nascom1_state )
|
//**************************************************************************
|
||||||
ADDRESS_MAP_GLOBAL_MASK(0x0F)
|
// TYPE DEFINITIONS
|
||||||
AM_RANGE(0x00, 0x00) AM_READWRITE(nascom1_port_00_r, nascom1_port_00_w)
|
//**************************************************************************
|
||||||
AM_RANGE(0x01, 0x01) AM_READWRITE(nascom1_port_01_r, nascom1_port_01_w)
|
|
||||||
AM_RANGE(0x02, 0x02) AM_READ(nascom1_port_02_r)
|
struct nascom1_portstat_t
|
||||||
AM_RANGE(0x04, 0x07) AM_DEVREADWRITE("z80pio", z80pio_device, read, write )
|
{
|
||||||
ADDRESS_MAP_END
|
UINT8 stat_flags;
|
||||||
|
UINT8 stat_count;
|
||||||
|
};
|
||||||
|
|
||||||
|
class nascom_state : public driver_device
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
nascom_state(const machine_config &mconfig, device_type type, const char *tag)
|
||||||
|
: driver_device(mconfig, type, tag),
|
||||||
|
m_maincpu(*this, "maincpu"),
|
||||||
|
m_hd6402(*this, "hd6402"),
|
||||||
|
m_cassette(*this, "cassette"),
|
||||||
|
m_ram(*this, RAM_TAG),
|
||||||
|
m_gfxdecode(*this, "gfxdecode"),
|
||||||
|
m_palette(*this, "palette"),
|
||||||
|
m_videoram(*this, "videoram"),
|
||||||
|
m_keyboard(*this, "KEY")
|
||||||
|
{ }
|
||||||
|
|
||||||
|
required_device<cpu_device> m_maincpu;
|
||||||
|
required_device<ay31015_device> m_hd6402;
|
||||||
|
required_device<cassette_image_device> m_cassette;
|
||||||
|
required_device<ram_device> m_ram;
|
||||||
|
required_device<gfxdecode_device> m_gfxdecode;
|
||||||
|
required_device<palette_device> m_palette;
|
||||||
|
required_shared_ptr<UINT8> m_videoram;
|
||||||
|
required_ioport_array<9> m_keyboard;
|
||||||
|
|
||||||
|
int m_tape_size;
|
||||||
|
UINT8 *m_tape_image;
|
||||||
|
int m_tape_index;
|
||||||
|
nascom1_portstat_t m_portstat;
|
||||||
|
|
||||||
|
DECLARE_READ8_MEMBER(nascom1_port_00_r);
|
||||||
|
DECLARE_WRITE8_MEMBER(nascom1_port_00_w);
|
||||||
|
DECLARE_READ8_MEMBER(nascom1_port_01_r);
|
||||||
|
DECLARE_WRITE8_MEMBER(nascom1_port_01_w);
|
||||||
|
DECLARE_READ8_MEMBER(nascom1_port_02_r);
|
||||||
|
virtual DECLARE_DRIVER_INIT(nascom);
|
||||||
|
void screen_update(bitmap_ind16 &bitmap, const rectangle &cliprect, int char_height);
|
||||||
|
DECLARE_READ8_MEMBER(nascom1_hd6402_si);
|
||||||
|
DECLARE_WRITE8_MEMBER(nascom1_hd6402_so);
|
||||||
|
DECLARE_DEVICE_IMAGE_LOAD_MEMBER( nascom1_cassette );
|
||||||
|
DECLARE_DEVICE_IMAGE_UNLOAD_MEMBER( nascom1_cassette );
|
||||||
|
DECLARE_SNAPSHOT_LOAD_MEMBER( nascom1 );
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual void machine_reset();
|
||||||
|
|
||||||
|
private:
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
class nascom1_state : public nascom_state
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
nascom1_state(const machine_config &mconfig, device_type type, const char *tag) :
|
||||||
|
nascom_state(mconfig, type, tag)
|
||||||
|
{}
|
||||||
|
|
||||||
|
UINT32 screen_update_nascom(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
||||||
|
|
||||||
|
private:
|
||||||
|
};
|
||||||
|
|
||||||
|
class nascom2_state : public nascom_state
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
nascom2_state(const machine_config &mconfig, device_type type, const char *tag) :
|
||||||
|
nascom_state(mconfig, type, tag),
|
||||||
|
m_nasbus(*this, "nasbus"),
|
||||||
|
m_socket1(*this, "socket1"),
|
||||||
|
m_socket2(*this, "socket2")
|
||||||
|
{}
|
||||||
|
|
||||||
|
virtual DECLARE_DRIVER_INIT(nascom);
|
||||||
|
UINT32 screen_update_nascom(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
||||||
|
|
||||||
|
int load_cart(device_image_interface &image, generic_slot_device *slot, int slot_id);
|
||||||
|
DECLARE_DEVICE_IMAGE_LOAD_MEMBER(socket1_load) { return load_cart(image, m_socket1, 1); }
|
||||||
|
DECLARE_DEVICE_IMAGE_LOAD_MEMBER(socket2_load) { return load_cart(image, m_socket2, 2); }
|
||||||
|
|
||||||
|
private:
|
||||||
|
required_device<nasbus_device> m_nasbus;
|
||||||
|
required_device<generic_slot_device> m_socket1;
|
||||||
|
required_device<generic_slot_device> m_socket2;
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
static ADDRESS_MAP_START( nascom2_io, AS_IO, 8, nascom1_state )
|
//**************************************************************************
|
||||||
ADDRESS_MAP_GLOBAL_MASK(0xff)
|
// KEYBOARD
|
||||||
AM_RANGE(0x00, 0x00) AM_READWRITE(nascom1_port_00_r, nascom1_port_00_w)
|
//**************************************************************************
|
||||||
AM_RANGE(0x01, 0x01) AM_READWRITE(nascom1_port_01_r, nascom1_port_01_w)
|
|
||||||
AM_RANGE(0x02, 0x02) AM_READ(nascom1_port_02_r)
|
READ8_MEMBER( nascom_state::nascom1_port_00_r )
|
||||||
AM_RANGE(0x04, 0x07) AM_DEVREADWRITE("z80pio", z80pio_device, read, write )
|
{
|
||||||
AM_RANGE(0xe0, 0xe3) AM_DEVREADWRITE("wd1793", fd1793_device, read, write)
|
if (m_portstat.stat_count < 9)
|
||||||
AM_RANGE(0xe4, 0xe4) AM_READWRITE(nascom2_fdc_select_r, nascom2_fdc_select_w)
|
return ((m_keyboard[m_portstat.stat_count])->read() | ~0x7f);
|
||||||
AM_RANGE(0xe5, 0xe5) AM_READ(nascom2_fdc_status_r)
|
|
||||||
ADDRESS_MAP_END
|
return 0xff;
|
||||||
|
}
|
||||||
|
|
||||||
|
WRITE8_MEMBER( nascom_state::nascom1_port_00_w )
|
||||||
|
{
|
||||||
|
m_cassette->change_state(
|
||||||
|
(data & 0x10) ? CASSETTE_MOTOR_ENABLED : CASSETTE_MOTOR_DISABLED, CASSETTE_MASK_MOTOR);
|
||||||
|
|
||||||
|
if (!(data & NASCOM1_KEY_RESET))
|
||||||
|
{
|
||||||
|
if (m_portstat.stat_flags & NASCOM1_KEY_RESET)
|
||||||
|
m_portstat.stat_count = 0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
m_portstat.stat_flags = NASCOM1_KEY_RESET;
|
||||||
|
|
||||||
|
if (!(data & NASCOM1_KEY_INCR))
|
||||||
|
{
|
||||||
|
if (m_portstat.stat_flags & NASCOM1_KEY_INCR)
|
||||||
|
m_portstat.stat_count++;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
m_portstat.stat_flags = NASCOM1_KEY_INCR;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// CASSETTE
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
/*************************************
|
READ8_MEMBER( nascom_state::nascom1_port_01_r )
|
||||||
*
|
{
|
||||||
* GFX layouts
|
return m_hd6402->get_received_data();
|
||||||
*
|
}
|
||||||
*************************************/
|
|
||||||
|
|
||||||
|
WRITE8_MEMBER( nascom_state::nascom1_port_01_w )
|
||||||
|
{
|
||||||
|
m_hd6402->set_transmit_data(data);
|
||||||
|
}
|
||||||
|
|
||||||
|
READ8_MEMBER( nascom_state::nascom1_port_02_r )
|
||||||
|
{
|
||||||
|
UINT8 data = 0x31;
|
||||||
|
|
||||||
|
m_hd6402->set_input_pin(AY31015_SWE, 0);
|
||||||
|
data |= m_hd6402->get_output_pin(AY31015_OR ) ? 0x02 : 0;
|
||||||
|
data |= m_hd6402->get_output_pin(AY31015_PE ) ? 0x04 : 0;
|
||||||
|
data |= m_hd6402->get_output_pin(AY31015_FE ) ? 0x08 : 0;
|
||||||
|
data |= m_hd6402->get_output_pin(AY31015_TBMT) ? 0x40 : 0;
|
||||||
|
data |= m_hd6402->get_output_pin(AY31015_DAV ) ? 0x80 : 0;
|
||||||
|
m_hd6402->set_input_pin(AY31015_SWE, 1);
|
||||||
|
|
||||||
|
return data;
|
||||||
|
}
|
||||||
|
|
||||||
|
READ8_MEMBER( nascom_state::nascom1_hd6402_si )
|
||||||
|
{
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
WRITE8_MEMBER( nascom_state::nascom1_hd6402_so )
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
DEVICE_IMAGE_LOAD_MEMBER( nascom_state, nascom1_cassette )
|
||||||
|
{
|
||||||
|
m_tape_size = image.length();
|
||||||
|
m_tape_image = (UINT8*)image.ptr();
|
||||||
|
|
||||||
|
if (!m_tape_image)
|
||||||
|
return IMAGE_INIT_FAIL;
|
||||||
|
|
||||||
|
m_tape_index = 0;
|
||||||
|
return IMAGE_INIT_PASS;
|
||||||
|
}
|
||||||
|
|
||||||
|
DEVICE_IMAGE_UNLOAD_MEMBER( nascom_state, nascom1_cassette )
|
||||||
|
{
|
||||||
|
m_tape_image = NULL;
|
||||||
|
m_tape_size = m_tape_index = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// SNAPSHOTS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
SNAPSHOT_LOAD_MEMBER( nascom_state, nascom1 )
|
||||||
|
{
|
||||||
|
UINT8 line[35];
|
||||||
|
|
||||||
|
while (image.fread( &line, sizeof(line)) == sizeof(line))
|
||||||
|
{
|
||||||
|
int addr, b0, b1, b2, b3, b4, b5, b6, b7, dummy;
|
||||||
|
|
||||||
|
if (sscanf((char *)line, "%x %x %x %x %x %x %x %x %x %x\010\010\n",
|
||||||
|
&addr, &b0, &b1, &b2, &b3, &b4, &b5, &b6, &b7, &dummy) == 10)
|
||||||
|
{
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b0);
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b1);
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b2);
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b3);
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b4);
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b5);
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b6);
|
||||||
|
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b7);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return IMAGE_INIT_PASS;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// SOCKETS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
int nascom2_state::load_cart(device_image_interface &image, generic_slot_device *slot, int slot_id)
|
||||||
|
{
|
||||||
|
// loading directly from file
|
||||||
|
if (image.software_entry() == NULL)
|
||||||
|
{
|
||||||
|
if (slot->length() > 0x1000)
|
||||||
|
{
|
||||||
|
image.seterror(IMAGE_ERROR_UNSPECIFIED, "Unsupported file size");
|
||||||
|
return IMAGE_INIT_FAIL;
|
||||||
|
}
|
||||||
|
|
||||||
|
slot->rom_alloc(slot->length(), GENERIC_ROM8_WIDTH, ENDIANNESS_LITTLE);
|
||||||
|
slot->fread(slot->get_rom_base(), slot->length());
|
||||||
|
|
||||||
|
// we just assume that socket1 should be loaded to 0xc000 and socket2 to 0xd000
|
||||||
|
switch (slot_id)
|
||||||
|
{
|
||||||
|
case 1:
|
||||||
|
m_maincpu->space(AS_PROGRAM).install_rom(0xc000, 0xc000 + slot->length() - 1, slot->get_rom_base());
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
m_maincpu->space(AS_PROGRAM).install_rom(0xd000, 0xd000 + slot->length() - 1, slot->get_rom_base());
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// loading from software list. this supports multiple regions to load to
|
||||||
|
else
|
||||||
|
{
|
||||||
|
UINT8 *region_b000 = image.get_software_region("b000");
|
||||||
|
UINT8 *region_c000 = image.get_software_region("c000");
|
||||||
|
UINT8 *region_d000 = image.get_software_region("d000");
|
||||||
|
|
||||||
|
if (region_b000 != NULL)
|
||||||
|
{
|
||||||
|
UINT32 size = image.get_software_region_length("b000");
|
||||||
|
m_maincpu->space(AS_PROGRAM).install_rom(0xb000, 0xb000 + size - 1, region_b000);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (region_c000 != NULL)
|
||||||
|
{
|
||||||
|
UINT32 size = image.get_software_region_length("c000");
|
||||||
|
m_maincpu->space(AS_PROGRAM).install_rom(0xc000, 0xc000 + size - 1, region_c000);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (region_d000 != NULL)
|
||||||
|
{
|
||||||
|
UINT32 size = image.get_software_region_length("d000");
|
||||||
|
m_maincpu->space(AS_PROGRAM).install_rom(0xd000, 0xd000 + size - 1, region_d000);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return IMAGE_INIT_PASS;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// DRIVER INIT
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
|
void nascom_state::machine_reset()
|
||||||
|
{
|
||||||
|
// Set up hd6402 pins
|
||||||
|
m_hd6402->set_input_pin(AY31015_SWE, 1);
|
||||||
|
|
||||||
|
m_hd6402->set_input_pin(AY31015_CS, 0);
|
||||||
|
m_hd6402->set_input_pin(AY31015_NP, 1);
|
||||||
|
m_hd6402->set_input_pin(AY31015_NB1, 1);
|
||||||
|
m_hd6402->set_input_pin(AY31015_NB2, 1);
|
||||||
|
m_hd6402->set_input_pin(AY31015_EPS, 1);
|
||||||
|
m_hd6402->set_input_pin(AY31015_TSB, 1);
|
||||||
|
m_hd6402->set_input_pin(AY31015_CS, 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
DRIVER_INIT_MEMBER( nascom_state, nascom )
|
||||||
|
{
|
||||||
|
// install extra memory
|
||||||
|
if (m_ram->size() > 0)
|
||||||
|
{
|
||||||
|
m_maincpu->space(AS_PROGRAM).install_ram(0x1000, 0x1000 + m_ram->size() - 1, m_ram->pointer());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
DRIVER_INIT_MEMBER( nascom2_state, nascom )
|
||||||
|
{
|
||||||
|
nascom_state::init_nascom();
|
||||||
|
|
||||||
|
// setup nasbus
|
||||||
|
m_nasbus->set_program_space(&m_maincpu->space(AS_PROGRAM));
|
||||||
|
m_nasbus->set_io_space(&m_maincpu->space(AS_IO));
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// VIDEO
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
static const gfx_layout nascom1_charlayout =
|
static const gfx_layout nascom1_charlayout =
|
||||||
{
|
{
|
||||||
@ -127,11 +359,15 @@ static const gfx_layout nascom1_charlayout =
|
|||||||
8 * 16
|
8 * 16
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
static GFXDECODE_START( nascom1 )
|
static GFXDECODE_START( nascom1 )
|
||||||
GFXDECODE_ENTRY("gfx1", 0x0000, nascom1_charlayout, 0, 1)
|
GFXDECODE_ENTRY("gfx1", 0x0000, nascom1_charlayout, 0, 1)
|
||||||
GFXDECODE_END
|
GFXDECODE_END
|
||||||
|
|
||||||
|
UINT32 nascom1_state::screen_update_nascom(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
||||||
|
{
|
||||||
|
screen_update(bitmap, cliprect, 16);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
static const gfx_layout nascom2_charlayout =
|
static const gfx_layout nascom2_charlayout =
|
||||||
{
|
{
|
||||||
@ -145,18 +381,70 @@ static const gfx_layout nascom2_charlayout =
|
|||||||
8 * 16
|
8 * 16
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
static GFXDECODE_START( nascom2 )
|
static GFXDECODE_START( nascom2 )
|
||||||
GFXDECODE_ENTRY("gfx1", 0x0000, nascom2_charlayout, 0, 1)
|
GFXDECODE_ENTRY("gfx1", 0x0000, nascom2_charlayout, 0, 1)
|
||||||
GFXDECODE_END
|
GFXDECODE_END
|
||||||
|
|
||||||
|
UINT32 nascom2_state::screen_update_nascom(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
||||||
|
{
|
||||||
|
screen_update(bitmap, cliprect, 14);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
void nascom_state::screen_update(bitmap_ind16 &bitmap, const rectangle &cliprect, int char_height)
|
||||||
|
{
|
||||||
|
for (int sx = 0; sx < 48; sx++)
|
||||||
|
{
|
||||||
|
m_gfxdecode->gfx(0)->opaque(bitmap,cliprect, m_videoram[0x03ca + sx], 1, 0, 0, sx * 8, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
for (int sy = 0; sy < 15; sy++)
|
||||||
|
{
|
||||||
|
for (int sx = 0; sx < 48; sx++)
|
||||||
|
{
|
||||||
|
m_gfxdecode->gfx(0)->opaque(bitmap,cliprect, m_videoram[0x000a + (sy * 64) + sx], 1, 0, 0, sx * 8, (sy + 1) * char_height);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
//**************************************************************************
|
||||||
*
|
// ADDRESS MAPS
|
||||||
* Input ports
|
//**************************************************************************
|
||||||
*
|
|
||||||
*************************************/
|
static ADDRESS_MAP_START( nascom1_mem, AS_PROGRAM, 8, nascom1_state )
|
||||||
|
AM_RANGE(0x0000, 0x07ff) AM_ROM // MONITOR
|
||||||
|
AM_RANGE(0x0800, 0x0bff) AM_RAM AM_SHARE("videoram")
|
||||||
|
AM_RANGE(0x0c00, 0x0fff) AM_RAM // WRAM
|
||||||
|
ADDRESS_MAP_END
|
||||||
|
|
||||||
|
static ADDRESS_MAP_START( nascom1_io, AS_IO, 8, nascom1_state )
|
||||||
|
ADDRESS_MAP_GLOBAL_MASK(0x0f)
|
||||||
|
AM_RANGE(0x00, 0x00) AM_READWRITE(nascom1_port_00_r, nascom1_port_00_w)
|
||||||
|
AM_RANGE(0x01, 0x01) AM_READWRITE(nascom1_port_01_r, nascom1_port_01_w)
|
||||||
|
AM_RANGE(0x02, 0x02) AM_READ(nascom1_port_02_r)
|
||||||
|
AM_RANGE(0x04, 0x07) AM_DEVREADWRITE("z80pio", z80pio_device, read, write )
|
||||||
|
ADDRESS_MAP_END
|
||||||
|
|
||||||
|
static ADDRESS_MAP_START( nascom2_mem, AS_PROGRAM, 8, nascom2_state )
|
||||||
|
AM_RANGE(0x0000, 0x07ff) AM_ROM // MONITOR
|
||||||
|
AM_RANGE(0x0800, 0x0bff) AM_RAM AM_SHARE("videoram")
|
||||||
|
AM_RANGE(0x0c00, 0x0fff) AM_RAM // WRAM
|
||||||
|
AM_RANGE(0xe000, 0xffff) AM_ROM AM_REGION("basic", 0)
|
||||||
|
ADDRESS_MAP_END
|
||||||
|
|
||||||
|
static ADDRESS_MAP_START( nascom2_io, AS_IO, 8, nascom2_state )
|
||||||
|
ADDRESS_MAP_GLOBAL_MASK(0xff)
|
||||||
|
AM_RANGE(0x00, 0x00) AM_READWRITE(nascom1_port_00_r, nascom1_port_00_w)
|
||||||
|
AM_RANGE(0x01, 0x01) AM_READWRITE(nascom1_port_01_r, nascom1_port_01_w)
|
||||||
|
AM_RANGE(0x02, 0x02) AM_READ(nascom1_port_02_r)
|
||||||
|
AM_RANGE(0x04, 0x07) AM_DEVREADWRITE("z80pio", z80pio_device, read, write )
|
||||||
|
ADDRESS_MAP_END
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// INPUT PORTS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
static INPUT_PORTS_START( nascom1 )
|
static INPUT_PORTS_START( nascom1 )
|
||||||
PORT_START("KEY.0")
|
PORT_START("KEY.0")
|
||||||
@ -249,133 +537,119 @@ static INPUT_PORTS_START( nascom2 )
|
|||||||
INPUT_PORTS_END
|
INPUT_PORTS_END
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
//**************************************************************************
|
||||||
*
|
// MACHINE DRIVERS
|
||||||
* Machine drivers
|
//**************************************************************************
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
static MACHINE_CONFIG_START( nascom1, nascom1_state )
|
static MACHINE_CONFIG_START( nascom1, nascom1_state )
|
||||||
/* basic machine hardware */
|
// main cpu
|
||||||
MCFG_CPU_ADD("maincpu", Z80, XTAL_16MHz/8)
|
MCFG_CPU_ADD("maincpu", Z80, XTAL_16MHz / 8)
|
||||||
MCFG_CPU_PROGRAM_MAP(nascom1_mem)
|
MCFG_CPU_PROGRAM_MAP(nascom1_mem)
|
||||||
MCFG_CPU_IO_MAP(nascom1_io)
|
MCFG_CPU_IO_MAP(nascom1_io)
|
||||||
|
|
||||||
/* video hardware */
|
// video hardware
|
||||||
MCFG_SCREEN_ADD("screen", RASTER)
|
MCFG_SCREEN_ADD("screen", RASTER)
|
||||||
MCFG_SCREEN_REFRESH_RATE(50)
|
MCFG_SCREEN_REFRESH_RATE(50)
|
||||||
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
|
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */
|
||||||
MCFG_SCREEN_SIZE(48 * 8, 16 * 16)
|
MCFG_SCREEN_SIZE(48 * 8, 16 * 16)
|
||||||
MCFG_SCREEN_VISIBLE_AREA(0, 48 * 8 - 1, 0, 16 * 16 - 1)
|
MCFG_SCREEN_VISIBLE_AREA(0, 48 * 8 - 1, 0, 16 * 16 - 1)
|
||||||
MCFG_SCREEN_UPDATE_DRIVER(nascom1_state, screen_update_nascom1)
|
MCFG_SCREEN_UPDATE_DRIVER(nascom1_state, screen_update_nascom)
|
||||||
MCFG_SCREEN_PALETTE("palette")
|
MCFG_SCREEN_PALETTE("palette")
|
||||||
|
|
||||||
MCFG_GFXDECODE_ADD("gfxdecode", "palette", nascom1)
|
MCFG_GFXDECODE_ADD("gfxdecode", "palette", nascom1)
|
||||||
MCFG_PALETTE_ADD_BLACK_AND_WHITE("palette")
|
MCFG_PALETTE_ADD_BLACK_AND_WHITE("palette")
|
||||||
|
|
||||||
|
// uart
|
||||||
MCFG_DEVICE_ADD( "hd6402", AY31015, 0 )
|
MCFG_DEVICE_ADD( "hd6402", AY31015, 0 )
|
||||||
MCFG_AY31015_TX_CLOCK(( XTAL_16MHz / 16 ) / 256)
|
MCFG_AY31015_TX_CLOCK(( XTAL_16MHz / 16 ) / 256)
|
||||||
MCFG_AY31015_RX_CLOCK(( XTAL_16MHz / 16 ) / 256)
|
MCFG_AY31015_RX_CLOCK(( XTAL_16MHz / 16 ) / 256)
|
||||||
MCFG_AY51013_READ_SI_CB(READ8(nascom1_state, nascom1_hd6402_si))
|
MCFG_AY51013_READ_SI_CB(READ8(nascom_state, nascom1_hd6402_si))
|
||||||
MCFG_AY51013_WRITE_SO_CB(WRITE8(nascom1_state, nascom1_hd6402_so))
|
MCFG_AY51013_WRITE_SO_CB(WRITE8(nascom_state, nascom1_hd6402_so))
|
||||||
|
|
||||||
|
// cassette is connected to the uart
|
||||||
|
MCFG_CASSETTE_ADD("cassette")
|
||||||
|
|
||||||
|
// pio
|
||||||
MCFG_DEVICE_ADD("z80pio", Z80PIO, XTAL_16MHz/8)
|
MCFG_DEVICE_ADD("z80pio", Z80PIO, XTAL_16MHz/8)
|
||||||
|
|
||||||
/* devices */
|
// internal extra ram
|
||||||
MCFG_SNAPSHOT_ADD("snapshot", nascom1_state, nascom1, "nas", 0.5)
|
|
||||||
|
|
||||||
MCFG_CASSETTE_ADD( "cassette" )
|
|
||||||
|
|
||||||
/* internal ram */
|
|
||||||
MCFG_RAM_ADD(RAM_TAG)
|
MCFG_RAM_ADD(RAM_TAG)
|
||||||
MCFG_RAM_DEFAULT_SIZE("40K")
|
MCFG_RAM_DEFAULT_SIZE("32K")
|
||||||
MCFG_RAM_EXTRA_OPTIONS("1K,16K,32K")
|
MCFG_RAM_EXTRA_OPTIONS("8K,16K")
|
||||||
|
|
||||||
|
// devices
|
||||||
|
MCFG_SNAPSHOT_ADD("snapshot", nascom_state, nascom1, "nas", 0.5)
|
||||||
MACHINE_CONFIG_END
|
MACHINE_CONFIG_END
|
||||||
|
|
||||||
static LEGACY_FLOPPY_OPTIONS_START(nascom2)
|
static MACHINE_CONFIG_DERIVED_CLASS( nascom2, nascom1, nascom2_state )
|
||||||
LEGACY_FLOPPY_OPTION(nascom2_ss, "dsk", "Nascom 2 SS disk image", basicdsk_identify_default, basicdsk_construct_default, NULL,
|
MCFG_CPU_REPLACE("maincpu", Z80, XTAL_16MHz / 4)
|
||||||
HEADS([1])
|
MCFG_CPU_PROGRAM_MAP(nascom2_mem)
|
||||||
TRACKS([80])
|
|
||||||
SECTORS([16])
|
|
||||||
SECTOR_LENGTH([256])
|
|
||||||
FIRST_SECTOR_ID([1]))
|
|
||||||
LEGACY_FLOPPY_OPTION(nascom2_ds, "dsk", "Nascom 2 DS disk image", basicdsk_identify_default, basicdsk_construct_default, NULL,
|
|
||||||
HEADS([2])
|
|
||||||
TRACKS([80])
|
|
||||||
SECTORS([16])
|
|
||||||
SECTOR_LENGTH([256])
|
|
||||||
FIRST_SECTOR_ID([1]))
|
|
||||||
LEGACY_FLOPPY_OPTIONS_END
|
|
||||||
|
|
||||||
static const floppy_interface nascom2_floppy_interface =
|
|
||||||
{
|
|
||||||
FLOPPY_STANDARD_5_25_DSHD,
|
|
||||||
LEGACY_FLOPPY_OPTIONS_NAME(nascom2),
|
|
||||||
NULL
|
|
||||||
};
|
|
||||||
|
|
||||||
static MACHINE_CONFIG_DERIVED( nascom2, nascom1 )
|
|
||||||
MCFG_CPU_MODIFY("maincpu")
|
|
||||||
MCFG_CPU_IO_MAP(nascom2_io)
|
MCFG_CPU_IO_MAP(nascom2_io)
|
||||||
|
|
||||||
/* video hardware */
|
// video hardware
|
||||||
MCFG_SCREEN_MODIFY("screen")
|
MCFG_SCREEN_MODIFY("screen")
|
||||||
MCFG_SCREEN_SIZE(48 * 8, 16 * 14)
|
MCFG_SCREEN_SIZE(48 * 8, 16 * 14)
|
||||||
MCFG_SCREEN_VISIBLE_AREA(0, 48 * 8 - 1, 0, 16 * 14 - 1)
|
MCFG_SCREEN_VISIBLE_AREA(0, 48 * 8 - 1, 0, 16 * 14 - 1)
|
||||||
MCFG_SCREEN_UPDATE_DRIVER(nascom1_state, screen_update_nascom2)
|
MCFG_SCREEN_UPDATE_DRIVER(nascom2_state, screen_update_nascom)
|
||||||
|
|
||||||
MCFG_GFXDECODE_MODIFY("gfxdecode", nascom2)
|
MCFG_GFXDECODE_MODIFY("gfxdecode", nascom2)
|
||||||
|
|
||||||
MCFG_DEVICE_ADD("wd1793", FD1793, 0)
|
// generic sockets for ram/rom (todo: support ram here)
|
||||||
MCFG_WD17XX_DEFAULT_DRIVE4_TAGS
|
MCFG_GENERIC_SOCKET_ADD("socket1", generic_plain_slot, "nascom_socket")
|
||||||
MCFG_WD17XX_INTRQ_CALLBACK(WRITELINE(nascom1_state, nascom2_fdc_intrq_w))
|
MCFG_GENERIC_EXTENSIONS("bin,rom")
|
||||||
MCFG_WD17XX_DRQ_CALLBACK(WRITELINE(nascom1_state, nascom2_fdc_drq_w))
|
MCFG_GENERIC_LOAD(nascom2_state, socket1_load)
|
||||||
MCFG_WD17XX_DDEN_CALLBACK(VCC)
|
MCFG_GENERIC_SOCKET_ADD("socket2", generic_plain_slot, "nascom_socket")
|
||||||
|
MCFG_GENERIC_EXTENSIONS("bin,rom")
|
||||||
|
MCFG_GENERIC_LOAD(nascom2_state, socket2_load)
|
||||||
|
|
||||||
MCFG_LEGACY_FLOPPY_4_DRIVES_ADD(nascom2_floppy_interface)
|
MCFG_SOFTWARE_LIST_ADD("socket_list", "nascom_socket")
|
||||||
|
|
||||||
|
// nasbus expansion bus
|
||||||
|
MCFG_NASBUS_ADD(NASBUS_TAG)
|
||||||
|
MCFG_NASBUS_SLOT_ADD("nasbus1", nasbus_slot_cards, NULL)
|
||||||
|
MCFG_NASBUS_SLOT_ADD("nasbus2", nasbus_slot_cards, NULL)
|
||||||
|
MCFG_NASBUS_SLOT_ADD("nasbus3", nasbus_slot_cards, NULL)
|
||||||
|
MCFG_NASBUS_SLOT_ADD("nasbus4", nasbus_slot_cards, NULL)
|
||||||
MACHINE_CONFIG_END
|
MACHINE_CONFIG_END
|
||||||
|
|
||||||
|
|
||||||
|
//**************************************************************************
|
||||||
|
// ROM DEFINITIONS
|
||||||
|
//**************************************************************************
|
||||||
|
|
||||||
/*************************************
|
ROM_START( nascom1 )
|
||||||
*
|
ROM_REGION(0x0800, "maincpu", 0)
|
||||||
* ROM definitions
|
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
ROM_START(nascom1)
|
|
||||||
ROM_REGION(0x10000, "maincpu",0)
|
|
||||||
ROM_SYSTEM_BIOS(0, "T4", "NasBug T4")
|
ROM_SYSTEM_BIOS(0, "T4", "NasBug T4")
|
||||||
ROMX_LOAD("nasbugt4.rom", 0x0000, 0x0800, CRC(f391df68) SHA1(00218652927afc6360c57e77d6a4fd32d4e34566), ROM_BIOS(1))
|
ROMX_LOAD("nasbugt4.rom", 0x0000, 0x0800, CRC(f391df68) SHA1(00218652927afc6360c57e77d6a4fd32d4e34566), ROM_BIOS(1))
|
||||||
ROM_SYSTEM_BIOS(1, "T1", "NasBug T1")
|
ROM_SYSTEM_BIOS(1, "T1", "NasBug T1")
|
||||||
ROMX_LOAD("nasbugt1.rom", 0x0000, 0x0400, CRC(8ea07054) SHA1(3f9a8632826003d6ea59d2418674d0fb09b83a4c), ROM_BIOS(2))
|
ROMX_LOAD("nasbugt1.rom", 0x0000, 0x0400, CRC(8ea07054) SHA1(3f9a8632826003d6ea59d2418674d0fb09b83a4c), ROM_BIOS(2))
|
||||||
ROM_SYSTEM_BIOS(2, "T2", "NasBug T2")
|
ROM_SYSTEM_BIOS(2, "T2", "NasBug T2")
|
||||||
ROMX_LOAD("nasbugt2.rom", 0x0000, 0x0400, CRC(e371b58a) SHA1(485b20a560b587cf9bb4208ba203b12b3841689b), ROM_BIOS(3))
|
ROMX_LOAD("nasbugt2.rom", 0x0000, 0x0400, CRC(e371b58a) SHA1(485b20a560b587cf9bb4208ba203b12b3841689b), ROM_BIOS(3))
|
||||||
|
|
||||||
ROM_REGION(0x0800, "gfx1", 0)
|
ROM_REGION(0x0800, "gfx1", 0)
|
||||||
ROM_LOAD("nascom1.chr", 0x0000, 0x0800, CRC(33e92a04) SHA1(be6e1cc80e7f95a032759f7df19a43c27ff93a52))
|
ROM_LOAD("nascom1.chr", 0x0000, 0x0800, CRC(33e92a04) SHA1(be6e1cc80e7f95a032759f7df19a43c27ff93a52))
|
||||||
ROM_END
|
ROM_END
|
||||||
|
|
||||||
|
ROM_START( nascom2 )
|
||||||
ROM_START(nascom2)
|
ROM_REGION(0x0800, "maincpu", 0)
|
||||||
ROM_REGION(0x10000, "maincpu",0)
|
ROM_SYSTEM_BIOS(0, "NS3", "NasSys 3")
|
||||||
ROM_SYSTEM_BIOS( 0, "NS3", "NasSys 3")
|
|
||||||
ROMX_LOAD("nassys3.rom", 0x0000, 0x0800, CRC(3da17373) SHA1(5fbda15765f04e4cd08cf95c8d82ce217889f240), ROM_BIOS(1))
|
ROMX_LOAD("nassys3.rom", 0x0000, 0x0800, CRC(3da17373) SHA1(5fbda15765f04e4cd08cf95c8d82ce217889f240), ROM_BIOS(1))
|
||||||
ROM_SYSTEM_BIOS( 1, "NS1", "NasSys 1")
|
ROM_SYSTEM_BIOS(1, "NS1", "NasSys 1")
|
||||||
ROMX_LOAD("nassys1.rom", 0x0000, 0x0800, CRC(b6300716) SHA1(29da7d462ba3f569f70ed3ecd93b981f81c7adfa), ROM_BIOS(2))
|
ROMX_LOAD("nassys1.rom", 0x0000, 0x0800, CRC(b6300716) SHA1(29da7d462ba3f569f70ed3ecd93b981f81c7adfa), ROM_BIOS(2))
|
||||||
ROM_LOAD("nasdos.rom", 0xd000, 0x1000, CRC(54a36f6d) SHA1(1d063d04be5024f128bd589e6edc066e9a63fc1b))
|
|
||||||
ROM_LOAD("basic.rom", 0xe000, 0x2000, CRC(5cb5197b) SHA1(c41669c2b6d6dea808741a2738426d97bccc9b07))
|
ROM_REGION(0x2000, "basic", 0)
|
||||||
|
ROM_LOAD("basic.rom", 0x0000, 0x2000, CRC(5cb5197b) SHA1(c41669c2b6d6dea808741a2738426d97bccc9b07))
|
||||||
|
|
||||||
ROM_REGION(0x1000, "gfx1", 0)
|
ROM_REGION(0x1000, "gfx1", 0)
|
||||||
ROM_LOAD("nascom1.chr", 0x0000, 0x0800, CRC(33e92a04) SHA1(be6e1cc80e7f95a032759f7df19a43c27ff93a52))
|
ROM_LOAD("nascom1.chr", 0x0000, 0x0800, CRC(33e92a04) SHA1(be6e1cc80e7f95a032759f7df19a43c27ff93a52))
|
||||||
ROM_LOAD("nasgra.chr", 0x0800, 0x0800, CRC(2bc09d32) SHA1(d384297e9b02cbcb283c020da51b3032ff62b1ae))
|
ROM_LOAD("nasgra.chr", 0x0800, 0x0800, CRC(2bc09d32) SHA1(d384297e9b02cbcb283c020da51b3032ff62b1ae))
|
||||||
ROM_END
|
ROM_END
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
//**************************************************************************
|
||||||
*
|
// GAME DRIVERS
|
||||||
* Driver definitions
|
//**************************************************************************
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
|
// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */
|
||||||
COMP( 1978, nascom1, 0, 0, nascom1, nascom1, nascom1_state, nascom1, "Nascom Microcomputers", "Nascom 1", GAME_NO_SOUND )
|
COMP( 1977, nascom1, 0, 0, nascom1, nascom1, nascom_state, nascom, "Nascom Microcomputers", "Nascom 1", GAME_NO_SOUND_HW )
|
||||||
COMP( 1979, nascom2, nascom1, 0, nascom2, nascom2, nascom1_state, nascom1, "Nascom Microcomputers", "Nascom 2", GAME_NO_SOUND )
|
COMP( 1979, nascom2, 0, 0, nascom2, nascom2, nascom2_state, nascom, "Nascom Microcomputers", "Nascom 2", GAME_NO_SOUND_HW )
|
||||||
|
|||||||
@ -1,87 +0,0 @@
|
|||||||
// license:GPL-2.0+
|
|
||||||
// copyright-holders:(Original Author?), Dirk Best
|
|
||||||
/***************************************************************************
|
|
||||||
|
|
||||||
Nascom 1 and Nascom 2
|
|
||||||
|
|
||||||
license: MAME
|
|
||||||
copyright-holders: (Original Author?), Dirk Best
|
|
||||||
|
|
||||||
***************************************************************************/
|
|
||||||
|
|
||||||
#ifndef NASCOM1_H_
|
|
||||||
#define NASCOM1_H_
|
|
||||||
|
|
||||||
#include "imagedev/snapquik.h"
|
|
||||||
#include "imagedev/cassette.h"
|
|
||||||
#include "machine/wd17xx.h"
|
|
||||||
#include "machine/ram.h"
|
|
||||||
#include "machine/ay31015.h"
|
|
||||||
|
|
||||||
struct nascom1_portstat_t
|
|
||||||
{
|
|
||||||
UINT8 stat_flags;
|
|
||||||
UINT8 stat_count;
|
|
||||||
};
|
|
||||||
|
|
||||||
struct nascom2_fdc_t
|
|
||||||
{
|
|
||||||
UINT8 select;
|
|
||||||
UINT8 irq;
|
|
||||||
UINT8 drq;
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
class nascom1_state : public driver_device
|
|
||||||
{
|
|
||||||
public:
|
|
||||||
nascom1_state(const machine_config &mconfig, device_type type, const char *tag)
|
|
||||||
: driver_device(mconfig, type, tag),
|
|
||||||
m_maincpu(*this, "maincpu"),
|
|
||||||
m_hd6402(*this, "hd6402"),
|
|
||||||
m_cassette(*this, "cassette"),
|
|
||||||
m_fdc(*this, "wd1793"),
|
|
||||||
m_ram(*this, RAM_TAG),
|
|
||||||
m_gfxdecode(*this, "gfxdecode"),
|
|
||||||
m_palette(*this, "palette"),
|
|
||||||
m_videoram(*this, "videoram"),
|
|
||||||
m_keyboard(*this, "KEY")
|
|
||||||
{ }
|
|
||||||
|
|
||||||
required_device<cpu_device> m_maincpu;
|
|
||||||
required_device<ay31015_device> m_hd6402;
|
|
||||||
required_device<cassette_image_device> m_cassette;
|
|
||||||
optional_device<fd1793_device> m_fdc;
|
|
||||||
required_device<ram_device> m_ram;
|
|
||||||
required_device<gfxdecode_device> m_gfxdecode;
|
|
||||||
required_device<palette_device> m_palette;
|
|
||||||
required_shared_ptr<UINT8> m_videoram;
|
|
||||||
required_ioport_array<9> m_keyboard;
|
|
||||||
int m_tape_size;
|
|
||||||
UINT8 *m_tape_image;
|
|
||||||
int m_tape_index;
|
|
||||||
nascom1_portstat_t m_portstat;
|
|
||||||
nascom2_fdc_t m_nascom2_fdc;
|
|
||||||
DECLARE_READ8_MEMBER(nascom2_fdc_select_r);
|
|
||||||
DECLARE_WRITE8_MEMBER(nascom2_fdc_select_w);
|
|
||||||
DECLARE_READ8_MEMBER(nascom2_fdc_status_r);
|
|
||||||
DECLARE_READ8_MEMBER(nascom1_port_00_r);
|
|
||||||
DECLARE_WRITE8_MEMBER(nascom1_port_00_w);
|
|
||||||
DECLARE_READ8_MEMBER(nascom1_port_01_r);
|
|
||||||
DECLARE_WRITE8_MEMBER(nascom1_port_01_w);
|
|
||||||
DECLARE_READ8_MEMBER(nascom1_port_02_r);
|
|
||||||
DECLARE_DRIVER_INIT(nascom1);
|
|
||||||
virtual void machine_reset();
|
|
||||||
UINT32 screen_update_nascom1(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
|
||||||
UINT32 screen_update_nascom2(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
|
||||||
DECLARE_WRITE_LINE_MEMBER(nascom2_fdc_intrq_w);
|
|
||||||
DECLARE_WRITE_LINE_MEMBER(nascom2_fdc_drq_w);
|
|
||||||
DECLARE_READ8_MEMBER(nascom1_hd6402_si);
|
|
||||||
DECLARE_WRITE8_MEMBER(nascom1_hd6402_so);
|
|
||||||
DECLARE_DEVICE_IMAGE_LOAD_MEMBER( nascom1_cassette );
|
|
||||||
DECLARE_DEVICE_IMAGE_UNLOAD_MEMBER( nascom1_cassette );
|
|
||||||
DECLARE_SNAPSHOT_LOAD_MEMBER( nascom1 );
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
#endif /* NASCOM1_H_ */
|
|
||||||
@ -1,261 +0,0 @@
|
|||||||
// license:GPL-2.0+
|
|
||||||
// copyright-holders:(Original Author?), Dirk Best
|
|
||||||
/**********************************************************************
|
|
||||||
|
|
||||||
Nascom 1 and Nascom 2
|
|
||||||
|
|
||||||
**********************************************************************/
|
|
||||||
|
|
||||||
#include "emu.h"
|
|
||||||
#include "includes/nascom1.h"
|
|
||||||
#include "cpu/z80/z80.h"
|
|
||||||
#include "machine/ay31015.h"
|
|
||||||
#include "imagedev/snapquik.h"
|
|
||||||
#include "imagedev/cassette.h"
|
|
||||||
#include "imagedev/flopdrv.h"
|
|
||||||
#include "machine/ram.h"
|
|
||||||
|
|
||||||
#define NASCOM1_KEY_RESET 0x02
|
|
||||||
#define NASCOM1_KEY_INCR 0x01
|
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
|
||||||
*
|
|
||||||
* Floppy
|
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
WRITE_LINE_MEMBER(nascom1_state::nascom2_fdc_intrq_w)
|
|
||||||
{
|
|
||||||
m_nascom2_fdc.irq = state;
|
|
||||||
}
|
|
||||||
|
|
||||||
WRITE_LINE_MEMBER(nascom1_state::nascom2_fdc_drq_w)
|
|
||||||
{
|
|
||||||
m_nascom2_fdc.drq = state;
|
|
||||||
}
|
|
||||||
|
|
||||||
READ8_MEMBER(nascom1_state::nascom2_fdc_select_r)
|
|
||||||
{
|
|
||||||
return m_nascom2_fdc.select | 0xa0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
WRITE8_MEMBER(nascom1_state::nascom2_fdc_select_w)
|
|
||||||
{
|
|
||||||
m_nascom2_fdc.select = data;
|
|
||||||
|
|
||||||
logerror("nascom2_fdc_select_w: %02x\n", data);
|
|
||||||
|
|
||||||
if (data & 0x01) m_fdc->set_drive(0);
|
|
||||||
if (data & 0x02) m_fdc->set_drive(1);
|
|
||||||
if (data & 0x04) m_fdc->set_drive(2);
|
|
||||||
if (data & 0x08) m_fdc->set_drive(3);
|
|
||||||
if (data & 0x10) m_fdc->set_side((data & 0x10) >> 4);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
|
||||||
* D0 -- WD1793 IRQ
|
|
||||||
* D1 -- NOT READY
|
|
||||||
* D2 to D6 -- 0
|
|
||||||
* D7 -- WD1793 DRQ
|
|
||||||
*
|
|
||||||
*/
|
|
||||||
READ8_MEMBER(nascom1_state::nascom2_fdc_status_r)
|
|
||||||
{
|
|
||||||
return (m_nascom2_fdc.drq << 7) | m_nascom2_fdc.irq;
|
|
||||||
}
|
|
||||||
|
|
||||||
/*************************************
|
|
||||||
*
|
|
||||||
* Keyboard
|
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
READ8_MEMBER(nascom1_state::nascom1_port_00_r)
|
|
||||||
{
|
|
||||||
if (m_portstat.stat_count < 9)
|
|
||||||
return ((m_keyboard[m_portstat.stat_count])->read() | ~0x7f);
|
|
||||||
|
|
||||||
return (0xff);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
WRITE8_MEMBER(nascom1_state::nascom1_port_00_w)
|
|
||||||
{
|
|
||||||
m_cassette->change_state(
|
|
||||||
( data & 0x10 ) ? CASSETTE_MOTOR_ENABLED : CASSETTE_MOTOR_DISABLED,CASSETTE_MASK_MOTOR );
|
|
||||||
|
|
||||||
if (!(data & NASCOM1_KEY_RESET))
|
|
||||||
{
|
|
||||||
if (m_portstat.stat_flags & NASCOM1_KEY_RESET)
|
|
||||||
m_portstat.stat_count = 0;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
m_portstat.stat_flags = NASCOM1_KEY_RESET;
|
|
||||||
|
|
||||||
if (!(data & NASCOM1_KEY_INCR))
|
|
||||||
{
|
|
||||||
if (m_portstat.stat_flags & NASCOM1_KEY_INCR)
|
|
||||||
m_portstat.stat_count++;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
m_portstat.stat_flags = NASCOM1_KEY_INCR;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
|
||||||
*
|
|
||||||
* Cassette
|
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
|
|
||||||
READ8_MEMBER(nascom1_state::nascom1_port_01_r)
|
|
||||||
{
|
|
||||||
return m_hd6402->get_received_data();
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
WRITE8_MEMBER(nascom1_state::nascom1_port_01_w)
|
|
||||||
{
|
|
||||||
m_hd6402->set_transmit_data(data);
|
|
||||||
}
|
|
||||||
|
|
||||||
READ8_MEMBER(nascom1_state::nascom1_port_02_r)
|
|
||||||
{
|
|
||||||
UINT8 data = 0x31;
|
|
||||||
|
|
||||||
m_hd6402->set_input_pin(AY31015_SWE, 0);
|
|
||||||
data |= m_hd6402->get_output_pin(AY31015_OR ) ? 0x02 : 0;
|
|
||||||
data |= m_hd6402->get_output_pin(AY31015_PE ) ? 0x04 : 0;
|
|
||||||
data |= m_hd6402->get_output_pin(AY31015_FE ) ? 0x08 : 0;
|
|
||||||
data |= m_hd6402->get_output_pin(AY31015_TBMT) ? 0x40 : 0;
|
|
||||||
data |= m_hd6402->get_output_pin(AY31015_DAV ) ? 0x80 : 0;
|
|
||||||
m_hd6402->set_input_pin(AY31015_SWE, 1);
|
|
||||||
|
|
||||||
return data;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
READ8_MEMBER(nascom1_state::nascom1_hd6402_si)
|
|
||||||
{
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
WRITE8_MEMBER(nascom1_state::nascom1_hd6402_so)
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
DEVICE_IMAGE_LOAD_MEMBER( nascom1_state,nascom1_cassette )
|
|
||||||
{
|
|
||||||
m_tape_size = image.length();
|
|
||||||
m_tape_image = (UINT8*)image.ptr();
|
|
||||||
if (!m_tape_image)
|
|
||||||
return IMAGE_INIT_FAIL;
|
|
||||||
|
|
||||||
m_tape_index = 0;
|
|
||||||
return IMAGE_INIT_PASS;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
DEVICE_IMAGE_UNLOAD_MEMBER( nascom1_state,nascom1_cassette )
|
|
||||||
{
|
|
||||||
m_tape_image = NULL;
|
|
||||||
m_tape_size = m_tape_index = 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
|
||||||
*
|
|
||||||
* Snapshots
|
|
||||||
*
|
|
||||||
* ASCII .nas format
|
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
SNAPSHOT_LOAD_MEMBER( nascom1_state, nascom1 )
|
|
||||||
{
|
|
||||||
UINT8 line[35];
|
|
||||||
|
|
||||||
while (image.fread( &line, sizeof(line)) == sizeof(line))
|
|
||||||
{
|
|
||||||
int addr, b0, b1, b2, b3, b4, b5, b6, b7, dummy;
|
|
||||||
|
|
||||||
if (sscanf((char *)line, "%x %x %x %x %x %x %x %x %x %x\010\010\n",
|
|
||||||
&addr, &b0, &b1, &b2, &b3, &b4, &b5, &b6, &b7, &dummy) == 10)
|
|
||||||
{
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b0);
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b1);
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b2);
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b3);
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b4);
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b5);
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b6);
|
|
||||||
m_maincpu->space(AS_PROGRAM).write_byte(addr++, b7);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return IMAGE_INIT_PASS;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/*************************************
|
|
||||||
*
|
|
||||||
* Initialization
|
|
||||||
*
|
|
||||||
*************************************/
|
|
||||||
|
|
||||||
void nascom1_state::machine_reset()
|
|
||||||
{
|
|
||||||
/* Set up hd6402 pins */
|
|
||||||
m_hd6402->set_input_pin(AY31015_SWE, 1);
|
|
||||||
|
|
||||||
m_hd6402->set_input_pin(AY31015_CS, 0);
|
|
||||||
m_hd6402->set_input_pin(AY31015_NP, 1);
|
|
||||||
m_hd6402->set_input_pin(AY31015_NB1, 1);
|
|
||||||
m_hd6402->set_input_pin(AY31015_NB2, 1);
|
|
||||||
m_hd6402->set_input_pin(AY31015_EPS, 1);
|
|
||||||
m_hd6402->set_input_pin(AY31015_TSB, 1);
|
|
||||||
m_hd6402->set_input_pin(AY31015_CS, 1);
|
|
||||||
}
|
|
||||||
|
|
||||||
DRIVER_INIT_MEMBER(nascom1_state,nascom1)
|
|
||||||
{
|
|
||||||
switch (m_ram->size())
|
|
||||||
{
|
|
||||||
case 1 * 1024:
|
|
||||||
m_maincpu->space(AS_PROGRAM).nop_readwrite(
|
|
||||||
0x1400, 0x9000);
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 16 * 1024:
|
|
||||||
m_maincpu->space(AS_PROGRAM).install_readwrite_bank(
|
|
||||||
0x1400, 0x4fff, "bank1");
|
|
||||||
m_maincpu->space(AS_PROGRAM).nop_readwrite(
|
|
||||||
0x5000, 0xafff);
|
|
||||||
membank("bank1")->set_base(m_ram->pointer());
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 32 * 1024:
|
|
||||||
m_maincpu->space(AS_PROGRAM).install_readwrite_bank(
|
|
||||||
0x1400, 0x8fff, "bank1");
|
|
||||||
m_maincpu->space(AS_PROGRAM).nop_readwrite(
|
|
||||||
0x9000, 0xafff);
|
|
||||||
membank("bank1")->set_base(m_ram->pointer());
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 40 * 1024:
|
|
||||||
m_maincpu->space(AS_PROGRAM).install_readwrite_bank(
|
|
||||||
0x1400, 0xafff, "bank1");
|
|
||||||
membank("bank1")->set_base(m_ram->pointer());
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
@ -1,56 +0,0 @@
|
|||||||
// license:GPL-2.0+
|
|
||||||
// copyright-holders:(Original Author?), Dirk Best
|
|
||||||
/***************************************************************************
|
|
||||||
|
|
||||||
nascom1.c
|
|
||||||
|
|
||||||
Functions to emulate the video hardware of the nascom1.
|
|
||||||
|
|
||||||
***************************************************************************/
|
|
||||||
|
|
||||||
#include "emu.h"
|
|
||||||
#include "includes/nascom1.h"
|
|
||||||
|
|
||||||
UINT32 nascom1_state::screen_update_nascom1(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
|
||||||
{
|
|
||||||
UINT8 *videoram = m_videoram;
|
|
||||||
int sy, sx;
|
|
||||||
|
|
||||||
for (sx = 0; sx < 48; sx++)
|
|
||||||
{
|
|
||||||
m_gfxdecode->gfx(0)->opaque(bitmap,cliprect, videoram[0x03ca + sx],
|
|
||||||
1, 0, 0, sx * 8, 0);
|
|
||||||
}
|
|
||||||
|
|
||||||
for (sy = 0; sy < 15; sy++)
|
|
||||||
{
|
|
||||||
for (sx = 0; sx < 48; sx++)
|
|
||||||
{
|
|
||||||
m_gfxdecode->gfx(0)->opaque(bitmap,cliprect, videoram[0x000a + (sy * 64) + sx],
|
|
||||||
1, 0, 0, sx * 8, (sy + 1) * 16);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
UINT32 nascom1_state::screen_update_nascom2(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
|
||||||
{
|
|
||||||
UINT8 *videoram = m_videoram;
|
|
||||||
int sy, sx;
|
|
||||||
|
|
||||||
for (sx = 0; sx < 48; sx++)
|
|
||||||
{
|
|
||||||
m_gfxdecode->gfx(0)->opaque(bitmap,cliprect, videoram[0x03ca + sx],
|
|
||||||
1, 0, 0, sx * 8, 0);
|
|
||||||
}
|
|
||||||
|
|
||||||
for (sy = 0; sy < 15; sy++)
|
|
||||||
{
|
|
||||||
for (sx = 0; sx < 48; sx++)
|
|
||||||
{
|
|
||||||
m_gfxdecode->gfx(0)->opaque(bitmap,cliprect, videoram[0x000a + (sy * 64) + sx],
|
|
||||||
1, 0, 0, sx * 8, (sy + 1) * 14);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
Loading…
Reference in New Issue
Block a user