Pascal CRC 16
bidragsyter: SWAG SUPPORT TEAM product: {> Jeg leter etter kode for å beregne CRC32 av en rekke tegn
... Med mindre du CRCing en meget stor mengde. data, bør dette CRC-16 rutine
i. MERK: denne rutinen krever enten TP6 eller TP7 å kompilere. } Product: {Returner en 16-bit CRC nummer For binære data. }
Funksjon CRC16 (Var data; wo_Size: Word): Ord; assembler; Asm push-ds XOR dx, dx LDS si, data mov bx, wo_Size @ L1: XOR ah, ah lodsb mov cx, 8 SHL øks, cl xor dx, øks mov cx, 8 @ L2: SHL dx, en JNC @ L3 xor dx, $ 1021 @ L3: sløyfe @ L2 desember bx JNZ @ L1 pop ds mov ax, dx slutten; {CRC16. }