LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE WORK.P_ALARM.ALL;
ENTITY DECODER IS 
   PORT(KEYPAD: IN  STD_LOGIC_VECTOR(9 DOWNTO 0);
   VALUE: OUT T_DIGITAL);
END ENTITY DECODER;
ARCHITECTURE ART OF DECODER IS
BEGIN
WITH KEYPAD SELECT
   VALUE <= 0  WHEN "0000000001",
        1  WHEN "0000000010", 
        2  WHEN "0000000100", 
        3  WHEN "0000001000", 
        4  WHEN "0000010000", 
        5  WHEN "0000100000", 
        6  WHEN "0001000000", 
        7  WHEN "0010000000", 
        8  WHEN "0100000000", 
        9  WHEN "1000000000", 
        0  WHEN OTHERS;
 END ARCHITECTURE ART;