ايران ويج

نسخه‌ی کامل: پشته در اسمبلی با دلفی
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
کد:
procedure TForm1.Button1Click(Sender: TObject);
var
  I,K,J:Word;
begin

Asm
MOV AX,10
PUSH AX

MOV AX,20
PUSH AX

MOV AX,30
PUSH AX
end;

Asm
POP I

POP K

POP J
end;

ShowMessage(IntToStr(I)+'   '+IntToStr(K)+'   '+IntToStr(J));
end;