home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / arc20.arc / ARCMACS.ARC / ADDCRC.MAC next >
Encoding:
Text File  |  1989-10-18  |  511 b   |  26 lines
  1. ; 8-Bit-Wert zu 16-Bit-CRC-Summe hinzuf}gen, f}r Turbo
  2. ; 171089 Tilmann Reh
  3.     .z80
  4.  
  5.     extrn    crctab,crc,cod
  6.  
  7.     ld    hl,(crc)    ; Zeiger auf CRC
  8.     ld    e,(hl)
  9.     inc    hl
  10.     ld    d,(hl)        ; bisheriger CRC-Wert in DE
  11.     ld    a,(cod)
  12.     xor    e        ; lo(crc) xor cod
  13.     ld    c,a
  14.     ld    b,0        ; nach BC
  15.     ld    ix,crctab
  16.     add    ix,bc
  17.     add    ix,bc        ; Zeiger auf Wert in Tabelle
  18.     ld    a,(ix+1)
  19.     ld    (hl),a        ; High-Byte Ergebnis = High aus Tabelle
  20.     dec    hl
  21.     ld    a,(ix)
  22.     xor    d        ; hi(crc) xor lo(crctab(...))
  23.     ld    (hl),a        ; Low-Byte Ergebnis
  24.  
  25.     end
  26.