summaryrefslogtreecommitdiffstatshomepage
path: root/src/lib/netlist/devices/nld_tms4800.cpp
blob: 29a9bd836ab3e4cb01a91a492bc930ddf568fe80 (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
// license:BSD-3-Clause
// copyright-holders:Felipe Sanches
/*
 * nld_tms4800.cpp
 *
 */

#include "nld_tms4800.h"
#include "../nl_base.h"

namespace netlist
{
	namespace devices
	{
	NETLIB_OBJECT(TMS4800)
	{
		NETLIB_CONSTRUCTOR(TMS4800)
		, m_A(*this, {{ "A0", "A1", "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9", "A10" }})
		, m_AR(*this, "AR")
		, m_OE1(*this, "OE1")
		, m_OE2(*this, "OE2")
		, m_D(*this, {{ "D0", "D1", "D2", "D3", "D4", "D5", "D6", "D7" }})
		, m_last_data(*this, "m_last_data", 1)
		, m_ROM(*this, "ROM")
		{
		}

		NETLIB_UPDATEI();

	protected:
		object_array_t<logic_input_t, 11> m_A;
		logic_input_t m_AR;
		logic_input_t m_OE1;
		logic_input_t m_OE2;
		object_array_t<logic_output_t, 8> m_D;

		state_var<unsigned> m_last_data;

		param_rom_t<uint8_t, 11, 8> m_ROM; // 16 Kbits, used as 2 Kbit x 8
	};

	NETLIB_OBJECT_DERIVED(tms4800_dip, TMS4800)
	{
		NETLIB_CONSTRUCTOR_DERIVED(tms4800_dip, TMS4800)
		{
			register_subalias("2",     m_A[0]);
			register_subalias("3",     m_A[1]);
			register_subalias("4",     m_A[2]);
			register_subalias("5",     m_A[3]);
			register_subalias("6",     m_A[4]);
			register_subalias("7",     m_A[5]);
			register_subalias("12",    m_A[6]);
			register_subalias("11",    m_A[7]);
			register_subalias("10",    m_A[8]);
			register_subalias("8",     m_A[9]);
			register_subalias("15",    m_A[10]);

			register_subalias("13",    m_AR);
			register_subalias("24",    m_OE1);
			register_subalias("14",    m_OE2);

			register_subalias("23",     m_D[0]);
			register_subalias("22",     m_D[1]);
			register_subalias("21",     m_D[2]);
			register_subalias("20",     m_D[3]);
			register_subalias("19",     m_D[4]);
			register_subalias("18",     m_D[5]);
			register_subalias("17",     m_D[6]);
			register_subalias("16",     m_D[7]);
		}
	};

	// FIXME: timing!
	NETLIB_UPDATE(TMS4800)
	{
		unsigned d = 0x00;

		netlist_time delay = NLTIME_FROM_NS(450);
		if (m_AR())
		{
			unsigned a = 0;
			for (std::size_t i=0; i<11; i++)
				a |= (m_A[i]() << i);

			m_last_data = m_ROM[a];
		}
		else
		{
			for (std::size_t i=0; i<4; i++)
			{
				if (m_OE1())
					m_D[i].push((d >> i) & 1, delay);

				if (m_OE2())
					m_D[i+4].push((d >> (i+4)) & 1, delay);
			}
		}
	}

	NETLIB_DEVICE_IMPL(TMS4800)
	NETLIB_DEVICE_IMPL(tms4800_dip)

	} //namespace devices
} // namespace netlist