summaryrefslogtreecommitdiffstatshomepage
path: root/src/lib/netlist/devices/nld_7493.cpp
blob: f3c68f7a5c2bdfa629220562bae0e70fda1c5946 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
// license:GPL-2.0+
// copyright-holders:Couriersud
/*
 * nld_7493.cpp
 *
 */

#include "nld_7493.h"
#include "../nl_base.h"

namespace netlist
{
	namespace devices
	{

	static constexpr netlist_time out_delay = NLTIME_FROM_NS(18);
	static constexpr netlist_time out_delay2 = NLTIME_FROM_NS(36);
	static constexpr netlist_time out_delay3 = NLTIME_FROM_NS(54);

	NETLIB_OBJECT(7493)
	{
		NETLIB_CONSTRUCTOR(7493)
		, m_R1(*this, "R1")
		, m_R2(*this, "R2")
		, m_reset(*this, "_m_reset", 0)
		, m_a(*this, "_m_a", 0)
		, m_bcd(*this, "_m_b", 0)
		, m_CLKA(*this, "CLKA", NETLIB_DELEGATE(7493, updA))
		, m_CLKB(*this, "CLKB", NETLIB_DELEGATE(7493, updB))
		, m_QA(*this, "QA")
		, m_QB(*this, "QB")
		, m_QC(*this, "QC")
		, m_QD(*this, "QD")
		{
		}

	private:
		NETLIB_RESETI();
		NETLIB_UPDATEI();

		NETLIB_HANDLERI(updA)
		{
			if (m_reset)
			{
				m_a ^= 1;
				m_QA.push(m_a, out_delay);
			}
		}

		NETLIB_HANDLERI(updB)
		{
			if (m_reset)
			{
				++m_bcd &= static_cast<std::uint8_t>(0x07);
				m_QD.push((m_bcd >> 2) & 1, out_delay3);
				m_QC.push((m_bcd >> 1) & 1, out_delay2);
				m_QB.push(m_bcd & 1, out_delay);
			}
		}

		logic_input_t m_R1;
		logic_input_t m_R2;

		state_var_sig m_reset;
		state_var_sig m_a;
		state_var_sig m_bcd;

		logic_input_t m_CLKA;
		logic_input_t m_CLKB;

		logic_output_t m_QA;
		logic_output_t m_QB;
		logic_output_t m_QC;
		logic_output_t m_QD;
	};

	NETLIB_OBJECT_DERIVED(7493_dip, 7493)
	{
		NETLIB_CONSTRUCTOR_DERIVED(7493_dip, 7493)
		{
			register_subalias("1", "CLKB");
			register_subalias("2", "R1");
			register_subalias("3", "R2");

			// register_subalias("4", ); --> NC
			// register_subalias("5", ); --> VCC
			// register_subalias("6", ); --> NC
			// register_subalias("7", ); --> NC

			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", "CLKA");
		}
	};

	NETLIB_RESET(7493)
	{
		m_reset = 1;
		m_a = m_bcd = 0;
		m_CLKA.set_state(logic_t::STATE_INP_HL);
		m_CLKB.set_state(logic_t::STATE_INP_HL);
	}

	NETLIB_UPDATE(7493)
	{
		m_reset = (m_R1() & m_R2()) ^ 1;

		if (m_reset)
		{
			m_CLKA.activate_hl();
			m_CLKB.activate_hl();
		}
		else
		{
			m_CLKA.inactivate();
			m_CLKB.inactivate();
			m_QA.push_force(0, NLTIME_FROM_NS(40));
			m_QB.push_force(0, NLTIME_FROM_NS(40));
			m_QC.push_force(0, NLTIME_FROM_NS(40));
			m_QD.push_force(0, NLTIME_FROM_NS(40));
			m_a = m_bcd = 0;
		}
	}

	NETLIB_DEVICE_IMPL(7493)
	NETLIB_DEVICE_IMPL(7493_dip)

	} //namespace devices
} // namespace netlist