微机原理与接口技术习题答案4章

第4章 汇编语言程序设计

1. 已知在BUF的起始处保存有N个字符的ASCII码，编写汇编语言程序实现，将这组字

符串传送到缓冲区BUFR中，并且使字符串的顺序与原来的顺序相反。 解：BUF

BUFR

MOV CX, N LEA SI, BUF LEA DI, BUFR ADD DI,CX DEC DI L1:

MOV AL,[SI] MOV [DI],AL INC SI DEC DI LOOP L1

2. 利用移位、传送和相加指令实现AX的内容扩大10倍。

解：将扩大后的结果放在DX：AX中，注意到10×AX＝8×AX＋2×AX。 XOR SHL RCL

DX,DX AX, 1 DX, 1

DB \DB 100 DUP(?)

MOV BX,AX MOV SHL RCL SHL RCL

CX,DX AX, 1 DX, 1 AX, 1 DX, 1

－ 0 －

ADD ADC

AX, BX DX, CX

3. 在缓冲区VAR中连续存放着3个16位的无符号数，编写程序实现将其按递增关系排列；

如果VAR中保存的为有符号数，则再编写程序实现将其按递减关系排列。 解：VAR DW 1236，-432，3900

XOR SI,,SI MOV AX,VAR[SI] CMP AX, VAR[SI+2] JAE L1

XCHG AX, VAR[SI+2] L1:

CMP AX, VAR[SI+4] JAE L2

XCHG AX, VAR[SI+4] L2:

MOV VAR[SI], AX MOV AX,VAR[SI+2] CMP AX, VAR[SI+4] JAE L3

XCHG AX, VAR[SI+4] L3:

MOV VAR[SI+2], AX

4. 编写程序段实现将AL和BL中的每一位依次交叉，得到的16位字保存在DX中，例

如（AL）＝01100101B，（BL）＝11011010B，则得到的（DX）＝10110110 10011001B。 解：利用移位指令完成。

L1:

XOR DX,DX MOV CX,8

SHR AL,1 RCR DX,1

－ 1 －

SHR BL,1 RCR DX,1 LOOP L1

5. 在变量VAR1和VAR2中分别保存有两个字节型的正整数，编写完整的汇编语言程序实

现：

（1）当两数中有一个奇数时，将奇数存入VAR1，偶数存入VAR2；

（2）当两数均为奇数时，两个变量的内容不变； （3）当两数均为偶数时，两数缩小一倍后存入原处。

解：当VAR1为奇数时，不论VAR2的奇偶性，这两个单元的内容均不变；只有当VAR1为偶数时，如果VAR2为奇数，则VAR1与VAR2内容交换；如果VAR2为偶数，则两数缩小一倍后存入原处。 DATA SEGMENT VAR1 DB 28 VAR2 DB 36 DATA ENDS CODE SEGMENT

ASSUME CS:CODE, DS:DATA, ES:DATA

START:

MOV AX, DATA MOV DS,AX MOV ES, AX MOV AL,VAR1 MOV BL,VAR2 TEST AL,1 JZ

EVEN1

JMP OVER

EVEN1:

TEST BL,1

JZ EVEN2 MOV VAR1,BL

－ 2 －

MOV JMP

VAR2,AL OVER

EVEN2:

SHR MOV SHR MOV

AL,1 VAR1,AL BL,1 VAR2,BL

OVER:

MOV AH,4CH MOV AL,0 INT ENDS END START

21H

CODE

6. 已知在字变量VAR1、VAR2和VAR3中保存有3个相同的代码，但有一个错码，编写

程序段找出这个错码，并将它送到AX，其地址送SI；如果3个代码都相同，则在AX中置－1标志。 解：在数据段中定义：

VAR1 DW 5A34H VAR2 DW 5A35H VAR3 DW 3A34H 在代码段中编写程序段：

MOV AX,-1 MOV BX,VAR1 CMP BX,VAR2 JZ L2 CMP BX,VAR3 JZ L1 MOV AX,BX LEA SI,VAR1 JMP OVER

－ 3 －

L1:

MOV AX,VAR2 LEA SI,VAR2 JMP OVER L2:

CMP BX,VAR3 JZ OVER MOV AX,VAR3 LEA SI,VAR3 OVER:

7. 分析下列程序段的功能：

MOV CL，04 SHL DX，CL MOV BL，AH SHL AX，CL SHR BL，CL OR DL，BL

解：程序段完成DX:AX组成的32位无符号数左移4位，低位补零（也即除以16）。 8. 下列程序段执行后，求BX寄存器的内容：

MOV CL，3 MOV BX，0B7H ROL BX，1 ROR BX，CL

解：实际上完成BX内容循环右移2位，因此，BX寄存器的内容为C02DH。 9. 下列程序段执行后，求BX寄存器的内容：

MOV CL，5 MOV BX，7D5CH SHR BX，CL

解：完成BX内容逻辑右移5位，因此，BX寄存器的内容为03EAH。

－ 4 －

10. 将BUFFERS中N个字按相反顺序传递到BUFFERT中。 解：

LEA SI,BUFFERS LEA DI,BUFFERT MOV CX,N ADD DI,N ADD DI,N SUB DI,2 L1:

MOV AX,[SI] MOV [DI],AX ADD SI,2 SUB DI,2 LOOP L1

11. 数组ARRAY中存放有一组字型数据，前两个字节存放数据长度（5的倍数）。为给这

个数组中的数据进行加密保护，每5个数据取出一个数据进行加密处理：奇数位进行取反，偶数位不变，例如对数据0110 1100 1011 0001B加密后变成1100 0110 0001 1011B，编写加密程序encrpytion 和解密程序 unencrpytion 。

解：约定从第一个数据开始，每5个数据为一组，每组中的第一个数据采取加密/解密处理。由于加密算法采用的是取反操作，解密算法也采用取反操作，因此解密和解密算法是同一个程序。

ENCRPYTION PROC NEAR

LEA SI,ARRAY

XOR DX,DX MOV AX,[SI] MOV BX,5 DIV BX MOV CX, AX ADD SI, 2

L1:

－ 5 －

MOV AX, [SI] XOR AX,0AAAAH MOV [SI], AX ADD SI,10 LOOP L1 RET

ENCRPYTION ENDP

13. 设BUF中存放有N个无符号数（或有符号数），编程实现求它们的最小值（存入AX）

和最大值（存入DX）。

解：BUF存放有N个无符号数的程序如下： MOV CX,N-1 LEA SI,BUF MOV AX,[SI] MOV DX,AX ADD SI,2 L1:

CMP AX,[SI] JBE NOCHG1 XCHG AX,[SI] NOCHG1:

