(*Deklaracja koniecznych blokow funkcyjnych, ktore pomagaja w optymalizacji i konfiguracji urzadzenia*)
rtChange1(CLK:=xChange1 , Q=> );
rtChange2(CLK:=xChange2 , Q=> );
rtRESET(CLK:=xRESET, Q=> );
ftConfigBusy(CLK:=xCONFIG_BUSY , Q=> );

(*Parametryzacja bloku funkcyjnego zab. elektronicznego*)
FB_787_1662(
    xActive:=xACTIVE ,
    xConfig:=xCONFIG ,
    xChannel1Active:=xCH1_ACTIVE ,
    xChannel2Active:=xCH2_ACTIVE ,
    xS2_Input:=xS2_787_1662 ,
    xReset:=xRESET ,
    xDone=>xDONE ,
    xConfigBusy=>xCONFIG_BUSY ,
    typChannel1Status=>typCH1_STATUS,
    typChannel2Status=>typCH2_STATUS ,
    xS1_Output=>xS1_787_1662 );
(*Jesli nasze urzadzenie jest zajete (stwierdzane dzieki zadeklarowanemu wczesniej bloczkowi ) to nie mozna wykonac zadnych zmian w konfiguracji*)
(*oraz rowniez niemozliwa jest aktywacja kanalow*)
(*and it is also impossible to activate out channels *)
IF ftConfigBusy.Q THEN
    xCONFIG := FALSE;
    xChange1 := FALSE;
    xChange2 := FALSE;
END_IF

IF rtChange1.Q AND NOT xCONFIG_BUSY THEN
    IF typCH1_STATUS = 0 THEN
        xCH1_ACTIVE := FALSE;
        xCONFIG := TRUE;
    ELSIF typCH1_STATUS = 1 THEN
        xCH1_ACTIVE := TRUE;
        xCONFIG := TRUE;
    ELSE
        xCH1_ACTIVE := TRUE;
        xCONFIG := TRUE;
    END_IF
END_IF

IF rtChange2.Q AND NOT xCONFIG_BUSY THEN
    IF typCH2_STATUS = 0 THEN (*means ACTIVE*)
        xCH2_ACTIVE := FALSE;
        xCONFIG := TRUE;
    ELSE
        xCH2_ACTIVE := TRUE;
        xCONFIG := TRUE;
    END_IF
END_IF