diff options
Diffstat (limited to 'src/mess/machine/iq151_staper.c')
-rw-r--r-- | src/mess/machine/iq151_staper.c | 149 |
1 files changed, 149 insertions, 0 deletions
diff --git a/src/mess/machine/iq151_staper.c b/src/mess/machine/iq151_staper.c new file mode 100644 index 00000000000..2c072c531eb --- /dev/null +++ b/src/mess/machine/iq151_staper.c @@ -0,0 +1,149 @@ +/*************************************************************************** + + IQ151 STAPER (STAndard PERipheral) module emulation + + STAPER module includes cables for connect: + - a printer (CONSUL 2112 or 2113) + - a paper tape puncher (DT-105S) + - a paper tape reader (FS-1503) + + Currently only the printer is emulated + +***************************************************************************/ + +#include "emu.h" +#include "iq151_staper.h" + + +/*************************************************************************** + IMPLEMENTATION +***************************************************************************/ + +static I8255_INTERFACE( iq151_staper_ppi_intf ) +{ + DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, iq151_staper_device, ppi_porta_r), + DEVCB_NULL, + DEVCB_NULL, + DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, iq151_staper_device, ppi_portb_w), + DEVCB_NULL, + DEVCB_DEVICE_MEMBER(DEVICE_SELF_OWNER, iq151_staper_device, ppi_portc_w) +}; + +static MACHINE_CONFIG_FRAGMENT( iq151_staper ) + MCFG_I8255A_ADD("ppi8255", iq151_staper_ppi_intf) + + MCFG_PRINTER_ADD("printer") +MACHINE_CONFIG_END + +//************************************************************************** +// GLOBAL VARIABLES +//************************************************************************** + +const device_type IQ151_STAPER = &device_creator<iq151_staper_device>; + +//************************************************************************** +// LIVE DEVICE +//************************************************************************** + +//------------------------------------------------- +// iq151_staper_device - constructor +//------------------------------------------------- + +iq151_staper_device::iq151_staper_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) + : device_t(mconfig, IQ151_STAPER, "IQ151 STAPER", tag, owner, clock), + device_iq151cart_interface( mconfig, *this ), + m_ppi(*this, "ppi8255"), + m_printer(*this, "printer") +{ +} + +//------------------------------------------------- +// device_start - device-specific startup +//------------------------------------------------- + +void iq151_staper_device::device_start() +{ + m_printer_timer = timer_alloc(TIMER_PRINTER); + m_printer_timer->reset(); +} + +//------------------------------------------------- +// device_mconfig_additions +//------------------------------------------------- + +machine_config_constructor iq151_staper_device::device_mconfig_additions() const +{ + return MACHINE_CONFIG_NAME( iq151_staper ); +} + +//------------------------------------------------- +// device_timer - handler timer events +//------------------------------------------------- + +void iq151_staper_device::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) +{ + if (id == TIMER_PRINTER) + m_ppi->pc2_w(0); +} + + +//------------------------------------------------- +// IO read +//------------------------------------------------- + +void iq151_staper_device::io_read(offs_t offset, UINT8 &data) +{ + address_space* space = machine().device("maincpu")->memory().space(AS_IO); + + if (offset >= 0xf8 && offset < 0xfc) + data = m_ppi->read(*space, offset & 0x03); +} + +//------------------------------------------------- +// IO write +//------------------------------------------------- + +void iq151_staper_device::io_write(offs_t offset, UINT8 data) +{ + address_space* space = machine().device("maincpu")->memory().space(AS_IO); + + if (offset >= 0xf8 && offset < 0xfc) + m_ppi->write(*space, offset & 0x03, data); +} + + +//************************************************************************** +// I8255 interface +//************************************************************************** + +READ8_MEMBER( iq151_staper_device::ppi_porta_r ) +{ + // TODO: paper tape reader input + return 0; +} + +WRITE8_MEMBER( iq151_staper_device::ppi_portb_w ) +{ + if (m_ppi_portc & 0x80) + { + // printer out + m_printer->output(data); + + // CONSUL 2112/3 usually print 65/70 cps + m_printer_timer->adjust(attotime::from_msec(15)); + } + if (m_ppi_portc & 0x40) + { + // TODO: paper tape puncher out + } +} + +WRITE8_MEMBER( iq151_staper_device::ppi_portc_w ) +{ + /* + x--- ---- printer select + -x-- ---- punchtape select + */ + + m_ppi_portc = data; +} |