初学Delphi嵌入汇编[10] - 函数返回值与寄存器

2016年07月27日 51 阅读

初学Delphi嵌入汇编[10] - 函数返回值与寄存器2012-04-12 博客园 万一返回类型寄存位置Char、ByteAL 寄存器SmallInt、WordAX 寄存器Integer、LongWord、AnsiString、Pointer、ClassEAX 寄存器Real48EAX 寄存器中是栈内返回值的指针Int64EDX、EAX 寄存器对Single、Double、Extended、Comp栈首寄存器 ST（0）短字符串或变体类型在@Result...

初学Delphi嵌入汇编[11] - 用汇编重写一个Delphi函数

2016年07月27日 51 阅读

初学Delphi嵌入汇编[11] - 用汇编重写一个Delphi函数2012-04-13 博客园 万一//Delphi 函数function DelphiFun（x: Integer）: Integer;begin Result := x * 2;end;//汇编函数, 和上面的函数是同样的功能function AsmFun（x: Integer）: Integer;asm add eax, eax {eax 可以获取第一个参数, 同时又是函数的返回值,...

初学Delphi嵌入汇编[12] - 在汇编代码中可以直接使用Result

2016年07月27日 47 阅读

初学Delphi嵌入汇编[12] - 在汇编代码中可以直接使用Result2012-04-13 博客园 万一//在汇编代码中使用 Resultfunction Fun（x: Integer）: Integer;asm mov ecx, &x dec ecx {汇编中的 dec 是减 1 指令, 和 Delphi 是一样的} mov @Result, ecx {在本例中去掉 @ 也可以, 暂时不知怎么回事}end;//测试procedure...

初学Delphi嵌入汇编[13] - 地址参数用 [] 取值

2016年07月27日 47 阅读

初学Delphi嵌入汇编[13] - 地址参数用 [] 取值2012-04-13 博客园 万一//关于地址参数（var/out）function Fun（var x,y: Integer）: Integer;asm mov eax, x {现在 eax 中只是 x 的地址} mov eax, [eax] { [eax] 是取值, 是不是类似于 P^ ？ } mov edx, y add eax, [edx]//mov @Result, eax ...

初学Delphi嵌入汇编[14] - 常量与变量在汇编中的一个区别

2016年07月27日 48 阅读

初学Delphi嵌入汇编[14] - 常量与变量在汇编中的一个区别2012-04-13 博客园 万一//常量可以在汇编语句中运算function Fun: Integer;const a = 11; b = 5;asm mov eax, a-bend;//测试procedure TForm1.Button1Click（Sender: TObject）;var i: Integer;begin i := Fun; ShowMessage（IntToStr（i...

初学Delphi嵌入汇编[15] - 需要保护的寄存器

2016年07月27日 55 阅读

初学Delphi嵌入汇编[15] - 需要保护的寄存器2012-04-13 博客园 万一前面提到 32 位的寄存器有: EAX EBX ECX EDX ESP EBP ESI EDI; 其中, EAX ECX EDX 是自由使用的.那么剩下的 EBX ESP EBP ESI EDI 五个寄存器就是应该保护的！所谓保护, 并不是不可以使用, 而是在使用前先把其中的值寄存在另外一个地方, 用 完后再恢复其值.如果不这样做, 有可能会发生意想不到的错误.举例:/...

初学Delphi嵌入汇编[16] - 进制的表示方法

2016年07月27日 42 阅读

初学Delphi嵌入汇编[16] - 进制的表示方法2012-04-14 cnblogs 万一关于进制:生活中有 7进制（星期）、60进制（小时）、10进制（算术）等等.计算机要用到 10进制、16进制、2进制和 8进制.8进制用得少了, 但也有, 譬如 Unix 服务器上的文件属性.2进制是计算机容易识别的; 10进制是人容易识别的, 据说 10进制源自于人有十个手 指.计算机为什么会使用 8进制和 16进制呢？ 因为: 23=8; 24=16; 这样比...

初学Delphi嵌入汇编[17] - 逻辑运算

2016年07月27日 49 阅读

初学Delphi嵌入汇编[17] - 逻辑运算2012-04-14 cnblogs 万一AND: 逻辑与指令 OR : 逻辑或指令 XOR: 逻辑异或指令 NOT: 逻辑非指令这和 Delphi 的逻辑命令完全一致.//逻辑非 Not:{not 1 = 0;not 0 = 1;}varByteNum: Byte;begin//赋值 11111111B （255） 取反:asmmov al, 11111111B {eax 包含 ax; ax 包含 al; a...

初学Delphi嵌入汇编[18] - SHL 与 SHR

2016年07月27日 47 阅读

初学Delphi嵌入汇编[18] - SHL 与 SHR2012-04-14 cnblogs 万一汇编中的SHL（左移）、SHR（右移）命令也是和 Delphi 一样的.var ByteNum: Byte;begin //右移 shr asm mov al, 10000000B {128} shr al, 1 {shr 10000000 一次会得到 01000000} mov ByteNum, al end; ShowMessage（IntT...

初学Delphi嵌入汇编[19] - Delphi 的无符号整数类型

2016年07月27日 49 阅读

