1 |
19 |
dilbert57 |
--
|
2 |
|
|
-- Kbugs_rom2k_b4.vhd
|
3 |
|
|
--
|
4 |
|
|
-- KBUG9S Monitor ROM for the 6809
|
5 |
|
|
-- Using 4 x RAMB4_S8 in the XC2S300e
|
6 |
|
|
--
|
7 |
|
|
-- John Kent
|
8 |
|
|
-- 21 November 2004
|
9 |
|
|
-- Has the same entity name as SBUG so
|
10 |
|
|
-- it can be easily exchanged.
|
11 |
|
|
--
|
12 |
|
|
library IEEE;
|
13 |
|
|
use IEEE.STD_LOGIC_1164.ALL;
|
14 |
|
|
use IEEE.STD_LOGIC_ARITH.ALL;
|
15 |
|
|
library unisim;
|
16 |
|
|
use unisim.all;
|
17 |
|
|
|
18 |
|
|
entity mon_rom is
|
19 |
|
|
Port (
|
20 |
|
|
clk : in std_logic;
|
21 |
|
|
rst : in std_logic;
|
22 |
|
|
cs : in std_logic;
|
23 |
|
|
rw : in std_logic;
|
24 |
|
|
addr : in std_logic_vector (10 downto 0);
|
25 |
|
|
wdata : in std_logic_vector (7 downto 0);
|
26 |
|
|
rdata : out std_logic_vector (7 downto 0)
|
27 |
|
|
);
|
28 |
|
|
end mon_rom;
|
29 |
|
|
|
30 |
|
|
architecture rtl of mon_rom is
|
31 |
|
|
|
32 |
|
|
signal rdata0 : std_logic_vector (7 downto 0);
|
33 |
|
|
signal rdata1 : std_logic_vector (7 downto 0);
|
34 |
|
|
signal rdata2 : std_logic_vector (7 downto 0);
|
35 |
|
|
signal rdata3 : std_logic_vector (7 downto 0);
|
36 |
|
|
|
37 |
|
|
signal ena0 : std_logic;
|
38 |
|
|
signal ena1 : std_logic;
|
39 |
|
|
signal ena2 : std_logic;
|
40 |
|
|
signal ena3 : std_logic;
|
41 |
|
|
|
42 |
|
|
signal we : std_logic;
|
43 |
|
|
|
44 |
|
|
component RAMB4_S8
|
45 |
|
|
generic (
|
46 |
|
|
INIT_00, INIT_01, INIT_02, INIT_03,
|
47 |
|
|
INIT_04, INIT_05, INIT_06, INIT_07,
|
48 |
|
|
INIT_08, INIT_09, INIT_0A, INIT_0B,
|
49 |
|
|
INIT_0C, INIT_0D, INIT_0E, INIT_0F : bit_vector (255 downto 0)
|
50 |
|
|
);
|
51 |
|
|
|
52 |
|
|
port (
|
53 |
|
|
clk, we, en, rst : in std_logic;
|
54 |
|
|
addr : in std_logic_vector(8 downto 0);
|
55 |
|
|
di : in std_logic_vector(7 downto 0);
|
56 |
|
|
do : out std_logic_vector(7 downto 0)
|
57 |
|
|
);
|
58 |
|
|
end component RAMB4_S8;
|
59 |
|
|
|
60 |
|
|
begin
|
61 |
|
|
|
62 |
|
|
ROM0 : RAMB4_S8
|
63 |
|
|
generic map (
|
64 |
|
|
INIT_00 => x"FBFC1BFD18FA18FA18FA18FA18FA4FFC53FC5EFCABFC65FCA9FC80FC7CF838F8",
|
65 |
|
|
INIT_01 => x"C6C0F08E10B9FE8EC0F0CE100CFD04FDFBFCFAFCEBFCDCFCD2FCBFFC3AFD04FD",
|
66 |
|
|
INIT_02 => x"A7D0866AAFDD8C30FB265AE26F0CC68E0117D0F0BF00E08EF9265AA0A780A610",
|
67 |
|
|
INIT_03 => x"17E5FE8EE20317C9FE8EA504178704174F0417D8F0B70A86D7F0B70386431FE4",
|
68 |
|
|
INIT_04 => x"A302170E0417408B981F1504175E86092C2081891FF1270D817F84FB0317CD03",
|
69 |
|
|
INIT_05 => x"1F2D29450217C22094ADC620AA0317E7FE8EF526B9FE8C02300F2780E17AFE8E",
|
70 |
|
|
INIT_06 => x"E127088111283802176C0217650317A4A6740217650317211F880317EDFE8E12",
|
71 |
|
|
INIT_07 => x"31C2202131B003173F864D02170827A4A1A4A7390F260D8117275E81DD271881",
|
72 |
|
|
INIT_08 => x"1000C3101F390124E1AC20340629E6011705201F30C0F08E321FC00217BE203F",
|
73 |
|
|
INIT_09 => x"E4AE110317EDFE8E103439623203273403170527E4AC011FF0C4201F0634F0C4",
|
74 |
|
|
INIT_0a => x"0425208180A610C6E1AEEB0117F5265AF30117EC021780A610C6FB0117EE0217",
|
75 |
|
|
INIT_0b => x"17072653810503175F3B341F390128FD0117BC20EE265A4203172E8602237E81",
|
76 |
|
|
INIT_0c => x"1F031707265381E702175F39D7F0F7E72001C88E031707265681F22002D83D03",
|
77 |
|
|
INIT_0d => x"8E10341A24C0F08C1E294C011739D8F0F7E72008C84F031707264B81F22002D8",
|
78 |
|
|
INIT_0e => x"10CC02163F866901173984A73F86A4AFA0A709273F8184A60F271035558DFFFF",
|
79 |
|
|
INIT_0f => x"AE7DFE16AC0117068D4AAF0427268D1F304AAE431F39FB265A188D08C6D9F08E"
|
80 |
|
|
)
|
81 |
|
|
|
82 |
|
|
port map ( clk => clk,
|
83 |
|
|
en => ena0,
|
84 |
|
|
we => we,
|
85 |
|
|
rst => rst,
|
86 |
|
|
addr(8 downto 0) => addr(8 downto 0),
|
87 |
|
|
di(7 downto 0) => wdata,
|
88 |
|
|
do(7 downto 0) => rdata0(7 downto 0)
|
89 |
|
|
);
|
90 |
|
|
|
91 |
|
|
ROM1 : RAMB4_S8
|
92 |
|
|
generic map (
|
93 |
|
|
INIT_00 => x"A608C6D9F08E1039A0A7A0A7A0A7FF8684A7A4A604263F8184A60A24C0F08C21",
|
94 |
|
|
INIT_01 => x"273981670217F92653816E0217D2F07F528D1186393D3139F7265A0427A1ACA0",
|
95 |
|
|
INIT_02 => x"170434E46AE46AE4EBE0EBE0E610342129B3001726290234CA0017F12631813C",
|
96 |
|
|
INIT_03 => x"D2F073058D3F86B327FFC102355FEB2080A70527E46AE0EB02340C290435B000",
|
97 |
|
|
INIT_04 => x"062762A3E4EC1102171286E4AF0130462562AC4A2930346F8DE26F2602161386",
|
98 |
|
|
INIT_05 => x"63EB62EB75011762AE820117981F03CB9F01172EFF8E64E720C6022320008310",
|
99 |
|
|
INIT_06 => x"188D3965326A8D1486C326E4AC62AF680117981F53F526646A72011780A684EB",
|
100 |
|
|
INIT_07 => x"2D86121F4229088D391035F726E4AC1080A7A0A60929188D5D8D3E8610341529",
|
101 |
|
|
INIT_08 => x"1E29078D891F484848482829118D903561A710343229088D011F38290E8D438D",
|
102 |
|
|
INIT_09 => x"021A393780032246810725418139308003223981122530817C011739E0AB0434",
|
103 |
|
|
INIT_0a => x"3941A70229B78DEA8D8300173944AF0229B38DF68D8500176301162086008D39",
|
104 |
|
|
INIT_0b => x"AF0229858DC88D7C8D394AAF0229908DD38D7E8D3943A70229AB8DDE8D800017",
|
105 |
|
|
INIT_0c => x"FF17A58D748D3942A702297DFF17B18D778D3946AF022979FF17BD8D7A8D3948",
|
106 |
|
|
INIT_0d => x"358D910017EDFE8E348D2D8D268D1E8D168DA10017EDFE8E39C4A7808A042971",
|
107 |
|
|
INIT_0e => x"A67F8D15FF8E572044AE88001709FF8E6120311F920017F1FE8E4A20438D3C8D",
|
108 |
|
|
INIT_0f => x"FF8E332048AE648DFDFE8E3C204AAE6D8DF7FE8E4D2043A6768D0FFF8E562041"
|
109 |
|
|
)
|
110 |
|
|
|
111 |
|
|
port map ( clk => clk,
|
112 |
|
|
en => ena1,
|
113 |
|
|
we => we,
|
114 |
|
|
rst => rst,
|
115 |
|
|
addr(8 downto 0) => addr(8 downto 0),
|
116 |
|
|
di(7 downto 0) => wdata,
|
117 |
|
|
do(7 downto 0) => rdata1(7 downto 0)
|
118 |
|
|
);
|
119 |
|
|
|
120 |
|
|
ROM2 : RAMB4_S8
|
121 |
|
|
generic map (
|
122 |
|
|
INIT_00 => x"80A608C6023426FF8EC4A6498D1FFF8E292042A6528D1AFF8E2A2046AE5B8D03",
|
123 |
|
|
INIT_01 => x"8D4444444402340235028D023510348235EF265A17FF178200172D860225E468",
|
124 |
|
|
INIT_02 => x"80A64D8D9035048DDFFE8E10340B20028D5C20078B022F3981308B0F84023504",
|
125 |
|
|
INIT_03 => x"86354F0126800017052708C54F0B26618D042702C54FD8F0F6063439F8260481",
|
126 |
|
|
INIT_04 => x"022066001705276200170A2708C510204C00170527478D092702C5D8F0F60434",
|
127 |
|
|
INIT_05 => x"BE84357D0017032701C5358D022702C5D7F0F60434D58DD727D2F07D8435E020",
|
128 |
|
|
INIT_06 => x"F0BE103482350185D0F09FA6023439D2F0B7FF86016D84A7118684A70386D0F0",
|
129 |
|
|
INIT_07 => x"10E0B6023439943501A7FA2702C584E6D0F0BE1434903501A6FA27018584A6D0",
|
130 |
|
|
INIT_08 => x"00CC20E08E943501A7FA2702C584E610E08E14343911E0B6FC27F58D82350185",
|
131 |
|
|
INIT_09 => x"7D20E08E16345986028D1B86D6F07F01E702C6D5F0FD04E703E702A7D3F0FD00",
|
132 |
|
|
INIT_0a => x"101B814100271008819635C5001784A70520098D042420810D20748D0427D6F0",
|
133 |
|
|
INIT_0b => x"0027100B812C0027100C81990027100D814500271016818E0027101A816C0027",
|
134 |
|
|
INIT_0c => x"F0B67400165A3C0027105DD3F0FC9900168300261019C15CD3F0FC51260A8111",
|
135 |
|
|
INIT_0d => x"273DC1D6F0F65800160000CC5B00162500271050814CD3F0B66800164A3327D3",
|
136 |
|
|
INIT_0e => x"39D5F0B70426D5F07D39D6F07F39D6F0B704263D81312754816E002710598116",
|
137 |
|
|
INIT_0f => x"C6D3F0B6168D0000CC1B20E12218C120C0D5F07FD5F0F6ED224F812080D6F07F"
|
138 |
|
|
)
|
139 |
|
|
port map ( clk => clk,
|
140 |
|
|
en => ena2,
|
141 |
|
|
we => we,
|
142 |
|
|
rst => rst,
|
143 |
|
|
addr(8 downto 0) => addr(8 downto 0),
|
144 |
|
|
di(7 downto 0) => wdata,
|
145 |
|
|
do(7 downto 0) => rdata2(7 downto 0)
|
146 |
|
|
);
|
147 |
|
|
|
148 |
|
|
ROM3 : RAMB4_S8
|
149 |
|
|
generic map (
|
150 |
|
|
INIT_00 => x"50814CD3F0FC3903E702A7D3F0FDD4F0F64F39D6F07FF726508102A74C84E720",
|
151 |
|
|
INIT_01 => x"A702E7D3F0F72086D3F0F604E75F012519C15C04E6E78D5AEA2619C15C4FF026",
|
152 |
|
|
INIT_02 => x"39D6F0F702E7D3F0F75FE4205F03E7D4F0F7082719C15CD4F0F6F42650C15C84",
|
153 |
|
|
INIT_03 => x"8EFB0254FB01E62073FE178FFE17EE20CAFE176FFE17F6276AFE170D2698FE17",
|
154 |
|
|
INIT_04 => x"F9496EF9470FF945B3F94260FE4182FB1948FB1877FB156CFB1060FB049AFB03",
|
155 |
|
|
INIT_05 => x"F976F976F976F9DEFA5ADFF95803F953A8FB5285FA5077F94FBAF84D2CFA4C95",
|
156 |
|
|
INIT_06 => x"0D0420302E31562053394755422D4B0000000A0D000000FFFFFFFFEBF976F976",
|
157 |
|
|
INIT_07 => x"552020043D43502020043D5053202004202D20043F54414857043E040000000A",
|
158 |
|
|
INIT_08 => x"20043D422020043D412020043D50442020043D58492020043D59492020043D50",
|
159 |
|
|
INIT_09 => x"00000000000000000000000000000004315343565A4E4948464504203A434320",
|
160 |
|
|
INIT_0a => x"0000000000000000000000000000000000000000000000000000000000000000",
|
161 |
|
|
INIT_0b => x"0000000000000000000000000000000000000000000000000000000000000000",
|
162 |
|
|
INIT_0c => x"0000000000000000000000000000000000000000000000000000000000000000",
|
163 |
|
|
INIT_0d => x"9F6EC6F09F6EC4F09F6EC0F09F6E000000000000000000000000000000000000",
|
164 |
|
|
INIT_0e => x"0822CEF0BC8B300F27FFFF8CCCF0BE49584F4AAF80E64AAE431FCAF09F6EC8F0",
|
165 |
|
|
INIT_0f => x"34F834F8C2FFBEFFBAFFB6FFC6FFB2FFC2F09F6E42EE1F37F16E44AEC4EC1034"
|
166 |
|
|
)
|
167 |
|
|
port map ( clk => clk,
|
168 |
|
|
en => ena3,
|
169 |
|
|
we => we,
|
170 |
|
|
rst => rst,
|
171 |
|
|
addr(8 downto 0) => addr(8 downto 0),
|
172 |
|
|
di(7 downto 0) => wdata,
|
173 |
|
|
do(7 downto 0) => rdata3(7 downto 0)
|
174 |
|
|
);
|
175 |
|
|
|
176 |
|
|
my_kbug_b4 : process ( cs, rw, addr, rdata0, rdata1, rdata2, rdata3 )
|
177 |
|
|
begin
|
178 |
|
|
case addr(10 downto 9) is
|
179 |
|
|
when "00" =>
|
180 |
|
|
ena0 <= cs;
|
181 |
|
|
ena1 <= '0';
|
182 |
|
|
ena2 <= '0';
|
183 |
|
|
ena3 <= '0';
|
184 |
|
|
rdata <= rdata0;
|
185 |
|
|
when "01" =>
|
186 |
|
|
ena0 <= '0';
|
187 |
|
|
ena1 <= cs;
|
188 |
|
|
ena2 <= '0';
|
189 |
|
|
ena3 <= '0';
|
190 |
|
|
rdata <= rdata1;
|
191 |
|
|
when "10" =>
|
192 |
|
|
ena0 <= '0';
|
193 |
|
|
ena1 <= '0';
|
194 |
|
|
ena2 <= cs;
|
195 |
|
|
ena3 <= '0';
|
196 |
|
|
rdata <= rdata2;
|
197 |
|
|
when "11" =>
|
198 |
|
|
ena0 <= '0';
|
199 |
|
|
ena1 <= '0';
|
200 |
|
|
ena2 <= '0';
|
201 |
|
|
ena3 <= cs;
|
202 |
|
|
rdata <= rdata3;
|
203 |
|
|
when others =>
|
204 |
|
|
null;
|
205 |
|
|
end case;
|
206 |
|
|
|
207 |
|
|
we <= not rw;
|
208 |
|
|
|
209 |
|
|
end process my_kbug_b4;
|
210 |
|
|
|
211 |
|
|
end architecture rtl;
|
212 |
|
|
|