汇编语言程序设计 实例详解

汇编语言编程实例一、引言汇编语言是计算机硬件和软件之间的桥梁，它是一种低级语言，可以直接控制计算机硬件。

汇编语言编程可以让程序员更加深入地理解计算机的工作原理，从而实现更高效的程序。

本文将介绍几个汇编语言编程实例，涉及到基本的输入输出、循环、条件判断、数组等知识点。

在这些实例中，我们将使用NASM汇编器进行编译和链接。

二、基本输入输出1. 输出字符串在汇编语言中，我们可以使用系统调用来进行输入输出操作。

在Linux 系统中，输出字符串的系统调用为write。

下面是一个输出字符串的示例程序：```section .datamsg db 'Hello, World!',0xa ;定义一个字符串len equ $-msg ;获取字符串长度section .textglobal _start_start:mov eax, 4 ;write系统调用号为4mov ebx, 1 ;文件描述符为1（标准输出）mov ecx, msg ;要输出的字符串地址mov edx, len ;要输出的字符数int 0x80 ;调用系统调用mov eax, 1 ;exit系统调用号为1xor ebx, ebx ;退出状态码为0int 0x80 ;调用系统调用退出程序```2. 输入数字类似地，在Linux系统中，输入数字的系统调用为read。

下面是一个输入数字的示例程序：```section .datamsg db 'Please enter a number: ',0xa ;提示信息len equ $-msg ;获取字符串长度buf resb 1 ;定义一个字节的缓冲区section .textglobal _start_start:mov eax, 4 ;write系统调用号为4mov ebx, 1 ;文件描述符为1（标准输出）mov ecx, msg ;要输出的字符串地址mov edx, len ;要输出的字符数int 0x80 ;调用系统调用mov eax, 3 ;read系统调用号为3mov ebx, 0 ;文件描述符为0（标准输入）mov ecx, buf ;缓冲区地址mov edx, 1 ;要读取的字节数int 0x80 ;调用系统调用sub al, '0' ;将ASCII码转换成数字值```三、循环和条件判断1. 计算1到100的和下面是一个计算1到100的和的示例程序，其中使用了循环和条件判断：```section .datasum dd 0 ;定义一个双精度浮点型变量sumsection .textglobal _start_start:xor eax, eax ;eax清零，作为计数器和累加器使用loop_start:inc eax ;eax自增1，相当于i++cmp eax, 100+1 ;比较i是否大于100，注意要加1je loop_end ;如果i等于101，跳转到loop_endadd dword [sum], eax ;将i加到sum中jmp loop_start ;跳转到loop_startloop_end:mov eax, dword [sum] ;将sum赋值给eax，作为返回值mov ebx, 1 ;exit系统调用号为1int 0x80 ;调用系统调用退出程序```2. 判断一个数是否为素数下面是一个判断一个数是否为素数的示例程序，其中使用了循环和条件判断：```section .datamsg db 'Please enter a number: ',0xa ;提示信息len equ $-msg ;获取字符串长度buf resb 1 ;定义一个字节的缓冲区section .textglobal _start_start:mov eax, 4 ;write系统调用号为4mov ebx, 1 ;文件描述符为1（标准输出）mov ecx, msg ;要输出的字符串地址mov edx, len ;要输出的字符数int 0x80 ;调用系统调用mov eax, 3 ;read系统调用号为3mov ebx, 0 ;文件描述符为0（标准输入）mov ecx, buf ;缓冲区地址mov edx, 1 ;要读取的字节数int 0x80 ;调用系统调用sub al, '0' ;将ASCII码转换成数字值check_prime:xor ebx, ebx ;ebx清零，作为除数使用mov ecx, eax ;将eax的值赋给ecx，作为被除数使用inc ebx ;将ebx自增1，相当于除数加1cmp ebx, ecx ;比较除数是否大于被除数jge is_prime ;如果除数大于等于被除数，跳转到is_prime xor edx, edx ;edx清零，作为余数使用div ebx ;将ecx/ebx的商放在eax中，余数放在edx中 cmp edx, 0 ;判断余数是否为0je not_prime ;如果余数为0，跳转到not_primejmp check_prime ;跳转到check_primenot_prime:mov eax, 4 ;write系统调用号为4mov ebx, 1 ;文件描述符为1（标准输出）mov ecx, not_prime_msg ;要输出的字符串地址mov edx, not_prime_len ;要输出的字符数int 0x80 ;调用系统调用exit:mov eax, 1 ;exit系统调用号为1xor ebx, ebx ;退出状态码为0int 0x80 ;调用系统调用退出程序not_prime_msg db 'The number is not prime.',0xa ;提示信息not_prime_len equ $-not_prime_msgis_prime:mov eax, 4 ;write系统调用号为4mov ebx, 1 ;文件描述符为1（标准输出）mov ecx, is_prime_msg ;要输出的字符串地址mov edx, is_prime_len ;要输出的字符数int 0x80 ;调用系统调用jmp exit ;跳转到exitis_prime_msg db 'The number is prime.',0xa ;提示信息is_prime_len equ $-is_prime_msg```四、数组1. 计算数组的和下面是一个计算数组的和的示例程序：```section .dataarr dd 1, 2, 3, 4, 5 ;定义一个双精度浮点型数组arrn equ ($-arr)/4 ;获取数组长度section .textglobal _start_start:xor eax, eax ;eax清零，作为计数器和累加器使用xor ecx, ecx ;ecx清零，作为数组下标使用loop_start:cmp ecx, n ;比较ecx是否大于等于njge loop_end ;如果ecx大于等于n，跳转到loop_endadd eax, dword [arr+ecx*4] ;将arr[ecx]加到eax中inc ecx ;将ecx自增1，相当于下标加1jmp loop_start ;跳转到loop_startloop_end:mov ebx, eax ;将sum赋值给ebx，作为返回值mov eax, 1 ;exit系统调用号为1xor ecx, ecx ;退出状态码为0int 0x80 ;调用系统调用退出程序```2. 查找数组中的最大值下面是一个查找数组中的最大值的示例程序：```section .dataarr dd 10,20,30,-40,-50,-60,-70,-80,-90,-100 ;定义一个双精度浮点型数组arrn equ ($-arr)/4 ;获取数组长度section .textglobal _start_start:mov eax, dword [arr] ;将arr[0]赋值给eax，作为最大值使用xor ecx, ecx ;ecx清零，作为数组下标使用loop_start:cmp ecx, n ;比较ecx是否大于等于njge loop_end ;如果ecx大于等于n，跳转到loop_endcmp eax, dword [arr+ecx*4] ;比较eax和arr[ecx]jge loop_next ;如果eax大于等于arr[ecx]，跳转到loop_next mov eax, dword [arr+ecx*4] ;将arr[ecx]赋值给eax，更新最大值loop_next:inc ecx ;将ecx自增1，相当于下标加1jmp loop_start ;跳转到loop_startloop_end:mov ebx, eax ;将max赋值给ebx，作为返回值mov eax, 1 ;exit系统调用号为1xor ecx, ecx ;退出状态码为0int 0x80 ;调用系统调用退出程序```五、总结本文介绍了几个汇编语言编程实例，涉及到基本的输入输出、循环、条件判断、数组等知识点。

