我的汇编语言语言作业

汇编语言上机试验报告

1) 掌握利用跳转表法进行多级程序设计

2) 掌握汇编语言程序综合设计能力

3) 掌握利用DEBUG进行汇编语言调试的基本方法

内容： 编写程序实现下列5项功能（任选3项），通过从键盘输入1~5进行菜单式选择：

1. 按数字键“<chmetcnv unitname="”" sourcevalue="1" hasspace="False" negative="False" numbertype="1" tcsc="0" w:st="on"><span lang="EN-US">1</span><span style="font-family: 宋体;">”</span></chmetcnv>，完成将字符串中的小写字母变换成大写字母。用户输入有英文大小写字母或数字0~9组成的字符串（以回车符结束）。变换后按以下格式在屏幕上显示：
<原字符串>例如：abcdgyt0092
<新字符串> ABCDGYT0092
按任意键重作，按Esc键返回主菜单。

2. 按数字键“2”，完成在字符串中找最大值。用户输入用英文大小写字母和数字0~9组成的字符串（以回车符结束）。找出最大值后按以下格式在屏幕上显示：
<元字符串>
The maximum is <最大值>.
按任意键重作，按Esc键返回主菜单。

3. 按数字键“3”，完成输入数据组的排序。用户输入一组十进制数值（小于255），然后转换成十六进制数，并按递增方式排序，按以下格式在屏幕上显示：
<原数值串>
<新数值串>
按任意键重作，按Esc键返回主菜单。

4. 按数字键“4”，完成时间的显示。首先提醒用户对时，即改变系统的定时器HH：MM：SS（以冒号间隔，回车结束），然后在屏幕上实时显示时间：
HH：MM：SS
按任意键重作，按Esc键返回主菜单。

5. 按数字键“5”，结束程序的运行，返回操作系统。

程序设计：

采用将各子功能设计为子程序，用主程序调用各个子程序完成各项功能。利用跳转表来调用子程序。

设计完成了功能1、2、4和5。

---

;*******************************

STRDISP MACRO _STRING ;显示字符串的宏

LEA DX,_STRING

MOV AH,09H

INT 21H

ENDM

;************************* MAIN FUNCTION ***************************

STACK SEGMENT STACK

DW 0FFH DUP(?)

TOP LABEL WORD

STACK ENDS

DATA SEGMENT

MAINMENU DB 0DH,0AH,'PLEASE SELECT:',0DH,0AH,

'1.TRANSFORM LOWER TO UPPER',0DH,0AH,

'2.FIND THE MAX',0DH,0AH,

'3.TRANSFORM DEC TO HEX AND SORT(UNDONE)',0DH,0AH,

'4.CHANGE TIME',0DH,0AH,

'5.EXIT',0DH,0AH,

'INPUT YOUR CHOICE:$'

STRSUB1 DB 0DH,0AH,'PLEASE INPUT STRING:',0DH,0AH,'$'

STRSUB2 DB 'PRESS Esc TO EXIT,PRESS ANYHEY TO CONTINUE...','$'

STRBUF DB 40H DUP(?)

TABLE DW PROC1 ;跳转表

DW PROC2

DW PROC3

DW PROC4

DW PROC5

CLRF DB 0DH,0AH,'$'

DATA ENDS

CODEM SEGMENT

ASSUME CS:CODEM,DS:DATA,SS:STACK,ES:DATA

<place w:st="on"><span lang="EN-US">MAIN</span></place>: MOV AX,DATA

MOV DS,AX

AGAIN:strdisp mainmenu ;显示主菜单

MOV AH,01H ;读入用户选择

INT 21H

SUB AL,30H ;将字符转换为数字

CMP <place w:st="on"><state w:st="on">AL</state></place>,1

JB AGAIN

CMP <place w:st="on"><state w:st="on">AL</state></place>,5

JA AGAIN

SUB <place w:st="on"><state w:st="on">AL</state></place>,1

SHL <place w:st="on"><state w:st="on">AL</state></place>,1

CBW

MOV BX,AX

JMP TABLE[BX]

PROC1:CALL FAR PTR UPPER ;CALL PROC1

JMP AGAIN

PROC2:CALL FAR PTR MAXIMUM ;CALL PROC2

JMP AGAIN

PROC3:NOP ;CALL PROC3

JMP AGAIN

PROC4:CALL FAR PTR SETTIME ;CALL PROC4

JMP AGAIN

PROC5:JMP EXIT

