西电微机原理大作业

1、精选优质文档-倾情为你奉上汇编语言程序设计综合实验姓名：刘发强学号： 2016年12月25日题目功能及要求题目要求编写程序实现下列5项功能，通过从键盘输入15进行菜单式选择：（1）按数字键“1”，完成将字符串中的小写字母变换成大写字母。用户输入由英文大小写字母或数字09组成的字符串（以回车结束），变换后按下列格式在屏幕上显示：例如：abcdgyt0092 ABCDGYT0092按任一键重做；按Esc键返回主菜单。（2）按数字键“2”，完成在字符串中找最大值。用户输入由英文大小写字母或数字09组成的字符串（以回车结束），找出最大值后按下列格式在屏幕上显示： The maximum is 按任一键

2、重做；按Esc键返回主菜单。（3）按数字键“3”，完成输入数据组的排序。用户输入一组十进制数值（小于255），然后变换成十六进制数，并按递增方式进行排序，按下列格式在屏幕上显示：按任一键重做；按Esc键返回主菜单。（4）按数字键“4”，完成时间的显示。首先提示用户对时，即改变系统的定时器HH：MM：SS（以冒号间隔，回车结束），然后在屏幕的右上角实时显示出时间：HH：MM：SS。按任一键重新对时；按Esc键返回主菜单。（5）按数字键“5”，结束程序的运行，返回操作系统。程序功能及分析：程序主干：（1） 主程序：通过调用屏幕初始化子程序、光标位置设定子程序、清屏子程序、菜单显示子程序、命令解析子

3、程序完成显示器初始化，设置光标位置，打印程序菜单列表以及用户输入提示信息，并等待用户从键盘输入15进行菜单选择。用户输入错误会被要求重输。子程序跳转利用数据段转移地址查找表实现。从子服务退回时，重新开始上述操作。（2） 子服务一：将字符串中的小写字母转换成大写字母，并输出到屏幕上。先调用字符串输出子程序输出提示信息，后调用字符串输入子程序将用户从键盘输入的字符串读到BUFFER1存储区，后逐个判断字符是否为小写字母，如果是，则通过逻辑与进行转化，完成后，将结果放置到BUFFER2，后调用字符串输出子程序完成输出。然后输出是否重做提示信息，调用无回显的字符读入子程序，并判断退出到主程序或重做。（

4、3） 子服务二：找出一字符串中ASCII码最大的字符并输出。先调用字符串输出子程序输出提示信息，后调用字符串输入子程序将用户从键盘输入的字符串读到BUFFER1存储区，将AL赋初值为第一个字符，后将AL作为暂时最大值与各字符逐个比较，若小于则将其值赋给AL，否则不赋。后将结果与提示信息生成字符串，后调用字符串输出子程序完成输出。然后输出是否重做提示信息，调用无回显的字符读入子程序，并判断退出到主程序或重做。（4） 子服务三：读入一组十进制数，递增排序，并原格式输出。先调用字符串输出子程序输出提示信息，后调用字符串输入子程序将用户从键盘输入的字符串读到BUFFER1存储区，后调用十进制数转二进制

5、数子程序，将转换数据放置到BUFFER2，再利用冒泡算法对BUFFER2内的数据递增排序，再调用二进制数转十进制数子程序将BUFFER2内的二进制数转化为十进制数，放置到BUFFER3存储区内，并调用字符串格式修正子程序将不必要的前导0删除，再调用字符串输出子程序将BUFFER3内的数据输出。对于非法输入（数值超过255、非法字符）会给出错误提示信息。然后输出是否重做提示信息，调用无回显的字符读入子程序，并判断退出到主程序或重做。（5） 子服务四：完成时间的显示、修改。调用字符串输出子程序将是否更改时间提示信息输出，并调用无等待字符读入子程序等待用户输入。然后通过DOS功能调用读出系统时间，后

