summaryrefslogtreecommitdiffstatshomepage
path: root/src/lib/netlist/devices/nld_am2847.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/netlist/devices/nld_am2847.cpp')
-rw-r--r--src/lib/netlist/devices/nld_am2847.cpp167
1 files changed, 72 insertions, 95 deletions
diff --git a/src/lib/netlist/devices/nld_am2847.cpp b/src/lib/netlist/devices/nld_am2847.cpp
index d4a7cbe53b7..07b811ab0a9 100644
--- a/src/lib/netlist/devices/nld_am2847.cpp
+++ b/src/lib/netlist/devices/nld_am2847.cpp
@@ -3,39 +3,63 @@
/*
* nld_am2847.cpp
*
+ * Am2847: Quad 80-Bit Static Shift Register
+ *
+ * +--------------+
+ * OUTA |1 ++ 16| VSS
+ * RCA |2 15| IND
+ * INA |3 14| RCD
+ * OUTB |4 Am2847 13| OUTD
+ * RCB |5 12| VGG
+ * INB |6 11| CP
+ * OUTC |7 10| INC
+ * VDD |8 9| RCC
+ * +--------------+
+ *
*/
-#include "nld_am2847.h"
-#include "netlist/nl_base.h"
-#include "nlid_system.h"
+#include "nl_base.h"
+
+namespace netlist::devices {
-namespace netlist
-{
- namespace devices
- {
NETLIB_OBJECT(Am2847_shifter)
{
- NETLIB_CONSTRUCTOR(Am2847_shifter)
- , m_RC(*this, "RC")
- , m_IN(*this, "IN")
+ NETLIB_CONSTRUCTOR_MODEL(Am2847_shifter, "CD4XXX")
+ , m_RC(*this, "RC", NETLIB_DELEGATE(inputs))
+ , m_IN(*this, "IN", NETLIB_DELEGATE(inputs))
, m_buffer(*this, "m_buffer", 0)
, m_OUT(*this, "OUT")
- , m_power_pins(*this, "VSS", "VDD")
+ , m_power_pins(*this)
{
}
- NETLIB_UPDATEI();
-
public:
- void shift();
+ void shift() noexcept
+ {
+ uint32_t out = m_buffer[0] & 1;
+ uint32_t in = (m_RC() ? out : m_IN());
+ for (std::size_t i=0; i < 5; i++)
+ {
+ uint32_t shift_in = (i == 4) ? in : m_buffer[i + 1];
+ m_buffer[i] >>= 1;
+ m_buffer[i] |= shift_in << 15;
+ }
+
+ m_OUT.push(out, NLTIME_FROM_NS(200));
+ }
logic_input_t m_RC;
logic_input_t m_IN;
- state_array<uint16_t, 5> m_buffer;
+ state_container<std::array<uint16_t, 5>> m_buffer;
logic_output_t m_OUT;
nld_power_pins m_power_pins;
+ private:
+ NETLIB_HANDLERI(inputs)
+ {
+ /* do nothing */
+ }
};
NETLIB_OBJECT(AM2847)
@@ -45,22 +69,22 @@ namespace netlist
, m_B(*this, "B")
, m_C(*this, "C")
, m_D(*this, "D")
- , m_CP(*this, "CP")
+ , m_CP(*this, "CP", NETLIB_DELEGATE(cp))
, m_last_CP(*this, "m_last_CP", 0)
// FIXME: needs family!
{
- register_subalias("OUTA", m_A.m_OUT);
- register_subalias("OUTB", m_B.m_OUT);
- register_subalias("OUTC", m_C.m_OUT);
- register_subalias("OUTD", m_D.m_OUT);
- register_subalias("INA", m_A.m_IN);
- register_subalias("INB", m_B.m_IN);
- register_subalias("INC", m_C.m_IN);
- register_subalias("IND", m_D.m_IN);
- register_subalias("RCA", m_A.m_RC);
- register_subalias("RCB", m_B.m_RC);
- register_subalias("RCC", m_C.m_RC);
- register_subalias("RCD", m_D.m_RC);
+ register_sub_alias("OUTA", "A.OUT");
+ register_sub_alias("OUTB", "B.OUT");
+ register_sub_alias("OUTC", "C.OUT");
+ register_sub_alias("OUTD", "D.OUT");
+ register_sub_alias("INA", "A.IN");
+ register_sub_alias("INB", "B.IN");
+ register_sub_alias("INC", "C.IN");
+ register_sub_alias("IND", "D.IN");
+ register_sub_alias("RCA", "A.RC");
+ register_sub_alias("RCB", "B.RC");
+ register_sub_alias("RCC", "C.RC");
+ register_sub_alias("RCD", "D.RC");
connect("A.VSS", "B.VSS");
connect("A.VSS", "C.VSS");
@@ -69,14 +93,28 @@ namespace netlist
connect("A.VDD", "C.VDD");
connect("A.VDD", "D.VDD");
- register_subalias("VSS", "A.VSS");
- register_subalias("VDD", "A.VDD");
+ register_sub_alias("VSS", "A.VSS");
+ register_sub_alias("VDD", "A.VDD");
+ }
+
+ NETLIB_RESETI()
+ {
+ m_last_CP = 0;
}
- NETLIB_RESETI();
- NETLIB_UPDATEI();
+ private:
+ NETLIB_HANDLERI(cp)
+ {
+ if (m_last_CP && !m_CP())
+ {
+ m_A().shift();
+ m_B().shift();
+ m_C().shift();
+ m_D().shift();
+ }
+ m_last_CP = m_CP();
+ }
- protected:
NETLIB_SUB(Am2847_shifter) m_A;
NETLIB_SUB(Am2847_shifter) m_B;
NETLIB_SUB(Am2847_shifter) m_C;
@@ -86,67 +124,6 @@ namespace netlist
state_var<uint32_t> m_last_CP;
};
- NETLIB_OBJECT_DERIVED(AM2847_dip, AM2847)
- {
- NETLIB_CONSTRUCTOR_DERIVED(AM2847_dip, AM2847)
- {
- register_subalias("1", m_A.m_OUT);
- register_subalias("2", m_A.m_RC);
- register_subalias("3", m_A.m_IN);
- register_subalias("4", m_B.m_OUT);
- register_subalias("5", m_B.m_RC);
- register_subalias("6", m_B.m_IN);
- register_subalias("7", m_C.m_OUT);
- register_subalias("8", "VDD");
-
- register_subalias("9", m_C.m_RC);
- register_subalias("10", m_C.m_IN);
- register_subalias("11", m_CP);
- register_subalias("13", m_D.m_OUT);
- register_subalias("14", m_D.m_RC);
- register_subalias("15", m_D.m_IN);
- register_subalias("16", "VSS");
- }
- };
-
- NETLIB_RESET(AM2847)
- {
- m_last_CP = 0;
- }
-
- NETLIB_UPDATE(AM2847)
- {
- if (m_last_CP && !m_CP())
- {
- m_A.shift();
- m_B.shift();
- m_C.shift();
- m_D.shift();
- }
- m_last_CP = m_CP();
- }
-
- NETLIB_UPDATE(Am2847_shifter)
- {
- /* do nothing */
- }
-
- NETLIB_FUNC_VOID(Am2847_shifter, shift, ())
- {
- uint32_t out = m_buffer[0] & 1;
- uint32_t in = (m_RC() ? out : m_IN());
- for (std::size_t i=0; i < 5; i++)
- {
- uint32_t shift_in = (i == 4) ? in : m_buffer[i + 1];
- m_buffer[i] >>= 1;
- m_buffer[i] |= shift_in << 15;
- }
-
- m_OUT.push(out, NLTIME_FROM_NS(200));
- }
-
NETLIB_DEVICE_IMPL(AM2847, "TTL_AM2847", "+CP,+INA,+INB,+INC,+IND,+RCA,+RCB,+RCC,+RCD,@VSS,@VDD")
- NETLIB_DEVICE_IMPL(AM2847_dip, "TTL_AM2847_DIP", "")
- } //namespace devices
-} // namespace netlist
+} // namespace netlist::devices