s_table.vhd
1982e730c89a77d50a1359f090fc16e829cbe7640e7ce5f2b9309e2e391f8fe2
---------|---------|---------|---------|---------|---------|---------|---------|
-- Author : Tom Vu
-- Date : 10/02/97
-- Description : Create table for lookup values of S function
-- Function : 6 inputs are used to lookup in the table and produce
-- 4 ouputs. There are a total of 8 tables
-- -----------------------------------------------------------------------------
library ieee;
use IEEE.std_logic_1164.all;
use IEEE.std_logic_arith.all;
use IEEE.std_logic_unsigned.all;
use ieee.std_logic_arith.conv_std_logic_vector;
-- -----------------------------------------------------------------------------
entity S_TABLE is
port( KEY : in std_logic_vector(47 downto 0);
S_OUT : out std_logic_vector(31 downto 0)
);
end S_TABLE;
-- -----------------------------------------------------------------------------
architecture beh of S_TABLE is
-- -----------------------------------------------------------------------------
subtype small_integer is INTEGER range 0 to 15;
type TABLE_TYPE is array(0 to 63) of small_integer;
signal S1 : TABLE_TYPE;
signal S2 : TABLE_TYPE;
signal S3 : TABLE_TYPE;
signal S4 : TABLE_TYPE;
signal S5 : TABLE_TYPE;
signal S6 : TABLE_TYPE;
signal S7 : TABLE_TYPE;
signal S8 : TABLE_TYPE;
-- -----------------------------------------------------------------------------
function lookup(signal table: in TABLE_TYPE;
signal key: in std_logic_vector(5 downto 0))
return std_logic_vector is
variable row : std_logic_vector(3 downto 0);
variable col : std_logic_vector(1 downto 0);
variable addr : std_logic_vector(5 downto 0);
variable index : integer;
variable result : std_logic_vector(3 downto 0);
begin
col:= key(5) & key(0);
row:= key(4 downto 1);
addr:= col & row;
index:= CONV_INTEGER(key);
result:= CONV_STD_LOGIC_VECTOR(table(index),4);
return result;
end lookup;
-- -----------------------------------------------------------------------------
begin
-- -----------------------------------------------------------------------------
S1 <= (13, 1, 2,15, 8,13, 4, 8, 6,10,15, 3,11, 7, 1, 4,
10,12, 9, 5, 3, 6,14,11, 5, 0, 0,14,12, 9, 7, 2,
7, 2,11, 1, 4,14, 1, 7, 9, 4,12,10,14, 8, 2,13,
0,15, 6,12,10, 9,13, 0,15, 3, 3, 5, 5, 6, 8,11);
S2 <= ( 4,13,11, 0, 2,11,14, 7,15, 4, 0, 9, 8, 1,13,10,
3,14,12, 3, 9, 5, 7,12, 5, 2,10,15, 6, 8, 1, 6,
1, 6, 4,11,11,13,13, 8,12, 1, 3, 4, 7,10,14, 7,
10, 9,15, 5, 6, 0, 8,15, 0,14, 5, 2, 9, 3, 2,12);
S3 <= (12,10, 1,15,10, 4,15, 2, 9, 7, 2,12, 6, 9, 8, 5,
0, 6,13, 1, 3,13, 4,14,14, 0, 7,11, 5, 3,11, 8,
9, 4,14, 3,15, 2, 5,12, 2, 9, 8, 5,12,15, 3,10,
7,11, 0,14, 4, 1,10, 7, 1, 6,13, 0,11, 8, 6,13);
S4 <= ( 2,14,12,11, 4, 2, 1,12, 7, 4,10, 7,11,13, 6, 1,
8, 5, 5, 0, 3,15,15,10,13, 3, 0, 9,14, 8, 9, 6,
4,11, 2, 8, 1,12,11, 7,10, 1,13,14, 7, 2, 8,13,
15, 6, 9,15,12, 0, 5, 9, 6,10, 3, 4, 0, 5,14, 3);
S5 <= ( 7,13,13, 8,14,11, 3, 5, 0, 6, 6,15, 9, 0,10, 3,
1, 4, 2, 7, 8, 2, 5,12,11, 1,12,10, 4,14,15, 9,
10, 3, 6,15, 9, 0, 0, 6,12,10,11, 1, 7,13,13, 8,
15, 9, 1, 4, 3, 5,14,11, 5,12, 2, 7, 8, 2, 4,14);
S6 <= (10,13, 0, 7, 9, 0,14, 9, 6, 3, 3, 4,15, 6, 5,10,
1, 2,13, 8,12, 5, 7,14,11,12, 4,11, 2,15, 8, 1,
13, 1, 6,10, 4,13, 9, 0, 8, 6,15, 9, 3, 8, 0, 7,
11, 4, 1,15, 2,14,12, 3, 5,11,10, 5,14, 2, 7,12);
S7 <= (15, 3, 1,13, 8, 4,14, 7, 6,15,11, 2, 3, 8, 4,14,
9,12, 7, 0, 2, 1,13,10,12, 6, 0, 9, 5,11,10, 5,
0,13,14, 8, 7,10,11, 1,10, 3, 4,15,13, 4, 1, 2,
5,11, 8, 6,12, 7, 6,12, 9, 0, 3, 5, 2,14,15, 9);
S8 <= (14, 0, 4,15,13, 7, 1, 4, 2,14,15, 2,11,13, 8, 1,
3,10,10, 6, 6,12,12,11, 5, 9, 9, 5, 0, 3, 7, 8,
4,15, 1,12,14, 8, 8, 2,13, 4, 6, 9, 2, 1,11, 7,
15, 5,12,11, 9, 3, 7,14, 3,10,10, 0, 5, 6, 0,13);
S_OUT <= lookup(S8,KEY(47 downto 42)) &
lookup(S7,KEY(41 downto 36)) &
lookup(S6,KEY(35 downto 30)) &
lookup(S5,KEY(29 downto 24)) &
lookup(S4,KEY(23 downto 18)) &
lookup(S3,KEY(17 downto 12)) &
lookup(S2,KEY(11 downto 6)) &
lookup(S1,KEY( 5 downto 0)) ;
-- -----------------------------------------------------------------------------
end beh;
-- -----------------------------------------------------------------------------