IBM-PC汇编语言程序设计答案(第2版)

CSEG ENDS ;以上定义代码段 ;--------------------------------------------------------------------------

END START

5.7 试编写一个汇编语言程序,求出首地址为DATA的100D字数组中的最小偶数,并把它存放在AX

中。

答:程序段如下:

BEGIN: MOV BX, 0

MOV CX, 100

COMPARE: MOV AX, DATA[BX] ;取数组的第一个偶数

ADD BX, 2 TEST AX, 01H ;是偶数吗? LOOPNZ COMPARE ;不是,比较下一个数 JNZ STOP ;没有偶数,退出 JCXZ STOP ;最后一个数是偶数,即为最小偶数,退出

COMPARE1: MOV DX, DATA[BX] ;取数组的下一个偶数

ADD BX, 2 TEST DX, 01H ;是偶数吗? JNZ NEXT ;不是,比较下一个数 CMP AX, DX ;(AX)<(DX)吗? JLE NEXT MOV AX, DX ;(AX)<(DX),则置换(AX)为最小偶数

NEXT: LOOP COMPARE1 STOP: RET 5.8 把AX中存放的16位二进制数K看作是8个二进制的“四分之一字节”。试编写程序要求数一下值为3(即11B)的四分之一字节数,并将该数(即11B的个数)在终端上显示出来。 答:程序段如下:

BEGIN: MOV DL, 0 ;计数初始值

MOV CX, 8

COMPARE: TEST AX, 03H ;是数03吗?

JNZ NOEQUAL ;不是,转走 INC DL ;是,计数

NOEQUAL: ROR AX, 1 ;准备判断下一个数

ROR AX, 1

LOOP COMPARE ADD DL, ?0‘ ;将计数值转换为ASCII码 MOV AH, 2 ;进行显示 INT 21H

STOP: RET 5.9 试编写一个汇编语言程序,要求从键盘接收一个四位的16进制数,并在终端上显示与它等值的二进制数。

答:程序段如下:

BEGIN: MOV BX, 0 ;用于存放四位的16进制数

MOV CH, 4 MOV CL, 4

INPUT: SHL BX, CL ;将前面输入的数左移4位

MOV AH, 1 ;从键盘取数 INT 21H CMP AL, 30H ;<0吗? JB INPUT ;不是?0~F‘的数重新输入 CMP AL, 39H ;是?0~9‘吗? JA AF ;不是,转‘A~F’的处理 AND AL, 0FH ;转换为:0000B~1001B JMP BINARY

AF: AND AL, 1101 1111B ;转换为大写字母

BINARY:

DISPN: DISP:

STOP:

CMP JB CMP JA AND ADD OR DEL JNZ MOV MOV ROL RCL OR MOV INT LOOP RET

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

;又

;不是?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

COMP: MOV

LEA MOV REPE JNZ INC ADD

NOMATCH: INC

DEC JNZ

DONE: MOV

MOV LEA

DONE1: ROL

MOV AND

AX, 0

DX, DISP-ENG-2 ;计算ENG的长度(每次比较sun,因此比较次数-2) BX, ENG DI, BX SI, KEYWORD CX, 3 CMPSB ;串比较 NOMATCH AX ;是,SUN的个数加1 BX, 2 BX ;指向ENG的下一个字母 DX COMP CH, 4 ;将次数转换为16进制数的ASCII码 CL, 4 BX, DAT ;转换结果存入DAT单元中 AX, CL DX, AX 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 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 MOV

BEGIN:

AX, DSEG DS, AX

;给DS赋值

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 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 ;以上定义代码段 ;--------------------------------------------------------------------------

联系客服:779662525#qq.com(#替换为@)