Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-10-09 09:44:40 +03:00
Code Issues Actions 18 Packages Projects Releases Wiki Activity

correct model number and speed for intellec4 paper tape reader (thanks AJR)

Browse Source
This commit is contained in:
Vas Crabb 2017-07-13 05:31:16 +10:00
parent 22f9272f49
commit e42bb7d2f1
4 changed files with 49 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/devices/bus/intellec4/intellec4.cpp
View File

@ -251,5 +251,5 @@ void device_univ_card_interface::set_bus(univ_bus_device &bus)
#include "tapereader.h"
SLOT_INTERFACE_START(intellec4_univ_cards)
SLOT_INTERFACE("ptreader", INTELLEC4_TAPE_READER)
SLOT_INTERFACE("imm4_90", INTELLEC4_TAPE_READER)
SLOT_INTERFACE_END

58
src/devices/bus/intellec4/tapereader.cpp
View File

@ -5,66 +5,82 @@
#include "tapereader.h"
DEFINE_DEVICE_TYPE_NS(INTELLEC4_TAPE_READER, bus::intellec4, tape_reader_device, "intlc4ptr", "INTELLEC 4 paper tape reader")
DEFINE_DEVICE_TYPE_NS(INTELLEC4_TAPE_READER, bus::intellec4, imm4_90_device, "imm4_90", "Intel imm4-90 High-Speed Paper Tape Reader")
namespace bus { namespace intellec4 {
tape_reader_device::tape_reader_device(machine_config const &mconfig, char const *tag, device_t *owner, u32 clock)
imm4_90_device::imm4_90_device(machine_config const &mconfig, char const *tag, device_t *owner, u32 clock)
: device_t(mconfig, INTELLEC4_TAPE_READER, tag, owner, clock)
, device_univ_card_interface(mconfig, *this)
, device_image_interface(mconfig, *this)
, m_step_timer(nullptr)
, m_data(0xffU)
, m_ready(false)
, m_advance(false)
, m_stepping(false)
{
}
image_init_result tape_reader_device::call_load()
image_init_result imm4_90_device::call_load()
{
m_step_timer->reset();
m_data = 0x00U;
m_ready = false;
m_stepping = false;
return image_init_result::PASS;
}
void tape_reader_device::call_unload()
void imm4_90_device::call_unload()
{
m_step_timer->reset();
m_data = 0xffU;
m_ready = false;
m_stepping = false;
}
void tape_reader_device::device_start()
void imm4_90_device::device_start()
{
m_step_timer = machine().scheduler().timer_alloc(timer_expired_delegate(FUNC(imm4_90_device::step), this));
save_item(NAME(m_data));
save_item(NAME(m_ready));
save_item(NAME(m_advance));
save_item(NAME(m_stepping));
rom_ports_space().install_read_handler(0x0040U, 0x004fU, read8_delegate(FUNC(tape_reader_device::rom4_in), this));
rom_ports_space().install_read_handler(0x0060U, 0x006fU, read8_delegate(FUNC(tape_reader_device::rom6_in), this));
rom_ports_space().install_read_handler(0x0070U, 0x007fU, read8_delegate(FUNC(tape_reader_device::rom7_in), this));
rom_ports_space().install_write_handler(0x0040U, 0x004fU, write8_delegate(FUNC(tape_reader_device::rom4_out), this));
rom_ports_space().install_read_handler(0x0040U, 0x004fU, read8_delegate(FUNC(imm4_90_device::rom4_in), this));
rom_ports_space().install_read_handler(0x0060U, 0x006fU, read8_delegate(FUNC(imm4_90_device::rom6_in), this));
rom_ports_space().install_read_handler(0x0070U, 0x007fU, read8_delegate(FUNC(imm4_90_device::rom7_in), this));
rom_ports_space().install_write_handler(0x0040U, 0x004fU, write8_delegate(FUNC(imm4_90_device::rom4_out), this));
}
DECLARE_WRITE_LINE_MEMBER(tape_reader_device::advance)
DECLARE_WRITE_LINE_MEMBER(imm4_90_device::advance)
{
// this is edge-sensitive - CPU sends the narrowest pulse it can
if (!m_advance && !bool(state))
if (!m_advance && !bool(state) && !m_stepping)
{
// FIXME: it probably shouldn't be quite this fast
if (is_loaded() && fread(&m_data, 1U))
{
m_ready = true;
}
else
{
m_data = 0xffU;
m_ready = false;
}
m_ready = false;
m_stepping = true;
m_step_timer->adjust(attotime::from_msec(5)); // 200 characters/second
}
m_advance = !bool(state);
}
TIMER_CALLBACK_MEMBER(imm4_90_device::step)
{
m_stepping = false;
if (is_loaded() && fread(&m_data, 1U))
{
m_ready = true;
}
else
{
m_data = 0xffU;
m_ready = false;
}
}
} } // namespace bus::intellec4

