1、在大型的程序中，为了使程序清晰、可读性好，一般会大量使用宏和子程序，因此，充分了解这些宏和子程序，才能掌握程序的编制方法。2.宏的分析本题中使用了下列宏，其作用如下：SHOW ：用来指定地址的显示字符串，有一个地址参数SET_P1： 设定光标位置，有一个可变参数a，作用是讲光标置于坐标（a，36）处，使用了BIOS中断10H的2号功能。SET_P2 ：将光标置于（12，2）处。SET_P3 ： 将光标置于（1，30）处。CLEAR ：清除整个屏幕，用BIOS中断10H的7号功能实现，范围是从坐标（0，0）到（24，79），将整个区域变为空白。CLEAR1 ：清除有半部分屏幕，清除范围从坐标（4
2、，36）到（10，79），结果是擦出此区域的显示内容。CLEAR2 ： 清除下半部分屏幕，清除范围是从坐标（12，0）到（24，79），结果是擦除此区域的显示内容。NNWLINE ： 回车换行。SHOE_ITEM ：显示记录内容，执行后显示名称，然后依次显示4项功课成绩，各项成绩间空3个空格，最后换行。这个宏包含的语句较多，如果每次都直接用语句实现非常冗长，使用宏后则主程序就很简洁，充分体现了使用宏的优点。GETIN ： 获取学生的信息，这也是一个使用频繁的宏，其中含有很多的指令，它带有ADDRS和COUNT2两个参数，ADDRS是存放信息的数据段位置，CIUNT2是接受的字符数。子程序分析下
3、面详细分析程序中用的的主要的子程序。（1） INSERT 子程序INSERT 子程序的功能是录入一条记录。首先保留现场入栈，然后DOS中断3D号功能打开FNAME指定的文件，然后宏GETIN清除屏幕右半部分的记录输入区域。在记录的第一项处置光标，用GET_REC获取记录内容，用DOS中断42H号功能将指针移到文件末尾。再用DOS中断40H号功能将放在BUFFER缓冲区的23个字节的内容写到文件中，接着关闭文件，重新设置光标位置在显示记录位置。最后弹栈恢复现场。（2） GET_REC 子程序GER_REC 子程序的功能是获取新的记录内容。首先用宏GETIN获取学生的姓名，放入BUFF2中，最多1
4、5个字符，如果遇到回车键则提前结束。再用循环方式将BUFFER2中的15个字符送到BUFFER1中。然后用宏SET_P1将光标置于数学成绩输入项后，等待键盘输入。输入的成绩，先放在BUER2中，然后加到BUFFER1中的姓名后面。输入为2个字符后遇到回车键提前结束。接着用同样的方法输入英语成绩，计算机成绩和中文成绩。完成后，这个程序就得到了一个记录的所有信息。（3）OPENF子程序OPENF是个一个非常简单的子程序。它的作用是打开一个文件并把一个文件句柄保存在数据段的handle缓冲区中。（4）QUERY子程序QUERY是查询一条记录。首先保留现场。然后分别清除界面右上方和下边的区域。打开FA
5、ME指定的文件并保留文件句柄。将光标至于界面的下半空白部分开始处，用宏GETIN 获取最多15个字符的输入，然后将BUFFER1中的内容与BUFFER2中进行比较，看是否相同。如果不同，再继续向下从文件中读出23个字节比较，循环向下，直到相同或文件结束为止。如果不同，则显示该条记录，然后关闭文件，恢复现场。B: MOV AH , 3FH ;读文件MOV CX , 23 ；读23个字节（记录长度）MOV DX, OFFSET BUFFER2 ；放在BUFFER2中INT 21HLEA SI , BUFFER2LEA DI .BUFFER1MOV CX,15 ；循环次数C: MOV AL , BY
6、TE PTRSICMP AL , BYTE PTR DI ；比较BUFFER1和BUFFER2JNZ B ；不同则转BINC SIINC DLOOP C（5） MODIFY子程序MODIFY子程序的功能是修改记录。先保护现场，然后清除右上部分的记录输入区域，接着打开文件。用GET_REC子程序获取输入的记录信息，并存入BUFFER1中。从打开的文件中读取一个记录的内容（23个字节）放在BUFFER2中。比较记录前面的15个字节（姓名），如果不同，则读取下一个记录；如果相同，则回移一个记录的指针，回到刚才这条记录的位置（因为读取一个记录后，指针已移到下一条记录上）。将放在BUFFER1中的输入的
7、记录写到刚才这条记录在文件中的位置上，从而实现此记录的修改。最后关闭程序，恢复现场。 （6）DELETE子程序 DELETE子程序的功能是删除一条记录。 首先保留现场，清除屏幕。然后打开文件，保留文件句柄。用宏GETIN获取15个字节的姓名字符，放在BUFFER1中。读取一条记录（23个字节），放在BUFFER2中，然后和BUFFER1中内容比较，如果不同，读取下一条记录。如果姓名相同，则把指针后移8个字符（4门功课所占空间），写入8个“0”字符。关闭文件，恢复现场并退出。 （7）LIST子程序 LIST子程序的作用是显示文件中的记录。 首先清除记录输入区和显示区域。然后显示记录字段的标题。打
8、开文件，保留文件句柄。读取一条记录的内容放在BUFFER1中，并判断是否到了文件末尾，如果不是，则显示这条记录。循环读取直到文件结束。 （8）PRINT子程序 DELETE子程序的功能是打印文件中的记录。 用OPENF子程序打开文件。读取一条记录，汇编语言提供了自定义数据结构的结构定义语句，可将不同的数据类型放在一个数据结构中，便于处理，在本程序中的记录就采用了结构定义语句。这里读取记录也用了结构的方法。 接着用DOS中断21H的5号功能，逐字打印存放在BUFFER1中的所以字符。 一条记录打完后，打印回车符换行。然后用同样方法继续读取下一条记录并打印，直到文件结束为止。最后关闭文件退出。 （
9、9）COT子程序 COT子程序的作用是统计各分数段小说人数，并简化程序，作为示例，本程序只统计记录数学各分数段的人数。 首先显示统计结果的标题：maths60708090100。 然后打开文件。读取记录，将记录的第16个字符（数学分数的高位）取出比较。统计结果依次放在以BUFFER3开头的内存单元中，如果小于60，则将小于60的记录单元BUFFER3加一；若小于70，则将小于70的记录单元BUFFER3加一，即BUFFER3下一个地址单元内容加一，依次类推。处理完后再读取下个记录，作同样处理，直到文件结束为止。 接着显示放在BUFFER3中的各分数段的人数的统计结果，最后关闭文件结束。从程序中
10、可以看出，统计时程序有个限制，本例每个分数段最多不能超过9个人。操作说明 改程序除源程序外，还需要另一个存放记录的文件（此程序中使用的文件名为SCORE.TXT），但本程序并没有创建这个文件的功能。要产生这个文件，可用记事本先做以一个空的文件名为SCORE.TXT的文件。程序的运行与该文件的存放位置有关，位置是程序数据段的FNAME的值。二者要保持一致，否则会因为找不到数据存放文件而出错。 程序运行时，在出现主菜单后，按1键，将显示学生的各科成绩；按i键，将执行录入功能，可以录入新的学生成绩；按M键，了修改学生成绩。由于本程序时隔简单程序，所以在修改时，要输入学生的所有成绩，包括不要修改的成绩
11、；按D键后，输入要删除的学生名，将使其成绩全为0；按Q键后，输入要查询的学生的姓名，键显示其各科成绩；按C键将显示数学成绩的分段统计结果。 以上功能在运行时可以单独实现（即在进入主菜单后，单击功能键选中该功能进行操作后程序会关闭。但要运行其他功能，则要重新进入主菜单单击别的功能键，即每次只能运行一项功能）。要特别说明的是，本程序住一套目的是验证汇编程序实现的数据记录操作功能，为使程序不至于郭长，减少篇幅，因此程序处理会很简单。程序中没有错误处理程序，如果输入错误，如按退格键将会出错，因此输入时要注意补要输错。程序代码data segmentmess1 db student grade mana
12、gement system,0ah,0dh,$mess2 db this is main menumess3 db insert （i） please input:mess4 db modify （m） name :mess5 db delete （d） maths :mess6 db query （q） english :mess7 db count （c） computer:mess8 db print （p） chinese :mess9 db exit （e）mess10 db *$mess11 db name Ma En Co Chmess13 db list （l）mess12 d
13、b maths 60 70 80 90 100err1 db there is not this student$err2 db file close wrong$fname db d:masmscore.txt ；记录分数文件的路径和文件名。buffer1 db 23 dup（?）buffeer db 0ah,0dh,buffer2 db 30 dup（?buffer3 db 8 dup（0count db 5handle dw ?del db 8 dup（x db ?data endsscore struc ；定义记录结构names db 15 dup（ maths db 0,0engli
14、sh db 0,0computer db 0,0chinese db 0,0score endsshow macro addrs ；显示字符串 lea dx,addrs mov ah,9 int 21h endmset_p1 macro a ；设光标于（a,36） mov ah,2 mov dh,a mov dl,36 mov bh,0 int 10hset_p2 macro ；设光标于（12，2） mov dh,12 mov dl,2set_p3 macro ；设光标于（1，30） mov dh,1 mov dl,30clear macro ；清整个屏幕 mov al,0 mov cl,0
15、mov ch,0 mov dh,24 mov dl,79 mov bh,7 mov ah,6clear1 macro ；清右上记录输入区 mov ch,4 mov cl,36 mov dh,10clear2 macro ；清下半部分记录显示区 mov ch,12newline macro ；回车换行 push ax push dx mov dl,0dh mov dl,0ah pop dx pop axshow_item macro addrs ；在指定位置显示记录 local iloop,w10 push bx push cx mov bx,0iloop: mov dl,addrsbx ；显字
16、符串 inc bx cmp bx,15 jl iloop mov cx,4w10: mov dl, mov dl,addrsbx loop w10 newline pop cx pop bxgetin macro addrs,count2 ；从键盘获取信息local zeroit,lp,input_end,exitzeroit: mov addrsbx, jl zeroitmov bx,0lp: mov ah,1 cmp al,0ah jz input_end cmp al,0dh mov addrsbx,al cmp bx,count2 jl lpinput_end: jz exit mov
17、 ah,7 jmp input_endexit:code segmentmain proc far assume cs:code,ds:data,es:datastart: mov ax,data mov ds,ax mov ah,0 ；设显示模式80*25 mov al,3 clear show mess1 show mess2 show mess13 show mess3 show mess4 show mess5 show mess6 show mess7 show mess8 show mess9 show mess10 set_p3w: cmp al,i jnz n1 call in
18、sert jmp wn1:m jnz n2 call modifyn2:d jnz n3 call deleten3:q jnz n4 call queryn4:c jnz n5 call cotn5:p jnz n6 call printn6:l jnz n7 call listn7:e jz exitfexitf: mov ah,4ch retmain endpinsert proc near mov dx,offset fname mov al,2 mov ah,3dh ；打开文件 mov bx,ax clear1 set_p1 4 call get_rec mov cx,0 ；指针移到
19、文件尾 mov dx,0 mov ah,42h mov cx,23 ；写文件 mov dx,offset buffer1 mov ah,40h mov ah,3eh ；关闭文件insert endpget_rec proc near getin buffer2,15 ；输入姓名 mov cx,15continue: mov al,buffer2bx mov buffer1bx,al loop continue set_p1 5 getin buffer2,2 ；输入数学成绩 mov al,buffer2 mov al,buffer2+1 set_p1 6 输入英语成绩 set_p1 7输入计算
20、机成绩 set_p1 8输入语文成绩get_rec endpopenf proc near ； mov al,02 mov ah,3dh mov handle,axopenf endpquery proc near ；查询记录 clear2 set_p2 getin buffer1,15 ；取姓名到buffr1中 lea dx,mess11b: mov ah,3fh ； mov cx,23 ；读23个字节（记录长度 mov dx,offset buffer2 ；放在buffer2中 lea si,buffer2 lea di,buffer1 mov cx,15 ；c: mov al,byte ptrsi cmp al,byte ptrdi ；比较buffer1和buffer2 jnz b ；不同则转b inc si inc di loop c mov buffer2+23, show_item buffer2 mov ah,3eh pop dx query endpmodify proc near ；修改记录
