process(clk)
begin
if counter = "<max_divisor>"
then
counter <= "0000";
else if clk = '1' and clk'event
then
counter <= counter + 1;
end if;
end if;
end process;
process(clk)
begin
if clk = '1' and clk'event
then
if counter = "0000"
then
newCLK <= NOT newCLKp;
end if;
end if;
end process;