汇编语言程序设计实例汇编语言是一种非常底层的编程语言，它允许程序员直接与计算机硬件进行交互。

汇编语言程序设计通常用于需要高性能或者对硬件有特定需求的场合。

以下是一些汇编语言程序设计的实例，以帮助理解其基本结构和应用。

实例一：数据传输在汇编语言中，数据传输是最基本的操作之一。

以下是一个简单的数据传输程序实例，它将一个立即数（即直接给出的数值）移动到寄存器中：```assemblymov ax, 1234h ; 将十六进制数1234h移动到ax寄存器```实例二：算术运算汇编语言支持基本的算术运算，如加法、减法、乘法和除法。

以下是一个进行加法运算的例子：```assemblymov ax, 5 ; 将数值5移动到ax寄存器add ax, 3 ; 将数值3加到ax寄存器中```实例三：条件跳转条件跳转是控制程序流程的重要手段。

以下是一个基于条件跳转的简单程序，它检查ax寄存器的值是否为0，并根据结果跳转到不同的代码段：```assemblymov ax, 0 ; 将数值0移动到ax寄存器jz zero ; 如果ax为0，则跳转到标签zero; 继续执行其他代码...zero:; 如果ax为0，执行这里的代码```实例四：循环结构循环结构在汇编语言中实现起来较为复杂，但可以通过重复使用跳转指令来模拟。

以下是一个简单的循环结构实例，它将ax寄存器的值减1，直到值为0：```assemblystart_loop:dec ax ; 将ax寄存器的值减1jnz start_loop ; 如果ax不为0，跳回start_loop```实例五：字符串处理汇编语言程序设计中，字符串处理是一个常见的任务。

以下是一个将字符串从源地址复制到目标地址的程序：```assemblymov si, source ; 将源字符串的地址移动到si寄存器mov di, dest ; 将目标地址移动到di寄存器mov cx, length ; 将字符串的长度移动到cx寄存器copy_loop:movsb ; 从si复制一个字节到diloop copy_loop ; 减少cx的值并重复循环直到cx为0```实例六：子程序调用在汇编语言中，子程序是一种将代码封装成模块化单元的方法。

1.汇编语言程序设计实验篇1.1.汇编系统软件简介Emu8086-Microprocessor Emulator是集源代码编辑器、汇编/反汇编工具以及debug 的模拟器。

它能模拟一台"虚拟"的电脑运行程序，拥有独立的“硬件”，避免访问真实硬件。

该软件兼容Intel的下一代处理器，包括PentiumII、Pentium4。

利用该软件提供的调试工具，能够单步跟踪程序，观察程序执行过程中寄存器、标志位、堆栈和内存单元的内容。

1.1.1创建程序 TEMPLATE程序本章与指令相关的实验都是用COM TEMPLATE类型的程序完成的。

打开emu8086，在“welcome…”对话框中，单击按钮，创建文件。

在“choose code template”对话框中，选择“COM template-simple and tiny executable file format, pure machine code.”后，单击按钮。

在如所示的编辑界面中，在“;add your code here”部分输入相应的指令，第一条指令默认的偏移地址为100h。

输入全部指令后，单击按钮，保存相应的程序段。

2.EXE TEMPLATE程序本章与DOS功能调用和汇编源程序相关的实验都是用EXE TEMPLATE程序完成的。

