// license:BSD-3-Clause // copyright-holders:Nigel Barnes /********************************************************************** Computer Concepts Scanner Interface http://chrisacorns.computinghistory.org.uk/32bit_UpgradesA2G/CC_Scannerif.html Computer Concepts A3000 Scanner interface http://chrisacorns.computinghistory.org.uk/32bit_UpgradesA2G/CC_scanner_minipodule.html Computer Concepts ScanLight Video 256 http://chrisacorns.computinghistory.org.uk/32bit_UpgradesA2G/CC_ScanlightVideo256.html TODO: - implement scanner device - implement frame grabber from video source. **********************************************************************/ #include "emu.h" #include "scanlight.h" #include "imagedev/avivideo.h" #include "imagedev/picture.h" namespace { // ======================> arc_scanlight_device class arc_scanlight_device : public device_t, public device_archimedes_podule_interface { public: // construction/destruction arc_scanlight_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock); static constexpr feature_type unemulated_features() { return feature::CAPTURE; } protected: arc_scanlight_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, const XTAL &clock); // device-level overrides virtual void device_start() override; virtual void device_reset() override; // optional information overrides virtual void device_add_mconfig(machine_config &config) override; virtual const tiny_rom_entry *device_rom_region() const override; // device_archimedes_podule_interface overrides virtual void ioc_map(address_map &map) override; //private: required_memory_region m_podule_rom; required_device m_picture; u8 m_rom_page; }; // ======================> arc_scanjunior_device class arc_scanjunior_device : public arc_scanlight_device { public: // construction/destruction arc_scanjunior_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock); protected: // optional information overrides virtual const tiny_rom_entry *device_rom_region() const override; }; // ======================> arc_scanjunior3_device class arc_scanjunior3_device : public arc_scanlight_device { public: // construction/destruction arc_scanjunior3_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock); protected: // optional information overrides virtual const tiny_rom_entry *device_rom_region() const override; }; // ======================> arc_scanvideo_device class arc_scanvideo_device : public arc_scanlight_device { public: // construction/destruction arc_scanvideo_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock); protected: // optional information overrides virtual void device_add_mconfig(machine_config &config) override; virtual const tiny_rom_entry *device_rom_region() const override; // device_archimedes_podule_interface overrides virtual void ioc_map(address_map &map) override; private: required_device m_avivideo; }; void arc_scanlight_device::ioc_map(address_map &map) { map(0x0000, 0x1fff).lr8(NAME([this](offs_t offset) { return m_podule_rom->base()[offset | ((m_rom_page << 11) & 0x7800)]; })).umask32(0x000000ff); map(0x2000, 0x2000).lw8(NAME([this](u8 data) { m_rom_page = data; })); } void arc_scanvideo_device::ioc_map(address_map &map) { map(0x0000, 0x1fff).lr8(NAME([this](offs_t offset) { return m_podule_rom->base()[offset | (((m_rom_page ^ 0x10) << 11) & 0xf800)]; })).umask32(0x000000ff); map(0x2000, 0x2000).lw8(NAME([this](u8 data) { m_rom_page = data; })); } //------------------------------------------------- // ROM( scanlight ) //------------------------------------------------- ROM_START( scanlight ) ROM_REGION(0x8000, "podule_rom", 0) ROM_SYSTEM_BIOS(0, "100", "1.00 (05 Sep 1990)") // also on A3000 Scanner mini-podule ROMX_LOAD("scan-light_1.00.rom", 0x0000, 0x8000, CRC(6ba1764b) SHA1(fa69fb69e01553b27409b65a37d3d30a376e7380), ROM_BIOS(0)) ROM_END ROM_START( scanjunior ) ROM_REGION(0x8000, "podule_rom", 0) ROM_SYSTEM_BIOS(0, "100", "1.00 (05 Sep 1990)") ROMX_LOAD("scan-light_jr_1.00.rom", 0x0000, 0x8000, CRC(bf1b8268) SHA1(3c63f8379d8fc222fc57838a9384ecec7c5d2484), ROM_BIOS(0)) ROM_END ROM_START( scanjunior3 ) ROM_REGION(0x8000, "podule_rom", 0) ROM_SYSTEM_BIOS(0, "200", "2.00 (02 Oct 1992)") ROMX_LOAD("scan-light_jr_2.00.rom", 0x0000, 0x8000, CRC(bdc729bb) SHA1(382193f2b6cf8ba5ed04481d99050fe2f691ad0a), ROM_BIOS(0)) ROM_END ROM_START( scanvideo ) ROM_REGION(0x10000, "podule_rom", 0) ROM_SYSTEM_BIOS(0, "120", "1.20 (04 May 1994)") ROMX_LOAD("video256_1.20.rom", 0x0000, 0x10000, CRC(3e9a44b8) SHA1(9fe739b42c5bf5dab69e3c1ffb1c3c5a5d8d7a50), ROM_BIOS(0)) ROM_END const tiny_rom_entry *arc_scanlight_device::device_rom_region() const { return ROM_NAME( scanlight ); } const tiny_rom_entry *arc_scanjunior_device::device_rom_region() const { return ROM_NAME( scanjunior ); } const tiny_rom_entry *arc_scanjunior3_device::device_rom_region() const { return ROM_NAME( scanjunior3 ); } const tiny_rom_entry *arc_scanvideo_device::device_rom_region() const { return ROM_NAME( scanvideo ); } //------------------------------------------------- // device_add_mconfig - add device configuration //------------------------------------------------- void arc_scanlight_device::device_add_mconfig(machine_config &config) { IMAGE_PICTURE(config, m_picture); } void arc_scanvideo_device::device_add_mconfig(machine_config &config) { arc_scanlight_device::device_add_mconfig(config); IMAGE_AVIVIDEO(config, m_avivideo); } //************************************************************************** // LIVE DEVICE //************************************************************************** //------------------------------------------------- // arc_scanlight_device - constructor //------------------------------------------------- arc_scanlight_device::arc_scanlight_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, const XTAL &clock) : device_t(mconfig, type, tag, owner, clock) , device_archimedes_podule_interface(mconfig, *this) , m_podule_rom(*this, "podule_rom") , m_picture(*this, "srcimg") , m_rom_page(0) { } arc_scanlight_device::arc_scanlight_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock) : arc_scanlight_device(mconfig, ARC_SCANLIGHT, tag, owner, clock) { } arc_scanjunior_device::arc_scanjunior_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock) : arc_scanlight_device(mconfig, ARC_SCANJUNIOR, tag, owner, clock) { } arc_scanjunior3_device::arc_scanjunior3_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock) : arc_scanlight_device(mconfig, ARC_SCANJUNIOR3, tag, owner, clock) { } arc_scanvideo_device::arc_scanvideo_device(const machine_config &mconfig, const char *tag, device_t *owner, const XTAL &clock) : arc_scanlight_device(mconfig, ARC_SCANVIDEO, tag, owner, clock) , m_avivideo(*this, "srcavi") { } //------------------------------------------------- // device_start - device-specific startup //------------------------------------------------- void arc_scanlight_device::device_start() { save_item(NAME(m_rom_page)); } //------------------------------------------------- // device_reset - device-specific reset //------------------------------------------------- void arc_scanlight_device::device_reset() { m_rom_page = 0xff; } } // anonymous namespace //************************************************************************** // DEVICE DEFINITIONS //************************************************************************** DEFINE_DEVICE_TYPE_PRIVATE(ARC_SCANLIGHT, device_archimedes_podule_interface, arc_scanlight_device, "arc_scanlight", "Computer Concepts ScanLight") DEFINE_DEVICE_TYPE_PRIVATE(ARC_SCANJUNIOR, device_archimedes_podule_interface, arc_scanjunior_device, "arc_scanjunior", "Computer Concepts ScanLight Junior") DEFINE_DEVICE_TYPE_PRIVATE(ARC_SCANJUNIOR3, device_archimedes_podule_interface, arc_scanjunior3_device, "arc_scanjunior3", "Computer Concepts ScanLight Junior MkIII") DEFINE_DEVICE_TYPE_PRIVATE(ARC_SCANVIDEO, device_archimedes_podule_interface, arc_scanvideo_device, "arc_scanvideo", "Computer Concepts ScanLight Video 256")