IBM-PC汇编语言程序设计答案 下载本文

49703100.doc - 40 - 作者:User

MOV AX, 4321H CALL HTOA RET

MAIN ENDP ;主程序部分结束 ;-------------------------------------------------------------------- HTOA PROC NEAR ;HTOA子程序

CMP AX, 15 JLE B1 PUSH AX PUSH BP MOV BP, SP

MOV BX, [BP+2] AND BX, 000FH MOV [BP+2], BX POP BP MOV CL, 4 SHR AX, CL CALL HTOA POP BP

B1: ADD AL, 30H

CMP AL, 3AH JL PRINTIT ADD AL, 7H

PRINTIT: MOV DL, AL

MOV AH, 2 INT 21H RET

HOTA ENDP ;HOTA子程序结束 ;-------------------------------------------------------------------- CODE ENDS ;代码段结束 ;******************************************

END START ;程序结束

答:堆栈最满时各单元的地址及内容如右上图所示:

0500:00EC :00EE 返回POP BP地址 0003H :00F0 :00F2 返回POP BP地址 0002H :00F4 :00F6 返回POP BP地址 0001H :00F8 :00FA 主程序返回地址 0000 :00FC (DS) :00FE

00EE SP:

6.4 题堆栈最满时各单元

的地址及内容

6.5 下面是一个程序清单,请在下面的图中填入此程序执行过程中的堆栈变化。

;*************************

0000 STACKSG SEGMENT 0000 20 [. DW 32 DUP (?)

? ? ? ?

]

0040 STACKSG ENDS

;*************************

0000 CODESG SEGMENT PARA ?CODE‘

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

0000 BEGIN PROC FAR

ASSUME CS: CODESG, SS: STACKSG

0000 1E PUSH DS 0001 2B C0 SUB AX, AX 0003 50 PUSH AX 0004 E8 0008 R CALL B10

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

0007 CB RET 0008 BEGIN ENDP

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

0008 B10 PROC 0008 E8 000C R CALL C10

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

000B C3 RET

49703100.doc - 41 - 作者:User

000C

B10 ENDP

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

000C C10 PROC

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

000C C3 RET 000D C10 ENDP

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

000D CODESG ENDS

;*************************

END BEGIN

答:程序执行过程中的堆栈变化如下图所示。

偏移地址 堆栈 ( 0016H ) ( 0016H ) ( 0016H ) ( 0016H )

( 0018H ) ( 0018H ) ( 0018H ) ( 0018H ) ( 001AH ) ( 001AH ) ( 001AH ) ( 001AH ) 0007 ( 001CH ) ( 001CH ) ( 001CH ) 0000 ( 001CH ) 0000 ( 001EH ) ( 001EH ) (DS) ( 001EH ) (DS) ( 001EH ) (DS) ( 0020H ) ( 0020H ) ( 0020H ) ( 0020H ) SP: 0020H 001EH 001CH 001AH

BEGIN PUSH DS PUSH AX CALL B10

( 0016H ) ( 0016H ) ( 0016H ) ( 0016H ) ( 0018H ) 000B ( 0018H ) 000B ( 0018H ) 000B ( 0018H ) 000B ( 001AH ) 0007 ( 001AH ) 0007 ( 001AH ) 0007 ( 001AH ) 0007 ( 001CH ) 0000 ( 001CH ) 0000 ( 001CH ) 0000 ( 001CH ) 0000 ( 001EH ) (DS) ( 001EH ) (DS) ( 001EH ) (DS) ( 001EH ) (DS) ( 0020H ) ( 0020H ) ( 0020H ) ( 0020H ) 001AH 001CH 0020H SP: 0018H 6.6 写一段子程序SKIPLINES,完成输出空行的功能。空出的行数在AX寄存器中。

答:程序如下:

CSEG SEGMENT SKIPLINES PROC FAR

ASSUME CS: CSEG

BEGIN: PUSH CX

PUSH DX MOV CX, AX

DISP: MOV DL, 0DH ;显示回车换行,即输出空行

MOV AH, 2 ;显示一个字符的DOS调用 INT 21H

MOV DL, 0AH MOV AH, 2 ;显示一个字符的DOS调用 INT 21H LOOP DISP POP DX POP CX RET

SKIPLINES ENDP

END

6.7 设有10个学生的成绩分别是76,69,84,90,73,88,99,63,100和80分。试编制一个子程