打开emu8086，在“welcome…”对话框中，单击按钮，创建文件。

在“choose code template”对话框中，选择“EXE template-advanced executable file.header: relocation, checksum.”后，单击按钮。

在如图所示的编辑界面中，已经可以给出了源程序的框架，包含数据段、堆栈段和代码段的定义以及必要的功能调用等，在“add your data here”和“;add your code here”部分可以分别输入相应的变量定义和指令。

盛年不重来，一日难再晨。

及时宜自勉，岁月不待人。

1.编写统计AX中1、0个数的源程序。

1的个数存入CH,0的个数存入CL。

CODE SEGMENTASSUME CS:CODESTART: MOV CX, 0MOV DX,17AA1: SUB DX, 1JZ AA3SHL AX, 1JNC AA2INC CHJMP AA1AA2: INC CLJMP AA1AA3: MOV AH,4CHINT 21HCODE ENDSEND START2.编写比较两个字符串STRING1和STRING2所含字符是否完全相同的源程序，若相同则显示“MATCH”，若不相同则显示“NO MATCH”。

程序：DATA SEGMENTR1 DB 'MATCH',0AH,0DHR2 DB 'NO MATCH',0AH,0DH STRING1 DB 'XXXXX'N1 EQU $-STRING1STRING2 DB 'YYYYY'N2 EQU $-STRING2DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START: MOV AX,DATAMOV DS,AXMOV AX,N1CMP AX,N2JNZ AA1ADD AX,1LEA SI,STRING1LEA DI,STRING2AA2: MOV BL,[SI]MOV BH,[DI]INC SIINC DISUB AX,1JZ AA3CMP BL,BH JZ AA2JMP AA1AA3: LEA BX,R1 MOV CX,7 AA4: MOV DL,[BX] INC BXMOV AH,2INT 21HLOOP AA4JMP EAA1: LEA BX,R2 MOV CX,10 AA5: MOV DL,[BX] INC BXMOV AH,2INT 21HLOOP AA5INT 21HCODE ENDSEND START3.从键盘读入一个四位的十六进制数，CRT显示等值的二进制数.由于每个十六进制数位对应4个二进制，所以每读入一个十六进制位后，即可将其对应的4个二进制位依次输出。

汇编语言典型例子详解经典汇编程序案例汇编语言是一种低级程序设计语言，它直接操作计算机的硬件资源，为计算机执行指令提供了底层的支持。

在计算机发展的早期阶段，汇编语言是主要的编程语言之一，它的应用广泛而重要。

本文将详细解析汇编语言的典型例子，并结合经典的汇编程序案例进行详细讲解。

1. 汇编语言的介绍汇编语言是一种接近机器指令的低级语言，它使用助记符将机器语言表示成易于理解和编写的形式。

与高级语言相比，汇编语言更加底层，可以直接操作计算机的寄存器、内存等硬件资源。

汇编语言的执行速度快，对硬件资源的控制更为精确，因此在一些对性能要求较高的应用中仍然得到广泛应用。

2. 经典汇编程序案例：斐波那契数列斐波那契数列是一个经典的数学问题，定义如下：第一个数为0，第二个数为1，从第三个数开始，每个数都等于前两个数之和。

用数学公式表示就是：Fn = Fn-1 + Fn-2。

现在我们将通过汇编语言来实现斐波那契数列的计算。

首先，我们需要定义一段连续的内存空间用来存储计算结果。

假设我们使用存储器的地址0x1000开始的连续10个字节的空间来保存斐波那契数列的前10个数字。

我们可以使用寄存器来保存地址0x1000，并使用另一个寄存器来保存计算结果。

下面是具体的汇编代码：```MOV AX, 0x1000 ; 将地址0x1000存入寄存器AXMOV BX, 0 ; 初始化计数器BX为0MOV CX, 1 ; 初始化计数器CX为1MOV DX, 0 ; 初始化计算结果DX为0LOOP_START:MOV [AX+BX], DX ; 将计算结果存入内存空间ADD DX, CX ; 计算下一个数XCHG DX, CX ; 交换计算结果和前一个数INC BX ; 计数器加1CMP BX, 10 ; 判断是否计算完成JL LOOP_START ; 如果计数器小于10，继续循环```以上是一个简单的汇编程序实例，通过循环计算并保存斐波那契数列的前10个数字。

51单片机汇编语言及C语言经典实例实验及课程设计一、闪烁灯如图1 所示为一简单单片机系统原理图：在P1.0 端口上接一个发光二极管L1，使L1 在不停地一亮一灭，一亮一灭的时间间隔为0.2 秒。

延时程序的设计方法，作为单片机的指令的执行的时间是很短，数量大微秒级，因此，我们要求的闪烁时间间隔为0.2 秒，相对于微秒来说，相差太大，所以我们在执行某一指令时，插入延时程序，来达到我们的要求，但这样的延时程序是如何设计呢？下面具体介绍其原理：如图4.1.1 所示的石英晶体为12MHz，因此，1 个机器周期为 1 微秒，机器周期微秒如图 1 所示，当P1.0 端口输出高电平，即P1.0＝1 时，根据发光二极管的单向导电性可知，这时发光二极管L1 熄灭；当P1.0 端口输出低电平，即P1.0＝0 时，发光二极管L1 亮；我们可以使用SETB P1.0 指令使P1.0端口输出高电平，使用CLR P1.0 指令使P1.0 端口输出低电平。

