Subversion Repositories xmatchpro

--This library is free software; you can redistribute it and/or

--modify it under the terms of the GNU Lesser General Public

--License as published by the Free Software Foundation; either

--version 2.1 of the License, or (at your option) any later version.

--This library is distributed in the hope that it will be useful,

--but WITHOUT ANY WARRANTY; without even the implied warranty of

--MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

--Lesser General Public License for more details.

--You should have received a copy of the GNU Lesser General Public

--License along with this library; if not, write to the Free Software

--Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

-- e_mail : j.l.nunez-yanez@byacom.co.uk

-----------------------------------

--  ENTITY       = CML_ASSEMBLER --

--  version      = 1.0           --

--  last update  = 9/09/99      --

--  author       = Jose Nunez    --

-----------------------------------

-- FUNCTION

-- assembles the match location / match type codes and literal characters into a single word

-- PIN LIST

-- CODE_A     = match location/type code (left justified)

-- LENGTH_A   = match location/type code length

-- CODE_B     = literal characters (left justified)

-- LENGTH_B   = length of literal characters

-- CODE_OUT   = assembled output code

-- LENGTH_OUT = output code length

library ieee,dzx;

use ieee.std_logic_1164.all;

use dzx.bit_arith.all;

entity CML_ASSEMBLER is

port

(

        CODE_A : in bit_vector(10 downto 0);

        LENGTH_A : in bit_vector(3 downto 0);

        CODE_B : in bit_vector(33 downto 0);

        LENGTH_B : in bit_vector(5 downto 0);

        CODE_OUT : out bit_vector(34 downto 0);

        LENGTH_OUT : out bit_vector(5 downto 0)

);

end CML_ASSEMBLER;

architecture SHIFTER of CML_ASSEMBLER is

begin

SHIFT : process ( CODE_A , CODE_B , LENGTH_A )

begin

case LENGTH_A is

    when "0000" => CODE_OUT <= CODE_B & '0';

    when "0001" => CODE_OUT <= CODE_A(10)           & CODE_B;

    when "0010" => CODE_OUT <= CODE_A(10 downto 9) & CODE_B(33 downto 1);

    when "0011" => CODE_OUT <= CODE_A(10 downto 8) & CODE_B(33 downto 2);

    when "0100" => CODE_OUT <= CODE_A(10 downto 7)  & CODE_B(33 downto 3);

    when "0101" => CODE_OUT <= CODE_A(10 downto 6)  & CODE_B(33 downto 4);

    when "0110" => CODE_OUT <= CODE_A(10 downto 5)  & CODE_B(33 downto 5);

    when "0111" => CODE_OUT <= CODE_A(10 downto 4)  & CODE_B(33 downto 6);

    when "1000" => CODE_OUT <= CODE_A(10 downto 3)  & CODE_B(33 downto 7);

    when "1001" => CODE_OUT <= CODE_A(10 downto 2)  & CODE_B(33 downto 8);

    when "1010" => CODE_OUT <= CODE_A(10 downto 1)  & CODE_B(33 downto 9);

    when "1011" => CODE_OUT <= CODE_A  & CODE_B(33 downto 10);

    when others => CODE_OUT <= "00000000000000000000000000000000000";

end case;

end process SHIFT;

LENGTH_OUT <= ("00" & LENGTH_A) + LENGTH_B;

end SHIFTER; -- end of architecture