mirror of
https://github.com/holub/mame
synced 2025-06-05 20:33:45 +03:00
c64: Emulated the BusCard IEE-488 / Centronics cartridge. [Curt Coder]
This commit is contained in:
Curt Coder
parent
7131463c21
commit
d8e072cd5e
@ -4,8 +4,9 @@
|
||||
|
||||
Batteries Included BusCard cartridge emulation
|
||||
|
||||
Enable BASIC 4.0 with SYS 61000
|
||||
Disable BASIC 4.0 with SYS 61003
|
||||
SYS 61000 -> Enable BASIC 4.0
|
||||
SYS 61003 -> Disable BASIC 4.0
|
||||
SYS 61006 -> Enter Machine Language Monitor
|
||||
|
||||
**********************************************************************/
|
||||
|
||||
@ -18,8 +19,10 @@
|
||||
// MACROS/CONSTANTS
|
||||
//**************************************************************************
|
||||
|
||||
#define I8255_TAG "i8255"
|
||||
#define CENTRONICS_TAG "centronics"
|
||||
#define I8255_TAG "u2"
|
||||
#define DS75160A_TAG "u3"
|
||||
#define DS75161A_TAG "u4"
|
||||
#define CENTRONICS_TAG "p4"
|
||||
#define EXPANSION_TAG "exp"
|
||||
|
||||
|
||||
@ -36,8 +39,11 @@ DEFINE_DEVICE_TYPE(C64_BUSCARD, buscard_t, "c64_buscard", "C64 BusCard cartridge
|
||||
//-------------------------------------------------
|
||||
|
||||
ROM_START( buscard )
|
||||
ROM_REGION( 0x2000, "rom", 0 )
|
||||
ROM_LOAD( "buscardv0.9-tms2564.bin", 0x0000, 0x2000, CRC(175e8c96) SHA1(8fb4ba7e3d0b58dc01b66ef962955596f1b125b5) )
|
||||
ROM_REGION( 0x8000, "rom", 0 )
|
||||
ROM_LOAD( "0.9.u1", 0x0000, 0x2000, CRC(175e8c96) SHA1(8fb4ba7e3d0b58dc01b66ef962955596f1b125b5) )
|
||||
//ROM_LOAD( "unpopulated.u13", 0x2000, 0x2000 )
|
||||
//ROM_LOAD( "unpopulated.u14", 0x4000, 0x2000 )
|
||||
//ROM_LOAD( "unpopulated.u15", 0x6000, 0x2000 )
|
||||
ROM_END
|
||||
|
||||
|
||||
@ -56,15 +62,30 @@ const tiny_rom_entry *buscard_t::device_rom_region() const
|
||||
//-------------------------------------------------
|
||||
|
||||
static INPUT_PORTS_START( buscard )
|
||||
PORT_START("SW")
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x01, 0x01, "SW:1" )
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x02, 0x02, "SW:2" )
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x04, 0x04, "SW:3" )
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x08, 0x08, "SW:4" )
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x10, 0x10, "SW:5" )
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x20, 0x20, "SW:6" )
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x40, 0x40, "SW:7" )
|
||||
PORT_DIPUNKNOWN_DIPLOC( 0x80, 0x80, "SW:8" )
|
||||
PORT_START("S1")
|
||||
PORT_DIPNAME( 0x03, 0x00, "Device #4" ) PORT_DIPLOCATION("S1:1,2")
|
||||
PORT_DIPSETTING( 0x00, "Serial" )
|
||||
PORT_DIPSETTING( 0x01, "Parallel w/conv." )
|
||||
PORT_DIPSETTING( 0x02, "IEEE" )
|
||||
PORT_DIPSETTING( 0x03, "Parallel" )
|
||||
PORT_DIPNAME( 0x04, 0x04, "Device #5" ) PORT_DIPLOCATION("S1:3")
|
||||
PORT_DIPSETTING( 0x00, "IEEE" )
|
||||
PORT_DIPSETTING( 0x04, "Serial" )
|
||||
PORT_DIPNAME( 0x08, 0x08, "Device #6" ) PORT_DIPLOCATION("S1:4")
|
||||
PORT_DIPSETTING( 0x00, "IEEE" )
|
||||
PORT_DIPSETTING( 0x08, "Serial" )
|
||||
PORT_DIPNAME( 0x10, 0x10, "Device #7" ) PORT_DIPLOCATION("S1:5")
|
||||
PORT_DIPSETTING( 0x00, "IEEE" )
|
||||
PORT_DIPSETTING( 0x10, "Serial" )
|
||||
PORT_DIPNAME( 0x20, 0x20, "Device #8" ) PORT_DIPLOCATION("S1:6")
|
||||
PORT_DIPSETTING( 0x00, "IEEE" )
|
||||
PORT_DIPSETTING( 0x20, "Serial" )
|
||||
PORT_DIPNAME( 0x40, 0x40, "Device #9" ) PORT_DIPLOCATION("S1:7")
|
||||
PORT_DIPSETTING( 0x00, "IEEE" )
|
||||
PORT_DIPSETTING( 0x40, "Serial" )
|
||||
PORT_DIPNAME( 0x80, 0x80, "Device #10" ) PORT_DIPLOCATION("S1:8")
|
||||
PORT_DIPSETTING( 0x00, "IEEE" )
|
||||
PORT_DIPSETTING( 0x80, "Serial" )
|
||||
INPUT_PORTS_END
|
||||
|
||||
|
||||
@ -78,6 +99,135 @@ ioport_constructor buscard_t::device_input_ports() const
|
||||
}
|
||||
|
||||
|
||||
//-------------------------------------------------
|
||||
// PPI interface
|
||||
//-------------------------------------------------
|
||||
|
||||
READ8_MEMBER( buscard_t::ppi_pa_r )
|
||||
{
|
||||
uint8_t data = 0xff;
|
||||
|
||||
if (!m_te)
|
||||
{
|
||||
data = m_ieee1->read(space, 0);
|
||||
}
|
||||
|
||||
if (m_dipsw)
|
||||
{
|
||||
data = m_s1->read();
|
||||
}
|
||||
|
||||
return data;
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( buscard_t::ppi_pa_w )
|
||||
{
|
||||
m_ieee1->write(space, 0, data);
|
||||
|
||||
m_centronics->write_data0(BIT(data, 0));
|
||||
m_centronics->write_data1(BIT(data, 1));
|
||||
m_centronics->write_data2(BIT(data, 2));
|
||||
m_centronics->write_data3(BIT(data, 3));
|
||||
m_centronics->write_data4(BIT(data, 4));
|
||||
m_centronics->write_data5(BIT(data, 5));
|
||||
m_centronics->write_data6(BIT(data, 6));
|
||||
m_centronics->write_data7(BIT(data, 7));
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( buscard_t::ppi_pb_w )
|
||||
{
|
||||
/*
|
||||
|
||||
bit description
|
||||
|
||||
PB0 BASIC ROM bank bit 0
|
||||
PB1 BASIC ROM bank bit 1
|
||||
PB2
|
||||
PB3 BASIC ROM enable
|
||||
PB4
|
||||
PB5
|
||||
PB6 STROBE
|
||||
PB7 DIP switch select
|
||||
|
||||
*/
|
||||
|
||||
m_bank = data & 0x03;
|
||||
m_basic = BIT(data, 3);
|
||||
|
||||
m_centronics->write_strobe(BIT(data, 6));
|
||||
|
||||
m_dipsw = BIT(data, 7);
|
||||
}
|
||||
|
||||
READ8_MEMBER( buscard_t::ppi_pc_r )
|
||||
{
|
||||
/*
|
||||
|
||||
bit description
|
||||
|
||||
PC0 BUSY
|
||||
PC1
|
||||
PC2 DAV
|
||||
PC3 EOI
|
||||
PC4
|
||||
PC5 ATN
|
||||
PC6 NRFD
|
||||
PC7 NDAC
|
||||
|
||||
*/
|
||||
|
||||
uint8_t data = 0;
|
||||
|
||||
data |= m_busy;
|
||||
|
||||
data |= m_ieee2->dav_r() << 2;
|
||||
data |= m_ieee2->eoi_r() << 3;
|
||||
data |= m_ieee2->atn_r() << 5;
|
||||
data |= m_ieee2->nrfd_r() << 6;
|
||||
data |= m_ieee2->ndac_r() << 7;
|
||||
|
||||
return data;
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( buscard_t::ppi_pc_w )
|
||||
{
|
||||
/*
|
||||
|
||||
bit description
|
||||
|
||||
PC0
|
||||
PC1 ATN
|
||||
PC2 DAV
|
||||
PC3 EOI
|
||||
PC4 TE
|
||||
PC5
|
||||
PC6 NRFD
|
||||
PC7 NDAC
|
||||
|
||||
*/
|
||||
|
||||
m_te = BIT(data, 4);
|
||||
m_ieee1->te_w(m_te);
|
||||
m_ieee2->te_w(m_te);
|
||||
|
||||
m_ieee2->atn_w(BIT(data, 1));
|
||||
m_ieee2->dav_w(BIT(data, 2));
|
||||
m_ieee2->eoi_w(BIT(data, 3));
|
||||
m_ieee2->nrfd_w(BIT(data, 6));
|
||||
m_ieee2->ndac_w(BIT(data, 7));
|
||||
}
|
||||
|
||||
|
||||
//-------------------------------------------------
|
||||
// Centronics interface
|
||||
//-------------------------------------------------
|
||||
|
||||
WRITE_LINE_MEMBER( buscard_t::busy_w )
|
||||
{
|
||||
m_busy = state;
|
||||
}
|
||||
|
||||
|
||||
//-------------------------------------------------
|
||||
// device_add_mconfig - add device configuration
|
||||
//-------------------------------------------------
|
||||
@ -85,11 +235,40 @@ ioport_constructor buscard_t::device_input_ports() const
|
||||
void buscard_t::device_add_mconfig(machine_config &config)
|
||||
{
|
||||
I8255A(config, m_ppi, 0);
|
||||
m_ppi->in_pa_callback().set(FUNC(buscard_t::ppi_pa_r));
|
||||
m_ppi->out_pa_callback().set(FUNC(buscard_t::ppi_pa_w));
|
||||
m_ppi->in_pb_callback().set_constant(0xff);
|
||||
m_ppi->out_pb_callback().set(FUNC(buscard_t::ppi_pb_w));
|
||||
m_ppi->in_pc_callback().set(FUNC(buscard_t::ppi_pc_r));
|
||||
m_ppi->out_pc_callback().set(FUNC(buscard_t::ppi_pc_w));
|
||||
|
||||
DS75160A(config, m_ieee1, 0);
|
||||
m_ieee1->read_callback().set(IEEE488_TAG, FUNC(ieee488_device::dio_r));
|
||||
m_ieee1->write_callback().set(IEEE488_TAG, FUNC(ieee488_device::host_dio_w));
|
||||
|
||||
DS75161A(config, m_ieee2, 0);
|
||||
m_ieee2->in_ren().set(IEEE488_TAG, FUNC(ieee488_device::ren_r));
|
||||
m_ieee2->in_ifc().set(IEEE488_TAG, FUNC(ieee488_device::ifc_r));
|
||||
m_ieee2->in_ndac().set(IEEE488_TAG, FUNC(ieee488_device::ndac_r));
|
||||
m_ieee2->in_nrfd().set(IEEE488_TAG, FUNC(ieee488_device::nrfd_r));
|
||||
m_ieee2->in_dav().set(IEEE488_TAG, FUNC(ieee488_device::dav_r));
|
||||
m_ieee2->in_eoi().set(IEEE488_TAG, FUNC(ieee488_device::eoi_r));
|
||||
m_ieee2->in_atn().set(IEEE488_TAG, FUNC(ieee488_device::atn_r));
|
||||
m_ieee2->in_srq().set(IEEE488_TAG, FUNC(ieee488_device::srq_r));
|
||||
m_ieee2->out_ren().set(IEEE488_TAG, FUNC(ieee488_device::host_ren_w));
|
||||
m_ieee2->out_ifc().set(IEEE488_TAG, FUNC(ieee488_device::host_ifc_w));
|
||||
m_ieee2->out_ndac().set(IEEE488_TAG, FUNC(ieee488_device::host_ndac_w));
|
||||
m_ieee2->out_nrfd().set(IEEE488_TAG, FUNC(ieee488_device::host_nrfd_w));
|
||||
m_ieee2->out_dav().set(IEEE488_TAG, FUNC(ieee488_device::host_dav_w));
|
||||
m_ieee2->out_eoi().set(IEEE488_TAG, FUNC(ieee488_device::host_eoi_w));
|
||||
m_ieee2->out_atn().set(IEEE488_TAG, FUNC(ieee488_device::host_atn_w));
|
||||
m_ieee2->out_srq().set(IEEE488_TAG, FUNC(ieee488_device::host_srq_w));
|
||||
|
||||
IEEE488(config, m_bus, 0);
|
||||
ieee488_slot_device::add_cbm_defaults(config, nullptr);
|
||||
|
||||
CENTRONICS(config, m_centronics, centronics_devices, nullptr);
|
||||
m_centronics->busy_handler().set(FUNC(buscard_t::busy_w));
|
||||
|
||||
C64_EXPANSION_SLOT(config, m_exp, DERIVED_CLOCK(1, 1), c64_expansion_cards, nullptr);
|
||||
m_exp->set_passthrough();
|
||||
@ -109,9 +288,18 @@ buscard_t::buscard_t(const machine_config &mconfig, const char *tag, device_t *o
|
||||
device_t(mconfig, C64_BUSCARD, tag, owner, clock),
|
||||
device_c64_expansion_card_interface(mconfig, *this),
|
||||
m_ppi(*this, I8255_TAG),
|
||||
m_ieee1(*this, DS75160A_TAG),
|
||||
m_ieee2(*this, DS75161A_TAG),
|
||||
m_bus(*this, IEEE488_TAG),
|
||||
m_centronics(*this, CENTRONICS_TAG),
|
||||
m_exp(*this, EXPANSION_TAG)
|
||||
m_exp(*this, EXPANSION_TAG),
|
||||
m_s1(*this, "S1"),
|
||||
m_rom(*this, "rom"),
|
||||
m_te(1),
|
||||
m_bank(3),
|
||||
m_basic(1),
|
||||
m_dipsw(1),
|
||||
m_busy(1)
|
||||
{
|
||||
}
|
||||
|
||||
@ -122,6 +310,15 @@ buscard_t::buscard_t(const machine_config &mconfig, const char *tag, device_t *o
|
||||
|
||||
void buscard_t::device_start()
|
||||
{
|
||||
m_ieee1->pe_w(0);
|
||||
m_ieee2->dc_w(0);
|
||||
|
||||
// state saving
|
||||
save_item(NAME(m_te));
|
||||
save_item(NAME(m_bank));
|
||||
save_item(NAME(m_basic));
|
||||
save_item(NAME(m_dipsw));
|
||||
save_item(NAME(m_busy));
|
||||
}
|
||||
|
||||
|
||||
@ -131,6 +328,10 @@ void buscard_t::device_start()
|
||||
|
||||
void buscard_t::device_reset()
|
||||
{
|
||||
m_ppi->reset();
|
||||
|
||||
m_ieee2->ifc_w(0);
|
||||
m_ieee2->ifc_w(1);
|
||||
}
|
||||
|
||||
|
||||
@ -140,7 +341,34 @@ void buscard_t::device_reset()
|
||||
|
||||
uint8_t buscard_t::c64_cd_r(offs_t offset, uint8_t data, int sphi2, int ba, int roml, int romh, int io1, int io2)
|
||||
{
|
||||
return m_exp->cd_r(offset, data, sphi2, ba, roml, romh, io1, io2);
|
||||
int cs = BIT(offset, 6) && BIT(offset, 7);
|
||||
|
||||
if (sphi2 && !io1 && cs)
|
||||
{
|
||||
data = m_ppi->read(offset & 0x03);
|
||||
}
|
||||
|
||||
if (!pd_pgm1(offset, sphi2))
|
||||
{
|
||||
data = m_rom->base()[offset & 0x1fff];
|
||||
}
|
||||
|
||||
if (!pd_pgm234(offset, sphi2, 0x02))
|
||||
{
|
||||
data = m_rom->base()[0x2000 | (offset & 0x1fff)];
|
||||
}
|
||||
|
||||
if (!pd_pgm234(offset, sphi2, 0x01))
|
||||
{
|
||||
data = m_rom->base()[0x4000 | (offset & 0x1fff)];
|
||||
}
|
||||
|
||||
if (!pd_pgm234(offset, sphi2, 0x00))
|
||||
{
|
||||
data = m_rom->base()[0x6000 | (offset & 0x1fff)];
|
||||
}
|
||||
|
||||
return m_exp->cd_r(offset, data, sphi2, ba, roml, romh, io1 | cs, io2);
|
||||
}
|
||||
|
||||
|
||||
@ -150,7 +378,14 @@ uint8_t buscard_t::c64_cd_r(offs_t offset, uint8_t data, int sphi2, int ba, int
|
||||
|
||||
void buscard_t::c64_cd_w(offs_t offset, uint8_t data, int sphi2, int ba, int roml, int romh, int io1, int io2)
|
||||
{
|
||||
m_exp->cd_w(offset, data, sphi2, ba, roml, romh, io1, io2);
|
||||
int cs = BIT(offset, 6) && BIT(offset, 7);
|
||||
|
||||
if (sphi2 && !io1 && cs)
|
||||
{
|
||||
m_ppi->write(offset & 0x03, data);
|
||||
}
|
||||
|
||||
m_exp->cd_w(offset, data, sphi2, ba, roml, romh, io1 | cs, io2);
|
||||
}
|
||||
|
||||
|
||||
@ -160,7 +395,7 @@ void buscard_t::c64_cd_w(offs_t offset, uint8_t data, int sphi2, int ba, int rom
|
||||
|
||||
int buscard_t::c64_game_r(offs_t offset, int sphi2, int ba, int rw)
|
||||
{
|
||||
return m_exp->game_r(offset, sphi2, ba, rw, m_slot->loram(), m_slot->hiram());
|
||||
return pd_pgm1(offset, sphi2) & m_exp->game_r(offset, sphi2, ba, rw, m_slot->loram(), m_slot->hiram());
|
||||
}
|
||||
|
||||
|
||||
@ -170,5 +405,38 @@ int buscard_t::c64_game_r(offs_t offset, int sphi2, int ba, int rw)
|
||||
|
||||
int buscard_t::c64_exrom_r(offs_t offset, int sphi2, int ba, int rw)
|
||||
{
|
||||
return m_exp->exrom_r(offset, sphi2, ba, rw, m_slot->loram(), m_slot->hiram());
|
||||
return !pd_pgm1(offset, sphi2) | m_exp->exrom_r(offset, sphi2, ba, rw, m_slot->loram(), m_slot->hiram());
|
||||
}
|
||||
|
||||
|
||||
//-------------------------------------------------
|
||||
// pd_pgm1 - ROM 1 enable
|
||||
//-------------------------------------------------
|
||||
|
||||
bool buscard_t::pd_pgm1(offs_t offset, int sphi2)
|
||||
{
|
||||
if (sphi2 && m_slot->hiram())
|
||||
{
|
||||
if (offset >= 0xa000 && offset < 0xc000 && m_slot->loram() && !m_basic)
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (offset >= 0xec00 && offset < 0xf000)
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
//-------------------------------------------------
|
||||
// pd_pgm234 - ROM 2/3/4 enable
|
||||
//-------------------------------------------------
|
||||
|
||||
bool buscard_t::pd_pgm234(offs_t offset, int sphi2, int bank)
|
||||
{
|
||||
return !(sphi2 && m_slot->hiram() && m_slot->loram() && offset >= 0xa000 && offset < 0xc000 && m_basic && (m_bank == bank));
|
||||
}
|
||||
|
||||
@ -15,6 +15,8 @@
|
||||
#include "bus/c64/exp.h"
|
||||
#include "bus/centronics/ctronics.h"
|
||||
#include "bus/ieee488/ieee488.h"
|
||||
#include "machine/ds75160a.h"
|
||||
#include "machine/ds75161a.h"
|
||||
#include "machine/i8255.h"
|
||||
|
||||
|
||||
@ -50,9 +52,29 @@ protected:
|
||||
|
||||
private:
|
||||
required_device<i8255_device> m_ppi;
|
||||
required_device<ds75160a_device> m_ieee1;
|
||||
required_device<ds75161a_device> m_ieee2;
|
||||
required_device<ieee488_device> m_bus;
|
||||
required_device<centronics_device> m_centronics;
|
||||
required_device<c64_expansion_slot_device> m_exp;
|
||||
required_ioport m_s1;
|
||||
required_memory_region m_rom;
|
||||
|
||||
bool m_te;
|
||||
int m_bank;
|
||||
bool m_basic;
|
||||
bool m_dipsw;
|
||||
bool m_busy;
|
||||
|
||||
DECLARE_READ8_MEMBER( ppi_pa_r );
|
||||
DECLARE_WRITE8_MEMBER( ppi_pa_w );
|
||||
DECLARE_WRITE8_MEMBER( ppi_pb_w );
|
||||
DECLARE_READ8_MEMBER( ppi_pc_r );
|
||||
DECLARE_WRITE8_MEMBER( ppi_pc_w );
|
||||
DECLARE_WRITE_LINE_MEMBER( busy_w );
|
||||
|
||||
bool pd_pgm1(offs_t offset, int sphi2);
|
||||
bool pd_pgm234(offs_t offset, int sphi2, int bank);
|
||||
};
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user