C 语言源程序#include <AT89X51.H>sbit L1=P1^0;void delay02s(void) //延时0.2 秒子程序{unsigned char i,j,k;for(i=20;i>0;i--)for(j=20;j>0;j--)for(k=248;k>0;k--);}void main(void){while(1){L1=0;delay02s();L1=1;delay02s();}汇编源程序ORG 0START: CLR P1.0LCALL DELAYSETB P1.0LCALL DELAYLJMP START DELAY: MOV R5,#20 ;延时子程序，延时0.2 秒D1: MOV R6,#20D2: MOV R7,#248DJNZ R7,$DJNZ R6,D2DJNZ R5,D1RETEND图2 程序设计流程图图1 单片机原理图二、多路开关状态指示如图 3 所示，AT89S51 单片机的 P1.0－P1.3 接四个发光二极管 L1－L4，P1.4－P1.7 接了四个开关 K1－K4，编程将开关的状态反映到发光二极管上。

汇编语言编程实例一这一章,我们要把我们已学的知识集合起来。

具体来讲,我们来写一个使用ODBC APIs的程序.为简单起见,这个程序中我使用Microsoft的Access数据库(Microso ft Access 97) .注意:如果你使用的windows.inc 是1.18及其以下版本,在开始编译之前要修改其中的一个小bug.在windows.inc中查找 "SQL_NULL_HANDLE"，将得到下面这行:SQL_NULL_HANDLE equ 0L将0后面的"L"删除,象这样:SQL_NULL_HANDLE equ 0这个程序是一个基于对话框的程序，有一个简单的菜单.当用户选择"connect"时,它将试图连接test.mdb数据库,如果连接成功,将显示由ODBC驱动程序返回的完整连接字符串.接下来,用户可选择"View All Records"命令,程序会使用listview control来显示数据库中的所有数据.用户还可以选择"Query"命令来查询特定的记录.例子程序将会显示一个小对话框提示用户输入想找的人名.当用户按下OK钮或回车键,程序将执行一个查询来查找符合条件的记录.当用户完成对数据库的操作时,可以选择"disconnect"命令与数据库断开连接.现在看一下源程序:.386.model flat,stdcallinclude \masm32\include\windows.incinclude \masm32\include\kernel32.incinclude \masm32\include\odbc32.incinclude \masm32\include\comctl32.incinclude \masm32\include\user32.incincludelib \masm32\lib\odbc32.libincludelib \masm32\lib\comctl32.libincludelib \masm32\lib\kernel32.libincludelib \masm32\lib\user32.libIDD_MAINDLG equ 101IDR_MAINMENU equ 102IDC_DATALIST equ 1000IDM_CONNECT equ 40001IDM_DISCONNECT equ 40002IDM_QUERY equ 40003IDC_NAME equ 1000IDC_OK equ 1001IDC_CANCEL equ 1002IDM_CUSTOMQUERY equ 40004IDD_QUERYDLG equ 102DlgProc proto hDlg:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORDQueryProc proto hDlg:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD SwitchMenuState proto :DWORDODBCConnect proto :DWORDODBCDisconnect proto :DWORDRunQuery proto :DWORD.data?hInstance dd ?hEnv dd ?hConn dd ?hStmt dd ?Conn db 256 dup(?)StrLen dd ?hMenu dd ? ; 主菜单句柄hList dd ? ; listview control句柄TheName db 26 dup(?)TheSurname db 26 dup(?)TelNo db 21 dup(?)NameLength dd ?SurnameLength dd ?TelNoLength dd ?SearchName db 26 dup(?)ProgPath db 256 dup(?)ConnectString db 1024 dup(?).dataSQLStatement db "select * from main",0WhereStatement db " where name=?",0strConnect db "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=",0 DBName db "test.mdb",0ConnectCaption db "Complete Connection String",0Disconnect db "Disconnect successful",0AppName db "ODBC Test",0AllocEnvFail db "Environment handle allocation failed",0 AllocConnFail db "Connection handle allocation failed",0 SetAttrFail db "Cannot set desired ODBC version",0NoData db "You must type the name in the edit box",0ExecuteFail db "Execution of SQL statement failed",0ConnFail db "Connection attempt failed",0AllocStmtFail db "Statement handle allocation failed",0Heading1 db "Name",0Heading2 db "Surname",0Heading3 db "Telephone No.",0.codestart:invoke GetModuleHandle, NULLmov hInstance,eaxcall GetProgramPathinvoke DialogBoxParam, hInstance, IDD_MAINDLG,0,addr DlgProc,0invoke ExitProcess,eaxinvoke InitCommonControlsDlgProc proc hDlg:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD.if uMsg==WM_INITDIALOGinvoke GetMenu, hDlgmov hMenu,eaxinvoke GetDlgItem, hDlg, IDC_DATALISTmov hList,eaxcall InsertColumn.elseif uMsg==WM_CLOSEinvoke GetMenuState, hMenu, IDM_CONNECT,MF_BYCOMMAND.if eax==MF_GRAYEDinvoke ODBCDisconnect, hDlg.endifinvoke EndDialog,hDlg, 0.elseif uMsg==WM_COMMAND.if lParam==0mov eax,wParam.if ax==IDM_CONNECTinvoke ODBCConnect,hDlg.elseif ax==IDM_DISCONNECTinvoke ODBCDisconnect,hDlg.elseif ax==IDM_QUERYinvoke RunQuery,hDlg.elseif ax==IDM_CUSTOMQUERYinvoke DialogBoxParam, hInstance, IDD_QUERYDLG,hDlg, addr QueryProc, 0 .endif.endif.elsemov eax,FALSEret.endifmov eax,TRUEretDlgProc endpGetProgramPath procinvoke GetModuleFileName, NULL,addr ProgPath,sizeof ProgPathstdmov edi,offset ProgPathadd edi,sizeof ProgPath-1mov al,"\"mov ecx,sizeof ProgPathrepne scasbcldmov byte ptr [edi+2],0retGetProgramPath endpSwitchMenuState proc Flag:DWORD.if Flag==TRUEinvoke EnableMenuItem, hMenu, IDM_CONNECT, MF_GRAYEDinvoke EnableMenuItem, hMenu, IDM_DISCONNECT, MF_ENABLEDinvoke EnableMenuItem, hMenu, IDM_QUERY, MF_ENABLEDinvoke EnableMenuItem, hMenu, IDM_CUSTOMQUERY, MF_ENABLED.elseinvoke EnableMenuItem, hMenu, IDM_CONNECT, MF_ENABLEDinvoke EnableMenuItem, hMenu, IDM_DISCONNECT, MF_GRAYEDinvoke EnableMenuItem, hMenu, IDM_QUERY, MF_GRAYEDinvoke EnableMenuItem, hMenu, IDM_CUSTOMQUERY, MF_GRAYED.endifretSwitchMenuState endpODBCConnect proc hDlg:DWORDinvoke SQLAllocHandle, SQL_HANDLE_ENV, SQL_NULL_HANDLE, addr hEnv.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke SQLSetEnvAttr, hEnv,SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3,0.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke SQLAllocHandle, SQL_HANDLE_DBC, hEnv, addr hConn.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke lstrcpy,addr ConnectString,addr strConnectinvoke lstrcat,addr ConnectString, addr ProgPathinvoke lstrcat, addr ConnectString,addr DBNameinvoke SQLDriverConnect, hConn, hDlg, addr ConnectString, sizeof ConnectString, addr Conn, sizeof Conn,addr StrLen, SQL_DRIVER_COMPLETE.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke SwitchMenuState,TRUEinvoke MessageBox,hDlg, addr Conn,addr ConnectCaption,MB_OK+MB_ICONINFORMATION .elseinvoke SQLFreeHandle, SQL_HANDLE_DBC, hConninvoke SQLFreeHandle, SQL_HANDLE_ENV, hEnvinvoke MessageBox, hDlg, addr ConnFail, addr AppName, MB_OK+MB_ICONERROR.endif.elseinvoke SQLFreeHandle, SQL_HANDLE_ENV, hEnvinvoke MessageBox, hDlg, addr AllocConnFail, addr AppName, MB_OK+MB_ICONERROR .endif.elseinvoke SQLFreeHandle, SQL_HANDLE_ENV, hEnvinvoke MessageBox, hDlg, addr SetAttrFail, addr AppName, MB_OK+MB_ICONERROR.endif.elseinvoke MessageBox, hDlg, addr AllocEnvFail, addr AppName, MB_OK+MB_ICONERROR .endifretODBCConnect endpODBCDisconnect proc hDlg:DWORDinvoke SQLDisconnect, hConninvoke SQLFreeHandle, SQL_HANDLE_DBC, hConninvoke SQLFreeHandle, SQL_HANDLE_ENV, hEnvinvoke SwitchMenuState, FALSEinvoke ShowWindow,hList, SW_HIDEinvoke MessageBox,hDlg,addr Disconnect, addr AppName,MB_OK+MB_ICONINFORMATION retODBCDisconnect endpInsertColumn procLOCAL lvc:LV_COLUMNmov lvc.imask,LVCF_TEXT+LVCF_WIDTHmov lvc.pszText,offset Heading1mov lvc.lx,150invoke SendMessage,hList, LVM_INSERTCOLUMN,0,addr lvcmov lvc.pszText,offset Heading2invoke SendMessage,hList, LVM_INSERTCOLUMN, 1 ,addr lvcmov lvc.pszText,offset Heading3invoke SendMessage,hList, LVM_INSERTCOLUMN, 3 ,addr lvcretInsertColumn endpFillData procLOCAL lvi:LV_ITEMLOCAL row:DWORDinvoke SQLBindCol, hStmt,1,SQL_C_CHAR, addr TheName, sizeof TheName,addr NameLe ngthinvoke SQLBindCol, hStmt,2,SQL_C_CHAR, addr TheSurname, sizeof TheSurname,addr SurnameLengthinvoke SQLBindCol, hStmt,3,SQL_C_CHAR, addr TelNo, sizeof TelNo,addr TelNoLengt hmov row,0.while TRUEmov byte ptr ds:[TheName],0mov byte ptr ds:[TheSurname],0mov byte ptr ds:[TelNo],0invoke SQLFetch, hStmt.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOmov lvi.imask,LVIF_TEXT+LVIF_PARAMpush rowpop lvi.iItemmov lvi.iSubItem,0mov lvi.pszText, offset TheNamepush rowpop lvi.lParaminvoke SendMessage,hList, LVM_INSERTITEM,0, addr lvimov lvi.imask,LVIF_TEXTinc lvi.iSubItemmov lvi.pszText,offset TheSurnameinvoke SendMessage,hList,LVM_SETITEM, 0,addr lviinc lvi.iSubItemmov lvi.pszText,offset TelNoinvoke SendMessage,hList,LVM_SETITEM, 0,addr lviinc row.else.break.endif.endwretFillData endpRunQuery proc hDlg:DWORDinvoke ShowWindow, hList, SW_SHOWinvoke SendMessage, hList, LVM_DELETEALLITEMS,0,0invoke SQLAllocHandle, SQL_HANDLE_STMT, hConn, addr hStmt.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke SQLExecDirect, hStmt, addr SQLStatement, sizeof SQLStatement.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke FillData.elseinvoke ShowWindow, hList, SW_HIDEinvoke MessageBox,hDlg,addr ExecuteFail, addr AppName, MB_OK+MB_ICONERROR .endifinvoke SQLCloseCursor, hStmtinvoke SQLFreeHandle, SQL_HANDLE_STMT, hStmt.elseinvoke ShowWindow, hList, SW_HIDEinvoke MessageBox,hDlg,addr AllocStmtFail, addr AppName, MB_OK+MB_ICONERROR .endifretRunQuery endpQueryProc proc hDlg:DWORD, uMsg:DWORD, wParam:DWORD, lParam:DWORD.if uMsg==WM_CLOSEinvoke SQLFreeHandle, SQL_HANDLE_STMT, hStmtinvoke EndDialog, hDlg,0.elseif uMsg==WM_INITDIALOGinvoke ShowWindow, hList, SW_SHOWinvoke SQLAllocHandle, SQL_HANDLE_STMT, hConn, addr hStmt.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke lstrcpy, addr Conn, addr SQLStatementinvoke lstrcat, addr Conn, addr WhereStatementinvoke SQLBindParameter,hStmt, 1, SQL_PARAM_INPUT, SQL_C_CHAR, SQL_CHAR,25,0, a ddr SearchName,25,addr StrLeninvoke SQLPrepare, hStmt, addr Conn, sizeof Conn.elseinvoke ShowWindow, hList, SW_HIDEinvoke MessageBox,hDlg,addr AllocStmtFail, addr AppName, MB_OK+MB_ICONERROR invoke EndDialog, hDlg,0.endif.elseif uMsg==WM_COMMANDmov eax, wParamshr eax,16.if ax==BN_CLICKEDmov eax,wParam.if ax==IDC_OKinvoke GetDlgItemText, hDlg, IDC_NAME, addr SearchName, 25.if ax==0invoke MessageBox, hDlg,addr NoData, addr AppName, MB_OK+MB_ICONERRORinvoke GetDlgItem, hDlg, IDC_NAMEinvoke SetFocus, eax.elseinvoke lstrlen,addr SearchNamemov StrLen,eaxinvoke SendMessage, hList, LVM_DELETEALLITEMS,0,0invoke SQLExecute, hStmtinvoke FillDatainvoke SQLCloseCursor, hStmt.endif.elseinvoke SQLFreeHandle, SQL_HANDLE_STMT, hStmtinvoke EndDialog, hDlg,0.endif.endif.elsemov eax,FALSEret.endifmov eax,TRUEretQueryProc endpend start分析start:invoke GetModuleHandle, NULLmov hInstance,eaxcall GetProgramPath当程序开始时,将获得实例句柄并获得所在路径.默认情况下数据库 test.mdb应与程序处于同一文件夹.GetProgramPath procinvoke GetModuleFileName, NULL,addr ProgPath,sizeof ProgPathstdmov edi,offset ProgPathadd edi,sizeof ProgPath-1mov al,"\"mov ecx,sizeof ProgPathrepne scasbcldmov byte ptr [edi+2],0retGetProgramPath endpGetProgramPath调用GetModuleFileName来获得程序的全路径名.接着在路径中查找最后一个"\"符",通过将文件名的第一个字符置为0获得(truncate)" 文件名. 因此我们在Pr ogPath中获得了程序的路径名.然后程序将用DialogBoxParam显示主对话框.当主对话框第一次被载入时,它将获得菜单句柄和listview control句柄.接下来在listview control中插入三列(因为我们已经知道结果集将包含三列.因为是我们先建的表.)现在,它就等待用户的动作了.如果用户在菜单中选择"connect",将会调用ODBCConnec t函数.ODBCConnect proc hDlg:DWORDinvoke SQLAllocHandle, SQL_HANDLE_ENV, SQL_NULL_HANDLE, addr hEnv.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO它做的第一件事是调用SQLAllocHandle来分配一个环境句柄.invoke SQLSetEnvAttr, hEnv,SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3,0.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO获得环境句柄后,程序调用SQLSetEnvAttr来表示将要使用ODBC 3.x的语法.invoke SQLAllocHandle, SQL_HANDLE_DBC, hEnv, addr hConn.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO如果一切顺利,程序将通过调用SQLAllocHandle获得连接句柄来实现连接.invoke lstrcpy,addr ConnectString,addr strConnectinvoke lstrcat,addr ConnectString, addr ProgPathinvoke lstrcat, addr ConnectString,addr DBName接着填写连接字符串.完整的连接字符串将被用在ConnectionStringinvoke SQLDriverConnect, hConn, hDlg, addr ConnectString, sizeof ConnectString, addr Conn, sizeof Conn,addr StrLen, SQL_DRIVER_COMPLETE.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke SwitchMenuState,TRUEinvoke MessageBox,hDlg, addr Conn,addr ConnectCaption,MB_OK+MB_ICONINFORMATION当连接字符串完成,程序将调用SQLDriverConnect来通过MS Access ODBC 驱动程序连接test.mdb数据库.如果文件test.mdb不存在,ODBC driver将提示用户输入该文件的位置,因为我们已经设定了SQL_DRIVER_COMPLETE标志.当SQLDriverConnect成功返回时, Conn 被填入由ODBC驱动程序创建的完整连接字符串.我们通过一个message box来将其显示给用户. SwitchMenuState是一个单纯切换菜单选项可用的函数.现在,到数据库的连接已经建立并被打开,并一直保持打开状态直到用户选择关闭.当用户选择了"View All Records"命令, 对话框过程将调用RunQuery.函数RunQuery proc hDlg:DWORDinvoke ShowWindow, hList, SW_SHOWinvoke SendMessage, hList, LVM_DELETEALLITEMS,0,0由于listview control在创建时是不可见的,现在我们把它显示出来.还有要把其中的所有元素(如果有的话)删掉.invoke SQLAllocHandle, SQL_HANDLE_STMT, hConn, addr hStmt.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO接下来,程序将获得一个语句句柄.invoke SQLExecDirect, hStmt, addr SQLStatement, sizeof SQLStatement.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFO通过 SQLExecDirect执行已准备好的SQL语句.我这里选择SQLExecDirect 的原因是只须执行一次.invoke FillData执行SQL语句后,将返回一个结果集.我们使用 FillData函数来从结果集中解出数据并将其放入listview control中.FillData procLOCAL lvi:LV_ITEMLOCAL row:DWORDinvoke SQLBindCol, hStmt,1,SQL_C_CHAR, addr TheName, sizeof TheName,addr NameLe ngthinvoke SQLBindCol, hStmt,2,SQL_C_CHAR, addr TheSurname, sizeof TheSurname,addr SurnameLengthinvoke SQLBindCol, hStmt,3,SQL_C_CHAR, addr TelNo, sizeof TelNo,addr TelNoLengt h现在,结果集被返回.我们要绑定结果集的所有三列到我们提供的缓冲区中.这是调用S QLBindCol来实现的.注意我们要对每一列分别调用.并且我们并不需要绑定所有的列:只要绑定要获得数据的列就行了.mov row,0.while TRUEmov byte ptr ds:[TheName],0mov byte ptr ds:[TheSurname],0mov byte ptr ds:[TelNo],0当列中没有数据时,我们初始化缓冲区为NULLs.更好的方法是用SQLBindCol指定的变量中数据的长度.在我们的例子中,我们可以检查NameLength, SurnameLength和TelNoLeng th中的值的确切长度.invoke SQLFetch, hStmt.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOmov lvi.imask,LVIF_TEXT+LVIF_PARAMpush rowpop lvi.iItemmov lvi.iSubItem,0mov lvi.pszText, offset TheNamepush rowpop lvi.lParaminvoke SendMessage,hList, LVM_INSERTITEM,0, addr lvi其它都很简单了.调用SQLFetch 来获得结果集的一行,并将其存入listview control 的缓冲区中.当没有更多的行供检索时(已到达文件尾), SQLFetch返回SQL_NO_DATA并且程序跳出循环.invoke SQLCloseCursor, hStmtinvoke SQLFreeHandle, SQL_HANDLE_STMT, hStmt当完成对结果集的操作时,调用SQLCloseCursor关闭结果集并调用SQLFreeHandle释放语句句柄.当用户选择"Query"命令,程序显示另一个对话框供用户输入要查询的名字..elseif uMsg==WM_INITDIALOGinvoke ShowWindow, hList, SW_SHOWinvoke SQLAllocHandle, SQL_HANDLE_STMT, hConn, addr hStmt.if ax==SQL_SUCCESS || ax==SQL_SUCCESS_WITH_INFOinvoke lstrcpy, addr Conn, addr SQLStatementinvoke lstrcat, addr Conn, addr WhereStatementinvoke SQLBindParameter,hStmt, 1, SQL_PARAM_INPUT, SQL_C_CHAR, SQL_CHAR,25,0, a ddr SearchName,25,addr StrLeninvoke SQLPrepare, hStmt, addr Conn, sizeof Conn对话框做的第一件事是显示listview control.接下来分配一个语句句柄以创建SQL语句.这个SQL语句有一个"where"子句及一个参数标志符"?". 完整的SQL语句是:select * from main where name=?接着程序调用SQLBindParameter 来建立参数标志符与缓冲区SearchName的连接,这样当SQL语句被执行时,ODBC驱动程序就可从SearchName中获得需要的字符串.接下来,程序调用SQLPrepare来编译SQL语句. 这样我们只要准备/编译SQL语句一次就可多次使用.因为SQL语句已被编译过,接下来的执行过程会快一些..if ax==IDC_OKinvoke GetDlgItemText, hDlg, IDC_NAME, addr SearchName, 25.if ax==0invoke MessageBox, hDlg,addr NoData, addr AppName, MB_OK+MB_ICONERRORinvoke GetDlgItem, hDlg, IDC_NAMEinvoke SetFocus, eax.else当用户在编辑框(edit control)中填入了一些名字并按下回车键, 程序将获得编辑框中的文本并检查是否是空字符串.如果是,则显示一个message box并将键盘焦点设在编辑框上,提示用户输入名字.invoke lstrlen,addr SearchNamemov StrLen,eaxinvoke SendMessage, hList, LVM_DELETEALLITEMS,0,0invoke SQLExecute, hStmtinvoke FillDatainvoke SQLCloseCursor, hStmt如果编辑框中已有字符串,程序会获得它的长度并将其放入StrLen中供ODBC驱动程序使用(记住我们已将StrLen的地址传送给了SQLBindParameter). 接下来程序使用获得的语句句柄调用SQLExecute执行已准备好的SQL语句.当 SQLExecute返回时,程序调用FillDa ta在listview control显示结果.因为我们不会再用到结果集,调用SQLCloseCursor来关闭它.。

