0007 0000 (DS)
0020H
001EH
001CH
001AH
( 0016H ) ( 0018H ) ( 001AH ) ( 001CH ) ( 001EH ) ( 0020H )
000B 0007 0000 (DS)
( 0016H ) ( 0018H ) ( 001AH ) ( 001CH ) ( 001EH ) ( 0020H ) SP：
000B 0007 0000 (DS)
( 0016H ) ( 0018H ) ( 001AH )
( 001CH ) ( 001EH ) ( 0020H )
000B 0007 0000 (DS)
( 0016H ) ( 0018H ) ( 001AH ) ( 001CH ) ( 001EH ) ( 0020H )
000B 0007 0000 (DS)
0018H
001AH
001CH
0020H
( 0016H ) ( 0018H ) ( 001AH ) ( 001CH ) ( 001EH ) ( 0020H )
BEGIN PUSH DS PUSH AX CALL B10
偏移地址 堆栈
写一段子程序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
设有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
编写一个有主程序和子程序结构的程序模块。子程序的参数是一个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 ；以上定义堆栈段
；****************************************** 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
汇编语言第六章答案
