PROCESS(CLK,RESET)
BEGIN
IF RESET='1' THEN
OLD<="0000000000000000";
SPD<="0000000000000001";
ELSIF CLK'EVENT AND CLK='1' THEN
IF CE1='1' THEN OLD<=IP;IP<=CNT;
END IF;
END IF;
END PROCESS;
CE1<=CLKA;
SPD<=IP-OLD;
SPD_OUT<=SPD;
PROCESS(CLK,RESET)
BEGIN
IF RESET='1' THEN
OLD<="0000000000000000";
SPD<="0000000000000001";
ELSIF CLK'EVENT AND CLK='1' THEN
IF CE1='1' THEN
OLD<=IP;
IP<=CNT;
SPD<=IP-OLD;
END IF;
END IF;
END PROCESS;
CE1<=CLKA;