-netlist: Added 7492 Divide-by-12 Counter. [Ryan Holtz]

scripts/src/netlist.lua

@@ -142,6 +142,8 @@ project "netlist"
 		MAME_DIR .. "src/lib/netlist/devices/nld_7485.h",
 		MAME_DIR .. "src/lib/netlist/devices/nld_7490.cpp",
 		MAME_DIR .. "src/lib/netlist/devices/nld_7490.h",
+		MAME_DIR .. "src/lib/netlist/devices/nld_7492.cpp",
+		MAME_DIR .. "src/lib/netlist/devices/nld_7492.h",
 		MAME_DIR .. "src/lib/netlist/devices/nld_7493.cpp",
 		MAME_DIR .. "src/lib/netlist/devices/nld_7493.h",
 		MAME_DIR .. "src/lib/netlist/devices/nld_7497.cpp",

src/lib/netlist/devices/nld_7492.cpp

@@ -0,0 +1,128 @@
+// license:GPL-2.0+
+// copyright-holders:Couriersud
+/*
+ * nld_7492.cpp
+ *
+ */
+
+#include "nld_7492.h"
+#include "netlist/nl_base.h"
+#include "nlid_system.h"
+
+namespace netlist
+{
+namespace devices
+{
+
+	static C14CONSTEXPR const std::array<netlist_time, 4> delay =
+	{
+			NLTIME_FROM_NS(18),
+			NLTIME_FROM_NS(36) - NLTIME_FROM_NS(18),
+			NLTIME_FROM_NS(54) - NLTIME_FROM_NS(18),
+			NLTIME_FROM_NS(72) - NLTIME_FROM_NS(18)
+	};
+
+	NETLIB_OBJECT(7492)
+	{
+		NETLIB_CONSTRUCTOR(7492)
+		, m_A(*this, "A")
+		, m_B(*this, "B")
+		, m_R1(*this, "R1")
+		, m_R2(*this, "R2")
+		, m_cnt(*this, "m_cnt", 0)
+		, m_last_A(*this, "m_last_A", 0)
+		, m_last_B(*this, "m_last_B", 0)
+		, m_Q(*this, {{"QA", "QB", "QC", "QD"}})
+		, m_power_pins(*this)
+		{
+		}
+
+	private:
+		NETLIB_UPDATEI();
+		NETLIB_RESETI();
+
+		void update_outputs() noexcept
+		{
+			for (std::size_t i=0; i<4; i++)
+				m_Q[i].push((m_cnt >> i) & 1, delay[i]);
+		}
+
+		logic_input_t m_A;
+		logic_input_t m_B;
+		logic_input_t m_R1;
+		logic_input_t m_R2;
+
+		state_var_u8 m_cnt;
+		state_var<netlist_sig_t> m_last_A;
+		state_var<netlist_sig_t> m_last_B;
+
+		object_array_t<logic_output_t, 4> m_Q;
+		nld_power_pins m_power_pins;
+	};
+
+	NETLIB_OBJECT_DERIVED(7492_dip, 7492)
+	{
+		NETLIB_CONSTRUCTOR_DERIVED(7492_dip, 7492)
+		{
+			register_subalias("1", "B");
+			// register_subalias("2", ); --> NC
+			// register_subalias("3", ); --> NC
+
+			// register_subalias("4", ); --> NC
+			register_subalias("5", "VCC");
+			register_subalias("6", "R1");
+			register_subalias("7", "R2");
+
+			register_subalias("8", "QC");
+			register_subalias("9", "QB");
+			register_subalias("10", "GND");
+			register_subalias("11", "QD");
+			register_subalias("12", "QA");
+			// register_subalias("13", ); --> NC
+			register_subalias("14", "A");
+		}
+	};
+
+	NETLIB_RESET(7492)
+	{
+		m_cnt = 0;
+		m_last_A = 0;
+		m_last_B = 0;
+	}
+
+	NETLIB_UPDATE(7492)
+	{
+		const netlist_sig_t new_A = m_A();
+		const netlist_sig_t new_B = m_B();
+
+		if (m_R1() & m_R2())
+		{
+			m_cnt = 0;
+			update_outputs();
+		}
+		else
+		{
+			if (m_last_A && !new_A)  // High - Low
+			{
+				m_cnt ^= 1;
+				m_Q[0].push(m_cnt & 1, delay[0]);
+			}
+			if (m_last_B && !new_B)  // High - Low
+			{
+				m_cnt += 2;
+				if (m_cnt == 6)
+					m_cnt = 8;
+				if (m_cnt == 14)
+					m_cnt = 0;
+				update_outputs();
+			}
+		}
+		m_last_A = new_A;
+		m_last_B = new_B;
+	}
+
+	NETLIB_DEVICE_IMPL(7492,     "TTL_7492",        "+A,+B,+R1,+R2,@VCC,@GND")
+	NETLIB_DEVICE_IMPL(7492_dip, "TTL_7492_DIP",    "")
+
+} // namespace devices
+} // namespace netlist

