home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
ENTERPRS
/
CPM
/
UTILS
/
A
/
ARC20.ARC
/
ARCMACS.ARC
/
ADDCRC.MAC
next >
Wrap
Text File
|
1989-10-17
|
511b
|
26 lines
; 8-Bit-Wert zu 16-Bit-CRC-Summe hinzuf}gen, f}r Turbo
; 171089 Tilmann Reh
.z80
extrn crctab,crc,cod
ld hl,(crc) ; Zeiger auf CRC
ld e,(hl)
inc hl
ld d,(hl) ; bisheriger CRC-Wert in DE
ld a,(cod)
xor e ; lo(crc) xor cod
ld c,a
ld b,0 ; nach BC
ld ix,crctab
add ix,bc
add ix,bc ; Zeiger auf Wert in Tabelle
ld a,(ix+1)
ld (hl),a ; High-Byte Ergebnis = High aus Tabelle
dec hl
ld a,(ix)
xor d ; hi(crc) xor lo(crctab(...))
ld (hl),a ; Low-Byte Ergebnis
end