// license:BSD-3-Clause // copyright-holders:AJR /*********************************************************************************************************************************** Skeleton driver for HP-2620 series display terminals. ************************************************************************************************************************************/ #include "emu.h" #include "bus/rs232/rs232.h" #include "cpu/z80/z80.h" #include "machine/input_merger.h" #include "machine/mos6551.h" #include "machine/nvram.h" #include "machine/ripple_counter.h" #include "sound/spkrdev.h" #include "video/dp8350.h" #include "screen.h" #include "speaker.h" class hp2620_state : public driver_device { public: hp2620_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_maincpu(*this, "maincpu") , m_nmigate(*this, "nmigate") , m_crtc(*this, "crtc") , m_datacomm(*this, "datacomm") , m_bell(*this, "bell") , m_bellctr(*this, "bellctr") , m_p_chargen(*this, "chargen") , m_nvram(*this, "nvram") { } void hp2622(machine_config &config); protected: virtual void machine_start() override; virtual void machine_reset() override; private: u8 nvram_r(offs_t offset); void nvram_w(offs_t offset, u8 data); u8 keystat_r(); void keydisp_w(u8 data); u8 sysstat_r(); void modem_w(u8 data); void crtc_w(offs_t offset, u8 data); void ennmi_w(offs_t offset, u8 data); u32 screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect); DECLARE_WRITE_LINE_MEMBER(nlrc_w); DECLARE_WRITE_LINE_MEMBER(bell_w); void io_map(address_map &map); void mem_map(address_map &map); required_device m_maincpu; required_device m_nmigate; required_device m_crtc; required_device m_datacomm; required_device m_bell; required_device m_bellctr; required_region_ptr m_p_chargen; required_shared_ptr m_nvram; u16 m_display_page; u8 m_key_status; }; u32 hp2620_state::screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect) { return 0; } u8 hp2620_state::nvram_r(offs_t offset) { // TODO: wait states return 0xf0 | m_nvram[offset]; } void hp2620_state::nvram_w(offs_t offset, u8 data) { // TODO: wait states m_nvram[offset] = data & 0x0f; } u8 hp2620_state::keystat_r() { // LS299 at U25 return m_key_status; } void hp2620_state::keydisp_w(u8 data) { // LS374 at U26 // TODO: D0-D3 = KEY3-KEY6 m_bellctr->reset_w(BIT(data, 4)); // TODO: D6 = BLINK RATE // TODO: D7 = ENHOFF } u8 hp2620_state::sysstat_r() { // LS244 at U36 u8 status = 0xe0; status |= m_crtc->vblank_r() << 0; // TODO: D1 = PINT status |= m_datacomm->dsr_r() << 2; // DM (J6-12) status |= m_datacomm->cts_r() << 3; // CS (J6-11) status |= m_datacomm->ri_r() << 4; // OCR1 (J6-18) return status; } void hp2620_state::modem_w(u8 data) { // LS174 at U35 (TODO: D0 = DISPOFF) m_datacomm->write_spds(BIT(data, 1)); // OCD1 (J6-7) m_crtc->refresh_control(BIT(data, 5)); } void hp2620_state::crtc_w(offs_t offset, u8 data) { m_crtc->register_load(data & 3, offset & 0xfff); m_display_page = offset & 0x3000; } void hp2620_state::ennmi_w(offs_t offset, u8 data) { m_nmigate->in_w<0>(BIT(offset, 0)); } WRITE_LINE_MEMBER(hp2620_state::nlrc_w) { // clock input for LS175 at U59 if (state) m_nmigate->in_w<1>((m_crtc->lc_r() & 7) == 3); // TODO: shift keyboard response into m_key_status } WRITE_LINE_MEMBER(hp2620_state::bell_w) { m_bell->level_w(state); } void hp2620_state::mem_map(address_map &map) { map(0x0000, 0xbfff).rom().region("maincpu", 0); map(0x8000, 0xbfff).w(FUNC(hp2620_state::crtc_w)); map(0xc000, 0xffff).ram(); } void hp2620_state::io_map(address_map &map) { map.global_mask(0xff); map(0x00, 0x7f).rw(FUNC(hp2620_state::nvram_r), FUNC(hp2620_state::nvram_w)).share("nvram"); map(0x80, 0x80).r(FUNC(hp2620_state::keystat_r)); map(0x88, 0x89).w(FUNC(hp2620_state::ennmi_w)); map(0x90, 0x90).r(FUNC(hp2620_state::sysstat_r)); map(0xa0, 0xa3).w("acia", FUNC(mos6551_device::write)); map(0xa4, 0xa7).r("acia", FUNC(mos6551_device::read)); map(0xa8, 0xa8).w(FUNC(hp2620_state::modem_w)); map(0xb8, 0xb8).w(FUNC(hp2620_state::keydisp_w)); map(0xe1, 0xe1).nopw(); // program bug, undocumented expansion or ??? } void hp2620_state::machine_start() { save_item(NAME(m_display_page)); save_item(NAME(m_key_status)); } void hp2620_state::machine_reset() { m_nmigate->in_w<1>(0); m_display_page = 0; m_key_status = 0; } static INPUT_PORTS_START( hp2622 ) INPUT_PORTS_END void hp2620_state::hp2622(machine_config &config) { Z80(config, m_maincpu, 25.7715_MHz_XTAL / 7); // 3.68 MHz m_maincpu->set_addrmap(AS_PROGRAM, &hp2620_state::mem_map); m_maincpu->set_addrmap(AS_IO, &hp2620_state::io_map); NVRAM(config, "nvram", nvram_device::DEFAULT_ALL_0); // 5101 (A7 tied to GND) + battery (+ wait states) INPUT_MERGER_ALL_HIGH(config, m_nmigate).output_handler().set_inputline(m_maincpu, INPUT_LINE_NMI); screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); screen.set_screen_update(FUNC(hp2620_state::screen_update)); DP8367(config, m_crtc, 25.7715_MHz_XTAL).set_screen("screen"); m_crtc->set_half_shift(true); m_crtc->hsync_callback().set(m_bellctr, FUNC(ripple_counter_device::clock_w)).invert(); m_crtc->lrc_callback().set(FUNC(hp2620_state::nlrc_w)).invert(); mos6551_device &acia(MOS6551(config, "acia", 0)); // SY6551 acia.set_xtal(25.7715_MHz_XTAL / 14); // 1.84 MHz acia.irq_handler().set_inputline("maincpu", INPUT_LINE_IRQ0); acia.rts_handler().set(m_datacomm, FUNC(rs232_port_device::write_rts)); // RS (J6-22) acia.dtr_handler().set(m_datacomm, FUNC(rs232_port_device::write_dtr)); // TR (J6-23) acia.txd_handler().set(m_datacomm, FUNC(rs232_port_device::write_txd)); // SD (J6-21) RS232_PORT(config, m_datacomm, default_rs232_devices, nullptr); m_datacomm->rxd_handler().set("acia", FUNC(mos6551_device::write_rxd)); // RD (J6-9) RIPPLE_COUNTER(config, m_bellctr); // LS393 at U114 m_bellctr->set_stages(8); m_bellctr->count_out_cb().set(FUNC(hp2620_state::bell_w)).bit(4); SPEAKER(config, "mono").front_center(); // on keyboard SPEAKER_SOUND(config, m_bell).add_route(ALL_OUTPUTS, "mono", 0.50); } /************************************************************************************************************** Hewlett-Packard HP-2622A. Chips: National 8367 CRTC (labeled B8250), SY6551 (labeled 8251), Z8400A (Z80) Crystal: 25.7715 ***************************************************************************************************************/ ROM_START( hp2622a ) ROM_REGION(0xc000, "maincpu", 0) ROM_LOAD( "1818-1685.xu63", 0x0000, 0x2000, CRC(a57ffe5e) SHA1(4d7844320deba916d9ec289927af987fea025b02) ) ROM_LOAD( "1818-1686.xu64", 0x2000, 0x2000, CRC(bee9274c) SHA1(20796c559031a91cb2666776fcf7ffdb52a0a318) ) ROM_LOAD( "1818-1687.xu65", 0x4000, 0x2000, CRC(e9ecd489) SHA1(9b249b8d066d256069ccdb8809bb808c414f106a) ) // XU66-XU68 are empty sockets ROM_REGION(0x2000, "chargen", 0) ROM_LOAD( "1818-1489.xu311", 0x0000, 0x2000, CRC(9879b153) SHA1(fc1705d6de38eb6d3a67f1ae439e359e5124d028) ) ROM_END COMP(1982, hp2622a, 0, 0, hp2622, hp2622, hp2620_state, empty_init, "HP", "HP-2622A", MACHINE_NOT_WORKING)