IBM_PC汇编语言程序的设计课后习题答案(第二版沈美明))

ASSUME CS: CSEG, DS: DSEG

START: PUSH DS ；设置返回DOS

SUB AX, AX

PUSH AX

MOV AX, DSEG

MOV DS, AX ；给DS赋值

BEGIN: MOV CX, COUNT

LEA BX, ARRAY

LEA SI, ARRAY1

LEA DI, ARRAY2

BEGIN1: MOV AX, [BX]

CMP AX, 0 ；是负数码？

JS FUSHU

MOV [SI], AX ；是正数，存入正数数组

INC COUNT1 ；正数个数+1

ADD SI, 2

JMP SHORT NEXT

FUSHU: MOV [DI], AX ；是负数，存入负数数组

INC COUNT2 ；负数个数+1

ADD DI, 2

NEXT: ADD BX, 2

LOOP BEGIN1

LEA DX, ZHEN ；显示正数个数

MOV AL, COUNT1

CALL DISPLAY ；调显示子程序

LEA DX, FU ；显示负数个数

MOV AL, COUNT2

CALL DISPLAY ；调显示子程序

RET

MAIN ENDP

；--------------------------------------------------------------------------

DISPLAY PROC NEAR ；显示子程序

MOV AH, 9 ；显示一个字符串的DOS调用

INT 21H

AAM ；将(AL)中的二进制数转换为二个非压缩BCD码

ADD AH, ‘0’ ；变为0～9的ASCII码

MOV DL, AH

MOV AH, 2 ；显示一个字符的DOS调用

INT 21H

ADD AL, ‘0’ ；变为0～9的ASCII码

MOV DL, AL

MOV AH, 2 ；显示一个字符的DOS调用

INT 21H

LEA DX, CRLF ；显示回车换行

MOV AH, 9 ；显示一个字符串的DOS调用

INT 21H

RET

DISPLAY ENDP ；显示子程序结束

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 ；没有偶数，退出