```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];

```