微机原理软件实验报告(原创).doc

北京邮电大学 微机原理软件实验报告 2010级信通08班07号 朱志强 2012 年 11 月 24日实验B 分支，循环程序设计一、实验目的1. 开始独立进行汇编语言程序设计；2. 掌握基本分支，循环程序设计；3. 掌握最简单的 DOS 功能调用。二、实验内容1. 安排一个数据区，内存有若干个正数，负数和零。每类数的个数都不超过 9。2. 编写一个程序统计数据区中正数，负数和零的个数。3. 将统计结果在屏幕上显示。4. （扩展题）统计出正奇数、正偶数，负奇数、负偶数以及零的个数。三、预习思考1. 十进制数 0 9 所对应的 ASCII 码是什么？ 如何将十进制数 0 9 在屏幕上显示出来？答：09分别对应ASCII码的30H39H。欲将十进制数09显示在屏幕上，只需要用二进制数09分别加上30H即可。2. 如何检验一个数为正，为负或为零？ 你能举出多少种不同的方法？答：方法有多种，现举出两种。一是直接用CMP命令和0比较，然后用JZ等命令进行判断；二是和0相比是否相等，然后用该数（假设为8位）和10000000相与，取出符号位判断，可区分正负。其余方法大同小异，核心的思想是要么直接和0相比，要么使用逻辑或移位运算，取出符号为进行判断。四、实验过程(一)、流程图(二)、源代码DATA SEGMENT ARRAY DB 1,2,3,4,5,6,-1,-2,-3,0,0,0 LENG EQU $-ARRAY; 数组长度 POSI DB ?; 正数个数 NEGT DB ?; 负数个数 ZERO DB ?; 零的个数 POSIEVEN DB ?;正偶数 POSIODD DB ?; 正奇数 NEGTEVEN DB ?; 负偶数 NEGTODD DB ?; 负奇数 ;用于打印提示的字符串定义 POSICHAR DB Positive: $ NEGTCHAR DB Negtive: $ ZEROCHAR DB Zero: $ EVENCHAR DB Even: $ ODDCHAR DB Odd: $ CR DB 0DH,0AH,$; 回车换行的ASCII码DATA ENDS;-CODE SEGMENT ASSUME CS:CODE,DS:DATA;-START: MOV AX,DATA MOV DS,AX MOV SI,OFFSET ARRAY-1 MOV CL,LENG; 数组长度赋予CL MOV AL,0LOP: CMP CL,0; 循环控制条件：数组长度减为零 JE CALC; 为零则跳出 INC SI DEC CL MOV BL,SI;采用基址加变址寻址 CMP BL,AL; 和零比较 JG ISPOSI; 是正数跳转 JE ISZERO; 是零跳转 JL ISNEGT; 是负数跳转;-ISPOSI: INC POSI; 正数个数加一 AND BX,1 ADD POSIEVEN,BL; 和1与之后的结果加到正偶数中 JMP LOPISZERO: INC ZERO JMP LOPISNEGT: INC NEGT; 负数个数加一 AND BX,1ADD NEGTEVEN,BL; 和1与之后结果加到负偶数中 JMP LOP ;-CALC: MOV AH,POSI MOV AL,POSIEVEN SUB AH,AL; 计算正奇数个数 MOV POSIODD,AH MOV AH,NEGT MOV AL,NEGTEVEN SUB AH,AL; 计算负奇数个数 MOV NEGTODD,AH;-PRINT: ;打印正数提示符和正数（奇偶）个数 MOV AH,09H MOV DX,OFFSET POSICHAR INT 21H MOV AH,02H MOV DL,POSI ADD DL,30H INT 21H MOV AH,09H MOV DX,OFFSET EVENCHAR INT 21H MOV AH,02H MOV DL,POSIEVEN ADD DL,30H INT 21H MOV AH,09H MOV DX,OFFSET ODDCHAR INT 21H MOV AH,02H MOV DL,POSIODD ADD DL,30H INT 21H MOV DX,OFFSET CRMOV AH,09H INT 21H;- ;打印负数提示符和负数（奇偶）个数 MOV AH,09H MOV DX,OFFSET NEGTCHAR INT 21H MOV AH,02H MOV DL,NEGT ADD DL,30H INT 21H MOV AH,09H MOV DX,OFFSET EVENCHAR INT 21H MOV AH,02H MOV DL,NEGTEVEN ADD DL,30H INT 21H MOV AH,09H MOV DX,OFFSET ODDCHAR INT 21H MOV AH,02H MOV DL,NEGTODD ADD DL,30H INT 21H MOV DX,OFFSET CR MOV AH,09H INT 21H MOV AH,09H MOV DX,OFFSET ZEROCHAR INT 21H MOV AH,02H MOV DL,ZERO ADD DL,30H INT 21HEXT: MOV AX,4C00H INT 21H;-CODE ENDS END START(三)、实验分析数据区待统计的数据为：1 , 2 , 3 , 4 , 5 , 6 , -1 , -2 , -3 , 0 , 0 , 0 实验结果如下图所示。本实验较为简单，意在练习基本的分支、循环结构。关键的点在于和0比较，区分正负和零，然后在正数和负数中判断奇偶，这里巧妙地使用了和1与之后加和到偶数中，最后利用统计的数的个数减去偶数得奇数的方法。使得程序更加流畅和简洁，思路也更清晰。五、实验总结实验中设计好的计算思路是很重要的，汇编的代码由各种跳转和逻辑结构组成，需要考虑代码间的逻辑关系，否则容易出错。语法错误是很显而易见的，但逻辑错误却不容易发现。当有大量判断和循环存在时，需要考虑清楚程序跳转的条件和方向，这点和高级语言有较大差异，汇编本质上没有循环和分支，都是通过将IP赋予代码区地址进行跳转实现的，程序员需要自主控制如何跳转，向何处跳转，这点和C/C+中饱受诟病的goto语句处理有些类似。考虑到实验练习的重点在分支循环结构，此次写代码时暂时没有使用子程序或宏，导致输出部分代码有些过长。实验C 代码转换程序设计一、实验目的1. 掌握几种最基本的代码转换方法；2. 运用子程序进行程序设计。二、实验内容1. 从键盘上输入若干两位十进制数，寻找其中的最小值，然后在屏幕上显示出来。2. 两个十进制数之间的分隔符，输入结束标志自定，但要在报告中说明。3. 对输入要有检错措施，以防止非法字符输入，并有适当的提示。4. 将整个程序分解为若干模块，分别用子程序实现。在报告中要给出模块层次图。三、预习思考1. 如何将输入的两个字符(09)变为十进制或二进制数？答：输入的字符09是ASCII码表示的，对应于30H39H，通过减去30H，可以转换为相应的计算机数。2. 如何将选出的最小值(二进制或十进制)变为 ASCII 码再进行显示？答：如果采用输入时把ASCII码转换为数字，然后比较数字的大小再输出，那么输出时还需要把数字再次转换为ASCII码。这是不明智的。可以直接读入并存储数字的ASCII码，容易比较其大小，然后直接输出ASCII码即可。3. 你觉得采用二进制运算还是十进制运算更适合于这个实验？答：采用二进制或者十进制都需要进行ASCII码到数字的转换和其反向转换，换用新的思路可以大大简化编程负担。即直接使用数字对应的ASCII比较，分别比较十位和个位，最后直接输出字符即可。四、实验过程(一)流程图(二)模块层次图(三)源代码DATA SEGMENTINPUT DB 100 DUP(?)MINTMP DB 9-30H,9-30H ; 置最小值的初始值为99COUNT DB 0DIFERROR DB 0D; 用于判断调用输入子程序是否有错;提示信息字符串WELCOME DB Please input numbers:,$OUTTIP DB Minimum is :,$CR DB 0DH,0AH,$; 回车换行;各种错误输入提示 ERROR1 DB ERROR:Character is not valid!,$ ERROR2 DB ERROR:Number must contains two digits!,$ ERROR3 DB ERROR:Number is empty!,$ ERROR4 DB ERROR:Need separate char!,$DATA ENDS;-CODE SEGMENT ASSUME CS:CODE,DS:DATAMAIN PROC FAR MOV AX,DATA MOV DS,AX MOV DX,OFFSET WELCOME; 调用欢迎提示 CALL PRINT MOV DX,OFFSET CR; 回车换行 CALL PRINT CALL GETNUM; 获取用户输入 CMP IFERROR,0; 判断输入过程是否有错 JNZ BACK; 错误则直接返回DOS MOV DX,OFFSET CR; 回车换行 CALL PRINT CALL FINDMIN; 查找最小数 MOV DX,OFFSET OUTTIP; 调用输出提示 CALL PRINT MOV AH,02H MOV DL,MINTMP; 输出最小值的十位 ADD DL,30H INT 21H MOV AH,02H MOV DL,MINTMP1; 输出最小值的个位 ADD DL,30H INT 21H BACK: MOV AX,4C00H; 返回DOS INT 21HMAIN ENDP;-;获取输入，出口参数为IFERROR，表示是否有错GETNUM PROC PUSH AX; 保存现场 PUSH BX PUSH CX PUSH DX PUSH DI MOV DI,0; 数组偏移地址 MOV CX,0; 标识数字的位数GETLOOP: MOV AH,01H; 从键盘读取一个字符 INT 21H CMP AL,0DH; 和回车比较 JE EXIT1; 是回车则结束输入 CMP CX,0; 数字位数为空 JE CMPSPACE0 CMP CX,1; 数字位数为1 JE CMPSPACE1 CMP CX,2; 数字位数为2 JE CMPSPACE2CMPSPACE0: CMP AL,20H JE GETLOOP; 数字位数为0且输入空格则忽略，继续输入 JMP ASCBIN; 不是空格就读取该字符CMPSPACE1: CMP AL,20H JE ERR2; 数字位数为1且输入空格则位数不是两位数出错 JMP ASCBIN; 否则读取该字符CMPSPACE2: CMP AL,20H JNE ERR4; 数字位数为2后，不输入空格则分隔符错误 XOR CX,CX; 输入空格则清零重新计数 JMP GETLOOP ASCBIN: SUB AL,30H; 化为二进制数字 JL ERR1; 小于则无效字符 CMP AL,9; 和9比较 JG ERR1; 大于9则是无效字符 MOV INPUTDI,AL; 保存输入的数 INC COUNT; 统计输入的数字个数，为判断是否输入为两位数 INC DI; 向后移动数组 INC CX JMP GETLOOPERR1: MOV IFERROR,1; 输出错误1 MOV DX,OFFSET ERROR1 CALL PRINT JMP RETURNERR2: MOV IFERROR,1; 输出错误2 MOV DX,OFFSET ERROR2 CALL PRINT JMP RETURN ERR3: MOV IFERROR,1; 输出错误3 MOV DX,OFFSET ERROR3 CALL PRINT JMP RETURN ERR4: MOV IFERROR,1; 输出错误4 MOV DX,OFFSET ERROR4 CALL PRINT JMP RETURN EXIT1: MOV BL,COUNT; 判断输入数的个数是否为零 CMP BL,0 JE ERR3;输入数目为0则输出错误并退出 AND BL,01H; 判断数字是否为两位数 CMP BL,0 JNE ERR2;输入数字个数为奇数则出错RETURN: POP DI; 恢复现场 POP DX POP CX POP BX POP AX RETGETNUM ENDP;-;回车换行输出字符串，入口参数为DXPRINT PROC PUSH AX MOV AH,09H INT 21H POP AX RETPRINT ENDP;-;查找最小的数子程序FINDMIN PROC PUSH DI; 保护现场 PUSH AX PUSH CX MOV DI,-2; 数组下标 MOV CL,COUNT; 把数组长度移入CX MOV AL,CL CBW MOV CX,AXLOP: ADD DI,2 CMP CX,DI; 是否已经比较完毕 JE EXIT2; 如果比较完毕所有数则退出 MOV AH,INPUTDI;否则接着比较，移入十位数 MOV AL,INPUTDI+1; 移入个位数 CMP AH,MINTMP; 比较十位数，MINTMP低地址为十位 JA LOP ;如果MINTMP小，则直接比较下一个数 JE HIGHEQU ;如果十位数相等，比较个位数,再否则十位大就直接存储STOMIN: MOV MINTMP,AH MOV MINTMP1,AL JMP LOPHIGHEQU: CMP AL,MINTMP1; 比较个位数 JNB LOP; 个位数比MINTMP大则跳到下一个数 JMP STOMIN; 否则将当前数写入为MINTMPEXIT2: POP CX POP AX POP DI RETFINDMIN ENDP;-CODE ENDS END MAIN(四)实验分析下图是实验输出结果截图。实验中以空格为分隔符，空格的个数不限制，以回车为输入结束标志符。对输入的数字进行了位数和范围的严格限制，即必须是两位数字，如果数字小于10，需要补齐零。实验中对输入错误执行严格的检查，出错则重新输入。判断输入错误的核心思路为：以空格为分割，以回车结束，要求必须是两位数，也即，一位数字后不能有空格，两位数字后必须有空格，回车之后总的输入进行判断，数字个数必须为偶数，以上三种情况囊括了所有可能的格式错误，不满足任何一个条件即出错。满足格式输入后，再判断字符的是否09，不是则出错。每项错误均已错误列表的形式给出，打印出错误提示。总结实验中的关键设计思路如下：1、严格的输入格式检查，严格的输入字符有效性检查。2、以数组方式进行存储，每两个BYTE存储一个输入的两位数，存储格式为字符ASCII码。不进行字符ASCII码到数字的转换。3、比较数字大小时，采用分别比较高位ASCII码和低位ASCII码的方式，从而不用在输入时将字符存储为数字，输出时也不用再进行逆转换。程序效率大为提高。4、为使得程序结构清晰，减小代码耦合度，采用了多子程序的设计方式。把实验任务分为三步：读取输入、找出最小、输出打印，分别以子程序方式实现，主调函数依次调用完成实验任务。五、实验总结本实验的关键点在于如何设计子程序完成部分功能。在设计子程序的过程中，我依据结构化代码的流程进行划分，自然形成了读取输入、找出最小、打印输出的思路。这一思路是没有问题的，但存在子程序划分还不够细致的问题，比如，读取输入子程序代码过于冗长，这是因为我没有把输入格式检查、错误提示单独作为子过程进行独立编写。这是设计中的一大不足，这一缺陷也让我在调试子程序的时候颇费周折。这次教训一定要铭记。实验中比较大小的方式有多种，如何采用更加简洁有效的方式是值得思考的问题。我一开始也不免陷入到比较数字大小的常规方法中，但由于汇编输入具有特殊性，即输入的是ASCII码而非数字的大小，且存在将两个字符进行连接成为两位数的需求，而输出时又需要进行反过程。考虑到ASCII也是可以比较的，且十位数和个位数是可以分别比较的这一情况，我采用了巧妙的方式进行处理。这说明，在实际的编程中，需要根据具体情况调整一般方法，使得方法更加简洁可行且有效。实验D 子程序设计一、实验目的1. 进一步掌握子程序设计方法；2. 进一步掌握基本的 DOS 功能调用。二、实验内容1. 从键盘上输入某班学生的某科目成绩。输入按学生的学号由小到大的顺序输入。2. 统计检查每个学生的名次。3. 将统计结果在屏幕上显示。4. 为便于观察，输入学生数目不宜太多，以不超过一屏为宜。输出应便于阅读.尽可能考虑美观。5. 输入要有检错手段。三、预习思考1. 如何确定一个学生在这门科目中的名次？答：有两种基本思路，一是抽取每个学生的成绩和其他所有学生的成绩进行比较，然后统计比其分数高的学生，得出该学生的名次；二是把学生成绩存入连续内存区域，即数组方式，取得每个学生的成绩偏移量，即成绩指针。然后比较指针所指的成绩的大小，根据比较结果移动指针完成排序。具体排序时可以采用诸多的方式，比如冒泡法，快速排序法等等，均是可行的。本实验采用第二种方式，用冒泡法予以具体实现。2. 输入结束后，采用什么方法进行比较以得到学生的名次最为简单？答：如上问所述，采用冒泡排序法可获得较好的时间和空间性能。冒泡法平均时间性能O(N2)。相比于直接比较，性能有所改善。但相对于快速排序、归并排序等优化的算法的时间复杂度O(N*log2N)还不够好。但后两者使用汇编实现代码的复杂度和编程要求要高。考虑到学生人数比较少，使用冒泡法是比较简洁的，时间性能是可以接受的。3. 准备好模块层次图。答：见下文“实验过程”中所示。4. 给出输出显示的形式。答：输出以列表形式给出。学号、分数、名次各一列。具体形式参见实验分析部分的输出截图。四、实验过程(一)流程图(二)模块层次图(三)源代码DATA SEGMENTID DB 400 DUP(?);存储学号，每个16固定个BYTE，存储为字符串MARK DB 20 DUP(?); 存储分数，每个1BYTE，存储为二进制数RANK DB 20 DUP(?); 存储排名，每个1BYTE，存储为二进制数RANKTMP DB 20 DUP(?); 排序时指针临时区MTMP DB ?; 记录成绩的临时区COUNTB DB ?; 记录总的学生的个数，存为8位COUNTW DW ?; 记录总的学生个数，存为16位CHEOK DB ?; 输入检查标志位ERROR DB ?; 记录错误号TMP DB 2 DUP(?); 开辟两个内存临时存储区，用作判断和计数CR DB 0DH,0AH,$; 回车换行TAB DB 09H,09H,$;输出TAB键ERR0 DB Input cannot be empty!,$ERR2 DB Character is invalid!,$ERR4 DB Mark is invalid!,$ERR6 DB Input is invalid!,$ERRLIST DW ERR0,ERR2,ERR4,ERR6TIP0 DB Please re-input:,$TIP1 DB Please input number of students:,$TIP2 DB Please input ID and MARK:,$PRTIP DB -RESULT-,$PRINFO DB ID,09H,09H,MARK,09H,09H,RANK,$PRPRE1 DB ID : ,$PRPRE2 DB MARK: ,$BUFF DB 16; 定义输入缓冲区，最长的字符长度PRES DB ?; 存储实际输入了多少个字符CHAR DB 16 DUP(?); 实际可存储有效字符16个DATA ENDSCODE SEGMENT;-;打印提示字信息的宏,形参为PARAPRINTTIP MACRO PARAPUSH AXPUSH DXMOV AH,09HMOV DX,OFFSET PARAINT 21HPOP DXPOP AXENDM;-;打印单个字符的宏，形参为ACHARPRINTCHAR MACRO ACHARPUSH AXPUSH DXMOV AH,02HMOV DL,ACHARINT 21HPOP DXPOP AXENDM;-;主程序MAIN PROC FAR ASSUME CS:CODE,DS:DATA,ES:DATA MOV AX,DATA MOV DS,AX MOV ES,AX CALL GETNUMBER; 获得学生的人数 CALL GETINFO; 获得学号分数的输入 CALL SORT; 执行排序活动名次 CALL PRINT; 把名次结果打印出来BACK:MOV AX,4C00H; 返回DOS INT 21HMAIN ENDP;-;获得将要输入的学生的人数信息的子程序;每班的学生定义不超过100人GETNUMBER PROC NEARPUSH AXPUSH BXHE:PRINTTIP TIP1GREP: CALL GETIN; 获取一个输入缓冲MOV CHEOK,0CALL CHECKCMP CHEOK,0JE GRETURNMOV ERROR,6CALL PRINTERRPRINTTIP TIP0 PRINTTIP CRJMP GREPERRHERE: PRINTTIP CRMOV ERROR,6CALL PRINTERRPRINTTIP TIP0JMP GREP GRETURN: CALL CHANGEMOV AL,MTMPCMP AL,0JE ERRHEREMOV COUNTB,AL; 写入人数CBWMOV COUNTW,AXPRINTTIP CRPOP BXPOP AXRETGETNUMBER ENDP;-;循环直到输入人数满时终止，获得输入的字符串GETINFO PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH SIPUSH DIPRINTTIP TIP2MOV TMP,0; 记录是学号还是分数XOR BX,BX; 记录每个ID的偏移量XOR AX,AX; 记录学生数目MORE:PRINTTIP CRCMP COUNTB,AL JNZ HERE1 JMPRETURN; 计数器为0则返回父程序HERE1: CMP TMP,0JE PR1CMP TMP,1JE PR2PR1:PRINTTIP PRPRE1JMP HERE2PR2:PRINTTIP PRPRE2HERE2:CALL GETIN; 否则接受输入CALL CHECK; 检查输入是否是数字且不为空CMP CHEOK,0JNE CHEFAIL; 不为零则不合法，需要重新输入CMP TMP,0JE ISID ; 输入的是学号CMP TMP,1 ; JE ISMARK ;输入的是分数CHEFAIL:PRINTTIP TIP0 PRINTTIP CRMOV CHEOK,0; 重新把返回判断位置零JMP MORE;写入学号，固定为16个字符ISID:MOV DL,PRES; 抽取需要写入字符的个数XOR DH,DHMOV CX,DXMOV SI,CXINC CXMOV CHARSI,$; 把最后一个字符之后的位置填充为$;开始写入IDMOV TMP,1; 表示下一个是分数CLDMOV SI,OFFSET CHARMOV DI,OFFSET IDADD DI,BXREP MOVSB ;写入ID; 写完则为接受下一个输入BUFF作准备ADD BX,16; ID的偏移地址向后挪动固定的16BYTEJMP MORE; 跳回继续输入下一个BUFF;是学号，检查、转换、写入保存ISMARK:CALL CHANGECMP CHEOK,0JE WRITEMARKMOV ERROR,4JMP CHEFAILWRITEMARK:PUSH BXMOV BL,MTMPMOV DI,AXMOV MARKDI,BL; 实际写入成绩POP BXMOV TMP,0; 计数清理，表明下一个输入为学号INC AX; 已接受的学生个数加一JMP MORERETURN:POP DIPOP SIPOP DXPOP CXPOP BXPOP AXRETGETINFO ENDP;-;获得一次BUFF输入子程序;入口参数为BUFF的偏移地址，出口参数为BUFF中的字符串GETIN PROC NEARPUSH AXPUSH DXPUSH DIMOV DX,OFFSET BUFFMOV AH,0AHINT 21HPOP DIPOP DXPOP AXRETGETIN ENDP;-;执行输入字符是否是数字的合法性检查CHECK PROC NEARPUSH DIPUSH CXPUSH AXXOR DI,DI; 记录CHAR读取的偏移量MOV AL,PRES; 读取输入的BUFF中的字符数CBWMOV CX,AXCMP CX,0; 判断是否输入BUFF为空JE ISEMPTY; 为空则重新输入AGAIN:CMP CX,DIJE RETURNCHECKMOV AH,CHARDICMP AH,30H; JL INVALID; 小于则无效字符CMP AH,39H; JG INVALID; 大于则是无效字符INC DIJMP AGAINISEMPTY: MOV ERROR,0 ;输入为空的处理代码PRINTTIP CRCALL PRINTERRPRINTTIP CRMOV CHEOK,1JMP RETURNCHECKINVALID: MOV ERROR,2; 输入不合法的处理代码PRINTTIP CRCALL PRINTERRPRINTTIP CRMOV CHEOK,1RETURNCHECK:POP AXPOP CXPOP DIRETCHECK ENDP;-;处理成绩输入的子程序;检查输入成绩是否在0-100之间的子程序并转化为二进制数CHANGE PROC NEAR ;把3位数字转换为二进制数PUSH AXPUSH BXPUSH CX MOV CL,PRES CMP CL,3JA MINVALID; 四位数或以上，溢出 JE THRDIG; 三位数 CMP CL,2 JE TWODIG; 两位数 CMP CL,1 JE ONEDIG; 一位数THRDIG:;判断是否是100，是则直接在临时成绩区写入100MOV BL,CHAR0; 百位SUB BL,30HCMP BL,1JNE MINVALIDMOV BL,CHAR1; 十位SUB BL,30HCMP BL,0JNE MINVALIDMOV BL,CHAR2; 个位SUB BL,30HCMP BL,0JNE MINVALIDMOV MTMP,100 ;写入100JMP CRETURNTWODIG:; 当是两位数时判断十位是否是0，不是则进行转换，然后写入临时成绩中MOV BL,CHAR0; 十位SUB BL,30HCMP BL,0JE MINVALIDMOV AL,10MUL BL; 成10取得十位数MOV BL,CHAR1; 个位SUB BL,30HADD AL,BL; 因为小于100所以有效数在AL中， ；可以直接加个位数得结果MOV MTMP,AL; 写入转换后的数字JMP CRETURNONEDIG:;一位数时直接写入临时成绩区即可MOV BL,CHAR0; 个位SUB BL,30HMOV MTMP,BLJMP CRETURNMINVALID:MOV ERROR,4CALL PRINTERRMOV CHEOK,1 CRETURN:POP CXPOP BXPOP AX RETCHANGE ENDP;-;打印错误信息子程序PRINTERR PROC NEARPUSH AXPUSH DXPUSH BX MOV AL,ERRORCBWMOV BX,AXMOV AH,09H MOV DX,ERRLISTBXINT 21HPOP BXPOP DXPOP AXRETPRINTERR ENDP;-;排序子程序SORT PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX PUSH SI PUSH DI ;写入偏移量作为分数的指针 MOV AL,COUNTB; 读取学生数目 XOR BX,BX; BX作为寻址计数器 ;顺序写入成绩偏移量SLOP: DEC AL MOV RANKTMPBX,AL INC BX CMP AL,0 JNE SLOP ;排序名次，冒泡排序法 MOV CX,COUNTW; CX记录了总的学生人数 DEC CX JZ WRRAK;如果只有一个学生则直接写入名次，否则排序异常LOP1: XOR DI,DI; 从第一个名次开始LOP2: MOV AL,RANKTMPDI; 取出地址指针，即成绩偏移量 XOR AH,AH MOV SI,AX MOV DL,MARKSI; 取出成绩1 MOV AL,RANKTMPDI+1 XOR AH,AH MOV SI,AX MOV DH,MARKSI;同理取出成绩2 CMP DL,DH JGE NEXTCMP MOV AH,RANKTMPDI; 交换分数指针 XCHG AH,RANKTMPDI+1 MOV RANKTMPDI,AH NEXTCMP: INC DI CMP DI,CX JNE LOP2 LOOP LOP1 ;写入最后的名次WRRAK: XOR SI,SI MOV CX,COUNTW MOV BL,1; 保存名次LOPSAVE: CMP SI,CX JE FINISH MOV AL,RANKTMPSI; 提取该名次学生的地址指针 XOR AH,AH MOV DI,AX MOV RANKDI,BL; 写入该学生的名次 INC BL INC SI JMP LOPSAVEFINISH: POP DI POP SI POP DX POP CX POP BX POP AX RETSORT ENDP;-;打印输入成绩和名次子程序PRINT PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXPUSH SIPRINTTIP CRPRINTTIP PRTIP; 打印提示信息PRINTTIP CRPRINTTIP PRINFOPRINTTIP CRMOV CX,COUNTW; CX用于保存学生人数XOR SI,SI; SI用于指明当前处理的学生的序号XOR BX,BX; BX保存当前输入的学号偏移量，每次增16NEXPRINT:MOV TMP1,0; 对打印名次置标志位，表明没有打印