;==========================================================
DATA_BUFF EQU 10H
CRC_NUM EQU 22H
CRC_DATA EQU 23H
CRC_POINTER EQU 30H
;==========================================================
CRC_XORH EQU 10H ;11021=2^16+2^12+2^5+1
CRC_XORL EQU 21H
;==========================================================
ORG 0000H
AJMP MAIN
MAIN: MOV CRC_DATA,#DATA_BUFF
MOV CRC_NUM,#3
ACALL CRC
AJMP MAIN
;==========================================================
; *****RC校验子程序*****
; 多项式=2^16+2^12+2^5+1=11021H
;CRC_DATA-----进行CRC校验的数据指针,保存需要进行CRC校验的数据首址
;CRC_POINTER--缓冲保存CRC校验数据首址
;CRC_NUM------保存所需进行CRC校验的字节数
;R7-----------所有进行CRC校验字节的位数，=(CRC_NUM+2)*8-16
;==========================================================
CRC: MOV R0,CRC_DATA
MOV R1,#CRC_POINTER
MOV R2,CRC_NUM
MOV A,CRC_NUM ;R7=CRC_NUM*8
ADD A,#2
RL A
RL A
RL A
CLR C
SUBB A,#16 ;CRC码为2个字节，16位
MOV R7,A
CRC1: MOV A,@R0 ;缓存原数据
MOV @R1,A
INC R0
INC R1
DJNZ R2,CRC1
CLR A ;在原数据后添加2个零字节
MOV @R1,A
INC R1
MOV @R1,A
CRC2: MOV A,#CRC_POINTER ;从最后一个字节开始左移一位
ADD A,CRC_NUM ;共有CRC_NUM+2个字节
ADD A,#1 ;最后一个数据地址为
MOV R0,A ;R0=CRC_POINTER+CRC_NUM+2-1
MOV A,CRC_NUM ;计算参与移位计算的字节数
ADD A,#2 ;保存在R1中
MOV R1,A ;R1=CRC_NUM+2
CLR C
CRC3: MOV A,@R0
RLC A
MOV @R0,A
DEC R0
DJNZ R1,CRC3 ;判断每移动一位，所有参与移位的字节是否移完
JNC CRC4 ;进行异或条件判断
MOV A,#CRC_XORH
XRL A,CRC_POINTER
MOV CRC_POINTER,A
MOV A,#CRC_XORL
XRL A,CRC_POINTER+1
MOV CRC_POINTER+1,A
CRC4: DJNZ R7,CRC2 ;判断移位是否结束
CRC_END:
RET