CMP DX,[SI] JAE NOCHG2 XCHG DX,[SI] NOCHG2:

ADD SI,2 LOOP L1

如果BUF中存放的是有符号数，则只需要将程序中的两行内容修改：

JBE NOCHG1 JAE NOCHG2

改成：JLE NOCHG1 改成：JGE NOCHG2

－ 6 －

14. 设BUFFER中存放有N个无符号（第1个字节存放缓冲区的长度），编程实现将其中的

0元素抹去，并更新其长度。

解：设BUFFER中存放的是字节型数据。采用双指针方法：SI为读指针，DI为写指针，从低地址开始，内存中读出一个字节，如果不为0，则写入内存；如果为0，则不进行写操作。

LEA SI, BUFFER XOR CX,CX MOV CL, [SI] INC SI MOV DI, SI XOR BH,BH XOR AL,AL L1:

CMP [SI],AL JZ L2 MOV BL,[SI] MOV [DI],BL INC DI INC BH L2:

INC SI LOOP L1

MOV BUFFER,BH

16. 编写一个子程序实现统计AL中1的个数，然后检测出字节型缓冲区BUF中0和1个

数相等的元素个数。

解：统计AL中1的个数，只需将AL右移，移出的一位内容进行累加，子程序为： COUNTBYTE PROC NEAR PUSH AX PUSH CX

－ 7 －

MOV CX,8 XOR BL,BL

COU1:

SHR AL,1 ADC BL,0 LOOP COU1 POP CX POP AX RET COUNTBYTE ENDP

在此基础上，可以检测出字节型缓冲区BUF中0和1个数相等的元素个数，即一个字

节中有4个1。设BUF中有N个字节型数据，结果保持在BH中。

MOV CX,N LEA SI, BUF XOR BH,BH L1: MOV AL,[SI]

CALL COUNTBYTE CMP BL,4 JNZ L2 INC BH L2: INC SI

LOOP L1

19. 在缓冲区BUFFER中，第1个字节存放数组的长度（<256），从第2个字节开始存放字

符的ASCII码，编写子程序完成在最高位给字符加上偶校验。 解：STACK SEGMENT STACK 'STACK' DW 100H DUP（?） TOP LABEL BYTE

STACK ENDS

－ 8 －

DATA SEGMENT BUFFER DB 3 DB 'ABC'

DATA ENDS CODE SEGMENT

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

START:

MOV AX,STACK MOV SS,AX LEA SP,TOP MOV AX,DATA MOV DS,AX MOV ES,AX LEA DI,BUFFER XOR CX,CX MOV CL,[DI] INC DI

CALL SETEVEN MOV AH,4CH MOV AL,0 INT 21H SETEVEN PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DI SETEVEN1:

MOV AL,[DI] CALL COUNTBYTE

－ 9 －

;首字节为字符串长度 ;字符串

;返回DOS

;加偶校验子程序

AND BL,01H JZ SETEVEN2 OR AL,80H MOV [DI],AL SETEVEN2: INC DI

LOOP SETEVEN1 POP DI POP CX POP BX POP AX RET SETEVEN ENDP COUNTBYTE

PROC NEAR

PUSH AX PUSH CX MOV CX,8 XOR BL,BL

COU1:

SHR AL,1 ADC BL,0 LOOP COU1 POP CX POP AX RET COUNTBYTE ENDP

CODE ENDS END START

20. 编写程序完成求多位数（N个字）的绝对值。

－ 10 －

21. 已知斐波那契数列的定义为：F1数列前n项的子程序。

?1,F2?1,Fi?Fi?1?Fi?2(i?3)，编写求该

解：设奖斐波那契数列存放在字变量RESULT中。在数据段中定义 RESULT DW 100H DUP（?）

在代码段中编写子程序 FIBONACCI

PROC NEAR

XOR DI,DI

MOV RESULT[DI],1

；前两个数为1

MOV RESULT[DI+2],1

ADD DI,4 MOV CX,N

L1:

MOV AX, RESULT[DI-4] ADD AX, RESULT[DI-2] MOV RESULT[DI],AX ADD DI,2 LOOP L1 RET FIBONACCI ENDP

22. 编写程序实现循环显示10条信息，保存每条信息的变量分别为INFOM1～INFORM10。 解：在数据段中定义变量：

TABLE DW INFORM1, INFORM2, INFORM3, INFORM4, INFORM5 DW INFORM6, INFORM7, INFORM8, INFORM9, INFORM10 在代码段中编写程序段：

MOV XOR MOV MOV

CX,10 SI,SI

DX,TABLE[SI] AH,9

L1:

－ 11 －

INT ADD CALL LOOP

21H SI,2 WAIT L1

这里，WAIT为延时子程序，用于在显示信息之间的停顿。

23. 编写程序实现将包含20个数据的数组ARRAY分成两个数组：正数数组ARRAYP和负数数组ARRAYN，并分别将这两个数组中数据的个数显示出来。

解：先编写一个子程序DISPALD，完成以3位十进制数形式显示出AL的内容。

DISPALD PROC NEAR

PUSH AX PUSH CX PUSH DX XOR AH,AH MOV CL，100 DIV CL PUSH AX MOV DL,30H ADD DL,AL MOV AH,2 INT 21H POP AX MOV AL,AH XOR AH,AH MOV CL,10 DIV CL PUSH AX MOV DL,30H ADD DL,AL MOV AH,2

－ 12 －

INT 21H POP AX MOV DL,30H ADD DL,AH MOV AH,2 INT 21H POP DX POP CX POP AX RET

DISPALD ENDP

在此基础上，根据题目要求，需要用到3个指针：SI指向源数组ARRAY，DI指向正数数组ARRAYP，BX指向负数数组ARRAYN。

MOV XOR LEA LEA LEA MOV AND JS MOV INC INC JMP MOV INC INC INC

CX,20 DX,DX SI,ARRAY DI,ARRAYP BX,ARRAYN AL,[SI] AL,AL L2 [DI],AL DI DL L3 [BX],AL BX DH SI

－ 13 －

L1:

L2:

L3:

LOOP MOV CALL MOV CALL

L1 AL,DL DISPALD AL,DH DISPALD

24. 编写程序实现求缓冲区BUFFER的100个字中的最小偶数（存入AX）。 解：设BUFFER中存放的是有符号数。 L1: L2:

MOV CX,100 LEA SI,BUFFER MOV AX, 7FFFH AND WORD PTR [SI],1 JNZ L2 CMP [SI],AX JGE L2 MOV AX,[SI] ADD SI,2 LOOP L1

225. 编写程序实现求级数1解：BL用于存放项数。

?22???n2??的前n项和刚大于2000的项数n。

STACK SEGMENT STACK 'STACK' DW 100H DUP（?） TOP