src/lib/netlist/devices/nld_7492.h

@@ -0,0 +1,70 @@
+// license:GPL-2.0+
+// copyright-holders:Couriersud
+/*
+ * nld_7492.h
+ *
+ *  SN7492: Divide-by-12 Counter
+ *
+ *          +--------------+
+ *        B |1     ++    14| A
+ *       NC |2           13| NC
+ *       NC |3           12| QA
+ *       NC |4    7492   11| QD
+ *      VCC |5           10| GND
+ *      R01 |6            9| QB
+ *      R02 |7            8| QC
+ *          +--------------+
+ *
+ *          Counter Sequence
+ *
+ *          +-------++----+----+----+----+
+ *          | COUNT || QD | QC | QB | QA |
+ *          +=======++====+====+====+====+
+ *          |    0  ||  0 |  0 |  0 |  0 |
+ *          |    1  ||  0 |  0 |  0 |  1 |
+ *          |    2  ||  0 |  0 |  1 |  0 |
+ *          |    3  ||  0 |  0 |  1 |  1 |
+ *          |    4  ||  0 |  1 |  0 |  0 |
+ *          |    5  ||  0 |  1 |  0 |  1 |
+ *          |    6  ||  1 |  0 |  0 |  0 |
+ *          |    7  ||  1 |  0 |  0 |  1 |
+ *          |    8  ||  1 |  0 |  1 |  0 |
+ *          |    9  ||  1 |  0 |  1 |  1 |
+ *          |   10  ||  1 |  1 |  0 |  0 |
+ *          |   11  ||  1 |  1 |  0 |  1 |
+ *          +-------++----+----+----+----+
+ *
+ *          Note A Output QA is connected to input B
+ *
+ *          Reset Count Function table
+ *
+ *          +-----+-----++----+----+----+----+
+ *          | R01 | R02 || QD | QC | QB | QA |
+ *          +=====+=====++====+====+====+====+
+ *          |  1  |  1  ||  0 |  0 |  0 |  0 |
+ *          |  0  |  X  ||       COUNT       |
+ *          |  X  |  0  ||       COUNT       |
+ *          +-----+-----++----+----+----+----+
+ *
+ *  Naming conventions follow Texas Instruments datasheet
+ *
+ */
+
+#ifndef NLD_7492_H_
+#define NLD_7492_H_
+
+#include "netlist/nl_setup.h"
+
+#define TTL_7492(name, cA, cB, cR1, cR2)                           \
+		NET_REGISTER_DEV(TTL_7490, name)                           \
+		NET_CONNECT(name, GND, GND)                                \
+		NET_CONNECT(name, VCC, VCC)                                \
+		NET_CONNECT(name, A, cA)                                   \
+		NET_CONNECT(name, B, cB)                                   \
+		NET_CONNECT(name, R1,  cR1)                                \
+		NET_CONNECT(name, R2,  cR2)
+
+#define TTL_7492_DIP(name)                                         \
+		NET_REGISTER_DEV(TTL_7492_DIP, name)
+
+#endif /* NLD_7492_H_ */