初学Delphi嵌入汇编[1]

非科班出身, 现在才接触汇编, 惭愧呀, 好好学!

主选课本是清华大学王爽老师的《汇编语言》. 推荐 王爽老师的汇编网

------------------------------------------------------------------------- -------

汇编语言之前是机器语言.

机器语言是机器指令的集合, 机器指令是一系列二进制数字, 计算机将之转换为一系 列高低电平, 而实现运算.

在 PC 机上运行机器指令的是 CPU; 不同的 CPU 有不同的指令, 所以某种汇编语言 也只是针对某系列的 CPU.

王爽老师举了一个用机器语言输出 "welcome to masm" 的例子:

00011110
101110000000000000000000
01010000
101110001100011000001111
1000111011011000
1011010000000110
1011000000000000
1011011100000111
101110010000000000000000
1011011000011000
1011001001001111
1100110100010000
1011010000000010
1011011100000000
1011011000000000
1011001000000000
1100110100010000
1011010000001001
10001101000101100010101000000000
1100110100100001
1011010000001010
10001101000101100011000100000000
1100110100100001
1011010000000110
1011000000010100
1011011100011001
1011010100001011
1011000100010011
1011011000001101
1011001000111100
1100110100010000
1101010000000010
1101011100000000
1101000000001100
1101001000010100
1100110100010000
1011010000001001
10001101000101100000000000000000
1100110100100001
11001011

我怀着对计算机先人的无比崇敬, 把它给抄下来, 也不知对也不对.　

------------------------------------------------------------------------- -------

后来有了汇编, 譬如用:

mov ax,bx {在 Delphi 中相当于 ax := bx}

代替机器指令:

1000100111011000

这样更接近人类的思维; 但最终还是要有编译器把 mov ax,bx 翻译回 1000100111011000 才能被计算机接受.

时间： 2024-04-26 03:51:20

初学Delphi嵌入汇编[1]的相关文章

初学Delphi嵌入汇编[3]

前面知道了一个汇编的赋值指令(MOV), 再了解一个加法指令(ADD), 就可以做个例子 了. 譬如: ADD AX,BX; 这相当于 Delphi 中的 AX := AX + BX; 另外提前来个列表 - 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

初学Delphi嵌入汇编[21]

除了 Byte.Word.Cardinal.Integer 外, Delphi 的整数类型还有: Longint.Longword.Shortint.Smallint.Int64 其中 Longint 相当于 Integer; Longword 相当于 Cardinal. 这样还有三种类型: Shortint.Smallint.Int64//Shortint 是1字节(8位)有符号整数 var I: Shortint; begin //其最大值是: 011111112 asm mov I, 01

初学Delphi嵌入汇编[18]

汇编中的SHL(左移).SHR(右移)命令也是和 Delphi 一样的.var ByteNum: Byte; begin //右移 shr asm mov al, 10000000B {128} shr al, 1 {shr 10000000 一次会得到 01000000} mov ByteNum, al end; ShowMessage(IntToStr(ByteNum)); {64; shr 相当于 ÷2} //左移 shl asm mov al, 00000001B {1} shl al,

初学Delphi嵌入汇编[16]

关于进制: 生活中有 7进制(星期).60进制(小时).10进制(算术)等等. 计算机要用到 10进制.16进制.2进制和 8进制. 8进制用得少了, 但也有, 譬如 Unix 服务器上的文件属性. 2进制是计算机容易识别的; 10进制是人容易识别的, 据说 10进制源自于人有十个手 指. 计算机为什么会使用 8进制和 16进制呢? 因为: 23=8; 24=16; 这样比较容易和 2进 制换算. 从这里也能看出, 2进制和 10进制的换算相对复杂些. 下面例子中说明了进制的表示方法, 七个函数

初学Delphi嵌入汇编[12]

//在汇编代码中使用 Result function Fun(x: Integer): Integer; asm mov ecx, &x dec ecx {汇编中的 dec 是减 1 指令, 和 Delphi 是一样的} mov @Result, ecx {在本例中去掉 @ 也可以, 暂时不知怎么回事} end; //测试 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := 100; i := Fu

初学Delphi嵌入汇编[11]

//Delphi 函数function DelphiFun(x: Integer): Integer; begin Result := x * 2; end; //汇编函数, 和上面的函数是同样的功能function AsmFun(x: Integer): Integer; asm add eax, eax {eax 可以获取第一个参数, 同时又是函数的返回值, 所以可以如此 简洁!} end; //测试 DelphiFunprocedure TForm1.Button1Click(Sender

初学Delphi嵌入汇编[9]

//可以用 asm 代替 begin function Fun(x: Integer): Integer; asm mov eax, x inc eax end; { 汇编中的 inc 指令和 Delphi 中的 inc 是一样的; 本例也同时证明 eax 寄存器确实保存着函数的返回值. } procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := 8; i := Fun(i); ShowMessage(

初学Delphi嵌入汇编[6]

//在汇编中访问 Delphi 的变量可以使用 & 操作符 procedure Proc(str1,str2: string); var s1,s2: string; begin asm mov ecx, &str1 {} mov edx, &str2 mov &s1, ecx {} mov &s2, edx end; ShowMessage(s1 + s2); end; {在没有歧义的情况下, 操作符 & 是可以省略的, 譬如上面的例子就可以省略} //测

初学Delphi嵌入汇编[25]

//准备一个在汇编中要调用的函数 function DelphiFun(x,y: Integer): Integer; begin Result := x + y; end; //汇编函数 function AsmFun: Integer; asm mov eax, 1 {eax 对应函数的第一个参数, 这里给第一个参数赋值为 1} mov edx, 2 {edx 对应函数的第二个参数, 这里给第二个参数赋值为 2} call DelphiFun {call 是调用命令; 返回值在 eax} e