LABEL WORD

STACK ENDS DATA SEGMENT DB 100H DUP（?） DATA ENDS CODE SEGMENT

ASSUME CS:CODE, DS:DATA, ES:DATA, SS:STACK START:

－ 14 －

MOV AX,DATA MOV DS,AX MOV ES,AX MOV AX,STACK MOV SS,AX LEA SP,TOP MOV BL,1 MOV CX,0 COUNT:

MOV AL, BL MUL BL ADD CX,AX CMP CX,2000 JA EXIT INC BL JMP COUNT

EXIT:

26. 定义一条宏指令，实现将指定数据段的段地址传送到段寄存器ES或DS的功能。 解：

27. 定义一条宏指令，实现从键盘中输入一个字符串（利用INT 21H的09号功能）。 28. 定义一条宏指令，实现在屏幕上输出回车、换行。 29. 利用其它指令完成与下列指令一样的功能：

（1）REP MOVSB； （3）REP STOSB；

解：设DF=0 （1）

（2）REP LODSB； （4）REP SCASB。

L1: MOV AL,[SI]

MOV ES:[DI],AL INC INC

SI DI

－ 15 －

LOOP L1

（2）

L1: MOV AL,[SI]

INC

SI

LOOP L1

（3）

L1: MOV ES:[DI],AL

INC

DI

LOOP L1

（4）

L1: MOV AL,[SI]

CMP AL,ES:[DI] INC INC

SI DI

LOOP L1

30. 设在数据段中定义了：

STR1 DB ‘ASSEMBLE LANGUAGE’ STR2 DB 20 DUP(?) 利用字符串指令编写程序段实现：

（1）从左到右将STR1中的字符串传送到STR2； （2）从右到左将STR1中的字符串传送到STR2； （3）将STR1中的第6个和第7个字节装入DX；

（4）扫描STR1字符串中有无空格，如有则将第一个空格符的地址传送到SI。 解： STR1中有17个字符（含一个空格），设DS和ES均指向STR1和STR2所在的段。 （1）

CLD MOV LEA LEA REP MOV LEA LEA

CX,17 SI,STR1 DI,STR2 MOVSB CX,17 SI,STR1 DI,STR2

－ 16 －

（2）

ADD DEC MOV MOV DEC INC LOOP LEA MOV MOV LEA MOV CMP JZ INC LOOP

SI,CX SI AL,[SI] [DI],AL SI DI L1 SI,STR1 DX,[SI+6] CX,17 SI,STR1 AL,20H [SI], AL L2 SI L1

L1:

（3）

（4）

L1:

L2:

31. 设在数据段中定义了：

STRING DB ‘Today is Sunday & July 16, 2000’

编写程序实现将STRING中的’&’用’/’代替。 解：STRING中保存了30个字符。

MOV LEA MOV CMP JNZ MOV INC LOOP

CX,30 SI,STRING AL,’&’ [SI],AL L2

BYTE PTR [SI],’/’ SI L1

－ 17 －

L1:

L2:

32. 分析下列程序段完成的功能：

MOV CX，100 LEA SI，FIRST LEA DI，SECOND REP MOVSB

解：将缓冲区FIRST中100个字节传送到SECOND中。 33. 分析下列程序段：

LEA DI，STRING MOV CX，200 CLD

MOV AL，20H REPZ SCASB JNZ FOUND JMP NOT_FOUND

问：转移到FOUND的条件。

解：在缓冲区STRING中搜索非空格字符，如果有非空格则转到FOUND，如果200个单元中都是空格，则转到NOT_FOUND。

34. 设在数据段的变量OLDS和NEWS中保存有5个字节的字符串，如果OLDS字符串不同于NEWS字符串，则执行NEW_LESS，否则顺序执行程序。 解：设DS和ES均指向字符串OLDS和NEWS所在的段。

CLD MOV

35. 编程实现将STRING字符串中的小写字母变换成大写字母。 解：设STRING中的字符个数为N。

－ 18 －

CX,5 SI,OLDS DI,NEWS CMPSB NEW_LESS

LEA LEA REPZ JNZ

MOV LEA MOV AND INC

CX,N SI,STRING AL,5FH [SI],AL SI

L1:

LOOP L1

36. 设在数据段中定义了：

STUDENT_NAME DB 30 DUP（？） STUDENT_ADDR DB 9 DUP（？） STUDENT_PRINT DB 50 DUP（？） 编写程序实现：

用空格符清除缓冲区STUDENT_PRINT； 在STUDENT_ADDR中查找第一个’_’字符； 在STUDENT_ADDR中查找最后一个’_’字符；

如果STUDENT_NAME中全为空格符，则STUDENT_PRINT全存入’*’；

将STUDENT_NAME传送到STUDENT_PRINT的前30个字节中，将STUDENT_ADDR传送到STUDENT_PRINT的后9个字节中。

37. (上机题)编写程序实现，将缓冲区BUFFER中的100个字按递增排序，并按下列格式顺序显示：

数据1 <原序号> 数据2 <原序号> ??

38. (上机题)按同余法产生一组随机数N（1

Total <总人数> A: <人数1> B: <人数2> C: <人数3>

－ 19 －

D: <人数4> E: <人数5> F: <人数6>

39．(上机题)编写程序实现下列5项功能，通过从键盘输入1～5进行菜单式选择：

（1）按数字键“1”，完成将字符串中的小写字母变换成大写字母。用户输入由英文大小写字母或数字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”，结束程序的运行，返回操作系统。 解：

※主程序的编程思路： 此程序共5个功能，可采用跳转表法来实现多路分支结构程序设计。现将这5个程序段，各程序段的首地址分别标号为G1，G2，G3，G4，G5。将5个程序段的入口地址做成表TABLE放入数据段，程序根据给定的参数计算出欲转入的程序段的首地址在TABLE中的位置后，取出该地址，跳转至该程序段。

首先，通过调用子程序MENU，设置显示器，并输出提示文档。接着，读取‘1’-‘5’之间的ASCII表示数。然后，通过跳转表TABLE实现由输入参数转入相应的程序段。由于表中

－ 20 －

按“字”存放数据，则每个数据的位移量是：0、2、4、6、8。对于输入参数N，计算位移量的公式是N=(N-1)*2。

当输入‘1’时，跳转到标号G1。调用子程序CHGLTR，完成将输入字符串中的小写字母变换成大写字母。用户按键，若为ESC，则转到主程序段首调用MENU，否则，转到标号G1；

当输入‘2’时，跳转到标号G2。调用子程序MAXLTR，完成在输入字符串中找最大值。用户按键，若为ESC，则转到主程序段首调用MENU，否则，转到标号G2；

