۱۶-فروردین-۱۳۹۱, ۰۵:۳۹:۵۳
کد:
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;