Lazarus调用汇编的简单例子

bugxiong

1. unit unt_asm;
   
2. {$mode objfpc}{$H+}
   
3. interface
   
4. uses
   
5.   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
   
6. type
   
7.   { TForm1 }
   
8.   TForm1 = class(TForm)
   
9.     btnGo: TButton;
   
10.     edtInput: TEdit;
    
11.     edtOutput: TEdit;
    
12.     Label1: TLabel;
    
13.     Label2: TLabel;
    
14.     procedure btnGoClick(Sender: TObject);
    
15.   private
    
16.     { private declarations }
    
17.   public
    
18.     { public declarations }
    
19.   end;
    
20. var
    
21.   Form1: TForm1;
    
22. implementation
    
23. { TForm1 }
    
24. 
    
25. procedure TForm1.btnGoClick(Sender: TObject);
    
26. var
    
27.   num, answer : integer;
    
28. begin
    
29.   num := StrToInt(edtInput.Text);
    
30.   //This is required with Lazarus on x86:
    
31.   {$ASMMODE intel}
    
32.   asm
    
33.     MOV EAX, num
    
34.     ADD EAX, 110B //add binary 110
    
35.     SUB EAX, 2    //subtract decimal 2
    
36.     MOV answer, EAX
    
37.   end;
    
38.   edtOutput.Text := IntToStr(answer);
    
39. end;
    
40. 
    
41. initialization
    
42.   {$I unt_asm.lrs}
    
43. end.

复制代码

xinqing_2013

学习了，谢谢。

xin1981116

你是怎么嵌入的啊，我怎么嵌不了呢，具体一些，谢谢

xin1981116

在wince下如何潜入汇编呢