当输入‘3’时，跳转到标号G3。调用子程序SORTNUM，完成输入数据组的排序。用户按键，若为ESC，则转到主程序段首调用MENU，否则，转到标号G3。

当输入‘4’时，跳转到标号G4。调用子程序TIMCHK，完成时间的显示。用户按键，若为ESC，则转到主程序段首调用MENU，否则，转到标号G4。

当输入‘5’时，跳转到标号G5。结束程序的运行，返回操作系统。 其流程框图见图3-1。

－ 21 －

START 初始化 E 调用子程序MENU 设置光标位置（41,10） 带回显的控制台输入 (AL) ← 输入字符 Y (AL) < ‘1’ N (AL) > ‘5’ N 将跳转表TABLE的偏移地址送入(BX) (AL) ← (AL) – ‘1’ (AL) ← (AL) * 2 AL按符号扩展成AX (BX) ← TABLE (BX) ← (BX) + (AX) Y N=1 A B N=2 N=5 C N=3 D N=4 END 图3-1 主程序流程框图

－ 22 －

A 调用子程序CHGLTR 带回显的控制台输入 (AL) ← 输入字符 N B 调用子程序MAXLTR 带回显的控制台输入 (AL) ← 输入字符 N (AL) = ESC ? Y E C 调用子程序SORTNUM 带回显的控制台输入 (AL) ← 输入字符 (AL) = ESC ? Y E D 调用子程序TIMCHK 带回显的控制台输入 (AL) ← 输入字符 (AL) = ESC ? Y E N (AL) = ESC ? Y E N 图3-1（续） 主程序流程框图

※子程序MENU的编程思路：

设置显示器显示方式为80*25彩色文本方式，清屏。逐行设置光标位置，使提示文档左对齐整体居中。输出1-5的提示文档，再输出输入N的提示。其流程框图见图3-2。

START 初始化 清屏 设置光标位置（5,5） 显示提示字符串STRING1 设置光标位置（5,6） 显示提示字符串STRING2 M 设置光标位置（5,7） 显示提示字符串STRING3 设置光标位置（5,8） 显示提示字符串STRING4 N N 设置光标位置（5,9） 显示提示字符串STRING5 设置光标位置（5,10） 显示提示字符串子程序MENU返回 M 图3-2 子程序MENU流程框图

－ 23 －

※子程序CHGLTR的编程思路： 设置显示器显示方式为80*25彩色文本方式，清屏。设置光标位置，使提示文档左对齐整体居中。输出输入字符串提示文档，读取输入字符串并将其放入KEYBUF。在输入字符串尾加结束标志$，输出输入字符串。从前往后，依次取字符串中的每个字符，若其为小写字母，则将其ASCII码减去20H。输出变换后的字符串。最后输出说明文档。 其流程框图见图3-3。

START 初始化 清屏 设置光标位置（5,5） 显示提示字符串IN_STR 设置光标位置（5,6） KEYBUF ← 输入字符串 (AL) ← 输入字符串长度 AL按符号扩展成AX (CX) ← (AX) 在字符串尾加结束标志’$’ 设置光标位置（5,7） 显示提示字符串PRESTR 显示输入的字符串 (BX) ← KEYBUF + 2 ((BX)) ≥ ‘a’ Y ((BX)) ← ((BX)) ∧ 0DFH N (BX) ← (BX) + 1 N (CX) ← (CX) – 1 (CX) = 0 ? Y 设置光标位置（5,8） 显示提示字符串NEWSTR 显示变换后的字符串 设置光标位置（5,9） 显示提示字符串HINSTR 子程序CHGLTR返回 图3-3 子程序CHGLTR流程框图

－ 24 －

※子程序MAXLTR的编程思路： 设置显示器显示方式为80*25彩色文本方式，清屏。设置光标位置，使提示文档左对齐整体居中。输出输入字符串提示文档，读取输入字符串并将其放入KEYBUF。在输入字符串尾加结束标志$，输出输入字符串。预设字符串中最大值为0。从前往后，依次取字符串中的每个字符，若其大于当前最大值，则进行替换，即可得到字符串中的最大值，并输出。最后输出说明文档。 其流程框图见图3-4。

START 初始化 清屏 设置光标位置（5,5） 显示提示字符串IN_STR 设置光标位置（5,6） KEYBUF ← 输入字符串 (AL) ← 输入字符串长度 AL按符号扩展成AX (CX) ← (AX) 在字符串尾加结束标志’$’ 设置光标位置（5,7） 显示提示字符串OUT_STR 显示输入的字符串 设置光标位置（5,8） 显示提示字符串MAXCHR (DL) ← 0 (BX) ← KEYBUF + 2 N ((BX)) > (DL) Y (DL) ← ((BX)) (BX) ← (BX) + 1 N (CX) ← (CX) – 1 (CX) = 0 ? Y 显示字符(DL) 设置光标位置（5,9） 显示提示字符串HINSTR 子程序MAXLTR返回 图3-4 子程序MAXLTR流程框图

－ 25 －

※子程序SORTNUM的编程思路： 设置显示器显示方式为80*25彩色文本方式，清屏。设置光标位置，使提示文档左对齐整体居中。输出输入数据组提示文档，读取输入数据组字符串并将其放入KEYBUF。调用子程序CIN_INT，将字符串转换成数据串。判断数据串是否有错误或者为空，若是，则重新输入数据组。调用子程序MPSORT，采用冒泡法对数据串进行排序。再调用子程序INT_OUT，输出排序后的数据组。最后输出说明文档。

其流程框图见图3-5。

START 初始化 清屏 设置光标位置（5,5） 显示提示字符串IN_NUM 设置光标位置（5,6） KEYBUF ← 输入字符串 调用子程序CIN_INT Y (AL) = 0 ? N 设置光标位置（5,7） 显示提示字符串OUT_NUM 设置光标位置（5,8） 调用子程序MPSORT 调用子程序INT_OUT 设置光标位置（5,9） 显示提示字符串HINSTR 子程序SORTNUM返回 图3-5 子程序SORTNUM流程框图

※子程序CIN_INT的编程思路：

入口参数为：无；出口参数为：AL（有无错误标志，0为有，1为无）。从前往后，依次取字符串中的每个字符进行判断。CH表示数据组数据个数，AL表示当前数据x，DL作为有无数据标志。若当前字符为空格，则转到ADDNUM，判断DL是否为1，若为1，则CH增1，调用子程序ADDNEW，增加新数x，然后DL、AL清零；否则判断当前字符c是否在‘0’-‘9’之间，若不是，则判错，将AL置0，子程序CIN_INT返回；否则，DL置1，x=x*10+c-‘0’，判断x是否超过255，若是，则判错，将AL置0，子程序CIN_INT返回；否则，对下一个字符进行操作。字符串判断结束后，若DL为1，则有新数x未加至数据组，调用子程序ADDNEW，增加新数x。将数据组个数CH放入NUMBUF，将AL置1。

