library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity qddl is
port(clk,work,clrn: in std_logic;
q ut std_logic;
);
end qddl;
architecture arch of qddl is
varible temp : inter range 0 to 3000;
begin
process(clk,work)
begin
if (clk'event and clk='1' and work='1') then
if clrn='0' then temp:=0;
elsif temp:=temp+1;
end if;
end if;
if temp=3000 then q<='1';
else q<='0';
end if;
end process;
end arch;