// license:BSD-3-Clause // copyright-holders:Vas Crabb /* * Simple 68705 programmer * The 68705-based parts have an internal bootstrap ROM that can be used * to copy data to the internal EPROM. The circuit just consists of a * 12-bit counter, a ROM, and some discrete glue attached to port B. * Data is read on port A. * * Put the external ROM in cart1 and the initial MCU image in cart2 * (with nothing in cart2 it assumes a blank MCU). * * To do a dry run and verify, just toggle off reset (button 1). The * bootstrap will run through the programming procedure but EPROM write * will be disabled. It will then proceed to compare the EPROM contents * to the external ROM contents. * * To program the EPROM, toggle Vpp enable (button 2) and then toggle * off reset. The bootstrap will write the contents of the external ROM * to the internal EPROM and then verify the result. * * When programming is complete, the "Programmed" LED will be lit. When * verification is complete, the "Verified" LED will be lit. If * verification fails, the program stops and the "Address" digits show * the address one past the location that failed for P3/P5, or the * location that failed for R3/U3. */ #include "emu.h" #include "bus/generic/carts.h" #include "bus/generic/slot.h" #include "cpu/m6805/m68705.h" #include "m68705prg.lh" namespace { class m68705prg_state_base : public driver_device { public: m68705prg_state_base(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag) , m_sw(*this, "SW") , m_mcu_region(*this, "mcu") , m_eprom_image(*this, "eprom_image") , m_mcu_image(*this, "mcu_image") , m_digits(*this, "digit%u", 0U) , m_leds(*this, "led%u", 0U) , m_input_poll_timer(nullptr) , m_addr(0x0000) , m_pb_val(0xff) { } protected: enum { TIMER_INPUT_POLL }; void m68705prg(machine_config &config); DECLARE_DEVICE_IMAGE_LOAD_MEMBER(eprom_load) { auto const desired(m_mcu_region.bytes()); auto const actual(m_eprom_image->common_get_size("rom")); if (desired > actual) { image.seterror(IMAGE_ERROR_UNSPECIFIED, "Unsupported EPROM size"); return image_init_result::FAIL; } else { m_eprom_image->rom_alloc(desired, GENERIC_ROM8_WIDTH, ENDIANNESS_BIG); m_eprom_image->common_load_rom(m_eprom_image->get_rom_base(), desired, "rom"); return image_init_result::PASS; } } DECLARE_DEVICE_IMAGE_LOAD_MEMBER(mcu_load) { auto const desired(m_mcu_region.bytes()); auto const actual(m_mcu_image->common_get_size("rom")); if (desired != actual) { image.seterror(IMAGE_ERROR_UNSPECIFIED, "Incorrect internal MCU EPROM size"); return image_init_result::FAIL; } else { m_mcu_image->common_load_rom(&m_mcu_region[0], actual, "rom"); return image_init_result::PASS; } } virtual void machine_start() override { m_digits.resolve(); m_leds.resolve(); m_input_poll_timer = timer_alloc(TIMER_INPUT_POLL); save_item(NAME(m_addr)); save_item(NAME(m_pb_val)); m_addr = 0x0000; m_pb_val = 0xff; m_digits[0] = s_7seg[(m_addr >> 0) & 0x0f]; m_digits[1] = s_7seg[(m_addr >> 4) & 0x0f]; m_digits[2] = s_7seg[(m_addr >> 8) & 0x0f]; m_input_poll_timer->adjust(attotime::from_hz(120), 0, attotime::from_hz(120)); } required_ioport m_sw; required_region_ptr m_mcu_region; required_device m_eprom_image; required_device m_mcu_image; output_finder<3> m_digits; output_finder<4> m_leds; emu_timer * m_input_poll_timer; u16 m_addr; u8 m_pb_val; static u8 const s_7seg[16]; }; u8 const m68705prg_state_base::s_7seg[16] = { 0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07, 0x7f, 0x6f, 0x77, 0x7c, 0x39, 0x5e, 0x79, 0x71 }; template class m68705prg_state : public m68705prg_state_base { public: m68705prg_state(const machine_config &mconfig, device_type type, const char *tag) : m68705prg_state_base(mconfig, type, tag) , m_mcu(*this, "mcu") { } void prg(machine_config &config); protected: DECLARE_WRITE8_MEMBER(pb_w) { // PB4: address counter reset (active high) // PB3: address counter clock (falling edge) // PB2: Verified LED (active low) // PB1: Programmed LED (active low) // PB0: apply Vpp (active low) if (BIT(data, 4)) m_addr = 0x0000; else if (!BIT(data, 3) && BIT(m_pb_val, 3)) m_addr = (m_addr + 1) & 0x0fff; m_leds[0] = !BIT(data, 2); m_leds[1] = !BIT(data, 1); m_leds[3] = !BIT(data, 0) && BIT(m_sw->read(), 1); m_mcu->set_input_line(M68705_VPP_LINE, (!BIT(data, 0) && BIT(m_sw->read(), 1)) ? ASSERT_LINE : CLEAR_LINE); m_pb_val = data; u8 const *const ptr(m_eprom_image->get_rom_base()); m_mcu->pa_w(space, 0, ptr ? ptr[m_addr & m_mcu_region.mask()] : 0xff); m_digits[0] = s_7seg[(m_addr >> 0) & 0x0f]; m_digits[1] = s_7seg[(m_addr >> 4) & 0x0f]; m_digits[2] = s_7seg[(m_addr >> 8) & 0x0f]; } virtual void machine_reset() override { m_sw->field(0x01)->live().value = 0; m_sw->field(0x02)->live().value = 0; m_leds[2] = 1; m_leds[3] = 0; m_mcu->set_input_line(M68705_IRQ_LINE, ASSERT_LINE); m_mcu->set_input_line(M68705_VPP_LINE, CLEAR_LINE); m_mcu->set_input_line(M68705_VIHTP_LINE, ASSERT_LINE); m_mcu->set_input_line(INPUT_LINE_RESET, ASSERT_LINE); } virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) override { switch (id) { case TIMER_INPUT_POLL: input_poll_callback(ptr, param); break; default: driver_device::device_timer(timer, id, param, ptr); } } TIMER_CALLBACK_MEMBER(input_poll_callback) { ioport_value const switches(m_sw->read()); bool const reset(!BIT(switches, 0)); bool const vpp(BIT(switches, 1) && !BIT(m_pb_val, 0)); m_leds[2] = reset; m_leds[3] = vpp; m_mcu->set_input_line(M68705_VPP_LINE, vpp ? ASSERT_LINE : CLEAR_LINE); m_mcu->set_input_line(INPUT_LINE_RESET, reset ? ASSERT_LINE : CLEAR_LINE); } required_device m_mcu; }; typedef m68705prg_state p3prg_state; typedef m68705prg_state p5prg_state; typedef m68705prg_state r3prg_state; typedef m68705prg_state u3prg_state; INPUT_PORTS_START(m68705prg) PORT_START("SW") PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_TOGGLE PORT_NAME("Reset") PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_TOGGLE PORT_NAME("Vpp") INPUT_PORTS_END void m68705prg_state_base::m68705prg(machine_config &config) { config.set_perfect_quantum("mcu"); GENERIC_SOCKET(config, m_eprom_image, generic_plain_slot, "eprom", "bin,rom"); m_eprom_image->set_device_load(FUNC(m68705prg_state_base::eprom_load)); GENERIC_SOCKET(config, m_mcu_image, generic_plain_slot, "mcu", "bin,rom"); m_mcu_image->set_device_load(FUNC(m68705prg_state_base::mcu_load)); config.set_default_layout(layout_m68705prg); } template<> void p3prg_state::prg(machine_config &config) { m68705prg(config); M68705P3(config, m_mcu, 1_MHz_XTAL); m_mcu->portb_w().set(FUNC(p3prg_state::pb_w)); } template<> void p5prg_state::prg(machine_config &config) { m68705prg(config); M68705P5(config, m_mcu, 1_MHz_XTAL); m_mcu->portb_w().set(FUNC(p5prg_state::pb_w)); } template<> void r3prg_state::prg(machine_config &config) { m68705prg(config); M68705R3(config, m_mcu, 1_MHz_XTAL); m_mcu->portb_w().set(FUNC(r3prg_state::pb_w)); } template<> void u3prg_state::prg(machine_config &config) { m68705prg(config); M68705U3(config, m_mcu, 1_MHz_XTAL); m_mcu->portb_w().set(FUNC(u3prg_state::pb_w)); } ROM_START( 705p3prg ) ROM_REGION( 0x0800, "mcu", 0 ) ROM_FILL(0x0000, 0x0800, 0x00) ROM_END ROM_START( 705p5prg ) ROM_REGION( 0x0800, "mcu", 0 ) ROM_FILL(0x0000, 0x0800, 0x00) ROM_END ROM_START( 705r3prg ) ROM_REGION( 0x1000, "mcu", 0 ) ROM_FILL(0x0000, 0x1000, 0x00) ROM_END ROM_START( 705u3prg ) ROM_REGION( 0x1000, "mcu", 0 ) ROM_FILL(0x0000, 0x1000, 0x00) ROM_END } // anonymous namespace // YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS COMP( 1984, 705p5prg, 0, 0, prg, m68705prg, p5prg_state, empty_init, "Motorola", "MC68705P5 Programmer", MACHINE_SUPPORTS_SAVE | MACHINE_NO_SOUND_HW ) COMP( 1984, 705p3prg, 705p5prg, 0, prg, m68705prg, p3prg_state, empty_init, "Motorola", "MC68705P3 Programmer", MACHINE_SUPPORTS_SAVE | MACHINE_NO_SOUND_HW ) COMP( 1984, 705r3prg, 705p5prg, 0, prg, m68705prg, r3prg_state, empty_init, "Motorola", "MC68705R3 Programmer", MACHINE_SUPPORTS_SAVE | MACHINE_NO_SOUND_HW ) COMP( 1984, 705u3prg, 705p5prg, 0, prg, m68705prg, u3prg_state, empty_init, "Motorola", "MC68705U3 Programmer", MACHINE_SUPPORTS_SAVE | MACHINE_NO_SOUND_HW )