其流程框图见图3-6。

※子程序ADDNEW的编程思路：

入口参数为：CH（数据组数据个数）、AL（当前数据x）；出口参数为：无。取出数据组NUMBUF的首地址，加上数据组数据个数，即为当前数据x的地址，将x放入该地址。

其流程框图见图3-7。

－ 26 －

START 初始化 (CL) ← 输入字符串长度 (SI) ← KEYBUF + 2 (CH) ← 0 (DH) ← 10 (AL) ← 0 (DL) ← 0 Y T NUMBUF ← (CH) (AL) ← 1 R (AL) ← 0 子程序CIN_INT返回 ((SI)) = ‘ ’ ? N ((SI)) < ‘0’ N ((SI)) > ‘9’ N (DL) ← 1 (AX) ← (AL) * (DH) (BH) ← 0 (BL) ← ((SI)) (AX) ← (AX) + (BX) (AX) ← (AX) – ‘0’ Y (DL) ≠ 1 ? R Y (CH) ← (CH) + 1 调用子程序ADDNEW (DL) ← 0 (AL) ← 0 N Y R 图3-6 子程序CIN_INT流程框图 (AH) > 0 N (SI) ← (SI) + 1 (CL) ← (CL) - 1 Y Y START R 初始化 BX、AX进栈 (BX) ← NUMBUF (AL) ← (CH) AL按符号扩展成AX (BX) ← (BX) + (AX) AX出栈 ((BX)) ← (AL) BX出栈 子程序ADDNEW返回 图3-7 子程序ADDNEW流程框图

(CL) ≠ 0 ? N (DL) ≠ 1 ? N (CH) ← (CH) + 1 调用子程序ADDNEW Y T － 27 －

START (AL) ← (NUMBUF) Y (AL) ≤1 N AL按符号扩展成AX (CX) ← (AX) (SI) ← NUMBUF (SI) ← (SI) + (CX) (CX) ← (CX) – 1 CX、SI进栈 (DL) ← 0 (AL) ← ((SI)) ※子程序MPSORT的编程思路： 对N个数据进行从小到大排序，采用“冒泡法”：从前往后，每两个数据进行比较，当前者大于后者时，交换两者的次序；否则不变。经过N-1次比较，可以将最大值交换到第N个单元。接着对前N-1个数据，重复上述过程，使次大值交换到第N-1个单元；依此类推，若某次比较过程，无任何交换，则终止其后的所有比较过程。最多进行N-1次比较过程，可以完成数据的排序操作。 其流程图见图3-8。

(AL) ≥ ((SI)–1) N (AL) ←→ ((SI–1)) ((SI)) ← (AL) (DL) ← 1 (SI) ← (SI) - 1 Y (CX) ← (CX) – 1 (CX) = 0 ? Y SI、CX出栈 N (DL) = 1 ? Y N (CX) ← (CX) – 1 (CX) = 0 ? 图3-8 子程序MPSORT流程框图

－ 28 －

N Y 子程序MPSORT返回 START 初始化 (AL) ← (NUMBUF) AL按符号扩展成AX (CX) ← (AX) (BL) ← 10H (SI) ← NUMBUF + 1 (AL) ← ((SI)) 调用子程序OUTNUM (SI) ← (SI) + 1 显示字符‘ ’ ※子程序IN_OUT的编程思路：

从数据组中依次取出每个数据，调用OUTNUM，将十进制数据转成十六进制进行输出，数据之间输出一个空格作为分隔符。

其流程图见图3-9。

(CX) ← (CX) – 1 (CX) = 0 ? Y 子程序INT_OUT返回 图3-9 子程序INT_OUT流程框图

N START 初始化 (AH) ← 0 (AX)/(BL) → 商(AL),余(AH) AX进栈 Y (AH) < 10 N (AH) ← (AH)+7 (AH) ← (AH)+30H (DL) ← (AH) AX出栈，DX进栈 ※子程序OUTNUM的编程思路： 入口参数：AL（待转换的数据），BL（转换进制数）；出口参数：无。待转换数据x除以转换进制数，商为新的x，余数y为转换后的低位。保存y，调用子程序OUTNUM本身，对新的x进行进制转换并输入。取出y，对其进行输入，若低于10，则直接输出，否则转换成字母输出。

其流程图见图3-10。

(AL) = 0 ? N 调用子程序OUTNUM DX出栈 显示字符(DL) 子程序OUTNUM返回 Y 图3-10 子程序OUTNUM流程框图

－ 29 －

※子程序TIMCHK的编程思路： 设置显示器显示方式为80*25彩色文本方式，清屏。设置光标位置，输出设置时间提示文档。读取输入时间字符串并将其放入KEYBUF。分别判断时、分、秒是否在有效数字范围，若有效，则设置新的系统时间。调用子程序TIME，在屏幕的右上角实时显START 初始化 清屏 设置光标位置（5,6） 显示提示字符串IN_TIM 示时间。

其流程框图见图3-11。

KEYBUF ← 输入字符串 (AL) ← 输入字符串的1-2位数值（时） (AL)<0或Y F N (CH) ← (AL) (AL) ← 输入字符串的4-5位数值（分） (AL)<0或Y F N (CL) ← (AL) (AL) ← 输入字符串的7-8位数值（秒） (AL)<0或Y F N (DH) ← (AL) (DL) ← 0 置系统时间 F 调用子程序TIME 子程序TIMCHK返回 图3-11 子程序TIMCHK流程框图

－ 30 －

START 初始化 清屏 设置光标位置（10,9） 显示提示字符串HINSTR 设置光标位置（72,0） 取系统时间 (AL) ← (CH) 调用子程序SHOWNUM 显示字符‘:’ (AL) ← (CL) 调用子程序SHOWNUM 显示字符‘:’ (AL) ← (DH) 调用子程序SHOWNUM 设置光标位置（10,9） (BX) ← 0018H (CX) ← 0 ※子程序TIME的编程思路： 设置显示器显示方式为80*25彩色文本方式，清屏。设置光标位置，输出说明文档。实时显示时间：设置光标至屏幕右上角；读取系统时间，调用子程序SHOWNUM分别对时、分、秒进行显示，并用‘:’作分隔符；设置光标等待位置，并进行延时；检查键盘状态，若无键盘输入，则重复上述步骤显示时间，否则子程序TIME返回。

其流程框图见图3-12。

