mul_2_13.vhd

bch 编码和译码

--------------------------------------------------------------------------------
-- Company: 
-- Engineer:
--
-- Create Date:    10:37:13 04/14/08
-- Design Name:    
-- Module Name:    mul_2_13 - 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 mul_2_13 is
	port
	(
	  a:in std_logic_vector(12 downto 0);
	  b:in std_logic_vector(12 downto 0);
	  product:out std_logic_vector(12 downto 0)		
	);
end mul_2_13;

architecture Behavioral of mul_2_13 is

begin
product(0)<=(b(0) and a(0)) xor (b(3) and a(10)) xor (b(2) and a(11)) xor (b(1) and a(12)) xor (b(4) and a(9)) xor (b(5) and a(8)) xor (b(6) and a(7)) xor (b(7) and a(6)) xor (b(8) and a(5)) xor (b(9) and a(4)) xor (b(10) and a(3)) xor (b(10) and a(12)) xor (b(11) and a(2)) xor (b(11) and a(11)) xor (b(11) and a(12)) xor (b(12) and a(1)) xor (b(12) and a(10)) xor (b(12) and a(11));
product(1)<=(b(12) and a(12)) xor (b(1) and a(0)) xor (b(3) and a(11)) xor (b(3) and a(10)) xor (b(2) and a(12)) xor (b(2) and a(11)) xor (b(1) and a(12)) xor (b(4) and a(9)) xor (b(4) and a(10)) xor (b(5) and a(8)) xor (b(5) and a(9)) xor (b(6) and a(7)) xor (b(6) and a(8)) xor (b(7) and a(6)) xor (b(7) and a(7)) xor (b(8) and a(5)) xor (b(8) and a(6)) xor (b(9) and a(4)) xor (b(9) and a(5)) xor (b(10) and a(3)) xor (b(10) and a(4)) xor (b(10) and a(12)) xor (b(11) and a(2)) xor (b(11) and a(3)) xor (b(11) and a(11)) xor (b(12) and a(1)) xor (b(12) and a(2)) xor (b(12) and a(10)) xor (b(0) and a(1));
product(2)<=(b(3) and a(11)) xor (b(2) and a(12)) xor (b(1) and a(1)) xor (b(2) and a(0)) xor (b(3) and a(12)) xor (b(4) and a(10)) xor (b(4) and a(11)) xor (b(5) and a(9)) xor (b(5) and a(10)) xor (b(6) and a(8)) xor (b(6) and a(9)) xor (b(7) and a(7)) xor (b(7) and a(8)) xor (b(8) and a(6)) xor (b(8) and a(7)) xor (b(9) and a(5)) xor (b(9) and a(6)) xor (b(10) and a(4)) xor (b(10) and a(5)) xor (b(11) and a(3)) xor (b(11) and a(4)) xor (b(11) and a(12)) xor (b(12) and a(2)) xor (b(12) and a(3)) xor (b(12) and a(11)) xor (b(0) and a(2));
product(3)<=(b(12) and a(12)) xor (b(3) and a(10)) xor (b(2) and a(11)) xor (b(2) and a(1)) xor (b(1) and a(12)) xor (b(3) and a(0)) xor (b(1) and a(2)) xor (b(3) and a(12)) xor (b(4) and a(9)) xor (b(4) and a(11)) xor (b(4) and a(12)) xor (b(5) and a(8)) xor (b(5) and a(10)) xor (b(5) and a(11)) xor (b(6) and a(7)) xor (b(6) and a(9)) xor (b(6) and a(10)) xor (b(7) and a(6)) xor (b(7) and a(9)) xor (b(7) and a(8)) xor (b(8) and a(5)) xor (b(8) and a(7)) xor (b(8) and a(8)) xor (b(9) and a(4)) xor (b(9) and a(6)) xor (b(9) and a(7)) xor (b(10) and a(3)) xor (b(10) and a(5)) xor (b(10) and a(6)) xor (b(10) and a(12)) xor (b(11) and a(2)) xor (b(11) and a(4)) xor (b(11) and a(5)) xor (b(11) and a(11)) xor (b(11) and a(12)) xor (b(12) and a(1)) xor (b(12) and a(3)) xor (b(12) and a(4)) xor (b(12) and a(10)) xor (b(12) and a(11)) xor (b(0) and a(3));
product(4)<=(b(12) and a(12)) xor (b(3) and a(11)) xor (b(3) and a(10)) xor (b(3) and a(1)) xor (b(2) and a(12)) xor (b(2) and a(11)) xor (b(2) and a(2)) xor (b(1) and a(12)) xor (b(1) and a(3)) xor (b(0) and a(4)) xor (b(4) and a(0)) xor (b(4) and a(9)) xor (b(4) and a(10)) xor (b(4) and a(12)) xor (b(5) and a(8)) xor (b(5) and a(9)) xor (b(5) and a(11)) xor (b(5) and a(12)) xor (b(6) and a(7)) xor (b(6) and a(8)) xor (b(6) and a(10)) xor (b(6) and a(11)) xor (b(7) and a(6)) xor (b(7) and a(7)) xor (b(7) and a(9)) xor (b(7) and a(10)) xor (b(8) and a(5)) xor (b(8) and a(6)) xor (b(8) and a(8)) xor (b(8) and a(9)) xor (b(9) and a(4)) xor (b(9) and a(5)) xor (b(9) and a(7)) xor (b(9) and a(8)) xor (b(10) and a(3)) xor (b(10) and a(4)) xor (b(10) and a(6)) xor (b(10) and a(7)) xor (b(10) and a(12)) xor (b(11) and a(2)) xor (b(11) and a(3)) xor (b(11) and a(5)) xor (b(11) and a(6)) xor (b(11) and a(11)) xor (b(12) and a(1)) xor (b(12) and a(2)) xor (b(12) and a(4)) xor (b(12) and a(5)) xor (b(12) and a(10));
product(5)<=(b(3) and a(11)) xor (b(3) and a(2)) xor (b(2) and a(12)) xor (b(2) and a(3)) xor (b(5) and a(0)) xor (b(1) and a(4)) xor (b(3) and a(12)) xor (b(4) and a(1)) xor (b(4) and a(10)) xor (b(4) and a(11)) xor (b(5) and a(9)) xor (b(5) and a(10)) xor (b(5) and a(12)) xor (b(6) and a(8)) xor (b(6) and a(9)) xor (b(6) and a(11)) xor (b(6) and a(12)) xor (b(7) and a(7)) xor (b(7) and a(8)) xor (b(7) and a(10)) xor (b(7) and a(11)) xor (b(8) and a(6)) xor (b(8) and a(7)) xor (b(8) and a(9)) xor (b(8) and a(10)) xor (b(9) and a(5)) xor (b(9) and a(6)) xor (b(9) and a(8)) xor (b(9) and a(9)) xor (b(10) and a(4)) xor (b(10) and a(5)) xor (b(10) and a(7)) xor (b(10) and a(8)) xor (b(11) and a(3)) xor (b(11) and a(4)) xor (b(11) and a(6)) xor (b(11) and a(7)) xor (b(11) and a(12)) xor (b(12) and a(2)) xor (b(12) and a(3)) xor (b(12) and a(5)) xor (b(12) and a(6)) xor (b(12) and a(11)) xor (b(0) and a(5));
product(6)<=(b(12) and a(12)) xor (b(3) and a(3)) xor (b(2) and a(4)) xor (b(1) and a(5)) xor (b(6) and a(0)) xor (b(3) and a(12)) xor (b(4) and a(2)) xor (b(4) and a(11)) xor (b(4) and a(12)) xor (b(5) and a(1)) xor (b(5) and a(10)) xor (b(5) and a(11)) xor (b(6) and a(9)) xor (b(6) and a(10)) xor (b(6) and a(12)) xor (b(7) and a(9)) xor (b(7) and a(8)) xor (b(7) and a(11)) xor (b(7) and a(12)) xor (b(8) and a(7)) xor (b(8) and a(8)) xor (b(8) and a(10)) xor (b(8) and a(11)) xor (b(9) and a(6)) xor (b(9) and a(7)) xor (b(9) and a(9)) xor (b(9) and a(10)) xor (b(10) and a(5)) xor (b(10) and a(6)) xor (b(10) and a(8)) xor (b(10) and a(9)) xor (b(11) and a(4)) xor (b(11) and a(5)) xor (b(11) and a(7)) xor (b(11) and a(8)) xor (b(12) and a(3)) xor (b(12) and a(4)) xor (b(12) and a(6)) xor (b(12) and a(7)) xor (b(0) and a(6));
product(7)<=(b(3) and a(4)) xor (b(2) and a(5)) xor (b(1) and a(6)) xor (b(7) and a(0)) xor (b(4) and a(3)) xor (b(4) and a(12)) xor (b(5) and a(2)) xor (b(5) and a(11)) xor (b(5) and a(12)) xor (b(6) and a(1)) xor (b(6) and a(10)) xor (b(6) and a(11)) xor (b(7) and a(9)) xor (b(7) and a(10)) xor (b(7) and a(12)) xor (b(8) and a(8)) xor (b(8) and a(9)) xor (b(8) and a(11)) xor (b(8) and a(12)) xor (b(9) and a(7)) xor (b(9) and a(8)) xor (b(9) and a(10)) xor (b(9) and a(11)) xor (b(10) and a(6)) xor (b(10) and a(7)) xor (b(10) and a(9)) xor (b(10) and a(10)) xor (b(11) and a(5)) xor (b(11) and a(6)) xor (b(11) and a(8)) xor (b(11) and a(9)) xor (b(12) and a(4)) xor (b(12) and a(5)) xor (b(12) and a(7)) xor (b(12) and a(8)) xor (b(0) and a(7));
product(8)<=(b(3) and a(5)) xor (b(2) and a(6)) xor (b(1) and a(7)) xor (b(8) and a(0)) xor (b(0) and a(8)) xor (b(4) and a(4)) xor (b(5) and a(3)) xor (b(5) and a(12)) xor (b(6) and a(2)) xor (b(6) and a(11)) xor (b(6) and a(12)) xor (b(7) and a(1)) xor (b(7) and a(10)) xor (b(7) and a(11)) xor (b(8) and a(9)) xor (b(8) and a(10)) xor (b(8) and a(12)) xor (b(9) and a(8)) xor (b(9) and a(9)) xor (b(9) and a(11)) xor (b(9) and a(12)) xor (b(10) and a(7)) xor (b(10) and a(8)) xor (b(10) and a(10)) xor (b(10) and a(11)) xor (b(11) and a(6)) xor (b(11) and a(7)) xor (b(11) and a(9)) xor (b(11) and a(10)) xor (b(12) and a(5)) xor (b(12) and a(6)) xor (b(12) and a(8)) xor (b(12) and a(9));
product(9)<=(b(3) and a(6)) xor (b(2) and a(7)) xor (b(1) and a(8)) xor (b(9) and a(0)) xor (b(4) and a(5)) xor (b(5) and a(4)) xor (b(6) and a(3)) xor (b(6) and a(12)) xor (b(7) and a(2)) xor (b(7) and a(11)) xor (b(7) and a(12)) xor (b(8) and a(1)) xor (b(8) and a(10)) xor (b(8) and a(11)) xor (b(9) and a(9)) xor (b(9) and a(10)) xor (b(9) and a(12)) xor (b(10) and a(8)) xor (b(10) and a(9)) xor (b(10) and a(11)) xor (b(10) and a(12)) xor (b(11) and a(7)) xor (b(11) and a(8)) xor (b(11) and a(10)) xor (b(11) and a(11)) xor (b(12) and a(6)) xor (b(12) and a(7)) xor (b(12) and a(9)) xor (b(12) and a(10)) xor (b(0) and a(9));
product(10)<=(b(3) and a(7)) xor (b(2) and a(8)) xor (b(1) and a(9)) xor (b(10) and a(0)) xor (b(4) and a(6)) xor (b(5) and a(5)) xor (b(6) and a(4)) xor (b(7) and a(3)) xor (b(7) and a(12)) xor (b(8) and a(2)) xor (b(8) and a(11)) xor (b(8) and a(12)) xor (b(9) and a(1)) xor (b(9) and a(10)) xor (b(9) and a(11)) xor (b(10) and a(9)) xor (b(10) and a(10)) xor (b(10) and a(12)) xor (b(11) and a(8)) xor (b(11) and a(9)) xor (b(11) and a(11)) xor (b(11) and a(12)) xor (b(12) and a(7)) xor (b(12) and a(8)) xor (b(12) and a(10)) xor (b(12) and a(11)) xor (b(0) and a(10));
product(11)<=(b(6) and a(5)) xor (b(9) and a(12)) xor (b(2) and a(9)) xor (b(10) and a(11)) xor (b(12) and a(8)) xor (b(12) and a(9)) xor (b(8) and a(12)) xor (b(3) and a(8)) xor (b(12) and a(11)) xor (b(12) and a(12)) xor (b(9) and a(11)) xor (b(1) and a(10)) xor (b(11) and a(12)) xor (b(0) and a(11)) xor (b(10) and a(1)) xor (b(11) and a(0)) xor (b(4) and a(7)) xor (b(11) and a(9)) xor (b(10) and a(10)) xor (b(8) and a(3)) xor (b(11) and a(10)) xor (b(9) and a(2)) xor (b(7) and a(4)) xor (b(5) and a(6));
product(12)<=(b(10) and a(11)) xor (b(11) and a(11)) xor (b(4) and a(8)) xor (b(8) and a(4)) xor (b(5) and a(7)) xor (b(3) and a(9)) xor (b(12) and a(0)) xor (b(12) and a(10)) xor (b(12) and a(12)) xor (b(11) and a(10)) xor (b(0) and a(12)) xor (b(10) and a(2)) xor (b(6) and a(6)) xor (b(2) and a(10)) xor (b(7) and a(5)) xor (b(9) and a(12)) xor (b(10) and a(12)) xor (b(1) and a(11)) xor (b(9) and a(3)) xor (b(12) and a(9)) xor (b(11) and a(1));
end Behavioral;