mirror of
https://github.com/holub/mame
synced 2025-04-19 15:11:37 +03:00
(MESS) apple2: Support the Apple II Parallel Interface Card [R. Belmont]
This commit is contained in:
R. Belmont
parent
f5fc5b2f59
commit
f5b94b06f3
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -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
|
||||
|
||||
307
src/emu/bus/a2bus/a2pic.c
Normal file
307
src/emu/bus/a2bus/a2pic.c
Normal file
@ -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<a2bus_pic_device>;
|
||||
|
||||
#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);
|
||||
}
|
||||
}
|
||||
72
src/emu/bus/a2bus/a2pic.h
Normal file
72
src/emu/bus/a2bus/a2pic.h
Normal file
@ -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<centronics_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__ */
|
||||
@ -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
|
||||
|
||||
@ -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)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user