hb4.tdf

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

SUBDESIGN hb4
(
   clk,d[7..0]			:INPUT;
   q[3..0],sel      	:OUTPUT;
)

VARIABLE
   count:	DFF;
BEGIN
   count.clk=clk;
   sel=!count.q;
   
   IF(count.q==VCC) THEN
      count.d=GND;
   ELSE
      count.d=VCC;
   END IF;
   
   CASE count.q IS
      WHEN VCC =>
                q[]=d[7..4];
      WHEN GND =>
                q[]=d[3..0];
   END CASE;  
END;