- 实验内容、程序清单及运行结果
- 编写子程序（课本实验10）
1.显示字符串
问题显示字符串是现象工作中经常用到的功能，应该编写一个通用的子程序来实现这个功能。我们应该提供灵活的调用接口，使调用者可以决定显示的位置（行、列）、内容和颜色。
子程序描述
名称：show_str
功能：在指定的位置，用指定的颜色，显示一个用0结束的字符串。
参数：(dh)=行号(取值范围0~24),(dl)=列号(取值范围0~79)，
(cl)=颜色，ds:si指向字符串的首地址
返回：无
应用举例：在屏幕的8行3列，用绿色显示data段中的字符串。
assume cs:code
data segment
db 'Welcome to masm!', 0
data ends
code segment
start: mov dh, 8
mov dl, 3
mov cl, 2
mov ax, data
mov ds, ax
mov si, 0
call show_str
mov ax, 4c00h
int 21h
show_str: ;
;
;
code ends
end start
提示
（1）子程序的入口参数是屏幕上的行号和列号，注意在子程序内部要将它们转化为显存中的地址，
首先要分析一下屏幕上的行列位置和显存地址的对应关系 ；
（2）注意保存子程序中用到的相关寄存器；
（3）这个子程序的内部处理和显存的结构密切相关，但是向外提供了与显存结构无关的接口。
通过调用这个子程序，进行字符串的显示时可以不必了解显存的结构，为编程提供了方便。在实验中，
注意体会这种设计思想。
解：
assume cs:code
data segment
db 'Welcome to masm!',0
data ends
code segment
start: mov dh, 8
mov dl, 3
mov cl, 2
mov ax, data
mov ds, ax
mov si, 0
call show_str
mov ax, 4c00h
int 21h
show_str: push ax
push bx
push es
push si
mov ax, 0b800h
mov es, ax
mov ax, 160
mul dh
mov bx, ax ;bx=160*dh
mov ax, 2
mul dl ;ax=dl*2
add bx, ax ;mov bx, (160*dh + dl*2)设置es:bx指向显存首地址
mov al, cl ;把颜色cl赋值al
mov cl, 0
show0: mov ch, [si]
jcxz show1 ;(ds:si)=0时，转到show1执行
mov es:[bx], ch
mov es:[bx+1], al
inc si ;ds:si指向下一个字符地址
add bx, 2 ;es:bx指向下一个显存地址
jmp show0
show1: pop si
pop es
pop bx
pop ax
ret
code ends
end start
运行结果：
3.数值显示
问题编程，将data段中的数据以十进制的形式显示出来。
data segment
dw 123, 12666, 1, 8, 3, 38
data ends
这些数据在内存中都是二进制信息，标记了数值的大小。要把它们显示到屏幕上，成为我们能够
读懂的信息，需要进行信息的转化。比如，数据12666,在机器中存储为二进制信息：
0011000101111010B(317AH),计算机可以理解它。而要在显示器上读到可以理解的数值12666,
我们看到的应该是一串字符：”12666“。由于显卡遵循的是ASCII编码，为了让我们能在显示器
上看到这串字符，它在机器中应以ASCII码的形式存储为：31H、32H、36H、36H、36H（字符
”0“~”9“对应的ASCII码为30H~39H）。
通过上面的分析可以看到，在概念世界中，有一个抽象的数据12666，它表示了一个数值的大小。
在现实世界中它可以有多种表示形式，可以在电子机器中以高低电平（二进制）的形式存储，
也可以在纸上，黑板上、屏幕上以人数的语言”12666“来书写。现在，我们面临的问题就是，
要将同一抽象的数据，从一种表示形式转化为另一种表示形式。
可见，要将数据用十进制形式显示到屏幕上，要进地两步工作：
(1)将用二进制信息存储的数据转变为十进制形式的字符串；
(2)显示十进制形式的字符串。
第二步我们在本次实险的第一个子程序中已经实现，在这里只要调用一下show_str即可。我们来㢑第一步，
因为将二进制信息转变为十进制形式的字符串也是经常要用到的功能，我们应该为它编写一个通用的子程序。
子程序描述
名称：dtoc
功能：将word型数据转变为表示十进制的字符串，字符串以0为结尾符。
参数：(ax)=word型数据
ds:si指向字符串的首地址
返回：无
应用举例：编程，将数据12666以十进制的形式在屏幕的8行3列，用绿色显示出来。在显示
时我们调用本次实验中的第一个子程序show_str。
assume cs:code
data segment
db 10 dup (0)
data ends
code segment
start: mov ax, 12666
mov bx, data
mov ds, bx
mov si, 0
call dtoc
mov dh, 8
mov dl, 3
mov cl, 2
call show_str
:
:
:
code ends
end start
提示
下面我们对这个问题进行一下简单地分析。
（1）要得到字符串”12666“，就是要得到一列表示该字符串的ASCII码：31H、32H、36H、36H、36H。
十进制数码字会对应的ASCII码=十进制数据码值+30H。
要得到表示十进制数的字符串，先求十进制数每位的值。
例：对于12666，先求得每位的值：1、2、6、6、6。再将这些数分别加上30H，便得到了表示12666的
ASCII码串：31H、32H、36H、36H、36H。
（2）那么，怎样得到每位的值呢？采用下面的方法：
可见，用10除12666，共除5次，记下每次的余数，就得到了每位的值。
（3）综合以上分析，可得出处理过程如下。
用12666除以10，循环5次，记下每次的余数：将每次的余数分别加30H，便得到了表示
;问题：编程，将data段中的数据以十进制的形式显示出来。 db：字节型数据 dw：字型数据 dd：双字型数据
assume cs:code,ds:data
data segment
db 10 dup (0)
data ends
code segment
start: mov ax,12666
mov bx,data
mov ds,bx
mov si,0 ;ds:si指向data首地址
call dtoc1
mov dh,8
mov dl,3
mov cl,2
call show_str
mov ax,4c00h
int 21h
;名称：dtoc1
;功能：将word型数据转变为表示十进制的字符串
;参数：(ax)=word型数据；
;ds:si指向字符串首地址
;返回：无。
dtoc1: push ax
push bx
push cx
push dx
push si
push di
mov di,0
d10: mov dx,0 ;设置被除数高位为0
mov bx,10 ;除数为10
div bx
add dx,30h ;ax/10的余数+30H,转为字符
push dx ;字符入栈
inc di ;记录字符个数
mov cx,ax
jcxz dll ;当ax/10的商=0时，转到dll执行
jmp d10
dll: mov cx,di
d12: pop dx ;字符出栈
mov [si],dl
inc si ;ds:si指向下一单元
loop d12
mov dl,0
mov [si],dl ;设置结尾符0
pop si
pop di
pop dx
pop cx
pop bx
pop ax
ret
;名称：show_str
;功能：在指定的位置，用指定的颜色，显示一个用0结束的字符串。
;参数：(dh)=行号(取值范围0~24)；
; (dl)=列号(取值范围0~79)；
; (cl)=颜色；
; ds:si指向字符串的首地址。
;返回：无。
show_str: push ax
push bx
mov ax,0b800h
mov es,ax
mov ax,160
mul dh
mov bx,ax ;bx=160*dh
mov ax,2
mul dl ;ax=dl*2
add bx,ax ;mov bx,(160*dh+dl*2)设置es:bx指向显存首地址
mov al,cl ;把颜色cl赋值al
mov cl,0
show0: mov ch,[si]
jcxz show1 ;(ds:si)=0时，转到show1执行
mov es:[bx],ch
mov es:[bx+1],al
inc si ;ds:si指向下一个字符地址
add bx,2 ;es:bx指向下一个显存地址
jmp show0
show1: pop bx
pop ax
ret
code ends
end start
运行结果：
（4）对（3）的质疑
在已知数据是126666的情况下，知道进行5次循环。可在实际问题中，数据的值是多少程序员并不知道，
也就是说，程序员不能事先确定循环次数。
那么，如何确定数据各位的值已经全部求出了呢？我们可以看出，只要是除到商为0，
各位的值就已经全部求出。可以使用jcxz指令来实现相关的功能。
;问题：应用举例：将数据2494967295以十进制的形式在屏幕的8行3列，用绿色显示出来。
assume cs:code,ds:data
data segment
db 10 dup (0)
data ends
code segment
start: mov ax,0ffffh
mov dx,0ffffh
mov bx,data
mov ds,bx
mov si,0 ;ds:si指向data首地址
call dtoc2
mov dh,8
mov dl,3
mov cl,2
call show_str
mov ax, 4c00h
int 21h
;名称：dtoc2
;功能：将word型数据转变为表示十进制的字符串,字符串以0为结尾符
;参数：(ax)=dword型数据的低16位；
; (dx)=dword型数据的高16位
; ds:si指向字符串首地址
;返回：无。
dtoc2:
push ax
push bx
push cx
push dx
push si
push di
mov di,0
d20: mov cx,10 ;除数为10
call divdw
add cx,30h ;余数+30h,转为字符
push cx ;字符入栈
inc di ;记录字符个数
mov cx,ax
jcxz d21 ;低位商=0时，转到d21检测高位商
jmp d20
d21: mov cx,dx
jcxz d22 ;高低位商全=0时，转到d22执行
jmp d20
d22: mov cx,di
d23: pop ax ;字符出栈
mov [si],al
inc si ;ds:si指向下一单元
loop d23
mov al,0
mov [si],al ;设置结尾符0
pop di
pop si
pop dx
pop cx
pop bx
pop ax
ret
;名称：show_str
;功能：在指定的位置，用指定的颜色，显示一个用0结束的字符串。
;参数：(dh)=行号(取值范围0~24)；
; (dl)=列号(取值范围0~79)；
; (cl)=颜色；
; ds:si指向字符串的首地址。
;返回：无。
show_str: push ax
push bx
mov ax,0b800h
mov es,ax
mov ax,160
mul dh
mov bx, ax ;bx=160*dh
mov ax,2
mul dl ;ax=dl*2
add bx,ax ;mov bx,(160*dh+dl*2)设置es:bx指向显存首地址
mov al,cl ;把颜色cl赋值al
mov cl,0
show0: mov ch,[si]
jcxz show1 ;(ds:si)=0时，转到show1执行
mov es:[bx],ch
mov es:[bx+1],al
inc si ;ds:si指向下一个字符地址
add bx,2 ;es:bx指向下一个显存地址
jmp show0
show1: pop bx
pop ax
ret
;名称：divdw
;功能：进行不会产生溢出的除法运算，被除数为dword型，除数为word型，结果为dword型。
;参数：(ax)=dword型数据的低16位；
; (dx)=dword型数据的高16位；
; (cx)=除数。
;返回：(dx)=结果的高16位；
; (ax)=结果的低16位；
; (cx)=余数。
divdw: push si
push bx
push ax
mov ax,dx
mov dx,0
div cx ;被除数的高位/cx
mov si,ax
pop ax
div cx ;(被除数高位的商+低位)/cx
mov cx,dx ;余数入cx
mov dx,si ;高位的商入dx
pop bx
pop si
ret
code ends
end start
运行结果：
- 编写子程序（课本实验11）
编写一个子程序，将包含任意字符，以 0 结尾的字符串中的小写字母转变成大写字母。描述如下：
名称：letterc
功能：将以 0 结尾的字符串中的小写字母转变成大写字母
参数：ds:si 指向字符串首地址
应用举例：
assume cs:codesg
datasg segment
db "Beginner's All-purpose Symbolic Instruction Code.",0
datasg ends
begin:
mov ax,datasg
mov ds,ax
mov si,0
call letterc
mov ax,4c00h
int 21h
letterc:
;待完成部分
codesg ends
end begin
注：需要进行转化的是字符串中的小写字母 a~z，而不是其他字符。
解：
assume cs:codesg
datasg segment
db "Beginner's All-purpose Symbolic Instruction Code.",0
datasg ends
codesg segment
begin:
mov ax,datasg
mov ds,ax ;段寄存器DS指向datasg段
mov si,0
call letterc ;子程序调用
mov ax,4c00h
int 21h
letterc:
push cx ;将子程序用到的寄存器内容入栈
push si
mov cl,ds:[si] ;取字符串中的字符
jcxz exit ;如果CX等于0则退出
cmp cl,97
jb help ;如果ASCII值小于97则转移至help
cmp cl,122
ja help ;如果ASCII值大于122则转移至help
and cl,11011111b ;通过逻辑与运算将字母转换为大写字母
mov ds:[si],cl ;将转换后的字符重写回对应的内存单元
jmp short help ;转移实现类似循环的功能
help:
inc si ;偏移1个字节取字符
jmp short letterc ;循环
exit:
pop si
pop cx ;将子程序用到的寄存器内容入栈
ret ;子程序返回
codesg ends
end begin
- 编写子程序
名称：strcpy
;功能：将ds:si开始存放的字符串str1复制到将es:di开始存放的字符串str2中，str1将以0结尾，复制包括结束标记。调用时保证str2的空间大于str1。;参数：ds:si开始存放的字符串str1，es:di开始存放的字符串str2
;返回： 无
DATAS SEGMENT
db'Happy day',0 ;源地址，0为结束符
str2 db 32 dup(1) ;目的地址
DATAS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS
START:
MOV AX,DATAS
MOV DS,AX
mov si,0 ;源地址ds:si
mov es,ax
mov ax,offset str2
mov di,ax ;目的地址es:di
call strcpy
MOV AH,4CH
INT 21H
strcpy proc
mov cx,str2-DATAS ;传送长度=str2标号偏移-DATAS段偏移
cld ;设置df=0，正向传送
rep movsb ;串传送
ret
strcpy endp
CODES ENDS
END START
4、附加题
有一个sc的长度为16的成绩数组，统计成绩为优秀（>=90)、良好（89~80)、中等（79~70)、及格（69~60)、不及格的人数（<60)，分别放入numa、numb、numc、numd、nume中。编写程序完成以上功能。
DATAS SEGMENT
sc db 90,91,50,49,77,88,41,55,33,86,48,59,69,89,56,87
numa db 0
numb db 0
numc db 0
numd db 0
nume db 0
DATAS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS
START:
MOV AX,DATAS
MOV DS,AX
mov bx,0
mov cx,16 ;数组长度16
call grade
MOV AH,4CH
INT 21H
grade proc
s:mov al,[bx]
inc bx ;bx总指向下一个
cmp al,90 ;al>=90则跳转a
jae a
cmp al,80 ;90>al>=80则跳转b
jae b
cmp al,70 ;80>al>=70则跳转c1
jae c1
cmp al,60 ;70>al>=60则跳转d
jae d
inc [nume] ;60>al
s2:loop s
jmp s1 ;loop结束则程序结束
a:inc [numa]
jmp s2
b:inc [numb]
jmp s2
c1:inc [numc]
jmp s2
d:inc [numd]
jmp s2
s1:ret
grade endp
CODES ENDS
END START
