process(tclkin)
begin
if tclkin'event and tclkin = '0' then
if counter = "1111111111111111111111111" then
counter <= (others => '1');
elsif counter < "1111111111111111111111111" then
counter <= counter + '1';
else counter <= (others => '0');
end if;
end if;
end process;