hour.tdf

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

SUBDESIGN hour
(
   clk,reset		:INPUT;
   daout[5..0]		:OUTPUT;
)

VARIABLE
   count[5..0]:	DFF;
BEGIN
   count[].clk=clk;
   count[].clrn=reset;
   daout[]=count[].q;
   
   IF(count[3..0].q==9) THEN
      count[].d=count[].q+7;
   ELSE
      IF(count[].q!=H"23") THEN
         count[].d=count[].q+1;
      end if;
   END IF;
END;