序统计60~69分,70~79分,80~89分,90~99分和100分的人数,分别存放到S6,S7,S8,S9和S10单元中。 答:程序如下:

DSEG SEGMENT

RECORD DW 76,69,84,90,73,88,99,63,100,80 S6 DW 0

49703100.doc - 42 - 作者:User

S7 DW 0 S8 DW 0 S9 DW 0 S10 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, 10

CALL COUNT

┇ ;后续程序 RET

MAIN ENDP

;-------------------------------------------------------------------------- COUNT PROC NEAR ;成绩统计子程序

MOV SI, 0

NEXT: MOV AX, RECORD[SI]

MOV BX, 10 ;以下5句是根据成绩计算相对S6的地址变化量 DIV BL ;计算公式为:((成绩)/10-6)*2送(BX) MOV BL, AL ;此时(BH)保持为0不变 SUB BX, 6 ;应为只统计60分以上成绩 SAL BX, 1 ;(BX)*2 INC S6[BX] ;S6是S6,S7,S8,S9和S10单元的首地址 ADD SI, 2 LOOP NEXT RET

COUNT ENDP ;COUNT子程序结束 ;-------------------------------------------------------------------------- CSEG ENDS ;以上定义代码段 ;******************************************

END START

6.8 编写一个有主程序和子程序结构的程序模块。子程序的参数是一个N字节数组的首地址TABLE,

数N及字符CHAR。要求在N字节数组中查找字符CHAR,并记录该字符出现的次数。主程序则要求从键盘接收一串字符以建立字节数组TABLE,并逐个显示从键盘输入的每个字符CHAR以及它在TABLE数组中出现的次数。(为简化起见,假设出现次数≤15,可以用16进制形式把它显示出来。)

答:程序如下:

DSEG SEGMENT TABLE DB 255 DUP (?) N DW 255 CHAR DB ? CHAR_N DB 0 ;用于记录CHAR出现的次数 CRLF DB 0DH, 0AH, ?$‘ DSEG ENDS ;以上定义数据段 ;****************************************** STACK SEGMENT

DW 100 DUP (?)

TOS LABEL WORD STACK ENDS ;以上定义堆栈段

49703100.doc - 43 - 作者:User

;****************************************** CSEG SEGMENT MAIN PROC FAR

ASSUME CS: CSEG, DS: DSEG, SS: STACK

START: MOV AX, STACK

MOV SS, AX ;给SS赋值 MOV SP, OFFSET TOS ;给SP赋值 PUSH DS ;设置返回DOS SUB AX, AX PUSH AX

MOV AX, DSEG MOV DS, AX ;给DS赋值

BEGIN: MOV BX, 0

MOV CX, 255 ;最多输入255个字符

INPUT: MOV AH, 1 ;从键盘接收一个字符的DOS功能调用

INT 21H CMP AL, 0DH ;输入回车符结束输入 JZ IN_N

MOV TABLE [BX], AL INC BX LOOP INPUT

IN_N: MOV N, BX ;TABLE数组中的字符个数送N

CALL DISP_CRLF

IN_CHAR: MOV AH, 1 ;从键盘接收一个字符并回显的DOS功能调用

INT 21H CMP AL, 0DH ;输入回车符结束 JZ EXIT

MOV CHAR, AL ;输入的字符存入CHAR单元 CALL SEARCH ;调搜索字符子程序 MOV DL, ?:‘ ;显示―:‖,在字符CHAR(输入时回显)的后面 MOV AH, 2 ;显示一个字符 INT 21H

MOV DL, CHAR_N ;再显示CHAR出现的次数(次数≤15) AND DL, 0FH ADD DL, 30H CMP DL, 39H JBE NEXT ADD DL, 07H ;是A~F

NEXT: MOV AH, 2 ;显示一个字符

INT 21H

CALL DISP_CRLF JMP SHORT IN_CHAR

EXIT: RET MAIN ENDP

;-------------------------------------------------------------------------- SEARCH PROC NEAR ;搜索字符子程序

MOV SI, 0 MOV CX, N

MOV CHAR_N, 0 MOV AL, CHAR

ROTATE: CMP AL, TABLE [SI]

JNZ ROTATE1 INC CHAR_N ;搜索到字符,则出现次数+1

ROTATE1: INC SI

LOOP ROTATE RET