chien7.vhd

bch 编码和译码

--------------------------------------------------------------------------------
-- Company: 
-- Engineer:
--
-- Create Date:    21:33:14 04/09/08
-- Design Name:    
-- Module Name:    chien7 - Behavioral
-- Project Name:   
-- Target Device:  
-- Tool versions:  
-- Description:
--
-- Dependencies:
-- 
-- Revision:
-- Revision 0.01 - File Created
-- Additional Comments:
-- 
--------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

---- Uncomment the following library declaration if instantiating
---- any Xilinx primitives in this code.
--library UNISIM;
--use UNISIM.VComponents.all;

entity chien7 is
port
	(
		clk:in std_logic;
		reset:in std_logic;
		en_all:in std_logic;
		en_sel:in std_logic;
		err_pol:in std_logic_vector(12 downto 0);
		product1:out std_logic_vector(12 downto 0);
		product2:out std_logic_vector(12 downto 0);
		product3:out std_logic_vector(12 downto 0);
		product4:out std_logic_vector(12 downto 0);
		product5:out std_logic_vector(12 downto 0);
		product6:out std_logic_vector(12 downto 0);
		product7:out std_logic_vector(12 downto 0);
		product8:out std_logic_vector(12 downto 0)
	 );
end chien7;

architecture Behavioral of chien7 is

component mul7
	port(
		mul7_in:in std_logic_vector(12 downto 0);
		mul7_out:out std_logic_vector(12 downto 0)
		);
end component;

component mul14
	port(
		mul14_in:in std_logic_vector(12 downto 0);
		mul14_out:out std_logic_vector(12 downto 0)
		);
end component;

component mul21
	port(
		mul21_in:in std_logic_vector(12 downto 0);
		mul21_out:out std_logic_vector(12 downto 0)
		);
end component;

component mul28
	port(
		mul28_in:in std_logic_vector(12 downto 0);
		mul28_out:out std_logic_vector(12 downto 0)
		);
end component;

component mul35
	port(
		mul35_in:in std_logic_vector(12 downto 0);
		mul35_out:out std_logic_vector(12 downto 0)
		);
end component;

component mul42
	port(
		mul42_in:in std_logic_vector(12 downto 0);
		mul42_out:out std_logic_vector(12 downto 0)
		);
end component;
component mul49
	port(
		mul49_in:in std_logic_vector(12 downto 0);
		mul49_out:out std_logic_vector(12 downto 0)
		);
end component;

component mul56
	port(
		mul56_in:in std_logic_vector(12 downto 0);
		mul56_out:out std_logic_vector(12 downto 0)
		);
end component;

component mul4134
	port(
		mul4134_in:in std_logic_vector(12 downto 0);
		mul4134_out:out std_logic_vector(12 downto 0)
		);
end component;

signal d:std_logic_vector(12 downto 0);
signal product1_tmp:std_logic_vector(12 downto 0);
signal product2_tmp:std_logic_vector(12 downto 0);
signal product3_tmp:std_logic_vector(12 downto 0);
signal product4_tmp:std_logic_vector(12 downto 0);
signal product5_tmp:std_logic_vector(12 downto 0);
signal product6_tmp:std_logic_vector(12 downto 0);
signal product7_tmp:std_logic_vector(12 downto 0);
signal product8_tmp:std_logic_vector(12 downto 0);
signal sel_tmp:std_logic_vector(12 downto 0);
signal err_pol_m:std_logic_vector(12 downto 0);
--signal cnt:integer range 1000 downto 0;
--signal en_sel: std_logic;
begin

d_pro:
	process(clk,reset)
		begin
			if(reset='1')then
				d<=(others=>'0');
			elsif(clk'event and clk='1')then
				if(en_all='1')then
					d<=product8_tmp;
				end if;
			end if;
	end process;

mul4134_pro:
		mul4134
			port map
			(		 
			mul4134_in=>err_pol,
			mul4134_out=>err_pol_m
			);			

sel_pro:
	process(clk)
		begin
			if(en_all='1')then
				if(en_sel='0')then
					sel_tmp<=d;
				else
					sel_tmp<=err_pol_m;
				end if;
			end if;
	end process;

mul7_pro:
	mul7
	port map
	(
	mul7_in=>sel_tmp,
	mul7_out=>product1_tmp
	);

mul14_pro:
	mul14
	port map
	(
	mul14_in=>sel_tmp,
	mul14_out=>product2_tmp
	);

mul21_pro:
	mul21
	port map
	(
	mul21_in=>sel_tmp,
	mul21_out=>product3_tmp
	);

mul28_pro:
	mul28
	port map
	(
	mul28_in=>sel_tmp,
	mul28_out=>product4_tmp
	);

mul35_pro:
	mul35
	port map
	(
	mul35_in=>sel_tmp,
	mul35_out=>product5_tmp
	);

mul42_pro:
	mul42
	port map
	(
	mul42_in=>sel_tmp,
	mul42_out=>product6_tmp
	);

mul49_pro:
	mul49
	port map
	(
	mul49_in=>sel_tmp,
	mul49_out=>product7_tmp
	);	

mul56_pro:
	mul56
	port map
	(
	mul56_in=>sel_tmp,
	mul56_out=>product8_tmp
	);

product1<=product1_tmp;
product2<=product2_tmp;
product3<=product3_tmp;
product4<=product4_tmp;
product5<=product5_tmp;	
product6<=product6_tmp;
product7<=product7_tmp;
product8<=product8_tmp;

--cnt_pro:
--	process(clk,reset)
--		begin
--			if(reset='1')then
--				cnt<=0;
--			elsif(clk'event and clk='1')then
--				if(en_all='1')then
--					if cnt=511 then  -- *
--						cnt<=0;			 --*
--					else
--						cnt<=cnt+1;
--					end if;
--				end if;
--			end if;
--	end process;
--
--
--sel_proc:
--	process(clk)
--		begin
--			if(clk'event and clk='1')then
--				if cnt=0 then			  ---*---
--					en_sel<='1';
--				else
--					en_sel<='0';
--				end if;
--			end if;
--	end process;
													 
end Behavioral;