.TITLE CRC .GLOBL CRC POLYNO: .WORD 102010 BUFPNT: .WORD 0 .PSECT BDSCOM,RW,D,GBL,REL,OVR ZTMP: .BLKB 144. .EVEN .PSECT CRC: TST (R5)+ MOV @(R5)+,R4 CLR R1 MOV #ZTMP,BUFPNT 1$: MOVB @BUFPNT,R2 INC BUFPNT MOV POLYNO,R3 MOV #8.,R0 2$: CLC ROR R1 ROR R2 BVC 3$ XOR R3,R1 3$: SOB R0,2$ SOB R4,1$ MOV R1,@(R5) RTS PC .END