From d8e072cd5e9bec1d25ebcb0d7f3903d8e4de53ea Mon Sep 17 00:00:00 2001 From: Curt Coder Date: Mon, 13 May 2019 15:57:54 +0300 Subject: c64: Emulated the BusCard IEE-488 / Centronics cartridge. [Curt Coder] --- src/devices/bus/c64/buscard.cpp | 308 +++++++++++++++++++++++++++++++++++++--- src/devices/bus/c64/buscard.h | 22 +++ 2 files changed, 310 insertions(+), 20 deletions(-) diff --git a/src/devices/bus/c64/buscard.cpp b/src/devices/bus/c64/buscard.cpp index 31533d68675..2390269e773 100644 --- a/src/devices/bus/c64/buscard.cpp +++ b/src/devices/bus/c64/buscard.cpp @@ -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)); } diff --git a/src/devices/bus/c64/buscard.h b/src/devices/bus/c64/buscard.h index 07bf0a7310a..7c7324268d6 100644 --- a/src/devices/bus/c64/buscard.h +++ b/src/devices/bus/c64/buscard.h @@ -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 m_ppi; + required_device m_ieee1; + required_device m_ieee2; required_device m_bus; required_device m_centronics; required_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); }; -- cgit v1.2.3