function CalcEvenParity(dwData : Cardinal) : Integer;
// Gibt das Bit zurück um, welches eine Zahl ergänzt werden muss um auf die gerade Parität
// zu kommen
asm
  test eax, eax
  jpo @@1
  mov eax, 0 // even Parität also muss eine 0 ergänzt werden
  ret
@@1:
  mov eax, 1 // odd Parität also muss eine 1 ergänzt werden
end;

function CalcOddParity(dwData : Cardinal) : Integer;
// Gibt das Bit zurück um, welches eine Zahl ergänzt werden muss um auf die ungerade Parität
// zu kommen
asm
  test eax, eax
  jpe @@1
  mov eax, 0 // even Parität also muss eine 0 ergänzt werden
  ret
@@1:
  mov eax, 1 // odd Parität also muss eine 1 ergänzt werden
end;