mul38.vhd

在gf(2^13)中

--------------------------------------------------------------------------------
-- Company: 
-- Engineer:
--
-- Create Date:    10:11:47 04/09/08
-- Design Name:    
-- Module Name:    mul38 - 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 mul38 is
		port(mul38_in:in std_logic_vector(12 downto 0);	  --msb_lsb
	     	  mul38_out:out std_logic_vector(12 downto 0)
		  );
end mul38;

architecture Behavioral of mul38 is

begin

mul38_out(0)<=mul38_in(12) xor mul38_in(10) xor mul38_in(1) xor mul38_in(9) xor mul38_in(11) xor mul38_in(7) xor mul38_in(4) xor mul38_in(6) xor mul38_in(2) xor mul38_in(3);
mul38_out(1)<=mul38_in(8) xor mul38_in(0) xor mul38_in(9) xor mul38_in(1) xor mul38_in(5) xor mul38_in(6);
mul38_out(2)<=mul38_in(0) xor mul38_in(1) xor mul38_in(6) xor mul38_in(9) xor mul38_in(2) xor mul38_in(7) xor mul38_in(10);
mul38_out(3)<=mul38_in(8) xor mul38_in(4) xor mul38_in(9) xor mul38_in(12) xor mul38_in(6);
mul38_out(4)<=mul38_in(11) xor mul38_in(0) xor mul38_in(2) xor mul38_in(1) xor mul38_in(6) xor mul38_in(3) xor mul38_in(5) xor mul38_in(4) xor mul38_in(12);
mul38_out(5)<=mul38_in(5) xor mul38_in(2) xor mul38_in(12) xor mul38_in(7) xor mul38_in(4) xor mul38_in(6) xor mul38_in(1) xor mul38_in(3);
mul38_out(6)<=mul38_in(5) xor mul38_in(4) xor mul38_in(6) xor mul38_in(0) xor mul38_in(7) xor mul38_in(2) xor mul38_in(8) xor mul38_in(3);
mul38_out(7)<=mul38_in(3) xor mul38_in(0) xor mul38_in(1) xor mul38_in(6) xor mul38_in(8) xor mul38_in(9) xor mul38_in(5) xor mul38_in(4) xor mul38_in(7);
mul38_out(8)<=mul38_in(10) xor mul38_in(2) xor mul38_in(4) xor mul38_in(1) xor mul38_in(9) xor mul38_in(7) xor mul38_in(8) xor mul38_in(5) xor mul38_in(6);
mul38_out(9)<=mul38_in(5) xor mul38_in(2) xor mul38_in(0) xor mul38_in(6) xor mul38_in(3) xor mul38_in(7) xor mul38_in(8) xor mul38_in(10) xor mul38_in(9) xor mul38_in(11);
mul38_out(10)<=mul38_in(6) xor mul38_in(1) xor mul38_in(11) xor mul38_in(7) xor mul38_in(8) xor mul38_in(0) xor mul38_in(3) xor mul38_in(9) xor mul38_in(4) xor mul38_in(12) xor mul38_in(10);
mul38_out(11)<=mul38_in(0) xor mul38_in(1) xor mul38_in(8) xor mul38_in(4) xor mul38_in(7) xor mul38_in(10) xor mul38_in(9) xor mul38_in(5) xor mul38_in(11) xor mul38_in(2) xor mul38_in(12);
mul38_out(12)<=mul38_in(11) xor mul38_in(2) xor mul38_in(8) xor mul38_in(5) xor mul38_in(0) xor mul38_in(1) xor mul38_in(6) xor mul38_in(3) xor mul38_in(12) xor mul38_in(10) xor mul38_in(9);


end Behavioral;