CRC校验汇编与VB子程

CRC校验VB与汇编程序
采用CRC-16，即2字节冗余循环码CRC，低字节在前。

CRC码由发端计算，放置于发送消息帧的尾部，接收端再重新计算接收到信息的CRC码，比较计算得到的CRC码是否与接收到的相符，若不符则表明出错。

CRC码的计算包括整个消息内容，计算时只用8位数据位，而起始位、停止位及可能的校验位均不参与CRC计算。

CRC校验可以100%检测出所有奇数个随机错误。

CRC-16校验可以检测出长度小于等于16的突发错误，可以保证在1014 bit码元中只含有1位未被检测出的错误。

CRC-16的具体算法有多种，以下是一个例子。

1.置16位寄存器为全1，作为CRC寄存器。

2.把一个8位数据与16位CRC寄存器的低字节相异或，把结果放于CRC寄存器中。

3.把寄存器的内容右移一位（朝低位），用0填补最高位，检查最低位（移出位）。

4.如果最低位为0，重复③（再移位）；如果最低位为1，CRC寄存器与多项式A001H（1010 0000 0000 0001）进行异或。

5.重复③、④，直到右移8次，这样整个8位数据全部进行了处理。

6.重复②－⑤，进行下一个8位数据的处理。

7.将一帧的所有数据字节处理完后得到CRC-16寄存器。

8.将CRC-16寄存器的低字节和高字节交换，得到的值即为CRC-16码。

CRC校验汇编子程：
算法如下：
//CRC校验子程序开始
crc_jiaoyan:
mov 20h,#0xff
mov 21h,#0xff
mov 12h,#0x0d
mov 11h,#0x08
mov r0,#0x34
zijiekaishi:
mov a,21h
xrl a,@r0
kaishi:
rrc a
mov 21h,a
mov 10h,c
clr c
mov a,20h
rrc a
mov 0fh,c
mov 20h,a
anl 20h,#0x7f
jnb 10h,next
xrl 21h,#0x01
xrl 20h,#0xa0
next:
mov a,21h
djnz 11h,kaishi
mov 11h,#0x08
inc r0
djnz 12h,zijiekaishi
mov 42h,20h
mov 41h,21h
ret
//CRC校验子程序结束
比如：
Dim SendStr() As Byte
SendStr(0) = 1 '从站号是1
SendStr(1) = &H3 '读多个字的命令代码
SendStr(2) = 0 '起始地址高字节
SendStr(3) = 0 '起始地址低字节
SendStr(4) = &H0 '数据长度高字节
SendStr(5) = &H9 '数据长度低字节
SendStr(6) =?校验高位
SendStr(7) =?校验低位
CRC校验VB子程
'CRC校验码的计算方法，如以下函数，可以得到字节数组变量cmdstring指向的字符串的CRC校验码。

Function crc16(ByRef cmdstring() As Byte, ByVal j As Integer)
Dim data As Integer
Dim i As Integer
Addressreg_crc = &HFFFF
For i = 0 To j
Addressreg_crc = Addressreg_crc Xor cmdstring(i)
For j = 0 To 7
data = Addressreg_crc And &H1
If data Then
Addressreg_crc = Int(Addressreg_crc / 2)
Addressreg_crc = Addressreg_crc And &H7FFF Addressreg_crc = Addressreg_crc Xor &HA001 Else
Addressreg_crc = Addressreg_crc / 2
Addressreg_crc = Addressreg_crc And &H7FFF End If
Next j
Next i
If Addressreg_crc < 0 Then
Addressreg_crc = Addressreg_crc - &HFFFF0000 End If
HiByte = Addressreg_crc And &HFF
LoByte = (Addressreg_crc And &HFF00) / &H100 End Function
'调用
Call crc16(SendStr,5)
SendStr(6) = HiByte
SendStr(7) = LoByte。