23 lines
504 B
Markdown
23 lines
504 B
Markdown
|
|
```pascal
|
|
|
|
IF "CLK_0.2S" THEN
|
|
FOR #t := 0 TO 3 DO
|
|
IF "DBTEST".Count[#t] >= 128 THEN
|
|
"DBTEST".Count[#t + 1] := 1;
|
|
END_IF;
|
|
"DBTEST".Count[#t] := "DBTEST".Count[#t] * 2;
|
|
|
|
END_FOR;
|
|
|
|
IF "DBTEST".Count[0] + "DBTEST".Count[1] + "DBTEST".Count[2] + "DBTEST".Count[3] = 0 THEN
|
|
"DBTEST".Count[0] := 1;
|
|
END_IF;
|
|
END_IF;
|
|
|
|
"AB5" := "DBTEST".Count[0];
|
|
"Tag_2" := "DBTEST".Count[1];
|
|
"Tag_3" := "DBTEST".Count[2];
|
|
"Tag_4" := "DBTEST".Count[3];
|
|
|
|
``` |