process(clk, reset, load)
	begin
		if (reset = '1') then
			s_count <= (others => '0');
		elsif (load = '1') then
			flag <= '1';
		elsif (rising_edge(clk)) then
			if(flag = '1') then
				s_count <= unsigned(dataIn);
			end if;