Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var test : Integer;
begin
test := 22;
// test wird der Wert 22 zugewiesen
asm
MOV EAX, test
// schreibe test in EAX
CDQ
// EAX wird auf 64 Bit erweitert
MOV ECX, 5
// schreibe 5 in ECX
IDIV ECX
// dividiere
MOV test, EAX
// schreibe Ergebnis zurück nach test
end;
ShowMessage(IntTosTr(test));
end;
da ich 22 durch 5 für komisch hielt, hab ichs gleich mal ausprobiert und kriegte sogar etwas noch komischereres raus: idiv führt scheinbar folgende operationen aus:
dec ecx;mov eax,ecx