Subversion Repositories pulse_processing_algorithm

-----------------------------------------------------------------------------------------------
--
--    Copyright (C) 2011 Peter Lemmens, PANDA collaboration
--		p.j.j.lemmens@rug.nl
--    http://www-panda.gsi.de
--
--    As a reference, please use:
--    E. Guliyev, M. Kavatsyuk, P.J.J. Lemmens, G. Tambave, H. Loehner,
--    "VHDL Implementation of Feature-Extraction Algorithm for the PANDA Electromagnetic Calorimeter"
--    Nuclear Inst. and Methods in Physics Research, A ....
--
--
--    This program is free software; you can redistribute it and/or modify
--    it under the terms of the GNU Lesser General Public License as published by
--    the Free Software Foundation; either version 3 of the License, or
--    (at your option) any later version.
--
--    This program 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 Lesser General Public License for more details.
--
--    You should have received a copy of the GNU General Public License
--    along with this program; if not, write to the Free Software
--    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111 USA
--
-----------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------
-- Company		:	KVI (Kernfysisch Versneller Instituut  -- Groningen, The Netherlands	
-- Author		:	P.J.J. Lemmens
-- Design Name	:	Feature Extraction
-- Module Name	:	block_ram.vhd
-- Description	:	block-RAM inference
--	
-----------------------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
 
entity block_ram is
	generic (RAM_SIZE_PWR	: natural := 1);
	Port (clk			: in  STD_LOGIC := '0';
         enable		: in  STD_LOGIC := '1';
         write_ptr	: in  STD_LOGIC_VECTOR;
         read_ptr		: in  STD_LOGIC_VECTOR;
			data_in		: in	STD_LOGIC_VECTOR;
         data_out		: out	STD_LOGIC_VECTOR
			);
end block_ram;
 
architecture Behavioral of block_ram is
 
	constant	WIDTH					: natural := data_in'length;
	constant	MAX_RAM_ADDRESS	: natural := 2**RAM_SIZE_PWR - 1;
	constant ZERO					: STD_LOGIC_VECTOR(WIDTH - 1 downto 0) := (others => '0');
 
	type ram_pipe is array (MAX_RAM_ADDRESS downto 0) of STD_LOGIC_VECTOR(WIDTH - 1 downto 0);
	signal mypipe_S : ram_pipe;
 
	signal clk_S			: STD_LOGIC;
	signal enable_S		: STD_LOGIC;
	signal write_ptr_S	: STD_LOGIC_VECTOR(RAM_SIZE_PWR - 1 downto 0) := (others	=> '0');
	signal read_ptr_S		: STD_LOGIC_VECTOR(RAM_SIZE_PWR - 1 downto 0) := (others	=> '0');
	signal data_in_S		: STD_LOGIC_VECTOR(WIDTH - 1 downto 0) := (others	=> '0');
	signal data_out_S		: STD_LOGIC_VECTOR(WIDTH - 1 downto 0) := (others	=> '0');
 
begin
 
	clk_S			<= clk;
	enable_S		<=	enable;
	write_ptr_S	<= write_ptr;
	read_ptr_S	<= read_ptr;
	data_in_S	<= data_in;
	data_out		<= data_out_S;
 
	ram_RW : process (clk_S)
	begin
		if (clk_S'event and clk_S = '1') then
			if (enable_S = '1') then
					mypipe_S(conv_integer(write_ptr_S)) <= data_in_S;
			end if;
			data_out_S <= mypipe_S(conv_integer(read_ptr_S));
		end if;
	end process;
 
end Behavioral;