--------------------------------------------------------------------------------
-- Company: 
-- Engineer:
--
-- Create Date:    20:39:58 04/01/08
-- Design Name:    
-- Module Name:    mul128 - 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 mul128 is
port(
	mul128_in:in std_logic_vector(12 downto 0);	  --msb_lsb
	mul128_out:out std_logic_vector(12 downto 0)
	);
end mul128;

architecture Behavioral of mul128 is

begin

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

end Behavioral;