Частотомер

% Проект 30: частотомер (счёт импульсов за окно) %
SUBDESIGN ahdl_30_chastotomer
(
    clk, clrn : INPUT;
    fin       : INPUT;
    gate      : INPUT;   % окно измерения %
    latch     : INPUT;   % защёлкнуть результат %
    result[15..0] : OUTPUT;
)
VARIABLE
    cnt[15..0] : DFF;
    reg[15..0] : DFF;
    fs[1..0]   : DFF;
    fp         : DFF;
BEGIN
    cnt[].clk = clk; cnt[].clrn = clrn;
    reg[].clk = clk; reg[].clrn = clrn;
    fs[].clk  = clk; fs[].clrn  = clrn;
    fp.clk    = clk; fp.clrn    = clrn;

    fs[].d = (fs[0].q, fin);
    fp.d   = fs[1].q;

    IF !gate THEN
        cnt[].d = 0;
    ELSIF fs[1].q & !fp.q THEN
        cnt[].d = cnt[].q + 1;
    ELSE
        cnt[].d = cnt[].q;
    END IF;

    IF latch THEN
        reg[].d = cnt[].q;
    ELSE
        reg[].d = reg[].q;
    END IF;

    result[] = reg[].q;
END;