6、调用二进制转十进制数子程序，将系统时间显示到屏幕右上方。如果用户确认修改时间，则调用字符串读入子程序将时间放置到BUFFER1，后调用十进制数转二进制数子程序并将结果放置到BUFFER2，后通过DOS功能调用将数据送给系统，如果出错则给出出错信息。然后输出是否重做提示信息，调用无回显的字符读入子程序，并判断退出到主程序或重做。（6） 子服务五：退出到系统。通过DOS功能调用完成。辅助子程序：（1） 命令解析子程序：完成对用户输入选择信息的检查，合法则安排服务跳转，否则要求用户重做。（2） 菜单显示子程序：调用字符串输出子程序将菜单输出到屏幕上。（3） 屏幕初始化子程序：通过BIOS功能调用将屏

7、幕设置成80*25字符模式。（4） 光标位置设定：通过BIOS功能调用完成设定。（5） 字符串显示子程序：通过DOS功能调用完成。（6） 清屏子程序：通过重新设置屏幕显示模式到达清屏目的。（7） 字符串读入子程序：通过DOS功能调用完成字符串输入，数据放在BUFFER1。（8） 字符读入子程序：通过DOS功能调用完成。（9） 无等待的字符读子程序：通过DOS功能调用完成。（10） 无回显的字符读入子程序：通过DOS功能调用完成。（11） 字符串结束符添加子程序：在指定存储区的字符串的最后添加回车、换行、字符串结束符。（12） 字符输出子程序：通过DOS功能调用完成。（13） 十进制数转二进制数

8、子程序：利用加权求和公式将读入的十进制数（ASCII码字符串表示的数字）转化成二进制数并放到BUFFER存储区，其中第一个字节变量值为数据个数。具有非法字符判定、数值超过255等判断。（14） 二进制数转十进制数子程序：利用除10取余并逆序的算法将每一个二进制数转化为十进制数（ASCII字符串），将输出放置到BUFFER3存储区。（15） 字符串前导0删除子程序：将十进制数（ASCII码字符串）高位的前导0删除。 汇编源程序STACK SEGMENT STACK DW 4096 DUP(C) TOP LABEL WORDSTACK ENDSDATA SEGMENT TRANSFORM DB 1

9、.TRANSFORM, 0DH,0AH,$ MAX DB 2.MAX,0DH,0AH,$ SORT DB 3.SORT,0DH,0AH,$ TIME DB 4.TIME,0DH,0AH,$ EXIT DB 5.EXIT,0DH,0AH,$ WAITING DB PLEASE INPUT NUM 1-5 TO SELECT SERVICE:,0DH,0AH,$ TIP DB PLEASE INPUT A STRING,0DH,0AH,$ TIPNUM DB PLEASE INPUT A GROUP OF DECIMAL,0DH,0AH,$ ANYKEY DB PRESS ANY KEY TO C

10、ONTINUE,0DH,0AH,$ MAXIMUM DB THE MAXIMUM IS:$ INPUT_TIME DB PLEASE INPUT CURRENT TIME LIKE HH:MM:SS,0DH,0AH,$ QUESTION DB DO YOU WANT TO SET TIME(Y/N),0DH,0AH,$ INPUT_ERROR DBERROR OR INVALID INPUT,0DH,0AH,$ SUCCESS DB SET TIME SUCCEED,0DH,0AH,$ STRING DW TRANSFORM,MAX,SORT,TIME,EXIT,WAITING SERVICE

11、 DW TRANS,FIND_MAX,SORTING,SET_TIME,EXIT_TOSYS BUFFER1 DB 512 DUP(C) ;INPUT BUFFER BUFFER2 DB 512 DUP(C) ;PROCESS WORKSPACE BUFFER3 DB 512 DUP(C) ;OUTPUT BUFFER DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART: MOV AX,DATA MOV DS,AX MOV ES,AX LEA AX,TOP MOV SP,AX CALL SCREEN_INITMA

