hb2.tdf

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

SUBDESIGN hb2
(
   clk,reset	:INPUT;
   daout[10..0]		:OUTPUT;
)

VARIABLE
   count[10..0]:	DFF;
BEGIN
   count[].clk=clk;
   count[].clrn=reset;
   daout[]=count[].q;

   IF(count[3..0].q==9) THEN
      IF(count[7..4].q==9) THEN
         count[].d=count[].q+H"67";
      ELSE
         count[].d=count[].q+7;
      END IF;
   ELSE
      IF(count[].q!=H"511") THEN
         count[].d=count[].q+1;
      end if;
   END IF;
END;