Parität [ASM]

[neolithos]

Für alle Delphi 8 User:

Delphi-Quellcode:

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
var dwParity : Cardinal;
    i : Integer;
begin
  dwParity := 0;
  for i := 0 to 31 do
      begin
        dwParity := dwParity xor (dwData and 1);
        bData := bData shr 1;
      end;
  Result := dwParity;
end;

Delphi-Quellcode:

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
var dwParity : Cardinal;
    i : Integer;
begin
  dwParity := 0;
  for i := 0 to 31 do
      begin
        dwParity := dwParity xor (dwData and 1);
        bData := bData shr 1;
      end;
  Result := not dwParity and 1;
end;