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

Subversion Repositories mkjpeg

[/] [mkjpeg/] [branches/] [16rgb/] [trunk/] [design/] [common/] [FIFO.vhd] - Blame information for rev 52

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

Line No. Rev Author Line
1 25 mikel262
library IEEE;
2
  use IEEE.STD_LOGIC_1164.all;
3
  use IEEE.NUMERIC_STD.all;
4
 
5
entity RAMF is
6
  generic (
7
        RAMD_W : INTEGER := 12;
8
        RAMA_W : INTEGER := 6
9
  );
10
  port (
11
        d                 : in  STD_LOGIC_VECTOR(RAMD_W-1 downto 0);
12
        waddr             : in  STD_LOGIC_VECTOR(RAMA_W-1 downto 0);
13
        raddr             : in  STD_LOGIC_VECTOR(RAMA_W-1 downto 0);
14
        we                : in  STD_LOGIC;
15
        clk               : in  STD_LOGIC;
16
 
17
        q                 : out STD_LOGIC_VECTOR(RAMD_W-1 downto 0)
18
  );
19
end RAMF;
20
 
21
architecture RTL of RAMF is
22
  type mem_type is array ((2**RAMA_W)-1 downto 0) of
23
                              STD_LOGIC_VECTOR(RAMD_W-1 downto 0);
24
  signal mem                    : mem_type;
25
  signal read_addr              : STD_LOGIC_VECTOR(RAMA_W-1 downto 0);
26
 
27
begin
28
 
29
  -------------------------------------------------------------------------------
30
  q_sg:
31
  -------------------------------------------------------------------------------
32
  q <= mem(TO_INTEGER(UNSIGNED(read_addr)));
33
 
34
  -------------------------------------------------------------------------------
35
  read_proc: -- register read address
36
  -------------------------------------------------------------------------------
37
  process (clk)
38
  begin
39
    if clk = '1' and clk'event then
40
      read_addr <= raddr;
41
    end if;
42
  end process;
43
 
44
  -------------------------------------------------------------------------------
45
  write_proc: --write access
46
  -------------------------------------------------------------------------------
47
  process (clk) begin
48
    if clk = '1' and clk'event then
49
      if we = '1'  then
50
        mem(TO_INTEGER(UNSIGNED(waddr))) <= d;
51
      end if;
52
    end if;
53
  end process;
54
 
55
end RTL;
56
----------------------------------------------------------------------------------
57
 
58
library IEEE;
59
  use IEEE.STD_LOGIC_1164.all;
60
  use IEEE.STD_LOGIC_UNSIGNED.all;
61
library WORK;
62
 
63
entity FIFO is
64
  generic (
65
        DATA_WIDTH         : INTEGER   := 12;
66
        ADDR_WIDTH         : INTEGER   := 2
67
       );
68
  port (
69
        rst               : in  STD_LOGIC;
70
        clk               : in  STD_LOGIC;
71
        rinc              : in  STD_LOGIC;
72
        winc              : in  STD_LOGIC;
73
        datai             : in  STD_LOGIC_VECTOR(DATA_WIDTH-1 downto 0);
74
 
75
        datao             : out STD_LOGIC_VECTOR(DATA_WIDTH-1 downto 0);
76
        fullo             : out STD_LOGIC;
77
        emptyo            : out STD_LOGIC;
78
        count             : out STD_LOGIC_VECTOR (ADDR_WIDTH downto 0)
79
        );
80
end FIFO;
81
 
82
architecture RTL of FIFO is
83
 
84
  signal raddr_reg        : STD_LOGIC_VECTOR(ADDR_WIDTH-1 downto 0);
85
  signal waddr_reg        : STD_LOGIC_VECTOR(ADDR_WIDTH-1 downto 0);
86
  signal count_reg        : STD_LOGIC_VECTOR(ADDR_WIDTH downto 0);
87
  signal rd_en_reg        : STD_LOGIC;
88
  signal wr_en_reg        : STD_LOGIC;
89
  signal empty_reg        : STD_LOGIC;
90
  signal full_reg         : STD_LOGIC;
91
  signal ramq             : STD_LOGIC_VECTOR(DATA_WIDTH-1 downto 0);
92
  signal ramd             : STD_LOGIC_VECTOR (DATA_WIDTH-1 downto 0);
93
  signal ramwaddr         : STD_LOGIC_VECTOR (ADDR_WIDTH-1 downto 0);
94
  signal ramenw           : STD_LOGIC;
