Delphi und assembler

[Namenloser]

Okay, ich muss zugeben, ich finde den Fehler in euerm Code jetzt auf den ersten Blick auch nicht.
Es ist leider aufgrund der Sprünge gar nicht so einfach, den Code nachzuvollziehen oder in lesbarereren Pseudocode zu überühren.
Ich würde euch empfehlen, dass ihr euern Code mal Schritt für Schritt manuell durchgeht. Dabei solltet ihr alle folgenden Möglichkeiten berücksichtigen:

1. A > B > C
2. A > C > B
3. B > A > C
4. B > C > A
5. C > A > B
6. C > B > A

Alternativ könnt ihr natürlich auch mit dem Debugger den Code Schritt für Schritt durchlaufen.

Manchmal ist es auch sinnvoll, einfach noch mal komplett neu anzufangen, wenn man seinen Fehler nicht findet.

[Blup]

Nicht getestet:

Delphi-Quellcode:

asm
  MOV EAX, a
  MOV ECX, b
  MOV EDX, c

  CMP EAX, ECX
  JL @bgrosser  // a < b
  JG @agrosser  // a > b
//  JMP @ende
  JMP @amedian  // a = b

  @bgrosser:
  CMP ECX, EDX
  JL @bmedian      // a < b < c
//  JG @agrosser
  CMP EAX, EDX
  JG @amedian      // c < a < b
  MOV median, EDX  // a <= c < b
  JMP @ende

  @agrosser:
  CMP EAX, EDX
  JL @amedian      // b < a < c
//  JG @bgrosser
  CMP ECX, EDX
  JG @bmedian      // c < b < a
  MOV median, EDX  // b <= c < a
  JMP @ende

  @bmedian:
  MOV median, ECX
  JMP @ende

  @amedian:
  MOV median, EAX
  JMP @ende

  @ende:
end;