OpenCores
URL https://opencores.org/ocsvn/System09/System09/trunk

Subversion Repositories System09

[/] [System09/] [trunk/] [rtl/] [Spartan2/] [kbugs_rom2k_b4.vhd] - Blame information for rev 159

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.