add plotter

fabiodl · Jun 26, 2023 · f6e41be · f6e41be
1 parent 788e308
commit f6e41be
Show file tree

Hide file tree

Showing 9 changed files with 775 additions and 2 deletions.
diff --git a/scripts/src/bus.lua b/scripts/src/bus.lua
@@ -3664,6 +3664,8 @@ if (BUSES["SG1000_EXP"]~=null) then
 		MAME_DIR .. "src/devices/bus/sg1000_exp/sk1100prn.h",
 		MAME_DIR .. "src/devices/bus/sg1000_exp/kblink.cpp",
 		MAME_DIR .. "src/devices/bus/sg1000_exp/kblink.h",
+                MAME_DIR .. "src/devices/bus/sg1000_exp/sp400.cpp",
+                MAME_DIR .. "src/devices/bus/sg1000_exp/sp400.h",
 	}
 end
 

diff --git a/scripts/src/machine.lua b/scripts/src/machine.lua
@@ -5072,6 +5072,31 @@ if (MACHINES["NS32082"]~=null) then
 	}
 end
 
+
+
+---------------------------------------------------
+--
+--@src/devices/machine/plotter.h,MACHINES["PLOTTER"] = true
+---------------------------------------------------
+if (MACHINES["PLOTTER"]~=null) then
+	files {
+		MAME_DIR .. "src/devices/machine/plotter.cpp",
+		MAME_DIR .. "src/devices/machine/plotter.h",
+	}
+end
+
+
+---------------------------------------------------
+--
+--@src/devices/machine/alps_dpg1302.h,MACHINES["ALPS_DPG1302"] = true
+---------------------------------------------------
+if (MACHINES["ALPS_DPG1302"]~=null) then
+	files {
+		MAME_DIR .. "src/devices/machine/alps_dpg1302.cpp",
+		MAME_DIR .. "src/devices/machine/alps_dpg1302.h",
+	}
+end
+
 ---------------------------------------------------
 --
 --@src/devices/machine/bitmap_printer.h,MACHINES["BITMAP_PRINTER"] = true

diff --git a/src/devices/bus/sg1000_exp/sk1100prn.cpp b/src/devices/bus/sg1000_exp/sk1100prn.cpp
@@ -9,7 +9,7 @@
 #include "emu.h"
 #include "sk1100prn.h"
 // slot devices
-//#include "sp400.h"
+#include "sp400.h"
 #include "kblink.h"
 
 
@@ -120,6 +120,6 @@ int sk1100_printer_port_device::busy_r()
 
 void sk1100_printer_port_devices(device_slot_interface &device)
 {
-	//device.option_add("sp400", SP400_PRINTER); /* serial printer */
+        device.option_add("sp400", SP400_PRINTER); /* serial printer */
 	device.option_add("kblink", SK1100_LINK_CABLE);
 }
