library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

--  Uncomment the following lines to use the declarations that are
--  provided for instantiating Xilinx primitive components.
--library UNISIM;
--use UNISIM.VComponents.all;

entity HEX2LED_4 is
    Port ( HEX : in std_logic_vector(15 downto 0);
           LED1 : out std_logic_vector(6 downto 0);
           LED2 : out std_logic_vector(6 downto 0);
           LED3 : out std_logic_vector(6 downto 0);
           LED4 : out std_logic_vector(6 downto 0));
end HEX2LED_4;

architecture Behavioral of HEX2LED_4 is

begin
  --HEX-to-seven-segment decoder--   HEX:   in    STD_LOGIC_VECTOR (3 downto 0);--   LED:   out   STD_LOGIC_VECTOR (6 downto 0);-- -- segment encoding--      0--     ---  --  5 |   | 1--     ---   <- 6--  4 |   | 2--     -----      3       with HEX(3 downto 0) SELect   LED1<= "1111001" when "0001",   --1         "0100100" when "0010",   --2         "0110000" when "0011",   --3         "0011001" when "0100",   --4         "0010010" when "0101",   --5         "0000010" when "0110",   --6         "1111000" when "0111",   --7         "0000000" when "1000",   --8         "0010000" when "1001",   --9         "0001000" when "1010",   --A         "0000011" when "1011",   --b         "1000110" when "1100",   --C         "0100001" when "1101",   --d         "0000110" when "1110",   --E         "0001110" when "1111",   --F         "1000000" when others;   --0 	 with HEX(7 downto 4) SELect   LED2<= "1111001" when "0001",   --1         "0100100" when "0010",   --2         "0110000" when "0011",   --3         "0011001" when "0100",   --4         "0010010" when "0101",   --5         "0000010" when "0110",   --6         "1111000" when "0111",   --7         "0000000" when "1000",   --8         "0010000" when "1001",   --9         "0001000" when "1010",   --A         "0000011" when "1011",   --b         "1000110" when "1100",   --C         "0100001" when "1101",   --d         "0000110" when "1110",   --E         "0001110" when "1111",   --F         "1000000" when others;   --0

	with HEX(11 downto 8) SELect   LED3<= "1111001" when "0001",   --1         "0100100" when "0010",   --2         "0110000" when "0011",   --3         "0011001" when "0100",   --4         "0010010" when "0101",   --5         "0000010" when "0110",   --6         "1111000" when "0111",   --7         "0000000" when "1000",   --8         "0010000" when "1001",   --9         "0001000" when "1010",   --A         "0000011" when "1011",   --b         "1000110" when "1100",   --C         "0100001" when "1101",   --d         "0000110" when "1110",   --E         "0001110" when "1111",   --F         "1000000" when others;   --0

	with HEX(15 downto 12) SELect   LED4<= "1111001" when "0001",   --1         "0100100" when "0010",   --2         "0110000" when "0011",   --3         "0011001" when "0100",   --4         "0010010" when "0101",   --5         "0000010" when "0110",   --6         "1111000" when "0111",   --7         "0000000" when "1000",   --8         "0010000" when "1001",   --9         "0001000" when "1010",   --A         "0000011" when "1011",   --b         "1000110" when "1100",   --C         "0100001" when "1101",   --d         "0000110" when "1110",   --E         "0001110" when "1111",   --F         "1000000" when others;   --0
end Behavioral;