Ja, ihr hab richtig gelesen, diesmal gehts um Assembler. Meine ersten Erfahrungen (
ASM betreffend) liegen ein paar Monate zurück, wegen einem Bekannten bin ich heute wieder dazu gekommen ein bisschen mehr herumzuspielen. Ich habe derzeit ein kleines Problem, und zwar mit dem Dividieren von zwei Ganzzahlen. Bei der Multiplikation mach ich des ja einfach so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
test : Integer;
begin
test := 7;
asm
MOV EAX,test
// <- lese test ein
IMUL EAX, 5
// <- multipliziere mit 5
MOV test, EAX
//<- schriebe Wert zurück in test
end;
ShowMessage(IntToStr(test));
end;
Deshalb vermutete ich das Dividieren verläuft ähnlich, folgendes habe ich versucht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
test : Integer;
begin
test := 20;
asm
MOV EAX,test
// <- lese test ein
MOV BH, 5
// <- teile BH 5 zu
IDIV BH
// <- dividiere durch 5
MOV test, EAX
//<- schriebe Wert zurück in test
end;
ShowMessage(IntToStr(test));
end;
Egal ob ich IDIV oder ein normales DIV nehme, als Ergebnis erhalte ich 5. 20 durch 5 ist bei mir aber 4, wieso bekomme ich dort 5 heraus? Bitte nehmt Rücksicht, bin absoluter Assembler-Anfänger.
Irgendwie steh ich gerade ziemlich auf dem Schlauch, weiß jemand was da los ist? Danke euch.