Parität [ASM]

[flomei]

Zitat von neolithos:

Diese ist fuer das 32Bit Delphi. Und gibt zurueck, dass es sich um gerade Paritaet handelt.

Delphi-Quellcode:

function Parity(Value: Cardinal): Boolean;
asm
   TEST  EAX, EAX
   SETP  AL
end;

Das gleiche bloss fuer viele Pascal/Delphi Compiler

Delphi-Quellcode:

function Parity(Value: Cardinal): Boolean;
begin
  Value := (Value shr 16) xor (Value and $FFFF);
  Value := (Value shr  8) xor (Value and $00FF);
  Value := (Value shr  4) xor (Value and $000F);
  Value := (Value shr  2) xor (Value and $0003);
  Value := (Value shr  1) xor (Value and $0001);
  Result := Value <> 0;
end;

MfG Florian