EXIT: MOV AH,4CH

INT 21H

CODEM ENDS

;**************************** SUBFUNCTION 1 ****************************

CODE1 SEGMENT

ASSUME CS:CODE1,DS:DATA

<place w:st="on"><span lang="EN-US">UPPER PROC</span></place> FAR

PUSH DX

PUSH CX

PUSH BX

PUSH AX

PUSH SI

PUSH DI

MOV AX,DATA

MOV DS,AX

AGAIN1:STRDISP STRSUB1 ;输出'PLEASE INPUT STRING:'

MOV BYTE PTR STRBUF,40H

LEA DX,STRBUF

MOV AH,0AH ;输入字符串到strbuf

INT 21H

MOV AL,STRBUF+1 ;取串长

add al,1

CBW

LEA SI,STRBUF+2

ADD SI,AX

MOV BYTE PTR [SI],'$'

MOV CX,AX

LOOP1:MOV BX,CX ;循环减小写字母转换为大写字母

CMP BYTE PTR STRBUF[BX],'a'

JB DONE

CMP BYTE PTR STRBUF[BX],'z'

JA DONE

SUB BYTE PTR STRBUF[BX],20H

DONE: LOOP LOOP1 ;循环

STRDISP CLRF ;回车换行

LEA DX,STRBUF+2

MOV AH,09H ;输出转换后的字符串

INT 21H

STRDISP CLRF

STRDISP STRSUB2

MOV AH,07H

INT 21H

CMP AL,01BH ;判断用户输入是否是Esc

JZ EXIT1 ;是则退出子程序

JMP AGAIN1

EXIT1:POP DI

POP SI

POP AX

POP BX

POP CX

POP DX

RET

<place w:st="on"><span lang="EN-US">UPPER ENDP</span></place>

CODE1 ENDS

;*************************** SUB FUNCTION 2 *****************************

SUB2DATA SEGMENT

SUB2STR1 DB 'PLEASE INOUT STRING:',0DH,0AH,'$'

SUB2STR2 DB 'PRESS Esc TO EXIT,PRESS ANYKEY TO CONTINUE...$'

SUB2STR3 DB 'THE MAXIMUM IS: $'

SUB2STR4 DB 0DH,0AH,'$'

SUB2BUF DB 40H DUP(?)

SUB2DATA ENDS

CODE2 SEGMENT

ASSUME CS:CODE2,DS:SUB2DATA,ES:SUB2DATA

MAXIMUM PROC FAR

PUSH DX

PUSH CX

PUSH BX

PUSH AX

PUSH DS

PUSH ES

PUSH SI

PUSH DI

MOV AX,SUB2DATA

MOV DS,AX

MOV ES,AX

SUB2AGAIN:

STRDISP SUB2STR4 ;输出回车换行

STRDISP SUB2STR1 ;输出'PLEASE INOUT STRING:'

MOV BYTE PTR SUB2BUF,40H

LEA DX,SUB2BUF

MOV AH,0AH ;输入字符串到SUB2BUF

INT 21H

MOV AL,SUB2BUF+1

CBW

MOV CX,AX ;取字符串的长度

LEA SI,SUB2BUF+2

ADD SI,AX

MOV BYTE PTR [SI],'$'

LEA DI,SUB2BUF+2

sub di,1

MOV <place w:st="on"><state w:st="on">AL</state></place>,0

cld

LOOPSUB2:SCASB ;扫描字符串，SCASB 用AL的值减去ES:[DI]指向的值设置标志位

cmp al,es:[di]

Ja LOOPSUB2END ;AL>ES:[DI]则跳转到LOOPSUB2END

MOV AL,ES:[DI] ;AL<ES:[DI]则用ES:[DI]代替AL

LOOPSUB2END:<place w:st="on">LOOP</place> LOOPSUB2

cbw

push ax

STRDISP SUB2STR4 ;输出回车换行

STRDISP SUB2STR3 ;输出'THE MAXIMUM IS: $'

pop ax

mov dl,al

MOV AH,02H ;输出最大字符

INT 21H

STRDISP SUB2STR4 ;输出回车换行

STRDISP SUB2STR2 ;输出结束提示

MOV AH,07H ;读取按键

INT 21H

CMP AL,01BH ;与 Esc 比较

JZ EXIT2 ;是 则退出

JMP SUB2AGAIN ;否 则跳到开始,循环

EXIT2:POP DI

POP SI

POP ES

POP DS

POP AX

