11798352.doc - 35 -
MAIN
PROC FAR ；主程序部分 ASSUME CS: CODE, SS: STACK
START: MOV AX, STACK
MOV SS, AX
MOV SP, OFFSET TOS PUSH DS SUB AX, AX PUSH AX
；MAIN PART OF PROGRAM GOES HERE
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
11798352.doc - 36 -
0004
R CALL B10 ；--------------------------------------
0007 CB RET 0008 BEGIN ENDP
；--------------------------------------
0008 B10 PROC 0008 E8 000C R CALL C10
；--------------------------------------
000B C3 RET 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 ； INT 21H
MOV DL, 0AH MOV AH, 2 ；显示一个字符的DOS调用 INT 21H LOOP DISP POP DX POP CX RET
SKIPLINES ENDP
E8 0008
11798352.doc - 37 -
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 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 ；
BEGIN: MOV CX, 10
CALL COUNT
┇ ；后续程序 RET
MAIN ENDP
；-------------------------------------------------------------------------- COUNT PROC NEAR ；成绩统计子程序
MOV SI, 0
NEXT: MOV AX, RECORD[SI]
MOV BX, 10 ； DIV BL ；计算公式为：((成绩)/10-6)*2送(BX) MOV BL, AL ； 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
11798352.doc - 38 -
CHAR DB ? CHAR_N DB 0 ； CRLF DB 0DH, 0AH, ?$? DSEG ENDS ；
；****************************************** STACK SEGMENT
DW 100 DUP (?)
TOS LABEL WORD STACK ENDS ；以上定义堆栈段 ；****************************************** CSEG SEGMENT MAIN PROC FAR
ASSUME CS: CSEG, DS: DSEG, SS: STACK
START: MOV AX, STACK
MOV SS, AX ； MOV SP, OFFSET TOS ； PUSH DS ； SUB AX, AX PUSH AX
MOV AX, DSEG MOV DS, AX ；
BEGIN: MOV BX, 0
MOV CX, 255 ；
INPUT: MOV AH, 1 ；
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 ；
INT 21H CMP AL, 0DH ； JZ EXIT
MOV CHAR, AL ； CALL SEARCH ； MOV DL, ?:? ； MOV AH, 2 ； INT 21H
MOV DL, CHAR_N ； 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
11798352.doc - 39 -
MOV CX, N
MOV CHAR_N, 0 MOV AL, CHAR
ROTATE: CMP AL, TABLE [SI]
JNZ ROTATE1 INC CHAR_N ；
ROTATE1: INC SI
LOOP ROTATE RET
SEARCH ENDP ；
；-------------------------------------------------------------------------- DISP_CRLF PROC NEAR ；
LEA DX, CRLF MOV AH, 09H INT 21H RET
DISP_CRLF ENDP ；
；-------------------------------------------------------------------------- CSEG ENDS ；
；******************************************
END START
6.9 编写一个子程序嵌套结构的程序模块，分别从键盘输入姓名及8个字符的电话号码，并以一定的
格式显示出来。 主程序TELIST：
? 显示提示符“INPUT NAME：”；
? 调用子程序INPUT_NAME输入姓名；
? 显示提示符“INPUT A TELEPHONE NUMBER：”； ? 调用子程序INPHONE输入电话号码；
? 调用子程序PRINTLINE显示姓名及电话号码。 子程序INPUT_NAME：
? 调用键盘输入子程序GETCHAR，把输入的姓名存放在INBUF缓冲区中； ? 把INBUF中的姓名移入输出行OUTNAME。 子程序INPHONE：
? 调用键盘输入子程序GETCHAR，把输入的8位电话号码存放在INBUF缓冲区中； ? 把INBUF中的号码移入输出行OUTPHONE。 子程序PRINTLINE：
显示姓名及电话号码，格式为：
NAME TEL. X X X XXXXXXXX
答：程序如下：
DSEG SEGMENT INBUF DB 12 DUP (? ?) ；输入缓冲区，初始值为空格 OUTNAME DB 16 DUP (? ?), ；姓名输出行，初始值为空格 OUTPHONE DB 12 DUP (? ?), 0DH, 0AH, ?$? ；号码输出行，初始值为空格 MESG1 DB ?INPUT NAME：?, ?$? MESG2 DB ?INPUT A TELEPHONE NUMBER：?, ?$? MESG3 DB ?NAME?, 12 DUP (? ?), ?TEL.?, 0DH, 0AH, ?$? CRLF DB 0DH, 0AH, ?$? DSEG ENDS ；以上定义数据段 ；****************************************** STACK SEGMENT
DW 100 DUP (?)
TOS LABEL WORD STACK ENDS ；
；******************************************