cnt_4.tdf

来自「实现QAM调制功能和QAM解调功能的代码.」· TDF 代码 · 共 24 行

SUBDESIGN cnt_4 
( 
  clk,d[3..0]:INPUT; 
  ena        :input=vcc; 
  load       :input=gnd; 
  clr        :input=gnd; 
q[3..0]      :OUTPUT; 
) 
VARIABLE 
    count[3..0]:DFF; 
BEGIN
  count[].clk=clk; 
  count[].clrn=!clr; 
  IF load THEN 
  count[].d=d[]; 
ELSE 
IF ena THEN 
count[].d=count[].q+1; 
ELSE 
count[].d=count[].q; 
  END IF; 
END IF; 
q[]=count[]; 
END;