12、IN_AGAIN: CALL CLEAR_SCREEN CALL DISPLAY_MENU CALL GET_CHAR CALL ORDER_PARSE JMP MAIN_AGAIN MOV AH,4CH INT 21H ORDER_PARSE PROC NEAR ;RETURN AL=-1 IF ERROR ELSE INVOKE SERVICE PUSH AX PUSH BX AND AL,0FH CMP AL,1 JB ERROR_OVER CMP AL,5 JA ERROR_OVER LEA BX,SERVICE DEC AL SHL AL ,1 XOR AH,AH ADD BX,AX

13、 CALL CLEAR_SCREEN CALL word ptr BX POP BX POP AX JMP OVER_ORDERERROR_OVER : MOV AL,0FFHOVER_ORDER: RETORDER_PARSE ENDP DISPLAY_MENU PROC NEAR ;display menu including five items PUSH DX PUSH CX PUSH SI MOV DH,0BH MOV DL,14H MOV CX,06H LEA SI,STRING NEXT_DIS: MOV BH,0 CALL CURSOR_SET PUSH DX MOV DX,S

14、I ADD SI,02H CALL STRING_DISPLAY POP DX INC DHLOOP NEXT_DIS POP SI POP CX POP DX RETDISPLAY_MENU ENDP SCREEN_INIT PROC NEAR ;set screen mode 80*25 character PUSH AX MOV AH,0 MOV AL,02H INT 10H POP AX RETSCREEN_INIT ENDP CURSOR_SET PROC NEAR ;set cursor BH PAGE,DH ROW,DL COLUMN PUSH AX MOV AH,02H INT

15、 10H POP AX RETCURSOR_SET ENDP STRING_DISPLAY PROC NEAR ;display string DX ADDRESS PUSH AX MOV AH,09H INT 21H POP AX RETSTRING_DISPLAY ENDPCLEAR_SCREEN PROC NEAR ;clear screen PUSH AX MOV AX,3 INT 10H POP AX RET CLEAR_SCREEN ENDP GET_CHAR_DIR PROCPUSH DXMOV AH,06HMOV DL,0FFHINT 21HPOP DXRETGET_CHAR_

16、DIR ENDPGET_CHAR_N PROC NEAR;AL=INPUT CHAR,NO DISPLAYMOV AH,07HINT 21HRETGET_CHAR_N ENDPGET_CHAR PROC NEAR ;AL=IMPUT CHAR PUSH DX MOV AH,01H INT 21H PUSH AX MOV DL,0DH MOV AH,02H INT 21H MOV DL,0AH INT 21H POP AX POP DX RET GET_CHAR ENDPGET_STRING PROC NEAR ;DS:DXBUFFER2,CNT-BUF2,NUM-BUF2+1PUSH AXPU

17、SH BXPUSH CXPUSH DXPUSH SIPUSH DILEA SI,BUFFER1+2LEA DI,BUFFER2+1XOR CH,CHMOV CL,BUFFER1+1MOV AL,0MOV BL,0AHMOV BYTE PTR BUFFER2,0JCXZ DH_OVERDEC_NEXT:MOV BH,BYTE PTR SICMP BH, JZ NEXT_NUMCMP BH,0JB ERROR_OVERFLOWCMP BH,9JA ERROR_OVERFLOWCMP BH,:JZ NEXT_NUMAND BH,0FHMUL BLJC ERROR_OVERFLOWADD AL,BHJ

18、C ERROR_OVERFLOWJMP NEXT_PRONEXT_NUM:MOV DI,ALINC DIINC BYTE PTR BUFFER2XOR AX,AXNEXT_PRO:INC SILOOP DEC_NEXTMOV DI,ALINC BYTE PTR BUFFER2 JMP DH_OVERERROR_OVERFLOW:MOV BUFFER2,0 DH_OVER: POP DIPOP SIPOP DXPOP CXPOP BXPOP AXRETDEC2HEX ENDPHEX2DEC PROC ;INPUT:BUFFER2,NUM,BUFFER2+1,START; ; OUTPUT:BUF

