Сдвиг переменной влево и чтение ее 7-го разряда

[Dimensy]

Ну, если по картинке, то, вроде, так

Безымянный.png

А можно не морщить лоб и просто перевести код на картинке из LD в ST

function_block Shift_L //имя функционального блока.

    var_input //объявление входных переменных
       In1, In2 : bool; //входная переменная с типом данных bool
    end_var

    var_output //объявление выходных переменных
       Q : bool;
    end_var

    var //объявление локальных переменных
       RTrig : SYS.RTRIG; 
       Val: udint;
    end_var

    RTrig(I:= In1);
    if RTrig.Q then val := shl(Val,1); end_if
    if In1 and In2 then Val.0 := true; end_if
    Q := Val.7;
    
end_function_block