※子程序SHOWNUM的编程思路： 入口参数：AL（待显示的数据）；出口参数：无。待显示数据x除以10，商为y，余数为z。将数字y、z分别转换成字符数字，然后输出。

其流程框图见图3-13。

START (CX) ← (CX) – 1 (CX) = 0 ? N (BX) ← (BX) – 1 Y Y 初始化 AL按符号扩展成AX CX、DX进栈 (CL) ← 10 (AX)/(BL) → 商(AL),余(AH) (AH) → (AH)+ ‘0’ (BH) → (AH) (AL) → (AL)+ ‘0’ 显示字符(AL)、(BH) Y DX、CX出栈 子程序SHOWNUM返回 图3-13 子程序SHOWNUM流程框图

(BX) ≠ 0 ? N 检查键盘状态 AL = 0 ? N 子程序TIME返回 图3-12 子程序TIME流程框图

－ 31 －

四、程序代码

STACK SEGMENT STACK DB 256 DUP(?) TOP LABEL WORD STACK ENDS

DATA SEGMENT TABLE DW G1, G2, G3, G4, G5 STRING1 DB '1. Change small letters into capital letters of string;', 0DH, 0AH, '$' STRING2 DB '2. Find the maximum of string;', 0DH, 0AH, '$' STRING3 DB '3. Sort for datas;', 0DH, 0AH, '$' STRING4 DB '4. Show Time;', 0DH, 0AH, '$' STRING5 DB '5. Exit.', 0DH, 0AH, '$'

STRINGN DB 'Input the number you select (1-5) : $'

IN_STR DB 'Input the string (including letters & numbers, less than 60 letters) :', 0DH, 0AH, '$' PRESTR DB 'Original string : $' NEWSTR DB 'New string : $' OUT_STR DB 'The string is $' MAXCHR DB 'The maximum is $' IN_NUM DB 'Input the numbers (0 - 255, no more than 20 numbers) : ', 0DH, 0AH, '$' OUT_NUM DB 'Sorted numbers : ', 0DH, 0AH, '$' IN_TIM DB 'Correct the time (HH:MM:SS) : $' HINTSTR DB 'Press ESC, go back to the menu; or press any key to play again!$' KEYBUF DB 61 DB ? DB 61 DUP (?) NUMBUF DB ? DB 20 DUP (?) DATA ENDS CODE SEGMENT ASSUME CS:CODE, DS:DATA, SS:STACK START: MOV AX, DATA MOV DS, AX MOV AX, STACK MOV SS, AX MOV SP, OFFSET TOP MAIN: CALL FAR PTR MENU ; 设置显示器 AGAIN: MOV AH, 2 MOV BH, 0 ; 页号 MOV DL, 41 ; 列号 MOV DH, 10 ; 行号 INT 10H ; 光标位置设置

－ 32 －

MOV AH, 1 INT 21H CMP AL, '1' JB AGAIN CMP AL, '5' JA AGAIN SUB AL, '1' SHL AL, 1 CBW ; N-1 ; (N-1)*2 ; AL->AX

LEA BX, TABLE ADD BX, AX

JMP WORD PTR [BX] G1: CALL FAR PTR CHGLTR MOV AH, 8 INT 21H

CMP AL, 1BH JZ MAIN JMP G1

G2: CALL FAR PTR MAXLTR MOV AH, 8 INT 21H

CMP AL, 1BH JZ MAIN JMP G2

G3: CALL FAR PTR SORTNUM MOV AH, 8 INT 21H

CMP AL, 1BH JZ MAIN JMP G3

G4: CALL FAR PTR TIMCHK MOV AH, 8 INT 21H

CMP AL, 1BH JZ MAIN JMP G4 G5: MOV AH, 4CH INT 21H

33 －－

MENU PROC FAR

;设置显示器方式 MOV AH, 0 MOV AL, 3; MOV BL, 0; INT 10H MOV AH, 2 MOV BH, 0

MOV DL, 5 MOV DH, 5 INT 10H

MOV AH, 9

LEA DX, STRING1 INT 21H MOV AH, 2 MOV DL, 5 MOV DH, 6 INT 10H MOV AH, 9

LEA DX, STRING2 INT 21H MOV AH, 2 MOV DL, 5 MOV DH, 7 INT 10H MOV AH, 9

LEA DX, STRING3 INT 21H MOV AH, 2 MOV DL, 5 MOV DH, 8 INT 10H MOV AH, 9

LEA DX, STRING4 INT 21H MOV AH, 2 MOV DL, 5 MOV DH, 9 INT 10H MOV AH, 9

LEA DX, STRING5 INT 21H MOV AH, 2

MOV DL, 5

; 显示主界面

; 清屏 ; 页号 ; 列号 ; 行号

; 光标位置设置

; 列号 ; 行号

; 光标位置设置

; 列号 ; 行号

; 光标位置设置

; 列号 ; 行号

; 光标位置设置

; 列号 ; 行号

; 光标位置设置

; 列号

－ 34 －

MOV DH, 10 ; 行号

INT 10H MOV AH, 9

LEA DX, STRINGN INT 21H RET MENU ENDP

CHGLTR PROC FAR RECHG: ;设置显示器方式 MOV AH, 0 MOV AL, 3 MOV BL, 0 INT 10H MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 5 INT 10H MOV AH, 9 LEA DX, IN_STR INT 21H MOV AH, 2 MOV DL, 5 MOV DH, 6 INT 10H MOV AH, 0AH LEA DX, KEYBUF INT 21H CMP KEYBUF + 1, 0 JZ RECHG LEA BX, KEYBUF + 2 MOV AL, KEYBUF + 1 CBW MOV CX, AX ADD BX, AX MOV BYTE PTR [BX], '$' MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 7 INT 10H MOV AH, 9 LEA DX, PRESTR

; 光标位置设置

; 将输入字符串中小写字母便换成大写字母

; 清屏

; 页号

; 列号 ; 行号

; 输入提示光标位置设置

; 输入字符串提示 ; 列号 ; 行号

; 输入字符串光标位置设置

; 输入字符串

; 判断输入字符串是否为空串

; 在输入字符串尾加结束标志$ ; 页号 ; 列号 ; 行号

; 源字符串提示光标位置设置

－ 35 －

INT 21H ; 输出源字符串提示 MOV AH, 9 LEA DX, KEYBUF + 2 INT 21H ; 输出源字符串 LEA BX, KEYBUF + 2 LCHG: CMP BYTE PTR [BX], 61H JB NOCHG AND BYTE PTR [BX], 0DFH NOCHG: INC BX LOOP LCHG MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 8 INT 10H MOV AH, 9 LEA DX, NEWSTR INT 21H MOV AH, 9 LEA DX, KEYBUF + 2 INT 21H MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 9 INT 10H MOV AH, 9 LEA DX, HINTSTR INT 21H RET CHGLTR ENDP MAXLTR PROC FAR REMAX: ;设置显示器方式 MOV AH, 0 MOV AL, 3 MOV BL, 0 INT 10H MOV AH, 2 MOV BH, 0

