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
|
// license:GPL-2.0+
// copyright-holders:Ryan Holtz
/*
* nld_7442.cpp
*
*/
#include "nld_7442.h"
#include "netlist/nl_base.h"
#include "nlid_system.h"
namespace netlist
{
namespace devices
{
static C14CONSTEXPR const netlist_time delay = NLTIME_FROM_NS(30); // Worst-case through 3 levels of logic
NETLIB_OBJECT(7442)
{
NETLIB_CONSTRUCTOR(7442)
, m_A(*this, "A")
, m_B(*this, "B")
, m_C(*this, "C")
, m_D(*this, "D")
, m_val(*this, "m_val", 0)
, m_last_val(*this, "m_last_val", 0)
, m_Q(*this, {{"Q0", "Q1", "Q2", "Q3", "Q4", "Q5", "Q6", "Q7", "Q8", "Q9"}})
, m_power_pins(*this)
{
}
private:
NETLIB_UPDATEI();
NETLIB_RESETI();
void update_outputs() noexcept
{
for (std::size_t i=0; i<10; i++)
m_Q[i].push(i == m_val ? 0 : 1, delay);
}
logic_input_t m_A;
logic_input_t m_B;
logic_input_t m_C;
logic_input_t m_D;
state_var_u8 m_val;
state_var_u8 m_last_val;
object_array_t<logic_output_t, 10> m_Q;
nld_power_pins m_power_pins;
};
NETLIB_OBJECT_DERIVED(7442_dip, 7442)
{
NETLIB_CONSTRUCTOR_DERIVED(7442_dip, 7442)
{
register_subalias("1", "Q0");
register_subalias("2", "Q1");
register_subalias("3", "Q2");
register_subalias("4", "Q3");
register_subalias("5", "Q4");
register_subalias("6", "Q5");
register_subalias("7", "Q6");
register_subalias("8", "GND");
register_subalias("9", "Q7");
register_subalias("10", "Q8");
register_subalias("11", "Q9");
register_subalias("12", "D");
register_subalias("13", "C");
register_subalias("14", "B");
register_subalias("15", "A");
register_subalias("16", "VCC");
}
};
NETLIB_RESET(7442)
{
m_val = 0;
m_last_val = 0;
}
NETLIB_UPDATE(7442)
{
const netlist_sig_t new_A = m_A();
const netlist_sig_t new_B = m_B();
const netlist_sig_t new_C = m_C();
const netlist_sig_t new_D = m_D();
m_last_val = m_val;
m_val = (new_D << 3) | (new_C << 2) | (new_B << 1) | new_A;
if (m_last_val != m_val)
{
update_outputs();
}
}
NETLIB_DEVICE_IMPL(7442, "TTL_7442", "+A,+B,+C,+D,@VCC,@GND")
NETLIB_DEVICE_IMPL(7442_dip, "TTL_7442_DIP", "")
} // namespace devices
} // namespace netlist
|