初学Delphi嵌入汇编[19] - Delphi 的无符号整数类型2012-04-14 cnblogs 万一var B: Byte; W: Word; C: Cardinal;begin {Byte 是1字节（8位）无符号整型, 其最大值是 111111112} asm mov B, 11111111B; end; ShowMessage（IntToStr（B））; {255} {Word 是2字节（16位）无符号整型, 其最大值是 11111111 ...

初学Delphi嵌入汇编[20] - Delphi 的 Integer 类型

2016年07月27日 48 阅读

初学Delphi嵌入汇编[20] - Delphi 的 Integer 类型2012-04-14 cnblogs 万一varI: Integer;begin//Integer 类型是4字节（32位）有符号整数, 最高位是符号位, 如果是正数, 符号位 是 0、负数的符号位是1//所以 Integer 的最大值是: 01111111 11111111 11111111 111111112asmmov I, 01111111111111111111111111...

初学Delphi嵌入汇编[21] - Delphi 的其他整数类型

2016年07月27日 51 阅读

初学Delphi嵌入汇编[21] - Delphi 的其他整数类型2012-04-15万一除了 Byte、Word、Cardinal、Integer 外, Delphi 的整数类型还有:Longint、Longword、Shortint、Smallint、Int64其中 Longint 相当于 Integer; Longword 相当于 Cardinal. 这样还有三种类型:Shortint、Smallint、Int64//Shortint 是1字节（8位...

初学Delphi嵌入汇编[22] - 在汇编代码中使用记录

2016年07月27日 52 阅读

初学Delphi嵌入汇编[22] - 在汇编代码中使用记录2012-04-15 博客园 万一//自定义记录用于测试Type TMyRec = record i: Integer; c: Char; end;//在汇编中使用记录的过程procedure GetRec（Rec: TMyRec）;asm mov eax.TMyRec.i, 100 {eax 会接受第一个参数} mov eax.TMyRec.c, "M"end;//测试procedure TF...

初学Delphi嵌入汇编[23] - LOOP 循环

2016年07月27日 48 阅读

初学Delphi嵌入汇编[23] - LOOP 循环2012-04-15 博客园 万一//计算 x 的 n 次方的函数function Fun（x,n: Integer）: Integer;asm//mov eax, x {因为 eax 会先获取第一个参数, 这句可以省略} mov ecx, n {ecx 是个计数寄存器, 会记录循环的次数, 每循环一次 ecx 的值 就会减1} sub ecx, 1 @Lable1: add eax...

初学Delphi嵌入汇编[24] - 汇编语言的简单数据类型

2016年07月27日 47 阅读

初学Delphi嵌入汇编[24] - 汇编语言的简单数据类型2012-04-15 博客园 万一简单数据类型类型助记符助记符简写所占字节数数值范围字节BYTEDB10..255字WORDDW20..65535双字DWORDDD40..4294967295远字FWORDDF6 四字QWORDDQ8 十字节TBYTEDT10 有符号字节SBYTE 1-128..127有符号字SWORD 1-32768..32767有符号双字SDWORD 1-2147483648...

初学Delphi嵌入汇编[25] - 在汇编中调用函数

2016年07月27日 52 阅读

初学Delphi嵌入汇编[25] - 在汇编中调用函数2012-04-15 博客园 万一//准备一个在汇编中要调用的函数function DelphiFun（x,y: Integer）: Integer;begin Result := x + y;end;//汇编函数function AsmFun: Integer;asm mov eax, 1 {eax 对应函数的第一个参数, 这里给第一个参数赋值为 1} mov edx, 2 {edx 对应函数...

初学Delphi嵌入汇编[26] - 大小写字母转换

2016年07月27日 46 阅读

初学Delphi嵌入汇编[26] - 大小写字母转换2012-04-16 博客园 万一//小写字母转大写字母function Fun1（C: Char）: Char;asm sub C, 32//sub C, "a"-"A" {竟也可以这样写}end;//大写字母转小写字母function Fun2（C: Char）: Char;asm add C, 32end;//测试procedure TForm1.Button1Click（Sender: TObje...

初学Delphi嵌入汇编[27] - XCHG 指令: 交换寄存器的内容

2016年07月27日 57 阅读

初学Delphi嵌入汇编[27] - XCHG 指令: 交换寄存器的内容2012-04-16 博客园 万一//XCHG 指令: 交换寄存器的内容var x,y: Integer;begin x := 1; y := 9; asm mov eax, x mov ecx, y xchg eax, ecx {xchg 的参数必须至少一个是寄存器, 不能有 xchg x,y 类似的操作} mov x, eax mov y, ecx end; ShowMe...

初学Delphi嵌入汇编[28] - 把EAX的值置为0的三种方法与效率

2016年07月27日 53 阅读

初学Delphi嵌入汇编[28] - 把EAX的值置为0的三种方法与效率2012-04-16 博客园 万一//以下三个函数功能一样, 但效率不同{Fun1 需要读取常数 0, 最慢}function Fun1: Integer;asm mov eax, 0end;{Fun2 与 Fun3 只是操作 CPU 的寄存器, 比 Fun1 快}function Fun2: Integer;asm sub eax, eaxend;{Fun3 最快}function ...

初学Delphi嵌入汇编[29] - 寄存器所能接受的数值范围

2016年07月27日 63 阅读

初学Delphi嵌入汇编[29] - 寄存器所能接受的数值范围2012-04-16 博客园 万一譬如 EAX AX AH AL 四个储存器, 真实存在的其实只有一个 EAX, AX AH AL 不过是不同的 访问方式.11111111 11111111 11111111 11111111 : EAX11111111 11111111 11111111 11111111 : AX11111111 11111111 11111111 11111111 : AH...