second.tdf

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

SUBDESIGN second
(
   clk,reset,setmin 	:INPUT;
   daout[6..0],enmin	:OUTPUT;
)

VARIABLE
   count[6..0],s,sh:	DFF;
BEGIN
   count[].clk=clk;
   count[].clrn=reset;
   daout[]=count[].q;
   s.clk=clk;
   s.clrn=reset;
   enmin=s.q;
   sh.clk=clk;
   sh.prn=reset;
   sh.d=setmin;

   IF(!sh.q) THEN
      enmin=clk;
--   ELSE
--      enmin=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;