Parität [ASM]

[neolithos]

Delphi-Quellcode:

function CheckXOr(var buf; iSize : Integer) : Integer;
// Errechnet die gerade Parität von 8 Bit-Blöcken
asm
  mov ecx, edx  // Size in Counter
  xor edx, edx  // edx = 0
  test ecx, ecx
  jz @@2     // Size = 0 -> Exit

@@1:
  xor dl, [eax + ecx - 1]
  loop @@1

@@2:
  mov eax, edx
end;