00001 ------------------------------------------------------------------------------ 00002 -- This file is a part of the LPP VHDL IP LIBRARY 00003 -- Copyright (C) 2009 - 2010, Laboratory of Plasmas Physic - CNRS 00004 -- 00005 -- This program is free software; you can redistribute it and/or modify 00006 -- it under the terms of the GNU General Public License as published by 00007 -- the Free Software Foundation; either version 3 of the License, or 00008 -- (at your option) any later version. 00009 -- 00010 -- This program is distributed in the hope that it will be useful, 00011 -- but WITHOUT ANY WARRANTY; without even the implied warranty of 00012 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00013 -- GNU General Public License for more details. 00014 -- 00015 -- You should have received a copy of the GNU General Public License 00016 -- along with this program; if not, write to the Free Software 00017 -- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 00018 ------------------------------------------------------------------------------- 00019 -- Author : Alexis Jeandet 00020 -- Mail : alexis.jeandet@lpp.polytechnique.fr 00021 ---------------------------------------------------------------------------- 00022 library IEEE; 00023 use IEEE.numeric_std.all; 00024 use IEEE.std_logic_1164.all; 00025 library lpp; 00026 use lpp.general_purpose.all; 00027 00028 00029 00030 entity ADDRcntr is 00031 port( 00032 clk : in std_logic; 00033 reset : in std_logic; 00034 count : in std_logic; 00035 clr : in std_logic; 00036 Q : out std_logic_vector(7 downto 0) 00037 ); 00038 end entity; 00039 00040 00041 00042 00043 architecture ar_ADDRcntr of ADDRcntr is 00044 00045 signal reg : std_logic_vector(7 downto 0); 00046 00047 begin 00048 00049 Q <= REG; 00050 00051 process(clk,reset) 00052 begin 00053 if reset = '0' then 00054 REG <= (others => '0'); 00055 elsif clk'event and clk ='1' then 00056 if clr = '1' then 00057 REG <= (others => '0'); 00058 elsif count ='1' then 00059 REG <= std_logic_vector(unsigned(REG)+1); 00060 end if; 00061 end if; 00062 end process; 00063 00064 end ar_ADDRcntr;
© Copyright 2011 LPP-CNRS | Design by Alexis Jeandet