11798352.doc - 20 -
AF:
BINARY: DISPN: DISP:
STOP:
INT CMP JB CMP JA AND JMP AND CMP JB CMP JA AND ADD OR DEL JNZ MOV MOV ROL RCL OR MOV INT LOOP RET
21H
AL, 30H INPUT AL, 39H AF AL, 0FH BINARY
AL, 1101 1111B AL, 41H INPUT AL, 46H INPUT AL, 0FH AL, 9 BL, AL CH INPUT CX, 16 DL, 0 BX, 1 DL, 1 DL, 30H AH, 2 21H DISP
；<0吗？
；不是?0～F?的数重新输入 ；是?0～9?吗？
；不是，转‘A～F’的处理 ；转换为：0000B～1001B ；转换为大写字母 ；又
；不是?A～F?的数重新输入 ；>F吗？
；不是?A～F?的数重新输入 ；转换为：1010B～1111B ；将键盘输入的数进行组合
；将16位二进制数一位位地转换成ASCII码显示
；进行显示
5.10 设有一段英文，其字符变量名为ENG，并以$字符结束。试编写一程序，查对单词SUN在该文中
的出现次数，并以格式“SUN：xxxx”显示出次数。 答：程序如下：
DSEG SEGMENT ENG DB ?Here is sun, sun ,?,$? DISP DB ?SUN：? DAT DB ?0000? , 0DH, 0AH, ?$? KEYWORD DB ?sun? DSEG ENDS
；-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR
ASSUME CS: CSEG, DS: DSEG, ES: DSEG
START: PUSH DS ；设置返回DOS
SUB AX, AX PUSH AX
MOV AX, DSEG MOV DS, AX ；给DS赋值 MOV ES, AX ；给ES赋值
BEGIN:
MOV MOV LEA MOV LEA MOV REPE JNZ INC ADD
AX, 0
DX, DISP-ENG-2 ；计算ENG的长度(每次比较sun,因此比较次数-2) BX, ENG DI, BX SI, KEYWORD CX, 3 CMPSB ；串比较 NOMATCH AX ；是，SUN的个数加1 BX, 2
COMP:
11798352.doc - 21 -
NOMATCH: INC BX ；指向ENG的下一个字母
DEC DX JNZ COMP
DONE: MOV CH, 4 ；将次数转换为16进制数的ASCII码
MOV CL, 4 LEA BX, DAT ；转换结果存入DAT单元中
DONE1: ROL AX, CL
MOV DX, AX AND DL, 0FH ；取一位16进制数 ADD DL, 30H CMP DL, 39H JLE STORE ADD DL, 07H ；是“A～F”所以要加7
STORE: MOV [BX], DL ；转换结果存入DAT单元中
INC BX DEC CH JNZ DONE1
DISPLAY: LEA DX, DISP ；显示字符串程序(将DISP和DAT一起显示)
MOV AH, 09H INT 21H RET
MAIN ENDP CSEG ENDS ；以上定义代码段 ；--------------------------------------------------------------------------
END START
5.11 从键盘输入一系列以$为结束符的字符串，然后对其中的非数字字符计数，并显示出计数结果。
答：程序段如下：
DSEG SEGMENT BUFF DB 50 DUP (? ?) COUNT DW 0 DSEG ENDS
┇
BEGIN: LEA BX, BUFF
MOV COUNT, 0
INPUT: MOV AH, 01 ；从键盘输入一个字符的功能调用
INT 21H
MOV [BX], AL INC BX CMP AL, ?$? ；是$结束符吗？ JNZ INPUT ；不是，继续输入 LEA BX, BUFF ；对非数字字符进行计数
NEXT: MOV CL, [BX]
INC BX CMP CL, ?$? ；是$结束符，则转去显示 JZ DISP CMP CL, 30H ；小于0是非数字字符 JB NEXT CMP CL, 39H ；大于9是非数字字符 JA NEXT INC COUNT ；个数+1 JMP NEXT
DISP: ┇ ；16进制数显示程序段(省略) 5.12 有一个首地址为MEM的100D字数组，试编制程序删除数组中所有为0的项，并将后续项向前压缩，最后将数组的剩余部分补上0。 答：程序如下：
DSEG SEGMENT
11798352.doc - 22 -
MEM DW 100 DUP (?) DSEG ENDS
；-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR
ASSUME CS: CSEG, DS: DSEG
START: PUSH DS ；设置返回DOS
SUB AX, AX PUSH AX
MOV AX, DSEG MOV DS, AX ；给DS赋值
BEGIN: MOV SI, (100-1)*2 ；(SI)指向MEM的末元素的首地址
MOV BX, -2 ；地址指针的初值 MOV CX, 100
COMP: ADD BX, 2
CMP MEM [BX], 0 JZ CONS LOOP COMP JMP FINISH ；比较完了，已无0则结束
CONS: MOV DI, BX CONS1: CMP DI, SI ；到了最后单元码？
JAE NOMOV
MOV AX, MEM [DI+2] ；后面的元素向前移位 MOV MEM [DI], AX ADD DI, 2 JMP CONS1
NOMOV: MOV WORD PTR [SI], 0 ；最后单元补0
LOOP COMP
FINISH: RET MAIN ENDP CSEG ENDS ；以上定义代码段 ；--------------------------------------------------------------------------
END START
5.13 在STRING到STRING+99单元中存放着一个字符串，试编制一个程序测试该字符串中是否存在
数字，如有则把CL的第5位置1，否则将该位置0。 答：程序如下：
DSEG SEGMENT STRING DB 100 DUP (?) DSEG ENDS
；-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR
ASSUME CS: CSEG, DS: DSEG
START: PUSH DS ；设置返回DOS
SUB AX, AX PUSH AX
MOV AX, DSEG MOV DS, AX ；给DS赋值
BEGIN: MOV SI, 0 ；(SI)作为地址指针的变化值
MOV CX, 100
REPEAT: MOV AL, STRING [SI]
CMP AL, 30H JB GO_ON CMP AL, 39H JA GO_ON
11798352.doc - 23 -
OR CL, 20H ；存在数字把CL的第5位置1 JMP EXIT
GO_ON: INC SI
LOOP REPEAT
AND CL, 0DFH ；不存在数字把CL的第5位置0
EXIT: RET MAIN ENDP CSEG ENDS ；以上定义代码段 ；--------------------------------------------------------------------------
END START
5.14 在首地址为TABLE的数组中按递增次序存放着100H个16位补码数，试编写一个程序把出现次
数最多的数及其出现次数分别存放于AX和CX中。 答：程序如下：
DSEG SEGMENT TABLE DW 100H DUP (?) ；数组中的数据是按增序排列的 DATA DW ? COUNT DW 0 DSEG ENDS
；-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR
ASSUME CS: CSEG, DS: DSEG
START: PUSH DS ；设置返回DOS
SUB AX, AX PUSH AX
MOV AX, DSEG MOV DS, AX ；给DS赋值
BEGIN: MOV CX, 100H ；循环计数器
MOV SI, 0
NEXT: MOV DX, 0
MOV AX, TABLE [SI]
COMP: CMP TABLE [SI], AX ；计算一个数的出现次数
JNE ADDR INC DX ADD SI, 2 LOOP COMP
ADDR: CMP DX, COUNT ；此数出现的次数最多吗？
JLE DONE
MOV COUNT, DX ；目前此数出现的次数最多，记下次数 MOV DATA, AX ；记下此数
DONE: LOOP NEXT ；准备取下一个数
MOV CX, COUNT ；出现最多的次数存入(CX) MOV AX, DATA ；出现最多的数存入(AX) RET
MAIN ENDP CSEG ENDS ；以上定义代码段 ；--------------------------------------------------------------------------
END START 5.15 数据段中已定义了一个有n个字数据的数组M，试编写一程序求出M中绝对值最大的数，把它放
在数据段的M+2n单元中，并将该数的偏移地址存放在M+2(n+1)单元中。 答：程序如下：
DSEG SEGMENT n EQU 100H ；假设n=100H M DW n DUP (?) DATA DW ? ；M+2n单元
11798352.doc - 24 -
ADDR DW ? ；M+2(n+1)单元 DSEG ENDS
；-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR
ASSUME CS: CSEG, DS: DSEG
START: PUSH DS ；设置返回DOS
SUB AX, AX PUSH AX
MOV AX, DSEG MOV DS, AX ；给DS赋值
BEGIN: MOV CX, n ；循环计数器
LEA DI, M MOV AX, [DI] ；取第一个数 MOV ADDR, DI ；记下绝对值最大的数的地址 CMP AX, 0 ；此数是正数吗？ JNS ZHEN ；是正数，即为绝对值，转去判断下一个数 NEG AX ；不是正数，变为其绝对值
ZHEN: MOV BX, [DI]
CMP BX, 0 ；此数是正数吗？ JNS COMP ；是正数，即为绝对值，转去比较绝对值大小 NEG BX ；不是正数，变为其绝对值
COMP: CMP AX, BX ；判断绝对值大小
JAE ADDRESS MOV AX, BX ；(AX)<(BX)，使(AX)中为绝对值最大的数 MOV ADDR, DI ；记下绝对值最大的数的地址
ADDRESS: ADD DI, 2
LOOP ZHEN
MOV DATA, AX ；记下此数 RET
MAIN ENDP CSEG ENDS ；以上定义代码段 ；--------------------------------------------------------------------------
END START
5.16 在首地址为DATA的字数组中存放着100H个16位补码数，试编写一个程序求出它们的平均值放
在AX寄存器中；并求出数组中有多少个数小于此平均值，将结果放在BX寄存器中。 答：程序如下：
DSEG SEGMENT DATA DW 100H DUP (?) DSEG ENDS
；-------------------------------------------------------------------------- CSEG SEGMENT MAIN PROC FAR
ASSUME CS: CSEG, DS: DSEG
START: PUSH DS ；设置返回DOS
SUB AX, AX PUSH AX
MOV AX, DSEG MOV DS, AX ；给DS赋值
BEGIN: MOV CX, 100H ；循环计数器
MOV SI, 0
MOV BX, 0 ；和((DI),(BX))的初始值 MOV DI, 0
NEXT: MOV AX, DATA [SI]