Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Parität über 8 Bit (https://www.delphipraxis.net/16949-paritaet-ueber-8-bit.html)

neolithos 26. Feb 2004 08:56


Parität über 8 Bit
 
Wie kann man schnell die Parität über ein Byte berechnen?

Ich brauche even Parity.

Gibt es noch etwas anderes, wie jedes Bit durchgehen und die einsen zählen?

Sharky 26. Feb 2004 09:52

Re: Parität über 8 Bit
 
Hai neolithos,

ich bin zwar mit Asembler nicht mehr so vertraut aber es gibt doch JMP-Befehlt doch ein Flag dieses bei Parity = even auzuführen.

Hier mal eine Seite mit den 8086 Befehlen -> Jump

neolithos 26. Feb 2004 12:46

Re: Parität über 8 Bit
 
Danke!

Hät ich auch selber dran denken können!

Sharky 26. Feb 2004 19:21

Re: Parität über 8 Bit
 
Hat Dir der Tipp geholfen?

Wenn Ja: Wie ist denn deine Lösung?

neolithos 27. Feb 2004 08:00

Re: Parität über 8 Bit
 
Delphi-Quellcode:
function CalcEvenParity(dwData : Cardinal) : Integer;
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;
Gibt "Ergänzungswert" (wenn man das so nennt zurück)

Sharky 27. Feb 2004 08:07

Re: Parität über 8 Bit
 
:?: In beiden Fällen muss eine 0 ergänzt werden? :stupid:

neolithos 27. Feb 2004 08:08

Re: Parität über 8 Bit
 
Danke für den Hinweis!

Schnell in die CodeLib
und ÄNDERN

> Copy&PasteMISTake <


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz