; CRC-32 checksum calculation

.define checksum    dp+0 ; little-endian, complemented
.redefine dp        dp+4


; Initializes checksum module. Might initialize tables
; in the future.
init_crc:
     jr   reset_crc


; Clears CRC
; Preserved: BC, DE, HL
reset_crc:
     ld   a,$FF
     sta  checksum+0
     sta  checksum+1
     sta  checksum+2
     sta  checksum+3
     ret


; Updates current checksum with byte A
; Preserved: AF, BC, DE, HL
; Time: 237 cycles average
update_crc:
     ; 65 cycles + 8*cycles per bit
     ; min cycles per bit: 14
     ; max cycles per bit: 29
     push af
     push bc
     push de
     push hl
     
     ld   hl,checksum+3
     ld   b,(hl)
     dec  l
     ld   c,(hl)
     dec  l
     ld   d,(hl)
     dec  l
     xor  (hl)
     
     ld   h,8
-    srl  b
     rr   c
     rr   d
     rra
     jr   nc,+
     ld   e,a
     ld   a,b
     xor  $ED
     ld   b,a
     ld   a,c
     xor  $B8
     ld   c,a
     ld   a,d
     xor  $83
     ld   d,a
     ld   a,e
     xor  $20
+    dec  h
     jr   nz,-
     
     ld   h,>checksum
     ldi  (hl),a
     ld   (hl),d
     inc  l
     ld   (hl),c
     inc  l
     ld   (hl),b
     
     pop  hl
     pop  de
     pop  bc
     pop  af
     ret