count3600s.tdf

这个是个模拟红灯实验的

SUBDESIGN COUNT3600S
(
CLKIN  :INPUT;     %    1   Hz 计数脉冲 %
CLR    :INPUT;
CLKOUT :OUTPUT;    % 1/3600 Hz 计数脉冲 %
)
variable
count3600s[11..0]:dff;

begin

count3600s[].clk=CLKIN;

IF CLR THEN count3600s[].d=0;CLKOUT=VCC;
 
ELSE

if count3600s[].q==3599 then count3600s[].d=0; CLKOUT=VCC;
else count3600s[].d=count3600s[].q+1;
     CLKOUT=GND;
end if;

END IF;

end;