MOV DL, 5 MOV DH, 5

; 将字符串中小写字母转换成大写字母; 页号 ; 列号 ; 行号 ; 新字符串提示光标位置设置 ; 输出新字符串提示 ; 输出新字符串 ; 页号 ; 列号 ; 行号 ; 提示信息光标位置设置 ; 输出提示信息 ; 在输入字符串中找出最大值

; 清屏 ; 页号 ; 列号 ; 行号

－ 36 －

INT 10H

MOV AH, 9

LEA DX, IN_STR INT 21H MOV AH, 2 MOV DL, 5 MOV DH, 6 INT 10H MOV AH, 0AH LEA DX, KEYBUF INT 21H CMP KEYBUF + 1, 0 JZ REMAX LEA BX, KEYBUF + 2 MOV AL, KEYBUF + 1 CBW

MOV CX, AX ADD BX, AX

MOV BYTE PTR [BX], '$' MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 7 INT 10H MOV AH, 9

LEA DX, OUT_STR INT 21H MOV AH, 9

LEA DX, KEYBUF + 2 INT 21H MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 8 INT 10H MOV AH, 9

LEA DX, MAXCHR INT 21H MOV DL, 0

LEA BX, KEYBUF + 2 LCMP: CMP [BX], DL JB NOLCHG

MOV DL, [BX]

; 输入提示光标位置设置

; 输入字符串提示 ; 列号 ; 行号

; 输入字符串光标位置设置

; 输入字符串

; 判断输入字符串是否为空串

; 在输入字符串位加结束标志$ ; 页号 ; 列号 ; 行号

; 源字符串提示光标位置设置

; 输出字符串提示

; 输出字符串

; 页号 ; 列号 ; 行号

; 新字符串提示光标位置设置

; 输出字符串中最大值提示

－ 37 －

NOLCHG: INC BX LOOP LCMP MOV AH, 2 INT 21H MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 9 INT 10H

MOV AH, 9 LEA DX, HINTSTR INT 21H RET MAXLTR ENDP SORTNUM PROC FAR RESORT: ;设置显示器方式 MOV AH, 0 MOV AL, 3 MOV BL, 0 INT 10H MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 5 INT 10H

MOV AH, 9 LEA DX, IN_NUM INT 21H MOV AH, 2 MOV DL, 5 MOV DH, 6 INT 10H MOV AH, 0AH LEA DX, KEYBUF INT 21H CALL CIN_INT CMP AL, 0 JZ RESORT CMP NUMBUF, 0 JZ RESORT

; 找出字符串中最大字符，放入DL ; 输出字符串中最大字符 ; 页号 ; 列号 ; 行号

; 提示信息光标位置设置

; 输出提示信息

; 对输入数据组排序

; 清屏

; 页号 ; 列号 ; 行号

; 输入提示光标位置设置

; 列号 ; 行号

; 输入数据组光标位置设置

; 输入数据组字符串 ; 字符串转换成数据串 ; 判断数据串是否有错 ; 判断数据串是否为空

－ 38 －

MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 7 INT 10H MOV AH, 9 LEA DX, OUT_NUM INT 21H MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 8 INT 10H CALL FAR PTR MPSORT CALL FAR PTR INT_OUT MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 9 INT 10H MOV AH, 9 LEA DX, HINTSTR INT 21H RET

SORTNUM ENDP

; 页号 ; 列号 ; 行号

; 输出提示光标位置设置

; 输出数据串提示 ; 页号 ; 列号 ; 行号

; 输出数据组光标位置设置 ; 数据组排序 ; 数据组的输出 ; 页号 ; 列号 ; 行号

; 提示信息光标位置设置

; 输出提示信息

CIN_INT PROC NEAR ; 读入整型数 ; 入口参数：无

; 出口参数为：AL（有无错误标志，0为有，1为无） MOV CL, KEYBUF + 1 LEA SI, KEYBUF + 2 MOV CH, 0 ; 数据组数据个数置0 MOV DH, 10 MOV AL, 0 ; 当前数据x=0 MOV DL, 0 ; 有无数据标志置0，即无数据 FNDNUM: CMP BYTE PTR [SI], ' ' JZ ADDNUM ; 判断当前字符是否为空格 CMP BYTE PTR [SI], '0' JB ERRNUM CMP BYTE PTR [SI], '9' JA ERRNUM ; 判断当前字符是否在'0'-'9'之间 MOV DL, 1 ; 有无数据标志置1，即有数据 MUL DH

－ 39 －

XOR BH, BH MOV BL, [SI] ADD AX, BX SUB AX, '0' CMP AH, 0 JA ERRNUM JMP NEXT ADDNUM: CMP DL, 1 JNZ NEXT INC CH CALL ADDNEW MOV DL, 0 MOV AL, 0 NEXT: INC SI DEC CL CMP CL, 0 JNZ FNDNUM CMP DL, 1 JNZ TOTAL INC CH CALL ADDNEW TOTAL: MOV NUMBUF, CH MOV AL, 1 JMP CRTNUM ERRNUM: MOV AL, 0 CRTNUM: RET CIN_INT ENDP

; 计算出当前数据x ; 判断x是否越界

; 判断是否有数据 ; 数据组数据个数加1

; 清零

; 依次检查各字符 ; 判断是否有未加入的数据

; 置数据组数据个数 ; 输入数据无错误

; 输入数据有错误

ADDNEW PROC NEAR ; 增加新数 ; 入口参数：CH（数据组数据个数）、AL（当前数据x） ; 出口参数：无 PUSH AX LEA BX, NUMBUF MOV AL, CH CBW ADD BX, AX POP AX MOV [BX], AL RET ADDNEW ENDP

－ 40 －

MPSORT PROC FAR MOV AL, NUMBUF CMP AL, 1 JBE NOSORT CBW MOV CX, AX LEA SI, NUMBUF ADD SI, CX DEC CX LP1: PUSH CX PUSH SI MOV DL, 0 LP2: MOV AL, [SI] CMP AL, [SI - 1] JAE NOXCHG XCHG AL, [SI - 1] MOV [SI], AL MOV DL, 1

NOXCHG: DEC SI LOOP LP2 POP SI POP CX CMP DL, 1 JNZ NOSORT LOOP LP1 NOSORT:RET MPSORT ENDP