15
src/devices/bus/intellec4/tapereader.h
View File

@ -1,11 +1,12 @@
// license:BSD-3-Clause
// copyright-holders:Vas Crabb
/*
High-speed paper tape reader
imm4-90 High-Speed Paper Tape Reader
The monitor PROM has support for loading BNPF or Intel HEX from this
device (use J command to select it), but it doesn't appear in any
catalogues or manuals I've seen.
catalogues or manuals I've seen. Apparently it was announced in
Computerworld.
*/
#ifndef MAME_BUS_INTELLEC4_TAPEREADER_H
#define MAME_BUS_INTELLEC4_TAPEREADER_H
@ -16,10 +17,10 @@ catalogues or manuals I've seen.
namespace bus { namespace intellec4 {
class tape_reader_device : public device_t, public device_univ_card_interface, public device_image_interface
class imm4_90_device : public device_t, public device_univ_card_interface, public device_image_interface
{
public:
tape_reader_device(machine_config const &mconfig, char const *tag, device_t *owner, u32 clock);
imm4_90_device(machine_config const &mconfig, char const *tag, device_t *owner, u32 clock);
virtual image_init_result call_load() override;
virtual void call_unload() override;
@ -41,14 +42,18 @@ private:
DECLARE_READ8_MEMBER(rom7_in) { return (~m_data >> 4) & 0x0fU; }
DECLARE_WRITE8_MEMBER(rom4_out) { advance(BIT(data, 3)); }
DECLARE_WRITE_LINE_MEMBER(advance);
TIMER_CALLBACK_MEMBER(step);
emu_timer *m_step_timer;
u8 m_data;
bool m_ready;
bool m_advance;
bool m_stepping;
};
} } // namespace bus::intellec4
DECLARE_DEVICE_TYPE_NS(INTELLEC4_TAPE_READER, bus::intellec4, tape_reader_device)
DECLARE_DEVICE_TYPE_NS(INTELLEC4_TAPE_READER, bus::intellec4, imm4_90_device)
#endif // MAME_BUS_INTELLEC4_TAPEREADER_H

2
src/mame/drivers/intellec4.cpp
View File

@ -327,7 +327,7 @@ MACHINE_CONFIG_START(intellec4)
MCFG_INTELLEC4_UNIV_BUS_RAM_PORTS_SPACE("maincpu", mcs40_cpu_device_base::AS_RAM_PORTS)
MCFG_INTELLEC4_UNIV_BUS_RESET_4002_CB(WRITELINE(intellec4_state, bus_reset_4002))
MCFG_INTELLEC4_UNIV_BUS_USER_RESET_CB(WRITELINE(intellec4_state, bus_user_reset))
MCFG_INTELLEC4_UNIV_SLOT_ADD("bus", "j7", 518000. / 7, intellec4_univ_cards, "ptreader")
MCFG_INTELLEC4_UNIV_SLOT_ADD("bus", "j7", 518000. / 7, intellec4_univ_cards, "imm4_90")
MCFG_INTELLEC4_UNIV_SLOT_ADD("bus", "j8", 518000. / 7, intellec4_univ_cards, nullptr)
MCFG_INTELLEC4_UNIV_SLOT_ADD("bus", "j9", 518000. / 7, intellec4_univ_cards, nullptr)
MCFG_INTELLEC4_UNIV_SLOT_ADD("bus", "j10", 518000. / 7, intellec4_univ_cards, nullptr)