minute.tdf

几个VHDL实现的源程序及其代码

SUBDESIGN minute
(
   clk,reset,sethour,clk1		:INPUT;
   daout[6..0],enhour			:OUTPUT;
)

VARIABLE
   count[6..0],s,sh:	DFF;
BEGIN
   count[].clk=clk;
   count[].clrn=reset;
   daout[]=count[].q;
   s.clk=clk;
   s.clrn=reset;
   enhour=s.q;
   sh.clk=clk1;
   sh.prn=reset;
   sh.d=sethour;
   
   IF(!sh.q) THEN
       --   enhour=clk1;
   --ELSE
  enhour=s.q;
   END IF;
   if(sh.q) then
 enhour=sh.q;
end if;
   IF(count[3..0].q==9) THEN
        IF(count[].q!=H"59") THEN
           count[].d=count[].q+7;
        ELSE
           count[].d=0;
           s.d=VCC;
        END IF;
   ELSE
        count[].d=count[].q+1;
   END IF;
END;