#字节 := 0;

#位 := 0;

FOR #字节:= 0 TO 3 DO

    FOR #位  := 0 TO 7 DO

        IF PEEK_BOOL(area := 16#84, dbNumber := 3, byteOffset := #字节, bitOffset := #位 ) = true AND

            PEEK_BOOL(area := 16#84, dbNumber := 4, byteOffset :=#字节, bitOffset :=#位 ) =False 

THEN

           M10.0:=true;          

        END_IF;

    END_FOR;

END_FOR;

在这个基础上再根据你的具体要求修改。