CRC寄存器 := 16#FFFF ;
(*Z0 := 0 ;*)
序號:= 0 ;
(*temp[3]:=數量;*)
FOR CRC數量 := 3 TO 數量 BY 1 DO
(*MOV(M8000 , D20Z0 , CRC臨時);*)
CRC臨時:=接收源[序號];
(*temp[序號]:=接收源[序號];*)
WXOR( M8000, CRC臨時 , CRC寄存器 , CRC寄存器);
(*Z0:=Z0+1;*)
序號:=序號+1;
FOR 右移 := 0 TO 7 BY 1 DO
MOV( M8000 , CRC寄存器 , K4M10 );
ROR( M8000 , 1 , CRC寄存器 );
WAND( M8000 , 16#7FFF , CRC寄存器 , CRC寄存器 );
WXOR( M10 , 16#A001, CRC寄存器 , CRC寄存器 );
END_FOR;
END_FOR;
(*temp[2]:=CRC寄存器;*)
ST編程寫法