LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.all;
PACKAGE dp430spt IS
  -- Function to take an integer 0 to 15 and return the std_logic_vector of it  
  FUNCTION int2std4 (intval : integer) RETURN std_logic_vector; 
END dp430spt;

PACKAGE BODY dp430spt IS
  FUNCTION int2std4 (intval : integer) RETURN std_logic_vector IS
    VARIABLE rtnval : std_logic_vector(3 downto 0);
  BEGIN
    CASE intval IS
      WHEN 0 => rtnval := "0000";
      WHEN 1 => rtnval := "0001";
      WHEN 2 => rtnval := "0010";
      WHEN 3 => rtnval := "0011";
      WHEN 4 => rtnval := "0100";
      WHEN 5 => rtnval := "0101";
      WHEN 6 => rtnval := "0110";
      WHEN 7 => rtnval := "0111";
      WHEN 8 => rtnval := "1000";
      WHEN 9 => rtnval := "1001";
      WHEN 10 => rtnval := "1010";
      WHEN 11 => rtnval := "1011";
      WHEN 12 => rtnval := "1100";
      WHEN 13 => rtnval := "1101";
      WHEN 14 => rtnval := "1110";
      WHEN 15 => rtnval := "1111";
      WHEN OTHERS => rtnval := "0000";
    END CASE;
    RETURN rtnval;
  END;
  
END dp430spt;