diff --git a/src/devices/bus/sg1000_exp/sp400.cpp b/src/devices/bus/sg1000_exp/sp400.cpp
@@ -0,0 +1,220 @@
+// license: BSD-3-Clause
+// copyright-holders: Charles MacDonald, Devin Hill, Fabio Dalla Libera
+
+/*
+  license:BSD-3-Clause
+  Charles MacDonald
+  Devin Hill
+  Fabio Dalla Libera
+
+  6805 dumped using https://github.com/charlesmacd/HD6805_Reader
+
+  IC list:
+
+  * M5L8035LP (Mitsubishi clone of I8035)
+
+  P1 is the deserialized output data
+  P2.4 is the input serial data
+  P2.5 is busy (output to the computer)
+  P2.6 is the output strobe
+  P2.7 is busy (input from the 6805)
+
+
+  * HD6805V (Hitachi chip, pin compatible with MC6805P2, with 4K of ROM)
+
+  port B connected to the motors
+  port C connected to the pen and misc signals
+  port D connected to M5L8035LP parallel data
+
+*/
+
+
+#include "emu.h"
+#include "sp400.h"
+
+
+sp400_printer_device::sp400_printer_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock):
+	device_t(mconfig, SP400_PRINTER, tag, owner, clock),
+	device_sk1100_printer_port_interface(mconfig, *this),
+	m_dsercpu(*this, "dsercpu"),
+	m_motcpu(*this, "motcpu"),
+	m_data(0),
+	m_busy(1),
+	m_dserdata(0xFF),
+	m_dserstrobe(1),
+	m_motbusy(0),
+	m_motPenUp(1),
+	m_motPenDown(1),
+	m_plotter(*this, "plotter"),
+	m_frontbuttons(*this, "FRONTBUTTONS"),
+	m_misc(*this, "MISC")
+{
+}
+
+void sp400_printer_device::device_start()
+{
+}
+
+void sp400_printer_device::dser_map(address_map &map)
+{
+	map(0x0000, 0x0fff).rom();
+}
+
+void sp400_printer_device::dser_p1_w(uint8_t v)
+{
+	m_dserdata = v;
+}
+
+void sp400_printer_device::dser_p2_w(uint8_t v)
+{
+	m_busy = BIT(v, 5);
+	m_dserstrobe = BIT(v, 6);
+	m_motcpu->set_input_line(M6805_IRQ_LINE, m_dserstrobe);
+}
+
+uint8_t sp400_printer_device::dser_p2_r()
+{
+	return
+		(m_motbusy << 7) |
+		(m_dserstrobe << 6) |
+		(m_busy << 5) |
+		(m_data << 4) |
+		(1 << 3) |
+		(1 << 2) |
+		(1 << 1) |
+		(1 << 0);
+}
+
+uint8_t sp400_printer_device::mot_pa_r()
+{
+	return
+		(0 << 0) |
+		(0 << 1) |
+		(m_frontbuttons->read() << 2) |  // bits 2,3 and 4
+		(0 << 5) |
+		(0 << 6) |
+                (1 << 7);
+}
+
+void sp400_printer_device::mot_pb_w(uint8_t v)
+{
+	m_plotter->update_motors(v & 0x0F, (v >> 4) & 0x0F);
+}
+
+
+uint8_t sp400_printer_device::mot_pc_r()
+{
+	return
+		(m_motPenUp << 0) |
+		(m_motPenDown << 1) |
+		(1 << 2) |
+		(m_plotter->get_reedswitch_state() << 3) |
+		(m_motbusy << 4) |
+		(1 << 5) | (1 << 6) | (1 << 7); //unconfirmed
+}
+
+void sp400_printer_device::mot_pc_w(uint8_t v)
+{
+	m_motPenUp = BIT(v, 0);
+	m_motPenDown = BIT (v, 1);
+	m_motbusy = BIT(v, 4);
+	update_pen_state();
+}
+
+uint8_t sp400_printer_device::mot_pd_r()
+{
+	return sp400_printer_device::m_dserdata;
+}
+
+void sp400_printer_device::update_pen_state()
+{
+	if (!m_motPenDown)
+	{
+		m_plotter->pen_down();
+	}
+	if (!m_motPenUp)
+	{
+		m_plotter->pen_up();
+	}
+}
+
+void sp400_printer_device::device_add_mconfig(machine_config &config)
+{
+	I8035(config, m_dsercpu, 4_MHz_XTAL);
+	m_dsercpu->p1_out_cb().set(FUNC(sp400_printer_device::dser_p1_w));
+	m_dsercpu->p2_in_cb().set(FUNC(sp400_printer_device::dser_p2_r));
+	m_dsercpu->p2_out_cb().set(FUNC(sp400_printer_device::dser_p2_w));
+	m_dsercpu->set_addrmap(AS_PROGRAM, &sp400_printer_device::dser_map);
+	M6805U3(config, m_motcpu, 4_MHz_XTAL);
+	m_motcpu->porta_r().set(FUNC(sp400_printer_device::mot_pa_r));
+	m_motcpu->portb_w().set(FUNC(sp400_printer_device::mot_pb_w));
+	m_motcpu->portc_r().set(FUNC(sp400_printer_device::mot_pc_r));
+	m_motcpu->portc_w().set(FUNC(sp400_printer_device::mot_pc_w));
+	m_motcpu->portd_r().set(FUNC(sp400_printer_device::mot_pd_r));
+	ALPS_DPG1302(config, m_plotter);
+	m_plotter->set_panel_update(FUNC(sp400_printer_device::update_panel));
+}
+
+uint32_t sp400_printer_device::update_panel(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect)
+{
+        static constexpr int xstart=50;
+        static constexpr int xpitch=110;
+        static constexpr int width=60;
+        static constexpr int height=20;
+        static constexpr int h=450-50+15;
+
+        static constexpr uint32_t NORMALCOLOR = 0x808080;
+	static constexpr uint32_t PRESSEDCOLOR = 0x404040;
+
+        int buttons = m_frontbuttons->read();
+
+        bitmap.plot_box(xstart+0*xpitch,h,width,height,0x00C000);
+	bitmap.plot_box(xstart+1*xpitch,h,width,height,m_motbusy ? 0xFF0000 : 0x100000);
+	bitmap.plot_box(xstart+2*xpitch,h,width,height,buttons&0x02?NORMALCOLOR:PRESSEDCOLOR);
+	bitmap.plot_box(xstart+3*xpitch,h,width,height,buttons&0x01?NORMALCOLOR:PRESSEDCOLOR);
+	bitmap.plot_box(xstart+4*xpitch,h,width,height,buttons&0x04?NORMALCOLOR:PRESSEDCOLOR);
+
+	return 0;
+}
+
+INPUT_CHANGED_MEMBER(sp400_printer_device::misc_interaction)
+{
+	if (BIT(m_misc->read(), 0) == 0)
+	{
+		m_plotter->write_snapshot_to_file();
+	}
+	if (BIT(m_misc->read(), 1) == 0)
+	{
+		m_plotter->change_paper();
+	}
+}
+
+ROM_START( sp400 )
+	ROM_REGION( 0x1000, "dsercpu", 0 )
+	ROM_LOAD( "sp400_8035.bin", 0x0000, 0x1000, CRC(0eb48272) SHA1(08a2727f1592f5d2ecb2e368126ad7bfc5d3c270) )
+
+	ROM_REGION(0x1000, "motcpu", 0 )
+	ROM_LOAD( "sp400_hd6805v1.bin", 0x0000, 0x1000, CRC(aa073745) SHA1(65016f3b022af30cc6b084af1e43b29168721a60) )
+ROM_END
+
+const tiny_rom_entry * sp400_printer_device::device_rom_region() const
+{
+	return ROM_NAME( sp400 );
+}
+
+static INPUT_PORTS_START( sp400_ipt )
+	PORT_START("FRONTBUTTONS")
+	PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("COLOR SELECT") PORT_CODE(KEYCODE_2_PAD)
+	PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("LINE FEED") PORT_CODE(KEYCODE_1_PAD)
+	PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("PEN CHANGE") PORT_CODE(KEYCODE_3_PAD)
+	PORT_START("MISC")
+	PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHANGED_MEMBER(DEVICE_SELF, sp400_printer_device, misc_interaction, 0 )  PORT_NAME("Save snapshot") PORT_CODE(KEYCODE_5_PAD)
+	PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHANGED_MEMBER(DEVICE_SELF, sp400_printer_device, misc_interaction, 0 )  PORT_NAME("Change paper") PORT_CODE(KEYCODE_8_PAD)
+INPUT_PORTS_END
+
+ioport_constructor sp400_printer_device::device_input_ports() const
+{
+	return INPUT_PORTS_NAME(sp400_ipt);
+}
+
+DEFINE_DEVICE_TYPE(SP400_PRINTER, sp400_printer_device, "sp_400", "SP-400 Plotter")
diff --git a/src/devices/bus/sg1000_exp/sp400.h b/src/devices/bus/sg1000_exp/sp400.h
@@ -0,0 +1,68 @@
+// license: BSD-3-Clause
+// copyright-holders: Charles MacDonald, Devin Hill, Fabio Dalla Libera
+
+#ifndef MAME_BUS_SG1000_EXP_SK1100_SP400_H
+#define MAME_BUS_SG1000_EXP_SK1100_SP400_H
+
+#pragma once
+
+
+#include "sk1100prn.h"
+#include "cpu/mcs48/mcs48.h"
+#include "cpu/m6805/m68705.h"
+#include "machine/alps_dpg1302.h"
+
+
+
+class sp400_printer_device : public device_t,
+		     public device_sk1100_printer_port_interface
+{
+public:
+
+	sp400_printer_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock);
+	virtual void device_add_mconfig(machine_config &config) override;
+	virtual void device_start() override;
+
+  virtual int output_fault() override {return 1;}
+  virtual int output_busy() override {return m_busy;}
+
+  void input_data(int state) override{
+    m_data=state;
+  }
+
+	const tiny_rom_entry * device_rom_region() const override;
+	virtual ioport_constructor device_input_ports() const override;
+
+	DECLARE_INPUT_CHANGED_MEMBER(misc_interaction);
+
+private:
+
+	void dser_map(address_map &map);
+	void dser_p1_w(uint8_t v);
+	uint8_t dser_p2_r();
+	void dser_p2_w(uint8_t v);
+
+	uint8_t mot_pa_r();
+	void mot_pb_w(uint8_t v);
+	uint8_t mot_pc_r();
+	void mot_pc_w(uint8_t v);
+	uint8_t mot_pd_r();
+	void update_pen_state();
+	uint32_t update_panel(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect);
+
+	required_device<i8035_device>   m_dsercpu; // "deserializer cpu"
+	required_device<m6805_hmos_device> m_motcpu; // "motor cpu"
+
+	int m_data, m_busy;
+	int m_dserdata, m_dserstrobe;
+	int m_motbusy, m_motPenUp, m_motPenDown;
+
+	required_device<alps_dpg1302_plotter_device> m_plotter;
+	required_ioport m_frontbuttons;
+	required_ioport m_misc;
+};
+
+
+DECLARE_DEVICE_TYPE(SP400_PRINTER, sp400_printer_device)
+
+#endif
diff --git a/src/devices/machine/alps_dpg1302.cpp b/src/devices/machine/alps_dpg1302.cpp
@@ -0,0 +1,43 @@
+// license:BSD-3-Clause
+// copyright-holders: Fabio Dalla Libera
+
+#include "machine/alps_dpg1302.h"
+
+/*
+  The pen changing mechanism is explained in this video https://www.youtube.com/watch?v=TuMkl_ftuNM
+*/
+
+alps_dpg1302_plotter_device::alps_dpg1302_plotter_device (const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock):
+	paper_roll_plotter_device(mconfig, ALPS_DPG1302, tag, owner,
+                                  Element(600,450,0xc3b4bb),
+ 				  Element(500,350,0xFFFFFF),
+ 				  Position(50,50),
+ 				  Position(550,175),
+				  -0.5, -0.5),
+	m_pencarrierphase(0),m_prevx(0)
+{
+	set_headcolor(PENCOLOR[0]);
+}
+
+void alps_dpg1302_plotter_device::update_motors(uint8_t xpattern,uint8_t ypattern)
+{
+	paper_roll_plotter_device::update_motors(xpattern, ypattern);
+	int pos=get_xmotor_pos();
+	if (m_prevx<METALTABPOS && pos>=METALTABPOS)
+	{
+		m_pencarrierphase = (m_pencarrierphase+1)%12;
+		if (m_pencarrierphase%3 == 0)
+		{
+			set_pencolor(PENCOLOR[m_pencarrierphase/3]);
+			set_headcolor(PENCOLOR[m_pencarrierphase/3]);
+		}
+	}
+	m_prevx=pos;
+}
+
+int alps_dpg1302_plotter_device::get_reedswitch_state()
+{
+	return (m_pencarrierphase==0) && (get_xmotor_pos()>METALTABPOS) ? 0 : 1;
+}
+
+DEFINE_DEVICE_TYPE(ALPS_DPG1302, alps_dpg1302_plotter_device, "alps_dpg1302", "ALPS DPG1302")