|
Registriert seit: 31. Jul 2003
Ort: Dresden
1.386 Beiträge
Delphi 7 Architect
|
Re: Parität über 8 Bit
27. Feb 2004, 09:00
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)
- ciao neo -
Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
|