diff options
Diffstat (limited to 'src/lib/netlist/devices/nld_7490.c')
-rw-r--r-- | src/lib/netlist/devices/nld_7490.c | 118 |
1 files changed, 118 insertions, 0 deletions
diff --git a/src/lib/netlist/devices/nld_7490.c b/src/lib/netlist/devices/nld_7490.c new file mode 100644 index 00000000000..a054247a070 --- /dev/null +++ b/src/lib/netlist/devices/nld_7490.c @@ -0,0 +1,118 @@ +// license:GPL-2.0+ +// copyright-holders:Couriersud +/* + * nld_7490.c + * + */ + +#include "nld_7490.h" + +NETLIB_NAMESPACE_DEVICES_START() + +NETLIB_START(7490) +{ + register_input("A", m_A); + register_input("B", m_B); + register_input("R1", m_R1); + register_input("R2", m_R2); + register_input("R91", m_R91); + register_input("R92", m_R92); + + register_output("QA", m_Q[0]); + register_output("QB", m_Q[1]); + register_output("QC", m_Q[2]); + register_output("QD", m_Q[3]); + + save(NLNAME(m_cnt)); + save(NLNAME(m_last_A)); + save(NLNAME(m_last_B)); + +} + +NETLIB_RESET(7490) +{ + m_cnt = 0; + m_last_A = 0; + m_last_B = 0; +} + +static const netlist_time delay[4] = +{ + 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_UPDATE(7490) +{ + const netlist_sig_t new_A = INPLOGIC(m_A); + const netlist_sig_t new_B = INPLOGIC(m_B); + + if (INPLOGIC(m_R91) & INPLOGIC(m_R92)) + { + m_cnt = 9; + update_outputs(); + } + else if (INPLOGIC(m_R1) & INPLOGIC(m_R2)) + { + m_cnt = 0; + update_outputs(); + } + else + { + if (m_last_A && !new_A) // High - Low + { + m_cnt ^= 1; + OUTLOGIC(m_Q[0], m_cnt & 1, delay[0]); + } + if (m_last_B && !new_B) // High - Low + { + m_cnt += 2; + if (m_cnt >= 10) + m_cnt &= 1; /* Output A is not reset! */ + update_outputs(); + } + } + m_last_A = new_A; + m_last_B = new_B; +} + +NETLIB_FUNC_VOID(7490, update_outputs, (void)) +{ + for (int i=0; i<4; i++) + OUTLOGIC(m_Q[i], (m_cnt >> i) & 1, delay[i]); +} + +NETLIB_START(7490_dip) +{ + NETLIB_NAME(7490)::start(); + register_subalias("1", m_B); + register_subalias("2", m_R1); + register_subalias("3", m_R2); + + // register_subalias("4", ); --> NC + // register_subalias("5", ); --> VCC + register_subalias("6", m_R91); + register_subalias("7", m_R92); + + register_subalias("8", m_Q[2]); + register_subalias("9", m_Q[1]); + // register_subalias("10", ); --> GND + register_subalias("11", m_Q[3]); + register_subalias("12", m_Q[0]); + // register_subalias("13", ); --> NC + register_subalias("14", m_A); + +} + +NETLIB_UPDATE(7490_dip) +{ + NETLIB_NAME(7490)::update(); +} + +NETLIB_RESET(7490_dip) +{ + NETLIB_NAME(7490)::reset(); +} + +NETLIB_NAMESPACE_DEVICES_END() |