<code>
cnt_lir.data[] = 10000;
cnt_lir.aload = set_zero OR (refer AND en_refer);

-- определение момента изменения состояния ЛИРа
front = ((lst_lir0.q XOR lir0) OR (lst_lir1.q XOR lir1));

-- Сохранение прошлого состояния ЛИРа и тактирвоание счётчика
lst_lir[].d = lir[];
lst_lir[].clk = front;
cnt_lir.clock = !front;

-- устанавливем направление на весь такт
cnt_lir.updown = DFF(twrd, enbl AND empty,,);
code[3..2] = lst_lir[1..0].q; code[1..0] = lir[1..0];
TABLE
code[] => twrd, enbl;
0 => X, 0;
1 => 0, 1;
2 => 1, 1;
3 => X, 0;
4 => 1, 1;
5 => X, 0;
6 => X, 0;
7 => 0, 1;
8 => 0, 1;
9 => X, 0;
10 => X, 0;
11 => 1, 1;
12 => X, 0;
13 => 1, 1;
14 => 0, 1;
15 => X, 0;
END TABLE;

-- Перегрузка счетчика в выходной регистр
shft.enable = VCC;
shft.shiftin = GND;
shft.data[] = cnt_lir.q[];
shft.load = !front AND (shft_reset OR (refer AND en_refer));--!front AND (shft_reset OR (refer AND en_refer));
shft.clock = strob;
shiftout = shft.shiftout;
</code>

[code]
cnt_lir.data[] = 10000;
cnt_lir.aload = set_zero OR (refer AND en_refer);

-- определение момента изменения состояния ЛИРа
front = ((lst_lir0.q XOR lir0) OR (lst_lir1.q XOR lir1));

-- Сохранение прошлого состояния ЛИРа и тактирвоание счётчика
lst_lir[].d = lir[];
lst_lir[].clk = front;
cnt_lir.clock = !front;

-- устанавливем направление на весь такт
cnt_lir.updown = DFF(twrd, enbl AND empty,,);
code[3..2] = lst_lir[1..0].q; code[1..0] = lir[1..0];
TABLE
code[] => twrd, enbl;
0 => X, 0;
1 => 0, 1;
2 => 1, 1;
3 => X, 0;
4 => 1, 1;
5 => X, 0;
6 => X, 0;
7 => 0, 1;
8 => 0, 1;
9 => X, 0;
10 => X, 0;
11 => 1, 1;
12 => X, 0;
13 => 1, 1;
14 => 0, 1;
15 => X, 0;
END TABLE;

-- Перегрузка счетчика в выходной регистр
shft.enable = VCC;
shft.shiftin = GND;
shft.data[] = cnt_lir.q[];
shft.load = !front AND (shft_reset OR (refer AND en_refer));--!front AND (shft_reset OR (refer AND en_refer));
shft.clock = strob;
shiftout = shft.shiftout;
[/code]