一、实验内容1.在屏幕上显示一个字符的源程序：DATASSEGMENTSTRINGDB'HELLO!','$'ORG100HDATASENDSCODESSEGMENTASSUMECS:CODES,DS:DATASSTART:MOVAG,DATASMOVDS,AGLEADG,STRINGMOVAH,09HINT21HMOVAH,4CHINT21HCODESENDSENDSTART2.编写一个程序，实现字符串的复制功能,并且将复制的字符串显示出来DATASSEGMENTSTRING_ADB'ICHLIEBEDICH','$'COUNTEQU$-OFFSETSTRING_ASTACASSEGMENTSTRING_BDBCOUNTDUP(?) STACASENDSCODESSEGMENTASSUMECS:CODES,DS:DATAS,SS:STACAS START:MOVAG,DATASMOVDS,AGMOVAG,STACASMOVES,AGLEASI,STRING_ALEADI,STRING_BMOVCG,COUNTSTDREPMOVSBLEADG,STRING_BMOVAH,9INT21HMOVAH,4CHINT21HMOVAH,4CHINT21HCODESENDS3、利用中断调用，在屏幕上显示1—9之间随机数。

中断号86HDATASSEGMENTCLADB13,10,'WEAREGOINGTOPRODUCEANUMBERATRANDOM:$:' INFONDB0DH,0AH,'THEPROGRAMRUNSGOOD$'DATASENDSSTACASSEGMENTSTACADB200DUP(0)STACASENDSCODESSEGMENTASSUMEDS:DATAS,SS:STACAS,CS:CODESSTART:MOVAG,DATASMOVDS,AGLEADG,CLAMOVAH,9INT21HMOVAG,0MOVES,AG;MOVBG,86HG4CLIMOVWORDPTRES:[BG],OFFSETRANMOVWORDPTRES:[BG+2],SEGRANSTIINT86H MOVAH,02H INT21H LEADG,INFON MOVAH,9INT21H MOVAG,4C00H INT21H RANPROC PUSHCG PUSHDG MOVAH,0INT1AH MOVAG,DG GORDG,DG MOVBG,10 DIVBG ADDDL,30H MOVAH,02H INT21H POPDG POPCGIRETRANENDPCODESENDSENDSTART4.复制字符串，并倒序输出DATASSEGMENTSTRING_ADB'stillhere',13,10,'$'STRING_LDB'$'DATASENDSSTACASSEGMENTSTRING_BDB100DUP(?)STACASENDSCODESSEGMENTASSUMECS:CODES,DS:DATAS,SS:STACASSTART:MOVAG,DATASMOVDS,AGMOVAG,STACASMOVSS,AGLEASI,STRING_LMOVAG,SILEASI,STRING_ALEADI,STRING_BSUBAG,SISUBAG,3 MOVCG,AG MOVBG,AG STD REPMOVSB LEADG,STRING_B MOVAH,9INT21H MOVDL,13 MOVAH,2INT21H MOVDL,10 MOVAH,2INT21H LEASI,STRING_B MOVCG,BG ADDSI,BG DECSIS:MOVDL,[SI] MOVAH,2INT21HDECSILOOPSMOVAH,004CHINT21HCODESENDSENDSTART5、显示比较两个数的大小DATASEGMENTADB33HBDB87HDATAENDSSTACASEGMENTDW128DUP(?)STACAENDSCODESEGMENTASSUMECS:CODE,DS:DATA,SS:STACASTART:MOVAG,DATAMOVDS,AGMOVAL,'A'CMPB,ALJABGAMOVDL,'A'MOVBL,'B'JMPDISPBGA:MOVDL,'B'MOVBL,'A'DISP:MOVAH,2INT21HMOVDL,'>'INT21HMOVDL,BLINT21HMOVAH,4CHINT21HCODEENDSENDSTART6、键盘输入10个学生的成绩，编写一个程序统计60-69分，70-79分，80-89分，90-99分及100分的人数，分别存放在Score6，Score7，Score8，Score9和Score10单元中。