POP BX

POP CX

POP DX

RET

MAXIMUM ENDP

CODE2 ENDS

;*******************************

TRANS MACRO _SEG,_MEMO ;宏：将二进制数转换为数字字符

MOV <place w:st="on"><state w:st="on">AL</state></place>,_SEG

CBW

DIV TEN

ADD AH,THIRTY

ADD <place w:st="on"><state w:st="on">AL</state></place>,THIRTY

MOV _MEMO,<place w:st="on"><state w:st="on">AL</state></place>

MOV _MEMO+1,AH

ENDM

DECTOBIN MACRO _MEMORY,_SEGMENT ;宏：将两位的十进制数转换为二进制

MOV <place w:st="on"><state w:st="on">AL</state></place>,_MEMORY

SUB <place w:st="on"><state w:st="on">AL</state></place>,THIRTY

MUL BYTE PTR TEN

ADD AL,_MEMORY+1

SUB <place w:st="on"><state w:st="on">AL</state></place>,THIRTY

MOV _SEGMENT,<place w:st="on"><state w:st="on">AL</state></place>

ENDM

;******************************* SETTIME *******************************

SUB4DATA SEGMENT

HOUR DB '00$'

MINUTE DB '00$'

SECOND DB '00$'

<city w:st="on"><place w:st="on"><span lang="EN-US">COLON</span></place></city> DB ':$'

TEN DB 10D

THIRTY DB 30H

SUB4STR1 DB 'TIME:$'

STREND DB 'PRESS Esc TO EXIT,PRESS ANYOTHER KEY TO CONTINUE...$'

CLRF4 DB 0DH,0AH,'$'

TIMEBUF DB 12,8,'HH:MM:SS$'

SUBSTR2 DB 'PLEASE INPUTT THE TIME(HH:MM:SS):$'

SUBSTR3 DB 'DO YOU WANT TO RESET TIME(Y/N)?$'

SUBSTR4 DB 'SETTIME ERROR$'

SUB4DATA ENDS

CODE4 SEGMENT

ASSUME CS:CODE4,DS:SUB4DATA,ES:SUB4DATA

SETTIME PROC FAR

PUSH DX

PUSH CX

PUSH BX

PUSH AX

PUSH DS

PUSH ES

PUSH SI

PUSH DI

MOV AX,SUB4DATA

MOV DS,AX

MOV ES,AX

SUB4AGAIN:

STRDISP CLRF4

MOV AH,2CH ;取系统时间

INT 21H

TRANS CH,HOUR

TRANS CL,MINUTE

TRANS DH,SECOND

STRDISP SUB4STR1 ;显示时间

STRDISP HOUR

STRDISP <city w:st="on"><place w:st="on">COLON</place></city>

STRDISP MINUTE

STRDISP <city w:st="on"><place w:st="on">COLON</place></city>

STRDISP SECOND

STRDISP CLRF4

STRDISP SUBSTR3

MOV AH,01 ;INPUT A LETTER INTO <place w:st="on"><state w:st="on">AL</state></place>

INT 21H

CMP AL,'Y'

JE RESETTIME

CMP <state w:st="on"><place w:st="on">AL</place></state>,'y'

JNE NORESETTIME ;IF <place w:st="on"><state w:st="on">AL</state></place> IS NOT 'Y' OR 'y' THEN END

RESETTIME:

STRDISP CLRF4

STRDISP SUBSTR2

LEA DX,TIMEBUF

MOV AH,0AH ;INPUT THE TIME STRING

INT 21H

DECTOBIN TIMEBUF+2,CH

DECTOBIN TIMEBUF+5,CL

DECTOBIN TIMEBUF+8,DH

MOV AH,2DH ;SET TIME

INT 21H

CMP AL,0 ;判断是否设置成功

JZ SUB4AGAIN ;AL为00则成功，为0FF则失败

STRDISP CLRF4

STRDISP SUBSTR4 ;显示出错信息

JMP SUB4AGAIN

NORESETTIME:

STRDISP CLRF4

STRDISP STREND

MOV AH,07H ;读取按键

INT 21H

CMP AL,01BH ;与 Esc 比较

JZ EXIT4 ;是 则退出

JMP SUB4AGAIN ;否 则跳到开始,循环

EXIT4:POP DI

POP SI

POP ES

POP DS

POP AX

POP BX

POP CX

POP DX

RET

SETTIME ENDP

CODE4 ENDS

END <place w:st="on">MAIN</place>