-----------------------------------------------------------------------------------
-- unsigned2digits
--
-- Questo componente converte un unsigned compreso tra 0 e 99 nelle due
-- cifre BCD corrispondenti
------------------------------------------------------------------------------------

library IEEE;
  use IEEE.std_logic_1164.all;
  use IEEE.std_logic_arith.all;
  use IEEE.std_logic_unsigned.all;

entity unsigned2digits is
   port( n : in unsigned(5 downto 0);
         u : out unsigned(3 downto 0);
         d : out unsigned(3 downto 0) );
end unsigned2digits;


architecture A of unsigned2digits is
begin   

   process(n)
   begin
      if n<conv_unsigned(10,6) then
         d <= conv_unsigned(0,4);
         u <= n(3 downto 0);
      elsif n<conv_unsigned(20,6) then
         d <= conv_unsigned(1,4);
         u <= conv_unsigned(n-conv_unsigned(10,6), 4);
      elsif n<conv_unsigned(30,6) then
         d <= conv_unsigned(2,4);
         u <= conv_unsigned(n-conv_unsigned(20,6), 4);
      elsif n<conv_unsigned(40,6) then
         d <= conv_unsigned(3,4);
         u <= conv_unsigned(n-conv_unsigned(30,6) ,4);
      elsif n<conv_unsigned(50,6) then
         d <= conv_unsigned(4,4);
         u <= conv_unsigned(n-conv_unsigned(40,6), 4);
      elsif n<conv_unsigned(60,6) then
         d <= conv_unsigned(5,4);
         u <= conv_unsigned(n-conv_unsigned(50,6), 4);
      elsif n<conv_unsigned(70,6) then
         d <= conv_unsigned(6,4);
         u <= conv_unsigned(n-conv_unsigned(60,6), 4);
      elsif n<conv_unsigned(80,6) then 
         d <= conv_unsigned(7,4);
         u <= conv_unsigned(n-conv_unsigned(70,6), 4);
      elsif n<conv_unsigned(90,6) then
         d <= conv_unsigned(8,4);
         u <= conv_unsigned(n-conv_unsigned(80,6), 4);
      else 
         d <= conv_unsigned(9,4);
         u <= conv_unsigned(n-conv_unsigned(90,6), 4);
      end if;

   end process;

end A;


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