19、FER3,STRING,STACK :OR ,3OR2 PUSH AXPUSH BXPUSH CXPUSH DXPUSH SIPUSH DIMOV BP,SPADD BP,0EHLEA DI,BUFFER3LEA SI,BUFFER2+1MOV CL,BUFFER2XOR CH,CHMOV BL,0AHJCXZ HEX_OVERHEX2DEC_OUTTER:MOV AH,0MOV AL,SIPUSH CXPUSH DIMOV DL,BP+1XOR DH,DHADD DI,DXDEC DIMOV CL,BP+1HEX2DEC_INNER:DIV BLOR AH,30HMOV BYTE PTR D

20、I,AHDEC DIXOR AH,AHLOOP HEX2DEC_INNERINC SIPOP DIPOP CXADD DI,DX MOV AH,BPMOV BYTE PTR DI,AHINC DILOOP HEX2DEC_OUTTERHEX_OVER:MOV SI,DICALL STR_ENDPOP DIPOP SIPOP DXPOP CXPOP BXPOP AXRET 2HEX2DEC ENDPSTR_NUM_ADJUST PROC;INPUT:BUFFER3，REMOVE INVALID ZEROPUSH AXPUSH BXPUSH SIPUSH DILEA SI,BUFFER3LEA D

21、I,BUFFER3XOR AL,ALL1:MOV BL,SICMP BL,0DHJZ ADJUST_OVERCMP BL, JZ CHAR_NEXTCMP BL,0JZ CHECK_FLAGMOV AL,01HJMP TRANSFERCHECK_FLAG:CMP AL,0JZ ADJUST_NEXTTRANSFER:MOV DI,BLINC DIJMP ADJUST_NEXTCHAR_NEXT:MOV BYTE PTR DI, INC DIXOR AL,ALADJUST_NEXT:INC SIJMP L1ADJUST_OVER:MOV SI,DICALL STR_ENDPOP DIPOP SI

22、POP BXPOP AXRETSTR_NUM_ADJUST ENDPSORTING PROC ;SORTPUSH AXPUSH CXPUSH DXPUSH DISORT_AGAIN:LEA DX,TIPNUMCALL STRING_DISPLAYCALL GET_STRINGCALL DEC2HEXXOR CH,CHMOV CL,BUFFER2 JCXZ SORT_ERRORDEC CXJCXZ SORT_COMPLETESORT_OUTTER:LEA DI,BUFFER2+1PUSH CXSORT_INNER:MOV AL,DICMP AL,DI+1JBE SORT_NOPROCESSXCH

23、G AL,DI+1 MOV DI,ALSORT_NOPROCESS:INC DILOOP SORT_INNERPOP CXLOOP SORT_OUTTERSORT_COMPLETE: MOV AH,03H MOV AL, PUSH AX CALL HEX2DEC CALL STR_NUM_ADJUST LEA DX,BUFFER1+2 CALL STRING_DISPLAY LEA DX,BUFFER3 CALL STRING_DISPLAY SORT_TIP: LEA DX,ANYKEY CALL STRING_DISPLAY CALL GET_CHAR_N CMP AL,1BH JNZ S

24、ORT_AGAIN JZ SORT_OVERSORT_ERROR: LEA DX,INPUT_ERROR CALL STRING_DISPLAY JMP SORT_TIPSORT_OVER:POP DIPOP DXPOP CXPOP AX RETSORTING ENDPSET_TIME PROC;TIME SET SERVICE PUSH AX PUSH CX PUSH DXSETTIME_AGAIN: CALL CLEAR_SCREEN LEA DX,QUESTIONCALL STRING_DISPLAY REFRESH: MOV AH,2CHINT 21HMOV BUFFER2,3MOV BUFFER2+1,CHMOV BUFFER2+2,CLMOV BUFFER2+3,DHMOV AH,02HMOV AL,:PUSH AXCALL HEX