diff options
Diffstat (limited to 'src/lib/netlist/devices/nld_am2847.cpp')
-rw-r--r-- | src/lib/netlist/devices/nld_am2847.cpp | 167 |
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 |