Begin
If CR='0' then
T<="0000";
Elsif rising_edge(clk) then
If LD='1' then
Case (ET and EP) is
When '1' => T<=T+1;
When others =>T<=T;
End case;
Else T<=D;
End if;
End if;