MOV [DI],20H INC DI CMP CX,0 JNZ DO

HLT

4.18 从60H个元素中寻找一个最大的值,并放到AL中，假设这60个元素放在BUF开始的单元中。

【答】参考程序： DATA SEGMENT

BUF DB 0,1,2,3,4,5,6,7,8,9 ; DATA ENDS

STACK SEGMENT

STA DB 20 DUP (?) TOP EQU $- STA STACK ENDS

CODE SEGMENT

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

START: MOV AX,DATA

MOV DS,AX MOV AX,STACK MOV SS,AX MOV AX,TOP MOV SP,AX MOV CX,10 MOV AL,0 LEA BX,BUF

AGAIN: CMP AL,[BX]

JGE NEXT ;大于等于转移 MOV AL,[BX]

NEXT : INC BX

LOOP AGAIN MOV AH,4CH INT 21H

CODE ENDS

END START

4.19 排序程序设计: 把表中元素按值的大小升序排列。要求显示排序前和排序后的数据。 【答】参考程序： DATA SEGMENT

TAB DB '8095554'

N=$-TAB

OK DB 0DH,0AH,'OK!$' DATA ENDS

STACK SEGMENT STA DB 20 DUP(?) TOP EQU $-STA STACK ENDS

CODE SEGMENT

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

STAR: MOV AX,DATA

MOV DS,AX ;初始化数据段 MOV AX,STACK MOV SS,AX MOV AX,TOP MOV SP,AX CALL ARRAY

DO: MOV AH,4CH

INT 21H ;返回DOS

ARRAY PROC NEAR

PUSH AX PUSH BX PUSH CX PUSH DX MOV DL,N-1 ;置外循环次数 MOV DH,1 ;设有交换标志 XOR BX, BX

UPPER: OR DH,DH ;

JZ DISP ;无交换,已排好序,退出 MOV DH,0 ;无交换 MOV CX,N-1 SUB CX,BX ;CX=CX-I内循环次数 MOV SI,0 ;指向表首

INNER: MOV AL,TAB[SI] ;字符送AL

INC SI ;指向下个字符 CMP AL,TAB[SI] ;比较表中相邻字符 JBE DON ;小于

XCHG AL,TAB[SI] ;否则交换,大字符下 MOV TAB[SI-1],AL ;小字符上浮 MOV DH,1 ;有交换,DH=1

DON: LOOP INNER ;内循环结束?CX-1

INC BX ;一次内循环完成,加一 DEC DL ;外循环次数减一 CMP DL,0 JNZ UPPER ;外循环次数非零,继续

DISP: MOV DX,OFFSET TAB

MOV AH,09H INT 21H ;显示排好序的字符 POP DX POP CX POP BX POP AX RET

ARRAY ENDP CODE ENDS

END STAR

4.20 编写一段程序，接收从键盘输入的10个数，输入回车符表示结束，然后将这些数加密后存于BUFF缓冲区中。加密表为：输入数字： 0，1，2，3，4，5，6，7，8，9；密码数字：7，5，9，1，3，6，8，0，2，4。 【答】参考程序： DATA SEGMENT

TABLE DB 7，5，9，1，3，6，8，0，2，4;密码表 BUFF DB 10 DUP(?) ,'$'存放转换数字的缓冲区 DATA ENDS

STACK SEGMENT

STA DB 20 DUP(?)

TOP EQU LENGTH STA STACK ENDS

CODE SEGMENT

MOV AX,STACK MOV SS,AX

MOV DI , OFFSET BUFF LEA BX , TABLE MOV CX，0DH

INPUT: MOV AH , 1 ；从键盘输入

INT 21H CMP AL，0DH ;0DH为回车符 JZ DONE

SUB AL,30H XLAT ADD AL,30H MOV [DI] , AL INC DI LOOP INPUT

DONE: MOV DX , OFFSET BUFF

MOV AH , 09H INT 21H MOV AH,4CH INT 21H

CODE ENDS

4.21 编程序从键盘接收一个4位16进制数，转换为10进制数后，送显示。

【答】算法:（1）先将输入的十六进制数的ASCII码，处理成16进制数保存到BX中，BX中的数范围在+32767~-32768之间；（2）先检查BX中的符号位，以决定输出“+”还是“-”；若是负数，应先求补，得到原码后即可与正数作统一处理。转换方法可以调用题4.14中的BINASCII子程序。

DATA SEGMENT

ADR DB 6 DUP(0),'$' ;十进制数以ASCII码存储 DATA ENDS

STACK SEGMENT

STA DB 20 DUP(0) TOP EQU $- STA STACK ENDS

CODE SEGMENT

ASSUME CS :CODE,DS:DATA,SS:STACK main proc far START: MOV AX,DATA

MOV DS,AX MOV AX,STACK MOV SS,AX MOV AX,TOP MOV SP,AX MOV CX , 4 ;输入4次 MOV DX , CX ;转换4次 MOV BX , 0 ;用BX保存输入数 INPUT: MOV AH , 1 ;从键盘输入 INT 21H

CALL COVERT ;通过子程序转换 SHL BX , CL ;组合成十六进制数 ADD BL , AL DEC DX JNZ INPUT ;循环输入四个数 MOV AX,BX LEA DI,ADR

CALL BINASCII ;十六位二进制数转换为十进制ascii码 MOV AH,4CH INT 21H ;返回DOS

main endp

;-------------------------------------------------------------------

;将ASCII码转换为16进制,入口=AL=ascii码，出口AL=16进制数 COVERT PROC CMP AL, '9' ;将ASCII码转换为16进制 JBE A2 ;键入值≤'9'（'0'-'9'）则减30H CMP AL, 'a' ;键入值＜'a'('A'-'F') 则减37H JB A1 SUB AL , 20H ;值在'a' -'f'则先减20H,再减37H A1: SUB AL, 7

A2: SUB AL ,30H RET

COVERT ENDP

;----------------------------------------------------------------------------

;子程序BINASCII功能：将16位二进制数转换为ASCII码，存于ADR开始的连续6个单元，并显示

;入口参数：AX=待转换的数, 预定义一个缓存区ADR，7个字节，最末字节为'$'字符。 ;出口参数：DI=转换好的ASCII码首地址，显示该十进制数据

BINASCII PROC PUSH BX PUSH CX PUSH DX TEST AX,8000H ;判断数据的符号 JNS PLUS

MINUS: MOV BYTE PTR[DI],'-' ;将符号存储

NEG AX ;如是负数,取相反数去掉符号位 JMP GO

PLUS: MOV BYTE PTR[DI],'+' ;将符号码存储

GO: ADD DI,5 ;DI指向个位

MOV CX,5 MOV BX,10

LP: MOV DX,0

DIV BX ;算法为a/10 ，余数为一个低位十进制数 ADD DL,30H ;转换为ASCII码 MOV BYTE PTR[DI],DL ;从个位开始存储 DEC DI LOOP LP MOV DX,DI MOV AH,09H INT 21H ;显示 POP DX POP CX POP BX RET

BINASCII ENDP

;------------------------------------------------------ CODE ENDS

END START