// license:BSD-3-Clause // copyright-holders:AJR /*************************************************************************** Harriet (c) 1990 Quantel ***************************************************************************/ #include "emu.h" #include "bus/rs232/rs232.h" #include "cpu/m68000/m68000.h" #include "machine/hd63450.h" //#include "machine/imsc012.h" #include "machine/mc68681.h" #include "machine/mc68901.h" #include "machine/nscsi_bus.h" #include "machine/nvram.h" #include "machine/timekpr.h" #include "machine/wd33c9x.h" class harriet_state : public driver_device { public: harriet_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_maincpu(*this, "maincpu") { } void harriet(machine_config &config); private: uint8_t zpram_r(offs_t offset); void zpram_w(offs_t offset, uint8_t data); void harriet_map(address_map &map); virtual void machine_start() override; virtual void machine_reset() override; required_device m_maincpu; std::unique_ptr m_zpram_data; }; uint8_t harriet_state::zpram_r(offs_t offset) { return m_zpram_data[offset]; } void harriet_state::zpram_w(offs_t offset, uint8_t data) { m_zpram_data[offset] = data; } void harriet_state::harriet_map(address_map &map) { map(0x000000, 0x007fff).rom().region("monitor", 0); map(0x040000, 0x040fff).rw(FUNC(harriet_state::zpram_r), FUNC(harriet_state::zpram_w)).umask16(0xff00); map(0x040000, 0x040fff).rw("timekpr", FUNC(timekeeper_device::read), FUNC(timekeeper_device::write)).umask16(0x00ff); map(0x7f0000, 0x7fffff).ram(); map(0xf10000, 0xf1001f).rw("duart", FUNC(mc68681_device::read), FUNC(mc68681_device::write)).umask16(0x00ff); map(0xf20000, 0xf2002f).rw("mfp", FUNC(mc68901_device::read), FUNC(mc68901_device::write)).umask16(0x00ff); map(0xf30000, 0xf301ff).rw("dmac", FUNC(hd63450_device::read), FUNC(hd63450_device::write)); map(0xf40000, 0xf4003f).rw("scsia:7:wdc", FUNC(wd33c93_device::dir_r), FUNC(wd33c93_device::dir_w)).umask16(0x00ff); //map(0xf60000, 0xf60007).rw("c012", FUNC(imsc012_device::read), FUNC(imsc012_device::write)).umask16(0x00ff); map(0xf60006, 0xf60007).nopr(); map(0xfa0000, 0xfa0001).nopr(); map(0xfb0000, 0xfb0001).noprw(); } static INPUT_PORTS_START( harriet ) INPUT_PORTS_END void harriet_state::machine_start() { m_zpram_data = std::make_unique(0x800); subdevice("zpram")->set_base(m_zpram_data.get(), 0x800); save_pointer(NAME(m_zpram_data), 0x800); } void harriet_state::machine_reset() { } static const input_device_default terminal_defaults[] = { DEVICE_INPUT_DEFAULTS( "RS232_RXBAUD", 0xff, RS232_BAUD_19200 ) DEVICE_INPUT_DEFAULTS( "RS232_TXBAUD", 0xff, RS232_BAUD_19200 ) DEVICE_INPUT_DEFAULTS( "RS232_STARTBITS", 0xff, RS232_STARTBITS_1 ) DEVICE_INPUT_DEFAULTS( "RS232_DATABITS", 0xff, RS232_DATABITS_8 ) DEVICE_INPUT_DEFAULTS( "RS232_PARITY", 0xff, RS232_PARITY_NONE ) DEVICE_INPUT_DEFAULTS( "RS232_STOPBITS", 0xff, RS232_STOPBITS_1 ) { nullptr, 0, 0 } }; void harriet_state::harriet(machine_config &config) { M68010(config, m_maincpu, 40_MHz_XTAL / 4); // MC68010FN10 m_maincpu->set_addrmap(AS_PROGRAM, &harriet_state::harriet_map); MC68681(config, "duart", 3.6864_MHz_XTAL); mc68901_device &mfp(MC68901(config, "mfp", 40_MHz_XTAL / 16)); mfp.set_timer_clock(2.4576_MHz_XTAL); mfp.out_so_cb().set("rs232", FUNC(rs232_port_device::write_txd)); mfp.out_tco_cb().set("mfp", FUNC(mc68901_device::rc_w)); mfp.out_tdo_cb().set("mfp", FUNC(mc68901_device::tc_w)); HD63450(config, "dmac", 40_MHz_XTAL / 4, "maincpu"); // MC68450R10 (or HD68450Y-10) M48T02(config, "timekpr"); NVRAM(config, "zpram", nvram_device::DEFAULT_ALL_0); // MK48Z02 rs232_port_device &rs232(RS232_PORT(config, "rs232", default_rs232_devices, "terminal")); rs232.rxd_handler().set("mfp", FUNC(mc68901_device::si_w)); rs232.rxd_handler().append("mfp", FUNC(mc68901_device::tbi_w)); rs232.set_option_device_input_defaults("terminal", terminal_defaults); NSCSI_BUS(config, "scsia"); NSCSI_CONNECTOR(config, "scsia:7").option_set("wdc", WD33C93A).clock(40_MHz_XTAL / 4); //WD33C93(config, "wdcb", 40_MHz_XTAL / 4); //IMSC012(config, "c012", 40_MHz_XTAL / 8); // INMOS IMSC012-P20S link adaptor } ROM_START( harriet ) ROM_REGION16_BE(0x8000, "monitor", 0) ROM_LOAD16_BYTE("harriet 36-74c.tfb v5.01 lobyte 533f.bin", 0x0001, 0x4000, CRC(f07fff76) SHA1(8288f7eaa8f4155e0e4746635f63ca2cc3da25d1)) ROM_LOAD16_BYTE("harriet 36-74c.tdb v5.01 hibyte 2a0c.bin", 0x0000, 0x4000, CRC(a61f441d) SHA1(76af6eddd5c042f1b2eef590eb822379944b9b28)) ROM_END COMP( 1990, harriet, 0, 0, harriet, harriet, harriet_state, empty_init, "Quantel", "Harriet", MACHINE_IS_SKELETON )