From f5b94b06f32cfb6e1fd9fed84bd29047790a59ea Mon Sep 17 00:00:00 2001 From: "R. Belmont" Date: Sun, 2 Mar 2014 04:38:39 +0000 Subject: [PATCH] (MESS) apple2: Support the Apple II Parallel Interface Card [R. Belmont] --- .gitattributes | 2 + src/emu/bus/a2bus/a2pic.c | 307 ++++++++++++++++++++++++++++++++++++++ src/emu/bus/a2bus/a2pic.h | 72 +++++++++ src/emu/bus/bus.mak | 2 + src/mess/drivers/apple2.c | 2 + 5 files changed, 385 insertions(+) create mode 100644 src/emu/bus/a2bus/a2pic.c create mode 100644 src/emu/bus/a2bus/a2pic.h diff --git a/.gitattributes b/.gitattributes index f5506935214..aee47ad2a92 100644 --- a/.gitattributes +++ b/.gitattributes @@ -416,6 +416,8 @@ src/emu/bus/a2bus/a2midi.c svneol=native#text/plain src/emu/bus/a2bus/a2midi.h svneol=native#text/plain src/emu/bus/a2bus/a2mockingboard.c svneol=native#text/plain src/emu/bus/a2bus/a2mockingboard.h svneol=native#text/plain +src/emu/bus/a2bus/a2pic.c svneol=native#text/plain +src/emu/bus/a2bus/a2pic.h svneol=native#text/plain src/emu/bus/a2bus/a2sam.c svneol=native#text/plain src/emu/bus/a2bus/a2sam.h svneol=native#text/plain src/emu/bus/a2bus/a2scsi.c svneol=native#text/plain diff --git a/src/emu/bus/a2bus/a2pic.c b/src/emu/bus/a2bus/a2pic.c new file mode 100644 index 00000000000..c1392ca13d7 --- /dev/null +++ b/src/emu/bus/a2bus/a2pic.c @@ -0,0 +1,307 @@ +/********************************************************************* + + a2pic.c + + Apple II Parallel Interface Card (670-0021) + +*********************************************************************/ + +#include "a2pic.h" + +/*************************************************************************** + PARAMETERS +***************************************************************************/ + +//************************************************************************** +// GLOBAL VARIABLES +//************************************************************************** + +const device_type A2BUS_PIC = &device_creator; + +#define PIC_ROM_REGION "pic_rom" +#define PIC_CENTRONICS_TAG "pic_ctx" + +MACHINE_CONFIG_FRAGMENT( pic ) + MCFG_CENTRONICS_ADD(PIC_CENTRONICS_TAG, centronics_printers, "image") + MCFG_CENTRONICS_DATA0_HANDLER(WRITELINE(a2bus_pic_device, datain0_w)) + MCFG_CENTRONICS_DATA1_HANDLER(WRITELINE(a2bus_pic_device, datain1_w)) + MCFG_CENTRONICS_DATA2_HANDLER(WRITELINE(a2bus_pic_device, datain2_w)) + MCFG_CENTRONICS_DATA3_HANDLER(WRITELINE(a2bus_pic_device, datain3_w)) + MCFG_CENTRONICS_DATA4_HANDLER(WRITELINE(a2bus_pic_device, datain4_w)) + MCFG_CENTRONICS_DATA5_HANDLER(WRITELINE(a2bus_pic_device, datain5_w)) + MCFG_CENTRONICS_DATA6_HANDLER(WRITELINE(a2bus_pic_device, datain6_w)) + MCFG_CENTRONICS_DATA7_HANDLER(WRITELINE(a2bus_pic_device, datain7_w)) + MCFG_CENTRONICS_ACK_HANDLER(WRITELINE(a2bus_pic_device, ack_w)) +MACHINE_CONFIG_END + +ROM_START( pic ) + ROM_REGION(0x000200, PIC_ROM_REGION, 0) + ROM_LOAD( "341-0057.bin", 0x000000, 0x000200, CRC(0d2d84ee) SHA1(bfc5b863d37e59875a6159528eb0f2b6082063b5) ) +ROM_END + +static INPUT_PORTS_START( pic ) + PORT_START("DSW1") + PORT_DIPNAME( 0x07, 0x00, "Strobe length (SW1-3)" ) + PORT_DIPSETTING( 0x00, "1 microsecond" ) + PORT_DIPSETTING( 0x01, "3 microseconds" ) + PORT_DIPSETTING( 0x02, "5 microseconds" ) + PORT_DIPSETTING( 0x03, "7 microseconds" ) + PORT_DIPSETTING( 0x04, "9 microseconds" ) + PORT_DIPSETTING( 0x05, "11 microseconds" ) + PORT_DIPSETTING( 0x06, "13 microseconds" ) + PORT_DIPSETTING( 0x07, "15 microseconds" ) + + PORT_DIPNAME( 0x08, 0x00, "Strobe polarity (SW4)" ) + PORT_DIPSETTING( 0x00, "Positive" ) + PORT_DIPSETTING( 0x08, "Negative" ) + + PORT_DIPNAME( 0x10, 0x00, "Acknowledge polarity (SW5)" ) + PORT_DIPSETTING( 0x00, "Positive" ) + PORT_DIPSETTING( 0x10, "Negative" ) + + PORT_DIPNAME( 0x20, 0x20, "Firmware (SW6)" ) + PORT_DIPSETTING( 0x00, "Parallel Printer (341-0005)" ) + PORT_DIPSETTING( 0x20, "Centronics (341-0019)" ) + + PORT_DIPNAME( 0x40, 0x00, "Use interrupts (SW7)" ) + PORT_DIPSETTING( 0x00, "Off" ) + PORT_DIPSETTING( 0x40, "On" ) +INPUT_PORTS_END + +//------------------------------------------------- +// input_ports - device-specific input ports +//------------------------------------------------- + +ioport_constructor a2bus_pic_device::device_input_ports() const +{ + return INPUT_PORTS_NAME( pic ); +} + +//------------------------------------------------- +// machine_config_additions - device-specific +// machine configurations +//------------------------------------------------- + +machine_config_constructor a2bus_pic_device::device_mconfig_additions() const +{ + return MACHINE_CONFIG_NAME( pic ); +} + +//------------------------------------------------- +// rom_region - device-specific ROM region +//------------------------------------------------- + +const rom_entry *a2bus_pic_device::device_rom_region() const +{ + return ROM_NAME( pic ); +} + +//************************************************************************** +// LIVE DEVICE +//************************************************************************** + +a2bus_pic_device::a2bus_pic_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) : + device_t(mconfig, A2BUS_PIC, "Apple Parallel Interface Card", tag, owner, clock, "a2pic", __FILE__), + device_a2bus_card_interface(mconfig, *this), + m_dsw1(*this, "DSW1"), + m_ctx(*this, PIC_CENTRONICS_TAG), + m_started(false) +{ +} + +a2bus_pic_device::a2bus_pic_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_a2bus_card_interface(mconfig, *this), + m_dsw1(*this, "DSW1"), + m_ctx(*this, PIC_CENTRONICS_TAG), + m_started(false) +{ +} + +//------------------------------------------------- +// device_start - device-specific startup +//------------------------------------------------- + +void a2bus_pic_device::device_start() +{ + // set_a2bus_device makes m_slot valid + set_a2bus_device(); + + astring tempstring; + m_rom = device().machine().root_device().memregion(this->subtag(tempstring, PIC_ROM_REGION))->base(); + + m_timer = timer_alloc(0, NULL); + m_timer->adjust(attotime::never); + + save_item(NAME(m_ack)); + save_item(NAME(m_datain)); + save_item(NAME(m_irqenable)); + save_item(NAME(m_autostrobe)); +} + +void a2bus_pic_device::device_reset() +{ + m_started = true; + m_ack = 0; + m_datain = 0; + m_irqenable = false; + m_autostrobe = false; + lower_slot_irq(); + m_timer->adjust(attotime::never); + + // set initial state of the strobe line depending on the dipswitch + clear_strobe(); +} + +void a2bus_pic_device::device_timer(emu_timer &timer, device_timer_id tid, int param, void *ptr) +{ + clear_strobe(); + + m_timer->adjust(attotime::never); +} + +/*------------------------------------------------- + read_cnxx - called for reads from this card's cnxx space +-------------------------------------------------*/ + +UINT8 a2bus_pic_device::read_cnxx(address_space &space, UINT8 offset) +{ + m_autostrobe = true; + + if (m_dsw1->read() & 0x20) + { + return m_rom[(offset&0xff) | 0x100]; + } + + return m_rom[(offset&0xff)]; +} + +/*------------------------------------------------- + read_c0nx - called for reads from this card's c0nx space +-------------------------------------------------*/ + +UINT8 a2bus_pic_device::read_c0nx(address_space &space, UINT8 offset) +{ + switch (offset) + { + case 3: + return m_datain; + + case 4: + return m_ack; + + case 6: // does reading this really work? + m_irqenable = true; + break; + + case 7: + m_irqenable = false; + m_autostrobe = false; + lower_slot_irq(); + break; + + } + + return 0; +} + +/*------------------------------------------------- + write_c0nx - called for writes to this card's c0nx space +-------------------------------------------------*/ + +void a2bus_pic_device::write_c0nx(address_space &space, UINT8 offset, UINT8 data) +{ + switch (offset) + { + case 0: // set data out and send a strobe + m_ctx->write_data0(data&0x01); + m_ctx->write_data1((data&0x02)>>1); + m_ctx->write_data2((data&0x04)>>2); + m_ctx->write_data3((data&0x08)>>3); + m_ctx->write_data4((data&0x10)>>4); + m_ctx->write_data5((data&0x20)>>5); + m_ctx->write_data6((data&0x40)>>6); + m_ctx->write_data7((data&0x80)>>7); + + if (m_autostrobe) + { + start_strobe(); + } + break; + + case 2: // send a strobe + start_strobe(); + break; + + case 6: // enable interrupt on ACK + m_irqenable = true; + break; + + case 7: // disable and acknowledge IRQ, reset ACK flip-flop, disable autostrobe + m_irqenable = false; + m_autostrobe = false; + lower_slot_irq(); + break; + } +} + +WRITE_LINE_MEMBER( a2bus_pic_device::datain0_w ) { m_datain &= ~0x01; m_datain |= (state == ASSERT_LINE) ? 0x01 : 0; } +WRITE_LINE_MEMBER( a2bus_pic_device::datain1_w ) { m_datain &= ~0x02; m_datain |= (state == ASSERT_LINE) ? 0x02 : 0; } +WRITE_LINE_MEMBER( a2bus_pic_device::datain2_w ) { m_datain &= ~0x04; m_datain |= (state == ASSERT_LINE) ? 0x04 : 0; } +WRITE_LINE_MEMBER( a2bus_pic_device::datain3_w ) { m_datain &= ~0x08; m_datain |= (state == ASSERT_LINE) ? 0x08 : 0; } +WRITE_LINE_MEMBER( a2bus_pic_device::datain4_w ) { m_datain &= ~0x10; m_datain |= (state == ASSERT_LINE) ? 0x10 : 0; } +WRITE_LINE_MEMBER( a2bus_pic_device::datain5_w ) { m_datain &= ~0x20; m_datain |= (state == ASSERT_LINE) ? 0x20 : 0; } +WRITE_LINE_MEMBER( a2bus_pic_device::datain6_w ) { m_datain &= ~0x40; m_datain |= (state == ASSERT_LINE) ? 0x40 : 0; } +WRITE_LINE_MEMBER( a2bus_pic_device::datain7_w ) { m_datain &= ~0x80; m_datain |= (state == ASSERT_LINE) ? 0x80 : 0; } + +WRITE_LINE_MEMBER( a2bus_pic_device::ack_w ) +{ + if (m_started) + { + UINT8 dsw1 = m_dsw1->read(); + + if (dsw1 & 0x10) // negative polarity + { + m_ack = (state == ASSERT_LINE) ? 0x00 : 0x80; + } + else + { + m_ack = (state == ASSERT_LINE) ? 0x80 : 0x00; + } + + m_ack |= 0x40; // set ACK flip-flop + + if ((dsw1 & 0x40) && (m_irqenable)) + { + raise_slot_irq(); + } + } +} + +void a2bus_pic_device::start_strobe() +{ + int usec = ((m_dsw1->read() & 7) * 2) + 1; // strobe length in microseconds + + if (m_dsw1->read() & 0x8) // negative polarity + { + m_ctx->write_strobe(CLEAR_LINE); + } + else + { + m_ctx->write_strobe(ASSERT_LINE); + } + + m_timer->adjust(attotime::from_usec(usec), 0, attotime::never); +} + +void a2bus_pic_device::clear_strobe() +{ + if (m_dsw1->read() & 0x8) // negative polarity + { + m_ctx->write_strobe(ASSERT_LINE); + } + else + { + m_ctx->write_strobe(CLEAR_LINE); + } +} diff --git a/src/emu/bus/a2bus/a2pic.h b/src/emu/bus/a2bus/a2pic.h new file mode 100644 index 00000000000..8d644f9e53f --- /dev/null +++ b/src/emu/bus/a2bus/a2pic.h @@ -0,0 +1,72 @@ +/********************************************************************* + + a2pic.h + + Apple II Parallel Interface Card + +*********************************************************************/ + +#ifndef __A2BUS_PIC__ +#define __A2BUS_PIC__ + +#include "a2bus.h" +#include "bus/centronics/ctronics.h" +#include "bus/centronics/image.h" + +//************************************************************************** +// TYPE DEFINITIONS +//************************************************************************** + +class a2bus_pic_device: + public device_t, + public device_a2bus_card_interface +{ +public: + // construction/destruction + a2bus_pic_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock); + a2bus_pic_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); + + // optional information overrides + virtual machine_config_constructor device_mconfig_additions() const; + virtual const rom_entry *device_rom_region() const; + virtual ioport_constructor device_input_ports() const; + + required_ioport m_dsw1; + + DECLARE_WRITE_LINE_MEMBER( datain0_w ); + DECLARE_WRITE_LINE_MEMBER( datain1_w ); + DECLARE_WRITE_LINE_MEMBER( datain2_w ); + DECLARE_WRITE_LINE_MEMBER( datain3_w ); + DECLARE_WRITE_LINE_MEMBER( datain4_w ); + DECLARE_WRITE_LINE_MEMBER( datain5_w ); + DECLARE_WRITE_LINE_MEMBER( datain6_w ); + DECLARE_WRITE_LINE_MEMBER( datain7_w ); + DECLARE_WRITE_LINE_MEMBER( ack_w ); + +protected: + virtual void device_start(); + virtual void device_reset(); + virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr); + + virtual UINT8 read_c0nx(address_space &space, UINT8 offset); + virtual void write_c0nx(address_space &space, UINT8 offset, UINT8 data); + virtual UINT8 read_cnxx(address_space &space, UINT8 offset); + + required_device m_ctx; + + void start_strobe(); + void clear_strobe(); + +private: + UINT8 *m_rom; + bool m_started; + UINT8 m_ack, m_datain; + bool m_irqenable; + bool m_autostrobe; + emu_timer *m_timer; +}; + +// device type definition +extern const device_type A2BUS_PIC; + +#endif /* __A2BUS_PIC__ */ diff --git a/src/emu/bus/bus.mak b/src/emu/bus/bus.mak index 820760a9304..e7683e7188e 100644 --- a/src/emu/bus/bus.mak +++ b/src/emu/bus/bus.mak @@ -515,6 +515,7 @@ ifneq ($(filter A2BUS,$(BUSES)),) BUSOBJS += $(BUSOBJ)/a2bus/a2bus.o BUSOBJS += $(BUSOBJ)/a2bus/a2lang.o BUSOBJS += $(BUSOBJ)/a2bus/a2diskii.o +BUSOBJS += $(BUSOBJ)/a2bus/a2diskiing.o BUSOBJS += $(BUSOBJ)/a2bus/a2mockingboard.o BUSOBJS += $(BUSOBJ)/a2bus/a2cffa.o BUSOBJS += $(BUSOBJ)/a2bus/a2memexp.o @@ -537,6 +538,7 @@ BUSOBJS += $(BUSOBJ)/a2bus/a2zipdrive.o BUSOBJS += $(BUSOBJ)/a2bus/a2applicard.o BUSOBJS += $(BUSOBJ)/a2bus/a2hsscsi.o BUSOBJS += $(BUSOBJ)/a2bus/a2ultraterm.o +BUSOBJS += $(BUSOBJ)/a2bus/a2pic.o BUSOBJS += $(BUSOBJ)/a2bus/a2estd80col.o BUSOBJS += $(BUSOBJ)/a2bus/a2eext80col.o BUSOBJS += $(BUSOBJ)/a2bus/a2eramworks3.o diff --git a/src/mess/drivers/apple2.c b/src/mess/drivers/apple2.c index 3c10714f51f..c77365f6006 100644 --- a/src/mess/drivers/apple2.c +++ b/src/mess/drivers/apple2.c @@ -209,6 +209,7 @@ Apple 3.5 and Apple 5.25 drives - up to three devices #include "bus/a2bus/a2zipdrive.h" #include "bus/a2bus/a2applicard.h" #include "bus/a2bus/a2ultraterm.h" +#include "bus/a2bus/a2pic.h" #include "bus/a2bus/a2estd80col.h" #include "bus/a2bus/a2eext80col.h" #include "bus/a2bus/a2eramworks3.h" @@ -995,6 +996,7 @@ static SLOT_INTERFACE_START(apple2_cards) SLOT_INTERFACE("ultraterm", A2BUS_ULTRATERM) /* Videx UltraTerm (original) */ SLOT_INTERFACE("ultratermenh", A2BUS_ULTRATERMENH) /* Videx UltraTerm (enhanced //e) */ SLOT_INTERFACE("aevm80", A2BUS_VTC2) /* Applied Engineering ViewMaster 80 */ + SLOT_INTERFACE("parallel", A2BUS_PIC) /* Apple Parallel Interface Card */ SLOT_INTERFACE_END static SLOT_INTERFACE_START(apple2eaux_cards)