Pascal CRC 16
Contributeur: SWAG ÉQUIPE de SUPPORT
{
>I & #39 m de la recherche De code pour calculer le CRC32 d'une série de Caractères.
...à Moins que vous & #39 re CRCing une très grande quantité de données, ce CRC-16
routine doit faire.
NOTE: Cette routine exige soit TP6 ou MP7 pour compiler.
}
{ Return un CRC 16 bits nombre De données binaires. }
la Fonction Crc16(Données de la Var wo_Size : Word) : Mot Assembleur
Asm
push ds
xor dx, dx
lds si, de Données
mov bx, wo_Size
@L1:
xor ah, ah
lodsb
mov cx, 8
shl ax, cl
xor dx, ax
mov cx, 8
@L2:
shl dx, 1
cnp @L3
xor dx, $1021
@L3:
boucle @L2
dec bx
jnz @L1
pop ds
mov ax, dx
end { Crc16. }
Crc16
Crc16 : Plusieurs milliers de conseils pour vous faciliter la vie.
Pascal CRC 16
Contributeur: SWAG EQUIPE de SUPPORT
{
>I & #39 m de la recherche De code pour calculer le CRC32 d'une serie de Caracteres.
...a Moins que vous & #39 re CRCing une tres grande quantite de donnees, ce CRC-16
routine doit faire.
NOTE: Cette routine exige soit TP6 ou MP7 pour compiler.
}
{ Return un CRC 16 bits nombre De donnees binaires. }
la Fonction Crc16(Donnees de la Var wo_Size : Word) : Mot Assembleur
Asm
push ds
xor dx, dx
lds si, de Donnees
mov bx, wo_Size
@L1:
xor ah, ah
lodsb
mov cx, 8
shl ax, cl
xor dx, ax
mov cx, 8
@L2:
shl dx, 1
cnp @L3
xor dx, $1021
@L3:
boucle @L2
dec bx
jnz @L1
pop ds
mov ax, dx
end { Crc16. }
