diff options
Diffstat (limited to 'src/lib/netlist/devices/nld_am2847.cpp')
-rw-r--r-- | src/lib/netlist/devices/nld_am2847.cpp | 129 |
1 files changed, 129 insertions, 0 deletions
diff --git a/src/lib/netlist/devices/nld_am2847.cpp b/src/lib/netlist/devices/nld_am2847.cpp new file mode 100644 index 00000000000..ec4eafc8dd6 --- /dev/null +++ b/src/lib/netlist/devices/nld_am2847.cpp @@ -0,0 +1,129 @@ +// license:BSD-3-Clause +// copyright-holders:Ryan Holtz +/* + * nld_am2847.cpp + * + */ + +#include "nld_am2847.h" + +namespace netlist +{ + namespace devices + { + NETLIB_OBJECT(Am2847_shifter) + { + NETLIB_CONSTRUCTOR(Am2847_shifter) + , m_RC(*this, "RC") + , m_IN(*this, "IN") + , m_buffer(*this, "m_buffer", 0) + , m_OUT(*this, "OUT") + { + } + + public: + void shift(); + + logic_input_t m_RC; + logic_input_t m_IN; + + state_var<uint_fast16_t[5]> m_buffer; + + logic_output_t m_OUT; + }; + + NETLIB_OBJECT(AM2847) + { + NETLIB_CONSTRUCTOR(AM2847) + , m_A(*this, "A") + , m_B(*this, "B") + , m_C(*this, "C") + , m_D(*this, "D") + , m_CP(*this, "CP") + , m_last_CP(*this, "m_last_CP", 0) + { + 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); + } + + NETLIB_RESETI(); + NETLIB_UPDATEI(); + + protected: + NETLIB_SUB(Am2847_shifter) m_A; + NETLIB_SUB(Am2847_shifter) m_B; + NETLIB_SUB(Am2847_shifter) m_C; + NETLIB_SUB(Am2847_shifter) m_D; + logic_input_t m_CP; + + state_var<uint_fast32_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("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); + + } + }; + + 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(); + } + + inline NETLIB_FUNC_VOID(Am2847_shifter, shift, (void)) + { + unsigned out = m_buffer[0] & 1; + uint_fast32_t in = (m_RC() ? out : m_IN()); + for (std::size_t i=0; i < 5; i++) + { + uint_fast16_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) + NETLIB_DEVICE_IMPL(AM2847_dip) + + } //namespace devices +} // namespace netlist |