INT_OUT PROC FAR MOV AL, NUMBUF CBW MOV CX, AX MOV BL, 10H LEA SI, NUMBUF + 1 PRINT: MOV AL, [SI] CALL OUTNUM INC SI MOV AH, 2 MOV DL, ' ' INT 21H LOOP PRINT

; 数据组排序

; 若只有一个元素，停止排序

; SI指向数据组首地址 ; SI指向数据组末地址 ; 外循环次数 ; 外循环开始

; 交换标志置0 ; 内循环开始

; 交换操作 ; 交换标志置1

; 判断交换标志

; 输出数据组

－ 41 －

RET INT_OUT ENDP

OUTNUM PROC NEAR ; 将十进制数以十六进制输出 ; 入口参数：AL（待转换的数据），BL（转换进制数16） ; 出口参数：无 MOV AH, 0 DIV BL PUSH AX CMP AH, 10 JB PNUM ADD AH, 7 PNUM: ADD AH, 30H MOV DL, AH POP AX PUSH DX CMP AL, 0 JZ OUTN CALL OUTNUM OUTN: POP DX MOV AH, 2 INT 21H RET

OUTNUM ENDP TIMCHK PROC FAR ;设置显示器方式 MOV AH, 0 MOV AL, 3; MOV BL, 0; INT 10H MOV AH, 2 MOV BH, 0 MOV DL, 5 MOV DH, 6 INT 10H

MOV AH, 9 LEA DX, IN_TIM INT 21H MOV AH, 0AH LEA DX, KEYBUF INT 21H

; 设定并显示时间

; 清屏

; 页号 ; 列号 ; 行号

; 设置提示光标位置设置

; 时间串提示

; 输入时间串

－ 42 －

MOV BL, 10 MOV AL, KEYBUF + 2 SUB AL, '0' MUL BL ADD AL, KEYBUF + 3 SUB AL, '0' CMP AL, 0 JB INVALID CMP AL, 24 JAE INVALID MOV CH, AL MOV AL, KEYBUF + 5 SUB AL, '0' MUL BL ADD AL, KEYBUF + 6 SUB AL, '0' CMP AL, 0 JB INVALID CMP AL, 60 JAE INVALID MOV CL, AL MOV AL, KEYBUF + 8 SUB AL, '0' MUL BL ADD AL, KEYBUF + 9 SUB AL, '0' CMP AL, 0 JB INVALID CMP AL, 60 JAE INVALID MOV DH, AL MOV DL, 0 MOV AH, 2DH INT 21H INVALID: CALL TIME RET TIMCHK ENDP TIME PROC

;设置显示器方式 MOV AH, 0 MOV AL, 3; MOV BL, 0;

INT 10H

; 判断 时 有效性

; 判断 分 有效性

; 判断 秒 有效性

; 置系统时间

; 显示时间子程序

; 清屏

－ 43 －

MOV AH, 2 MOV BH, 0 MOV DL, 10 MOV DH, 9 ; 页号 ; 列号 ; 行号

INT 10H MOV AH, 9

LEA DX, HINTSTR INT 21H DISP1: MOV AH, 2 MOV BH, 0 MOV DL, 72 MOV DH, 0 INT 10H MOV AH, 2CH INT 21H

MOV AL, CH

CALL SHOWNUM MOV AH, 2 MOV DL, ':' INT 21H

MOV AL, CL CALL SHOWNUM MOV AH, 2 MOV DL, ':' INT 21H

MOV AL, DH CALL SHOWNUM MOV AH,02H

MOV DX,090AH MOV BH,0 INT 10H

MOV BX,0018H RE: MOV CX,0FFFFH REA: LOOP REA DEC BX JNZ RE

MOV AH, 0BH INT 21H CMP AL, 0 JZ DISP1 RET TIME ENDP

; 提示信息光标位置设置

; 输出提示信息

; 页号 ; 列号 ; 行号

; 提示光标位置设置

; 取系统时间,CH,CL,DH分别存放时/分/秒; 显示 时

; 显示 分

; 显示 : 秒 ; 设置光标位置

; 延时

; 或 MOV AH, 01H ; INT 16H ; JE DISP1 ; 检查键盘状态

－ 44 －

SHOWNUM PROC ; 把AL中的数字以十进制输出 ; 入口参数：AL（待显示的数据） ; 出口参数：无 CBW PUSH CX PUSH DX MOV CL, 10 DIV CL ADD AH, '0' MOV BH, AH ADD AL, '0' MOV AH, 2 MOV DL, AL INT 21H MOV DL, BH INT 21H POP DX POP CX RET

SHOWNUM ENDP

CODE ENDS END START

五、实验结果

运行程序。

主菜单界面，如图5-1。

图5-1 主菜单界面

－ 45 －

在主菜单界面（图5-1）输入1，进入功能1界面，实现将字符串中的小写字母变换成大写字母。功能1界面，如图5-2。输入字符串，如：HuangCui02061488，输出结果如图5-3。按ESC键，返回主菜单界面（图5-1）；按其他任意键，返回功能1界面（图5-2）。

图5-2 功能1界面

图5-3 功能1运行结果

在主菜单界面（图5-1）输入2，进入功能2界面，实现在字符串中找最大值。功能2界面，如图5-4。输入字符串，如：HuangCui02061488，输出结果如图5-5。按ESC键，返回主菜单界面（图5-1）；按其他任意键，返回功能2界面（图5-4）。

图5-4 功能2界面

－ 46 －

图5-5 功能2运行结果

在主菜单界面（图5-1）输入3，进入功能3界面，实现输入数据组的排序，按递增方式进行排序并以十六进制数输出。功能3界面，如图5-6。输入数据组，如：255 15 0 1 16，输出结果如图5-7；若输入数据越界或有错误，则需重新输入，如图5-6。按ESC键，返回主菜单界面（图5-1）；按其他任意键，返回功能3界面（图5-6）。

图5-6 功能3界面

图5-7 功能3运行结果

－ 47 －

在主菜单界面（图5-1）输入4，进入功能4界面，实现时间的显示。功能4界面，如图5-8。输入用户设置的时间；若输入时间越界或有错误，则不修改系统时间，直接进行实时显示。如：输入12:70:00，输出结果如图5-9（显示时间由系统当时获取时间决定，本实验时，系统时间为18:27:36）；输入12:00:00，输出结果如图5-10。接着，界面对时间进行实时显示，此处仅作文字说明，不附图。按ESC键，返回主菜单界面（图5-1）；按其他任意键，返回功能4界面（图5-8）。

图5-8 功能4界面

图5-9 功能4运行结果1

－ 48 －

图5-10 功能4运行结果2

在主菜单界面（图5-1）输入5，结束程序的运行，返回操作系统。

－ 49 －

本文来源：https://www.bwwdw.com/article/2bop.html