entity pelda_8 is

GENERIC (BIT_SZAM : natural :=8);

Port ( src_clk : in std_logic;

        reset : in std_logic;

         d : in std_logic_vector(BIT_SZAM-1

downto 0);

         q : out std_logic_vector(BIT_SZAM-1

downto 0)

);

end pelda_8;

architecture Behavioral of

pelda_8 is

begin

PROCESS

BEGIN

                               WAIT

ON src_clk, reset;

                               IF

(reset='1') THEN

                                               q

<="00000000";

                               ELSIF

(src_clk'EVENT AND src_clk='1') THEN

                                               q

<=d;

                               END

IF;

END PROCESS;

entity pelda_7 is

    Generic (BIT_SZAM :natural := 8);

    Port (sel: in std_logic_vector(2 downto 0);

          a : in std_logic;

          b : in std_logic;

          c : in std_logic;

          d : in std_logic;

          e : in std_logic;

          f : in std_logic;

          g : in std_logic;

          h : in std_logic;

          q : out std_logic);

end pelda_7;

architecture Behavioral of

pelda_7 is

begin

process (sel)

variable counter :

std_logic_vector(BIT_SZAM-1 downto 0);

begin

case (sel) is

when "000" =>

      q<=a;

when "001" =>

         q<=b;

when "010" =>

        q<=c;

when "011" =>

         q<=d;

when "100" =>

         q<=e;

when "101" =>

         q<=f;

when "110" =>

         q<=g;

when "111" =>

         q<=h;

when others =>

         q<='X';

end case;

end process;

end Behavioral;

entity pelda_7c is

    Generic (BIT_SZAM :natural := 8);

    Port (sel: in std_logic_vector(2 downto 0);

          a : in std_logic;

          b : in std_logic;

          c : in std_logic;

          d : in std_logic;

          e : in std_logic;

          f : in std_logic;

 --        

g : in std_logic;

--        h : in std_logic;

          q : out std_logic);

end pelda_7c;

architecture Behavioral of

pelda_7c is

begin

process (sel)

variable counter :

std_logic_vector(BIT_SZAM-1 downto 0);

begin

case (sel) is

when "000" =>

      q<=a;

when "001" =>

         q<=b;

when "010" =>

        q<=c;

when "011" =>

         q<=d;

when "100" =>

         q<=e;

when "101" =>

         q<=f;

when others => NULL;

end case;

end process;