second.tdf

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

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(sh.q) then
     enmin=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;