erste Gehversuche in Delphi InlineASM

[sirius]

Ein Vorschlag für int64 (Rückgabe jetzt in eax und edx)

Delphi-Quellcode:

function fibo(n:integer):int64;
asm
  mov ecx,eax
  xor eax,eax
  xor edx,edx
  test ecx,ecx
  jz @end
  inc eax
  add ecx,-2
  jle @end
  push edi
  push esi
  mov edi,eax
  mov esi,edx

  @rep:
  push eax
  push edx
  add eax,edi
  adc edx,esi
  pop esi
  pop edi
  dec ecx
  jnz @rep

  pop esi
  pop edi
  @end:
end;