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
0500:00EC MOV BP, SP
:00EE 返回POP BP地址 MOV BX, [BP+2]
0003H :00F0 AND BX, 000FH
:00F2 返回POP BP地址 MOV [BP+2], BX
0002H :00F4 POP BP
:00F6 返回POP BP地址 MOV CL, 4
0001H :00F8 SHR AX, CL
:00FA 主程序返回地址 CALL HTOA
0000 :00FC POP BP
(DS) :00FE B1: ADD AL, 30H
CMP AL, 3AH
00EE SP:
JL PRINTIT
6.4 题堆栈最满时各单元
ADD AL, 7H
的地址及内容 PRINTIT: MOV DL, AL
MOV AH, 2
INT 21H RET
HOTA ENDP ；HOTA子程序结束
；-------------------------------------------------------------------- CODE ENDS ；代码段结束
；******************************************
END START ；程序结束
答：堆栈最满时各单元的地址及内容如右上图所示：
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
41
0001 0003 0004
SUB AX, AX
PUSH AX 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
PUSH AX CALL B10 BEGIN PUSH DS
( 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
42
2B C0
50 E8 0008
R
LOOP POP POP RET
SKIPLINES ENDP
END
DISP DX CX
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 ；给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进制形式把它显示出来。)
43
答：程序如下：
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 ；以上定义堆栈段 ；****************************************** 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
44
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
SEARCH ENDP ；SEARCH子程序结束
；-------------------------------------------------------------------------- DISP_CRLF PROC NEAR ；显示回车换行符子程序
LEA DX, CRLF MOV AH, 09H INT 21H RET
DISP_CRLF ENDP ；DISP_CRLF子程序结束
；-------------------------------------------------------------------------- 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 ；以上定义数据段 ；******************************************
45