readad.tdf

来自「DEMO2 数码管扫描显示电路/DEMO4 计数时钟 DEMO5 键盘扫描设计」· TDF 代码 · 共 23 行

SUBDESIGN readAD
(
   clk,reset		:INPUT;
   rdn	:OUTPUT;
)

VARIABLE
   enout[6..0],rdn:				DFF;
BEGIN
   rdn.clk=clk;
   rdn.prn=reset;
   enout[].clrn=reset;
   enout[].clk=clk;

   IF(enout[].q<100) THEN
     enout[].d=enout[].q+1;
	 rdn.d=GND;
   ELSE
     enout[].d=0;
     rdn.d=VCC;
   END IF;
END;