Subversion Repositories scarts

-----------------------------------------------------------------------

-- This file is part of SCARTS.

-- 

-- SCARTS is free software: you can redistribute it and/or modify

-- it under the terms of the GNU General Public License as published by

-- the Free Software Foundation, either version 3 of the License, or

-- (at your option) any later version.

-- 

-- SCARTS is distributed in the hope that it will be useful,

-- but WITHOUT ANY WARRANTY; without even the implied warranty of

-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

-- GNU General Public License for more details.

-- 

-- You should have received a copy of the GNU General Public License

-- along with SCARTS.  If not, see <http://www.gnu.org/licenses/>.

-----------------------------------------------------------------------

library ieee;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

use work.scarts_core_pkg.all;

use work.scarts_pkg.all;

entity scarts_regfram is

  generic (

    CONF : scarts_conf_type);

  port (

    wclk        : in  std_ulogic;

    rclk        : in  std_ulogic;

    enable      : in  std_ulogic;

    wdata       : in  std_logic_vector(CONF.word_size-1 downto 0);

    waddr       : in  std_logic_vector(REGADDR_W-1 downto 0);

    wen         : in  std_ulogic;

    raddr       : in  std_logic_vector(REGADDR_W-1 downto 0);

    rdata       : out std_logic_vector(CONF.word_size-1 downto 0)

    );

end scarts_regfram;

architecture behaviour of scarts_regfram is

constant WORD_W : natural := CONF.word_size;

subtype WORD is std_logic_vector(WORD_W-1 downto 0);

type ram_array is array (0 to 15) of WORD;

signal ram : ram_array := (others => (others => '0'));

begin

  process(wclk)

  begin

    if rising_edge(wclk) then

      if enable = '1' then

        if wen = '1' then

          ram(to_integer(unsigned(waddr))) <= wdata(WORD_W-1 downto 0);

        end if;

      end if;

    end if;

  end process;

  process(rclk)

  begin

    if rising_edge(rclk) then

      if enable = '1' then

        rdata <= (others => '0');

        rdata(WORD_W-1 downto 0) <= ram(to_integer(unsigned(raddr)));

      end if;

    end if;

  end process;

end behaviour;