Ergebnis der Suchanfrage

• Forum: Library: Algorithmen

  Re: Parität [ASM]

    Delphi
    by neolithos, 27. Feb 2004
  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,
• Forum: Library: Algorithmen

  Re: Parität [ASM]

    Delphi
    by neolithos, 27. Feb 2004
  Für alle Delphi 8 User:
  
  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
• Forum: Library: Algorithmen

  Parität [ASM]

    Delphi
    by neolithos, 27. Feb 2004
  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