博途SCL S7-1200 MODBUS RTU CRC 校验功能块程序

#CRC := 16#FFFF;
FOR #字节循环 := 1 TO #数量 DO               
    #CRC := #CRC XOR #send[#字节循环-1];    
    FOR #位循环 := 1 TO 8 DO
        IF ((#CRC & 2#1) <> 1) THEN        
            #CRC := SHR(IN := #CRC, N := 1);
        ELSE                                
            #CRC := SHR(IN := #CRC, N := 1) XOR 16#A001;
        END_IF;                       
    END_FOR;
END_FOR;                        
#send[#数量] := #CRC & 16#00FF;
#CRC := SWAP(#CRC);             
#send[#数量 + 1] := #CRC & 16#00FF;

如有数组发送数量的需求，需要自行设置CRC功能块中SEND数组数量，功能块在主程序中的接口通道实参数组数量需要与形参数组数量相同，否则报错！！！！