实验报告子程序设计实验.docx
《实验报告子程序设计实验.docx》由会员分享，可在线阅读，更多相关《实验报告子程序设计实验.docx（15页珍藏版）》请在冰点文库上搜索。
实验报告子程序设计实验
实验5子程序实验
一．实验目的
1．掌握主程序与子程序之间的调用关系及调用方法；
2．掌握子程序调用过程中近程调用与远程调用的区别；
3．掌握通过堆栈转送参数的方法。
4.掌握多模块程序设计方法
二．实验内容
1．将BUF开始的10个单元中的二进制数转换成两位十六进制数的ASCII码，在屏幕上显示出来。
要求码型转换通过子程序HEXAC实现,在转换过程中,通过子程序DISP实现显示。
DATASSEGMENT
BUFDB00000111B,00100001B,00100010B,00000011B,00000101B,B,B,00100100B,B,01010010B
CANDB$-BUF;定义常量CAN
DATASENDS
CODESSEGMENT
ASSUMECS:
CODES,DS:
DATAS
MAINPROCFAR;主程序块
START:
MOVAX,DATAS
MOVDS,AX
MOVCL,10
LEASI,BUF
LOOP1:
;调用子程序语句
callHEXAC
callDISP
DECCAN
JNZLOOP1
EXIT:
MOVAH,4CH
INT21H
MAINENDP
HEXACPROCNEAR;二进制转换成十六进制子程序
MOVBL,[SI]
INCSI
RET
HEXACENDP
DISPPROCNEAR;显示子程序
MOVCL,4
MOVCH,2
MOVE:
;移位语句
ROLBL,CL
MOVDL,BL
ANDDL,0FH
ADDDL,30H
CMPDL,'9'
JBEPRINT
ADDDL,07H
PRINT:
MOVAH,02H;显示语句
INT21H
DECCH
JNZMOVE
MOVDL,''
MOVAH,02H
INT21H
RET
DISPENDP
CODESENDS
ENDSTART
2．编写一个主程序,从键盘接收若干个字符,然后用远调用的方法,调用子程序统计字符串中字符’b’的个数.子程序的参数是字符串的首地址TABLE,字符串长度N及字符”b”.子程序返回字符＂b”的个数.参数传送采用堆栈实现.主程序在子程序返回后,显示字符”b”及其个数（设为一位十六进制数）。
DATASEGMENT
STR1DB0ah,0dh,'PLEASEINPUTYOURSTRING:
$'
STR2DB0ah,0dh,'THENUMBEROFbis:
$'
TABLEDB50,,50DUP（）,'$'
DATAENDS
CODESEGMENT
ASSUMECS:
CODE,DS:
DATA
START:
MOVAX,DATA
MOVDS,AX
LEADX,STR1
MOVAH,9
INT21H
LEADX,TABLE
MOVAH,0AH
INT21H
LEASI,TABLE
MOVCL,[SI+1]
MOVCH,0
INCSI
INCSI
MOVAL,'b'
MOVAH,0
PUSHSI
PUSHCX
PUSHAX
CALLFARPTRCHECK
POPAX
MOVCL,AL
LEADX,STR2
MOVAH,9
INT21H
MOVDL,CL
ANDDL,0FH
CMPDL,9
JBECAN
ADDDL,7
CAN:
ADDDL,30H
MOVAH,2
INT21H
EXIT:
MOVAH,4CH
INT21H
CODEENDS
SCODESEGMENT
ASSUMECS:
SCODE
CHECKPROCFAR
PUSHBP
MOVBP,SP
MOVSI,[BP+10]
MOVCX,[BP+8]
MOVAX,[BP+6]
XORAH,AH
AGAIN:
CMPAL,[SI]
JNECAN1
INCAH
CAN1:
INCSI
LOOPAGAIN
MOVAL,AH
MOV[BP+10],AX
POPBP
RET4
CHECKENDP
SCODEENDS
ENDSTART
3.请编写一个程序来实现简单的程序菜单显示。
（采用多模块程序设计方法）
显示一个菜单要求用户从下表中选择：
（1）HEXACGAME （对应－－>程序1）
（2）CHARSTATISTICSPROGRAM （对应－－>程序２）
（3）PRESS“ESC”TOQUIT
用户作出选择1~3时，显示输出要执行操作的名字，如“Yourselectionis1,theprogramwillexecuteHEXACNUMBERGAME!
”然后转向相应的程序去执行，执行结束前进行退出的判断，显示一个提示信息“willyoucontinueprogramreally（Y:
N）”要求用户从键盘键入字符，若是“Y”键，则继续程序的执行,若是“N”键，则返回到菜单。
若用户选择3，要求程序显示提示信息“PleasepressESCkeytoexit!
”,并能按要求正确退出。
DATASSEGMENT
OPTDWYI
DWER
menuDB0DH,0AH,'THEMENU:
';显示菜单
DB0DH,0AH,'
（1）HEXACGAME';对应－－>程序1
DB0DH,0AH,'
（2）CHARSTATISTICSPROGRAM';对应－－>程序２
DB0DH,0AH,'（3）PRESS"ESC"TOQUIT$'
BUFDB00000111B,00100001B,00100010B,00000011B,00000101B,B,B,00100100B,B,01010010B
CANDB$-BUF;定义常量CAN
str1DB0DH,0AH,'Yourselectionis1,theprogramwillexecuteHEXACGAME!
$'
str2DB0dh,0ah,'Yourselectionis2,theprogramwillexecuteCHARSTATISTICSPROGRAM!
$'
str3DB0DH,0AH,'willyoucontinueprogramreally（Y:
N）$'
str4DB0DH,0AH,'PleasepressESCkeytoexit!
$'
TABLEDB50,,50DUP（）,'$'
char1db0ah,0dh,'PLEASEINPUTYOURSTRING:
$'
char2db0ah,0dh,'THENUMBEROFbis:
$'
DATASENDS
CODESSEGMENT
MAINPROCFAR
ASSUMECS:
CODES,DS:
DATAS
START:
MOVAX,DATAS
MOVDS,AX
XORDI,DI
subbx,bx
xorsi,si
LEADX,menu;显示主菜单
MOVAH,9
INT21H
movdl,0dh;显示回车
movah,2
int21h
MOVDL,0AH;显示换行
MOVAH,2
INT21H
MOVAH,1;输入选项
INT21H
CMPAL,'1'
JEYI
CMPAL,'2'
JEER
CMPAL,'3'
JEQUIT
YI:
MOVDI,0
leadx,str1
movah,9
int21h
MOVCL,10
LEASI,BUF
CALLHEXAC
LOOP1:
;调用子程序语句
callHEXAC
callDISP
DECCAN
JNZLOOP1
JMPCONTINUE
ER:
MOVDI,02H
leadx,str2
movah,9
int21h
LEADX,char1
MOVAH,9
INT21H
LEADX,TABLE
MOVAH,0AH;输入字符串
INT21H
LEASI,TABLE
MOVCL,[SI+1]
MOVCH,0;CX中为字符串长度
INCSI
INCSI;SI指向串首址TABLE
MOVAL,'b'
MOVAH,0;AX中为待查字符
PUSHSI
PUSHCX
PUSHAX;参数送堆栈
CALLCHECK
POPAX;统计个数在AL中
MOVCL,AL
LEADX,char2;显示结果
MOVAH,9
INT21H
MOVDL,CL
ANDDL,0FH
CMPDL,9
JBECAN3
ADDDL,7
CAN3:
ADDDL,30H
MOVAH,2
INT21H;显示统计个数
JMPCONTINUE
QUIT:
LEADX,str4;退出的子程序
MOVAH,9
INT21H
MOVAH,1
INT21H
CMPAL,1BH;按ESC退出
JEEXIT
CONTINUE:
LEADX,str3;用户是否继续执行当前程序
MOVAH,9
INT21H
MOVAH,1
INT21H
CMPAL,'Y';按y继续，按n退出，不需区分大小写
JEYES
CMPAL,'y'
JEYES
CMPAL,'N'
JESTART
CMPAL,'n'
JESTART
YES:
JMPopt[DI];继续运行当前子程序
EXIT:
MOVAH,4CH;退出
INT21H
MAINENDP
CODESENDS
HEXACCODESSEGMENT
ASSUMECS:
HEXACCODES
HEXACPROCFAR;二进制转换成十六进制子程序
MOVBL,[SI]
INCSI
RET
HEXACENDP
HEXACCODESENDS
DISPCODESSEGMENT
ASSUMECS:
DISPCODES
DISPPROCFAR;显示子程序
MOVCL,4
MOVCH,2
MOVE:
;移位语句
ROLBL,CL
MOVDL,BL
ANDDL,0FH
ADDDL,30H
CMPDL,'9'
JBEPRINT
ADDDL,07H
PRINT:
MOVAH,02H;显示语句
INT21H
DECCH
JNZMOVE
MOVDL,''
MOVAH,02H
INT21H
RET
DISPENDP
DISPCODESENDS
CHARCODESEGMENT
ASSUMECS:
CHARCODE;子程序部分
CHECKPROCFAR
PUSHBP
MOVBP,SP
MOVSI,[BP+10]
MOVCX,[BP+8]
MOVAX,[BP+6]
XORAH,AH
AGAIN:
CMPAL,[SI]
JNECAN1
INCAH
CAN1:
INCSI
LOOPAGAIN
MOVAL,AH
MOV[BP+10],AX
POPBP
RET4
CHECKENDP
CHARCODEENDS
ENDSTART
三．实验要求
1．第一个实验程序用子程序的近程调用实现。
由于在调用HEXASC子程序时，子程序又调用了DISP子程序，这叫子程序的嵌套调用。
实验过程中可以从堆栈的内容看到两个子程序的返回地址值。
由于是近调用，地址值只包括返回地址的段内偏移量。
在每个子程序的执行中，检查CS值是不变的。
2．第二个程序是利用远调用的方法调用子程序的。
在远调用情况下，主程序与子程序处在不同的逻辑代码段中，可在子程序执行中查看CS值，它与主程序中的CS值是不同的。
子程序调用后，堆栈中保留了返回地址的段地址及段内偏移量。
3．第二个程序中，主程序与子程序之间参数的传送是由堆栈实现的。
一段是将参数（此处是串首址TABLE，串的长度N及待统计的字符“b”）顺序压如堆栈，在子程序调用后，通过BP指针对堆栈中的参数访问，并将统计的结果通过堆栈返回。
有关该方法的原理此处不再介绍。
4．第三个程序，请采用分文件多模块程序设计方法实现，需注意和实验4中的习题4中采用的地址跳跃表实现方法区分开来，需注意外部符号的定义及其使用方法。
5．预习子程序设计的基本方法，根据实验内容要求，画出子程序及主程序的流程图；熟悉键盘键入字符串及用堆栈传送参数的程序段编制方法。
四．实验环境
PC微机
DOS操作系统或Windows操作系统
，，或宏汇编集成环境
五．实验步骤
1．编辑、汇编三个源程序，生成相应的可执行文件（.EXE）
2．用DEBUG的R命令，T命令或G命令和D命令检查远程调用及近程调用时堆栈的变化。
特别是通过堆栈传送的参数和子程序取出的参数是返回参数的详细过程。
3．检查程序执行的结果是否正确。
六．实验报告要求
1．说明用堆栈传送参数的过程及其具体方法。
2．分析实验结果及所遇到问题，并说明解决的方法。
3、列出各实验题目的程序实现清单，写清楚程序设计思路、各程序模块调用关系及参数传递方式，源程序中对子程序的入口参数和出口参数及功能应进行适当的注释。
七．思考题
分析远程调用与近程调用的区别，在用DEBUG有关命令观察时，执行过程有何不同。
子程序的远程调用是段间的调用，也就是主程序和子程序不在一个段。
近程的调用是段内的调用。
八、实验小结
升级会员 