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
|
// license:BSD-3-Clause
// copyright-holders:Ryan Holtz
/*
* nld_82S115.cpp
*
* 82S115: 4K-bit TTL bipolar PROM (512 x 8)
*
* +--------------+
* A3 |1 ++ 24| VCC
* A4 |2 23| A2
* A5 |3 22| A1
* A6 |4 82S115 21| A0
* A7 |5 20| CE1Q
* A8 |6 19| CE2
* O1 |7 18| STROBE
* O2 |8 17| O8
* O3 |9 16| O7
* O4 |10 15| O6
* FE2 |11 14| O5
* GND |12 13| FE1
* +--------------+
*
*
* Naming conventions follow Signetics datasheet
*
*/
#include "nl_base.h"
namespace netlist
{
namespace devices
{
NETLIB_OBJECT(82S115)
{
NETLIB_CONSTRUCTOR(82S115)
, m_A(*this, {"A0", "A1", "A2", "A3", "A4", "A5", "A6", "A7", "A8"}, NETLIB_DELEGATE(inputs))
, m_CE1Q(*this, "CE1Q", NETLIB_DELEGATE(inputs))
, m_CE2(*this, "CE2", NETLIB_DELEGATE(inputs))
, m_STROBE(*this, "STROBE", NETLIB_DELEGATE(inputs))
, m_O(*this, {"O1", "O2", "O3", "O4", "O5", "O6", "O7", "O8"})
, m_last_O(*this, "m_last_O", 0)
, m_ROM(*this, "ROM")
, m_power_pins(*this)
{
}
NETLIB_RESETI()
{
m_last_O = 0;
}
private:
// FIXME: timing!
NETLIB_HANDLERI(inputs)
{
unsigned o = 0;
if (!m_CE1Q() && m_CE2())
{
if (m_STROBE())
{
unsigned a = 0;
for (std::size_t i=0; i<9; i++)
a |= (m_A[i]() << i);
o = m_ROM[a];
}
else
{
o = m_last_O;
}
}
m_last_O = o;
// FIXME: Outputs are tristate. This needs to be properly implemented
for (std::size_t i=0; i<8; i++)
m_O[i].push((o >> i) & 1, NLTIME_FROM_NS(40)); // FIXME: Timing
}
object_array_t<logic_input_t, 9> m_A;
logic_input_t m_CE1Q;
logic_input_t m_CE2;
logic_input_t m_STROBE;
object_array_t<logic_output_t, 8> m_O;
state_var<unsigned> m_last_O;
param_rom_t<uint8_t, 9, 8> m_ROM; // 4096 bits, 512x8
nld_power_pins m_power_pins;
};
NETLIB_DEVICE_IMPL(82S115, "PROM_82S115", "+CE1Q,+CE2,+A0,+A1,+A2,+A3,+A4,+A5,+A6,+A7,+A8,+STROBE,@VCC,@GND")
} //namespace devices
} // namespace netlist
|