minute.tdf

来自「各种VHDL的开发资料」· TDF 代码 · 共 36 行

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(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;