95
  signal ramraddr         : STD_LOGIC_VECTOR (ADDR_WIDTH-1 downto 0);
96
  signal ramenr           : STD_LOGIC;
97
 
98
  constant ZEROS_C        : STD_LOGIC_VECTOR(ADDR_WIDTH downto 0) := (others => '0');
99
  constant ONES_C         : STD_LOGIC_VECTOR(ADDR_WIDTH downto 0) := (others => '1');
100
 
101
  component RAMF
102
  generic (
103
           RAMD_W : INTEGER := 12;
104
           RAMA_W : INTEGER := 6
105
  );
106
  port (
107
        d                 : in  STD_LOGIC_VECTOR(RAMD_W-1 downto 0);
108
        waddr             : in  STD_LOGIC_VECTOR(RAMA_W-1 downto 0);
109
        raddr             : in  STD_LOGIC_VECTOR(RAMA_W-1 downto 0);
110
        we                : in  STD_LOGIC;
111
        clk               : in  STD_LOGIC;
112
 
113
        q                 : out STD_LOGIC_VECTOR(RAMD_W-1 downto 0)
114
  );
115
  end component;
116
begin
117
 
118
  U_RAMF : RAMF
119
  generic map (
120
           RAMD_W => DATA_WIDTH,
121
           RAMA_W => ADDR_WIDTH
122
  )
123
  port map (
124
        d            => ramd,
125
        waddr        => ramwaddr,
126
        raddr        => ramraddr,
127
        we           => ramenw,
128
        clk          => clk,
129
 
130
        q            => ramq
131
  );
132
 
133
  ramd                    <= datai;
134
 
135
  ramwaddr                <= waddr_reg;
136
 
137
  ramenw                  <= wr_en_reg;
138
 
139
  ramraddr                <= raddr_reg;
140
 
141
  ramenr                  <= '1';
142
 
143
  datao                   <= ramq;
144
 
145
  emptyo                  <= empty_reg;
146
 
147
  fullo                   <= full_reg;
148
 
149
  rd_en_reg               <= (rinc and not empty_reg);
150
 
151
  wr_en_reg               <= (winc and not full_reg);
152
 
153
  count <= count_reg;
154
 
155
  process(clk)
156
  begin
157
    if clk = '1' and clk'event then
158
      if rst = '1' then
159
        empty_reg         <= '1';
160
      else
161
        if count_reg = ZEROS_C or
162
          (count_reg = 1 and rd_en_reg = '1' and wr_en_reg = '0') then
163
          empty_reg       <= '1';
164
        else
165
          empty_reg       <= '0';
166
        end if;
167
      end if;
168
    end if;
169
  end process;
170
 
171
  process(clk)
172
  begin
173
    if clk = '1' and clk'event then
174
      if rst = '1' then
175
        full_reg          <= '0';
176
      else
177
        if count_reg = 2**ADDR_WIDTH or
178
          (count_reg = 2**ADDR_WIDTH-1 and wr_en_reg = '1' and rd_en_reg = '0') then
179
          full_reg        <= '1';
180
        else
181
          full_reg        <= '0';
182
        end if;
183
      end if;
184
    end if;
185
  end process;
186
 
187
  process(clk)
188
  begin
189
    if clk = '1' and clk'event then
190
      if rst = '1' then
191
        raddr_reg         <= (others => '0');
192
      else
193
        if rd_en_reg = '1' then
194
          raddr_reg       <= raddr_reg + '1';
195
        end if;
196
      end if;
197
    end if;
198
  end process;
199
 
200
  process(clk)
201
  begin
202
    if clk = '1' and clk'event then
203
      if rst = '1' then
204
        waddr_reg         <= (others => '0');
205
      else
206
        if wr_en_reg = '1' then
207
          waddr_reg       <= waddr_reg + '1';
208
        end if;
209
      end if;
210
    end if;
211
  end process;
212
 
213
  process(clk)
214
  begin
215
    if clk = '1' and clk'event then
216
      if rst = '1' then
217
        count_reg         <= (others => '0');
218
      else
219
        if (rd_en_reg = '1' and wr_en_reg = '0') or (rd_en_reg = '0' and wr_en_reg = '1') then
220
          if rd_en_reg = '1' then
221
            count_reg     <= count_reg - '1';
222
          else
223
            count_reg     <= count_reg + '1';
224
          end if;
225
        end if;
226
      end if;
227
    end if;
228
  end process;
229
 
230
end RTL;

powered by: WebSVN 2.1.0

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