CRC校验检查

 x001: A(    
       L     #TEMP8                      //已校验字节数
       L     #TEMP3                      //设定字节数
       <=I   
       )     
       JNB   x005
       L     0                           //移位计数清零
       T     #TEMP5
 x005: NOP   0
       L     DBB [AR1,P#0.0]
       T     LB     9
       L     #TEMP5                      //TEMP5 INT 8.0
       L     #TEMP2
       XOW                               //异或处理
       T     #TEMP2
       +AR1  P#1.0                       //地址递增
       L     0
       T     #TEMP6                      //移位计数清零
 x002: L     #TEMP2                      //移位
       SRW   1
       JP    x003                        //若移出位数为1跳转X003
       JU    x004                        //否则无条件跳转XOO4

 x003: L     #TEMP2                      //与16A001异或
       L     W#16#A001
       XOW   
       T     #TEMP2
       JU    x004                        //跳转X004

 x004: A(    
       L     #TEMP6                      //移位计数
       L     1
       +I    
       T     #TEMP6
       )     
       A(                                //移位数与8比较
       L     #TEMP6
       L     8
       <I    
       )     
       JC    x002                        //若小于8跳转X002

       A(                                //校验字节数计数
       L     #TEMP8
       L     1
       +I    
       T     #TEMP8
       )     
       A(                                //校验字节数和设定字节数比较
       L     #TEMP8
       L     #TEMP3
       <I    
       )     
       JC    x001                        //跳转到X001继续校验下一字节
       L     LB     2
       T     #CRC_H
       L     LB     3
       T     #CRC_L

 
 问题补充：注明：TEMP2,INT,2.0