zoukankan      html  css  js  c++  java
  • 【Delphi内联汇编学习1】Delphi与汇编

     我一直认为Delphi功能与C++相比毫不逊色,提供了丰富的控件和类、全部API以及嵌入的汇编。最近小弟在把C版的Huffman压缩改用Delphi写时,顺便“研究”了一下Delphi的位操作和嵌入式汇编,利用嵌入汇编我们可以得到高效的程序代码,完成一些Delphi没有提供的底层功能。借贵报一方宝地与大家分享我的“研究”。

    1.Delphi的位操作

      每个学习C的朋友都会被告之C是“中级语言”,其位操作非常方便,而Pascal之流只适用于教学。但是Delphi中提供了一组位操作,可别以过去对Pascal的态度看Delphi。

    •   * 按位的逻辑操作:

      Delphi中的AND、OR、NOT可不仅仅只对逻辑表达式有作用,它们还可以操作数;

      AND:按位与,如:1 AND 2其结果为0

      OR:按位或,如:1 OR 2其结果为3

      Not:按位取反:如Not 1其结果对于有符号数是-2,对于无符号数是65534

      另外,还有按位异或XOR:如:1 XOR 2结果为3

    •   * 移位操作

      Delphi提供了SHL和SHR进行移位左移和右移:

      例如:2 SHR1表示2按位右移一位结果为1。

    •   * Delphi中的数

      既然有位的操作就一定涉及到数的类型:是有符号数(头一位用0和1表示正负)还是无符号数。

      Delphi中:Shortint(8位)、Smallint(16位)、Longint(32位)、Integer(32位)、Int64(64位)是有符号数;而Byte(8位)、Word(16位)、Longword(32位)是无符号数。它们之间可以像C一样强制转换。例如:Smallint类型的-1转换成Word类型就是65535。转换方法是Word(-1)。

      怎样,够全吧^_^!什么还不够……!?Delphi还有一招,接招吧……

     
    2.   Delphi的嵌入式汇编

      Delphi中提供了几乎全部常用汇编指令的支持:MOV、JE、JMP、CMP、SHL、SHR、SAL、SAR、POP、PUSH、HLT……自己去查吧。至于INT也能识别,不过非法操作或死机可别找我(在最早的Windows95中用Delphi 3似乎可以正确运行中断,但Windows 95 OEM、Windows 98就不对了,大概是16位模块的问题,还搞不清楚)。

    * 嵌入式汇编的格式

      Delphi是使用ASM……END来标志汇编语句

       如:ASM

       mov al,1

       mov bl,al

       END;

    * 可操作的寄存器

      Delphi可用汇编管理以下寄存器:

      32位寄存器    EAX EBX ECX EDX ESP EBP ESI EDI

      16位寄存器     AX BX CX DX SP BP SI DI

      8位寄存器      AL BL CL DL AH BH CH DH

       16位段寄存器CS DS SS ES

      以及协处理器寄存器堆栈 ST

    * 使用汇编前的工作

      教汇编的老师一再强调使用汇编要保存寄存器现场(保存使用前的寄存器状态,使用Push压栈和Pop从栈中弹出),不过这一切对于Delphi的嵌入式汇编是没有必要的(除非你自己要使用Push和Pop),因为Delphi已经帮你做了,不必担心会使数据丢掉。

    * Delphi嵌入式汇编的使用方式

      1.在一般函数过程中使用汇编

      汇编程序段可以嵌套于其它过程中:如:

      procedure TForm1.Button1Click(Sender: TObject);

      var i:smallint;

      begin

       i:=1;

       asm

       mov ax,i

       sal ax,1

       mov &i,ax

       end;

       showmessage(inttostr(i));

      end;

      这个程序段是把16位的变量I进行左移,然后把结果用Mov &I,ax语句放入I变量所在地址返回值。最后显示I 的值是2。

      2.独立的汇编程序段

      汇编程序段也可以单独写成函数或过程。这就涉及到参数的传递与结果的返回
     
      首先Delphi对于函数的返回有一个约定:

      即:整型数据:8位的用AL返回,16位的用AX返回,32位的用EAX返回;

             实型:用ST(0)返回

             指针:用EAX返回

             长字符串:用EAX返回其所在地址

              变量:可用@Result返回

      例如:一个用汇编的求和函数

      function _Sum(X, Y: Integer): Integer;

       asm

      MOV EAX,X //把32位的数放入EAX

      ADD EAX,Y //进行加法运算

      MOV @Result,EAX //返回X+Y

       end;

      一个把字符转化为大写的函数例子

      function _UpCase( ch : Char ) : Char;

      asm

       CMP AL,'a'

       JB @@exit

       CMP AL,'z'

       JA @@exit

       SUB AL,'a' -'A'

      @@exit:

      end;

      值得注意的是第二个例子中,没有象第一个那样把参数用语句放到寄存器中,这是由于Delphi中默认的把Byte(Char)类型放在AL中,不需要用Mov语句,但是这种函数不能是类的成员,否则结果会出错。

      3.在汇编中调用其它过程

      汇编语句中的Call语句,可以用于调用其它过程,既可以是其它汇编程序段也可以是Delphi中的标准过程:

      例如:假设新建一个窗体并在上面加了一个按钮,在Click事件中写入以下代码

      procedure TForm1.Button1Click(Sender: TObject);

      begin

       showmessage(`ok');

      end;

      再写一个过程_X

      function TForm1._x(var i:smallint):integer;

      asm

       call button1click

      end;

      执行_x的结果就可以显示消息框。

      * 汇编的调试

      编好了程序,没错,还好,如果有错,就得用到调试工具:如变量的跟踪、断点、堆栈查看……对于汇编还可以用View菜单的Debug Windows的CPU窗口跟踪。
     
     
     
    附代码:
    复制代码
    program Project1;

    {$APPTYPE CONSOLE}

    uses
    SysUtils;

    var
    a,b,c,d:Word;
    BYTE1:Byte;
    word1:Word;
    int1:Integer;

    (*------------------------------------------------------------------------*)

    function add2value(x1:Integer;x2:Integer):Integer ; (*用汇编写的函数*)
    asm
    mov eax,x1;
    add eax,x2;
    mov @result,eax; (* 返回值为 @result *)
    end;

    (*------------------------------------------------------------------------*)

    begin

    try
    { TODO -oUser -cConsole Main : Insert code here }
    asm
    mov a,'A';
    mov b,'B';
    mov c,'C';
    mov d,'D';

    end;
    Writeln(chr(a) + chr(b) + chr(c) + chr(d));

    BYTE1 := $FF;
    Writeln(BYTE1 and $0F);
    BYTE1 := $0F;
    Writeln(BYTE1 or $F0);

    word1 := 1;
    asm
    mov ax,word1
    sal ax,1 (*左移1位*)
    mov &word1,ax
    end;

    Writeln(' i = ' + IntToStr(word1));

    int1 := add2value(12,32);
    Writeln(int1);

    except
    on E: Exception do
    Writeln(E.ClassName, ': ', E.Message);
    end;

    readln;
    end.
    复制代码
    http://www.cnblogs.com/dabiao/archive/2011/07/17/2108956.html
  • 相关阅读:
    electron入坑指南
    记CSS格式化上下文
    Ruby安装Scss
    向量
    产生指定范围的随机数
    纯CSS 图片演示
    socket 函数
    C++网络套接字编程TCP和UDP实例
    技巧收藏
    伤心啊
  • 原文地址:https://www.cnblogs.com/findumars/p/5034714.html
Copyright © 2011-2022 走看看