rcd_cntr.vhd

来自「Xilinx Ise 官方源代码盘 第四章」· VHDL 代码 · 共 62 行

library IEEE;
use IEEE.std_logic_1164.all;
use IEEE.numeric_STD.all;
use IEEE.std_logic_unsigned.all;

-- pragma translate_off
library UNISIM;
use UNISIM.VCOMPONENTS.ALL;
-- pragma translate_on

entity cslt_cntr is
  port (cslt_end : out std_logic;
  	Reset : in std_logic;
	Clk : in std_logic;
	ld_cslt : in std_logic;
	cslt_max : in unsigned(1 downto 0));
end entity cslt_cntr;

architecture cslt_cntr_arch of cslt_cntr is

signal count_N_sig : unsigned(1 downto 0);
signal count_sig : unsigned(1 downto 0);

begin

process (Clk, Reset)
variable count : unsigned(1 downto 0);
begin
  if (Reset = '0') then
    count := (others => '0');
  elsif rising_edge(Clk) then 
    if (ld_cslt = '1') then
      count := cslt_max;
    else
      count := count_N_sig;
    end if;
  end if;
  count_sig <= count;
end process;

process (count_sig)
variable cslt_end_int : std_logic;
variable count_N : unsigned(1 downto 0);
--variable one : std_logic := '1';
begin
  if (count_sig = "00") then
    count_N := "00";
    cslt_end_int := '1';
  else
    count_N := count_sig - 1 ;
    cslt_end_int := '0';
  end if;
count_N_sig <= count_N;
cslt_end <= cslt_end_int;
end process;


end architecture cslt_cntr_arch;