Delphi und assembler

[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;