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

PACKAGE inc_time_package IS
	COMPONENT inc_time
		port(
		reset, clk, diff_m, diff_h   : in std_logic;
		min_in	: in std_logic_vector(5 downto 0);
		hr_in	: in std_logic_vector(4 downto 0);
		min_out	: out std_logic_vector(5 downto 0);
		hr_out	: out std_logic_vector(4 downto 0)
			);
	END COMPONENT;
END inc_time_package;


-- increment time
--

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

-- reset is to initialize the inc_time
-- diff_m is to indicate that user has set minute
-- diff_h is to indocate that user has set hour
-- min_in is the input minute from the set_time
-- hr_in is the input hr from the set_time
-- min_out is the output of the current minute
-- hr_out is the output of the current hour

entity inc_time is
	port(
		reset, clk, diff_m, diff_h   : in std_logic;
		min_in	: in std_logic_vector(5 downto 0);
		hr_in	: in std_logic_vector(4 downto 0);
		min_out	: out std_logic_vector(5 downto 0);
		hr_out	: out std_logic_vector(4 downto 0)
			);
end inc_time;

architecture behaviour of inc_time is

signal minute:	std_logic_vector(5 downto 0) := "000000";
signal hour:  	std_logic_vector(4 downto 0) := "00000";
 
begin


INC	:process(clk, diff_m, diff_h)
	
		variable m:  std_logic_vector(5 downto 0) := "000000";
		variable h:  std_logic_vector(4 downto 0) := "00000";
		type time_count is range 0 to 250;
		variable count:  time_count:=0;
		variable lm, lh : std_logic;

	begin
		if clk'EVENT and clk='1' then
			if reset = '1' then
				count := 0;
				m := "000000";		
				h := "00000";
				minute <= "000000";		
				hour <= "00000";
				lm := '1';
				lh := '1';
			elsif reset = '0' then
				lm := '0';
				lh := '0';
				if diff_m = '1' then
					m := min_in;
					minute <= m;
				end if;
				if diff_h = '1' then
					h := hr_in;
					hour <= h;
				end if;
				if lm = '0' and lh = '0' then	
					count := count + 1;		
				end if;
	
				if (lm = '0' and lh = '0' and count = 5) then
					count := 0;
					if m < "111011" then
						m := m+'1';
						minute <= m;
					elsif m = "111011" then
						m := "000000";
						minute <= m;
						if h = "10111" then
				  	  		h := "00000";
							hour <= h;
						else
				  	 	 	h := h + '1';
							hour <= h;
						end if;	
					end if;
				end if;		
			end if;
		end if;
	end process INC;

min_out <= minute;			
hr_out <= hour;

end behaviour;