[an error occurred while processing this directive]
|
В примерах MAX это было - по мотивам этих примеров:
ENTITY counters16 IS
PORT
( clk : IN BIT;
clear : IN BIT;
q : OUT INTEGER RANGE 0 TO 65535
);
END counters16;
ARCHITECTURE a OF counters16 IS
BEGIN
PROCESS (clk)
VARIABLE cnt : INTEGER RANGE 0 TO 65535;
BEGIN
IF (clear = '0') THEN
cnt:= 0;
ElsIF (clk'EVENT AND clk = '1') THEN
cnt := cnt + 1;
END IF;
q <= cnt;
END PROCESS;
END a;
E-mail: info@telesys.ru