如果固件支持，用gather，如果固件不支持，那么用循环+移位

我做了一个测试，

数据块1中建了bits[0..31] of bool和 bytes[0..3] of byte

FOR #i := 0 TO 31 DO
    #bit:=#i MOD 8;
    #byte := #i / 8;
    IF #bit = 0 THEN
        IF #byte <> 0 THEN
            "数据块_1".bytes[#byte - 1] := #ByteTemp;
        END_IF;
        #ByteTemp := 0;
    END_IF;
    #ByteTemp := SHR(IN := #ByteTemp, N := 1);
    #ByteTemp.%X7 := "数据块_1".bits[#i];
END_FOR;
"数据块_1".bytes[3] := #ByteTemp;