2014-汇编-综合实验报告

综合实验报告

( 2014 -- 2015 年度第一学期)

名称：《汇编语言程序设计》综合实验题目：

院系：

班级：

学号：

学生姓名：

指导教师：

设计周数：

成绩：

日期：2015 年 1 月 4 日

实验一用表格形式显示字符

一、课程设计(综合实验)的目的与要求

按15*16列的表格形式显示ASCⅡ码为10H—100H的所有字符，即以行为主的顺序及ASCⅡ码递增的次序依次显示对应的字符。每16个字符为一行，每行中的相邻两个字符之间用空白符隔开。

二、设计（实验）正文

（1）显示每个字符可使用功能号为02的显示输出功能调用：

Mov ah,02h

Mov dl,输出字符的ASCⅡ码

Int 21h

将dl初始化为10H，然后使用其加1以取得下一个字符的ASCⅡ码。（2）显示空白符是，用其ASCⅡ码置0入dl寄存器。每行结束时，用回车和换行来结束本行并开始下一行。

（3）由于逐个显示相继的ASCⅡ码字符是，需要不断修改dl寄存器的内容，而显示空白、回车、换行也需要使用dl寄存器，为此可使用堆栈保存dx。

三、实验程序及程序运行结果

DATAS SEGMENT

DATAS ENDS

CODES SEGMENT

ASSUME CS:CODES,DS:DATAS,SS:STACKS

START:

MOV AX,DATAS

MOV DS,AX

mov ax,10h

mov dx,ax

push dx

next: mov cx,10h

loop1: mov ah,02h;

int 21h

inc dx

push dx

mov dx,0

int 21h

pop dx

loop loop1;

zongji:

push dx

mov dl,13;

int 21h

mov dl,10

int 21h

pop dx

cmp dx,100h

jb next

exit: MOV AH,4CH

INT 21H

CODES ENDS

END START

实验二查找匹配字符串

一、课程设计(综合实验)的目的与要求

程序接受用户键入的一个关键字以及一个句子，如果句子中不包含关键字则显示“No match!”；如果句子中包含关键字则显示“match!”，且把该字在句子中的位置用十六进制数显示出来。要求程序的执行过程如下：

Enter keyword:abc

Enter sentence:we are studying abc

Match at location:11H of the sentence

Enter sentence:xyz

No match!

Enter sentence:

二、设计（实验）正文

程序由三部分组成：

（1）输入关键字和一个句子，分别存入相应的缓冲区中。

（2）在句子中查找关键字

（3）输出信息。用功能调用09h分‘找到’和‘未找到两种情况分别显示不同的信息。在“找到”时，显示关键字在字符串中位置。

三、使用说明

根据提示输入关键字和句子，按回车键结束输入。程序将显示字符串中是否含有关键字，有则提示‘match’并显示关键字位置，无则提示‘no match’。

四、实验程序及运行结果

datasg segment para 'data'

mess1 db 'Enter keyword:','$'

mess2 db 'Enter sentence:','$'

stoknkeyword db 10

act1 db ?

stokn1 db 10 dup(?)

stoknsenten db 50

act2 db ?

stokn2 db 50 dup(?)

mess3 db 'Match at location:','$'

mess4 db 'No match!',0dh,0ah,'$'

mess5 db 'H of the sentence.',0dh,0ah,'$'

mess7 db 0dh,0ah,'$'

flag dw 0

tongji dw 30h

datasg ends

;******************************************************************** codesg segment para 'code'

main proc far

assume cs:codesg,ds:datasg,es:datasg

start::

mov ax,datasg

mov ds,ax

mov es,ax

;

lea dx,mess1 ;输入字符提示

mov ah,09

int 21h

lea dx,stoknkeyword ;输入字符

mov ah,0ah

int 21h

lea dx,mess7 ;输出回车换行

mov ah,09

int 21h

loop1:

mov ax,30h

mov tongji,ax

lea dx,mess2 ;输出输入句子提示

mov ah,09

int 21h

lea dx,stoknsenten ;输入句子

mov ah,0ah

int 21h

lea dx,mess7 ;输入回车换行

mov ah,09

int 21h

;

mov al,act1 ;比较字符长度

cmp al,act2

jg print ;若act1大于act2则跳

lea si,stokn1 ;吧字符地址给si

lea bx,stokn2 ;把句子地址给bx

loop2:

mov di,bx

mov cl,act1

lea si,stokn1

cld

repz cmpsb ;比较句子中有无字符

jz next ;相等则跳到next

inc bx ;移到下一字符比较

dec act2

jnz loop2

test flag,0ffffh ;测试地址有无变化无则输出不匹配jz print

mov dx,tongji

mov ah,02h

int 21h

lea dx,mess7

mov ah,09h

int 21h

jmp loop1

print:

lea dx,mess4 ;输出不匹配语句

mov ah,09

int 21h

mov ah,02h

mov dx,tongji

int 21h

mov ah,09h

lea dx,mess7

int 21h

jmp loop1 ;返回到loop1重新输入句子next:

lea dx,mess3 ;输出匹配句子

mov ah,09h

int 21h

mov flag,bx ;记录此时匹配的地址

push bx ;匹配地址进栈

lea dx,stokn2 ;获取句子地址

sub bx,dx ;获得字符在句子的位置

inc bx

push cx ;字符长度进栈

mov ch,4

rotate:

mov cl,4

rol bx,cl

mov al,bl

and al,0fh

add al,30h

cmp al,3ah

jl print2

add al,7h

print2:

mov dl,al

mov ah,2

int 21h

inc bx

dec ch

jnz rotate ;二进制转换十六进制

pop cx

pop bx

tongge:

mov ax,0

mov ax,tongji

inc ax

mov tongji,ax

lea dx,mess5 ;输出匹配句子

mov ah,09h

int 21h

; mov ah,02h

;mov dx,13

;int 21h

;mov dx,tongji

;int 21h

;lea dx,mess7

;mov ah,09h

;int 21h

tonjijieshu:

inc bx

dec act2 ;句子长度减二

jnz loop2 ;若长度不等于0则转loop2继续寻找匹配

shuchu:

;mov dx,tongji

; mov ah,02h

;int 21h

jmp loop1

main endp

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

codesg ends

;******************************************************************** end start

实验三分类统计字符个数

一、实验要求

程序接受用户键入一行字符（字符个数不超过80个，该字符串用回车

符结束），并按字母、数字、其它字符分类计数，然后将结果存入以letter、

digit和other为名的存储单元中。

二、实验设计

（1）不程序可采用01H功能调用把键入字符先分类计数再存入缓冲区中。

（2）程序进入debug运行并查看计数结果。

三、实验程序及运行结果

Code Segment

Assume CS:Code,DS:Code

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：显示指定地址（Str_Addr）的字符串

; 入口：

; Str_Addr＝字符串地址（要求在数据段）

; 用法: Output Str_Addr

; 用法举例：Output PromptStr

Output MACRO Str_Addr

lea dx,Str_Addr

mov ah,9

int 21h

EndM

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：在当前光标位置显示一个字符

; 入口：dl=要显示的字符

Output_Chr proc Near

push ax

mov ah,02h

int 21h

pop ax

ret

Output_Chr Endp

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：显示、输出一个回车、换行

Output_CTLF proc Near

push ax

push dx

mov ah,02h

mov dl,0dh

int 21h

mov dl,0ah

int 21h

pop dx

pop ax

ret

Output_CTLF Endp

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示

; 入口：AX=二进制数

; 出口：在当前光标位置显示转换后的ASCII码数字

Unsi_Dec_ASCII Proc Near

push dx

push bx

push di

mov bx,10

lea di,@@Temp_Save[5]

mov BYTE PTR [di],'$'

dec di

cld

@@Divide: xor dx,dx

div bx

or dl,30h

mov [di],dl

dec di

test ax,ax

jnz @@Divide

inc di

push di

pop dx

mov ah,9

int 21h

pop di

pop bx

pop dx

ret

@@Temp_Save db 6 dup(?)

Unsi_Dec_ASCII EndP

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 功能：键盘输入一个字符，若输入的是'y'或'n'（不分大小写），则显示并返回; 入口：无

; 出口：若输入的是'y'，进位标志置位；若输入的是'n'，进位标志复位。

Yes_or_No proc Near

push dx

push ax

@@Input_Chr: mov ah,7 ;不带回显的键盘输入

int 21h

mov dl,al

and al,0dfh

cmp al,'Y'

jnz $+5

stc

jmp $+7

cmp al,'N'

jnz @@Input_Chr

clc

mov ah,2

int 21h

pop ax

pop dx

ret

Yes_or_No Endp

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Letters dw ? ;字母个数

Dights dw ? ;数字个数

Others dw ? ;其它字符个数

xiao dw ?;小字母

Letters_sum db 13,10,'Letters: $'

Dights_sum db 13,10,'Digits : $'

Others_sum db 13,10,'Others : $'

xiao_sum db 13,10,'xiao: $'

Prompt_Str db 'Please input a string:$'

Prompt_Con db 13,10,13,10,'Continue(Y/N)?$'

Press_Key db 7,13,10,13,10,'The complated. Press any key to exit...$'

Start: push cs

pop ds

push cs

pop es

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 从键盘上连续输入一串字符（字符个数不超过80个，该字符串用回车符结束）Input_Str: Output Prompt_Str ;提示输入一串字符

lea dx,Buffer ;输入字符串缓冲区地址

mov ah,0ah ;从键盘接收字符串

int 21h

call Output_CTLF ;输出一个回车、换行

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 按字母、数字、其它字符分类统计计数

lea si,Buffer[1] ;实际输入的字符数地址

lodsb ;读入实际输入的字符数

xor ah,ah

mov cx,ax ;实际输入的字符数送计数器

cmp cx,0

jz Continue

mov Letters,0 ;字母计数单元清零

mov Dights,0 ;数字计数单元清零

mov Others,0 ;其它字符计数单元清零

mov xiao,0

Classify: lodsb ;当前字符→AL

cmp al,'0' ;当前字符<'0'?

jb Other_Chr ;小于，转去按其它字符处理

cmp al,'9' ;当前字符>'9'?

ja $+8 ;大于，转去判断是否字母

inc Dights ;数字计数

jmp Other_Chr[4]

mov ah,al ;al→ah，用于判断是否字母

;and ah,0dfh ;屏蔽第5位，按大写字母处理

zimu:

cmp ah,'A' ;当前字符<'A'?

jb Other_Chr ;小于，转去按其它字符处理

cmp ah,'Z' ;当前字符>'Z'?

ja xiaozimu ;大于，转去按其它字符处理

inc Letters ;字母计数

jmp cher

xiaozimu:

cmp ah,'a'

jb Other_Chr

cmp ah,'z'

ja Other_Chr

inc xiao

jmp cher

Other_Chr:

inc Others ;其它字符计数

cher:

loop Classify

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 显示分类统计结果

Output Letters_sum

mov ax,Letters ;字母个数

call Unsi_Dec_ASCII ;把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示

Output Dights_sum

mov ax,Dights ;数字个数

call Unsi_Dec_ASCII

Output Others_sum

mov ax,Others ;其它字符个数

call Unsi_Dec_ASCII

Output xiao_sum

mov ax,xiao

call Unsi_Dec_ASCII

Continue:

Output Prompt_Con

call Yes_or_No

jnc Exit_Proc

call Output_CTLF

call Output_CTLF

jmp Input_Str

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Exit_Proc: Output Press_Key ;提示操作完成，按任意键结束程序

mov ah,1

int 21h

mov ah,4ch ;结束程序

int 21h

Buffer db 80 ;字符串缓冲区

Code Ends

END Start ;编译到此结束

实验四查找电话号码

一、实验要求

（1）要求程序建立一个可存放50项的电话号码表，每项包括人名及电话号码两部分；（2）程序可接受输入人名及相应的电话号码，并把它们加入电话号码表中；

（3）凡有新的输入后，程序可按人名对电话号码表重新排序；

（4）程序可接受需要查询电话号码的人名，并从电话号码表中查出其电话号码，再在屏幕上以如下格式显示出来。

Name tel

××××××××

二、设计说明

（1）显示提示符’Input name:’;

（2）调用子程序 input_name 接收人名;

（3）调用子程序 stor_name 把人名存入电话号码表 tel_tab 中：

（4）显示提示符’Input a telephone number:’;

（5）调用子程序 inphone 接收电话号码，并把它存入电话号码表tel_tab中;

（6）如输入已结束则调用 name_sort 子程序对电话号码表接人名排序;

（7）显示提示符’Do you want a telephone number ?(Y/N)’;

（8）回答N收退出程序;

（9）回答Y则再显示提示符’name ?’;

（10）调用子程序 input_name接收人名;

（11）调用子程序 name_search 在电话号码表中查找所要的电话号码;

（12）调用子程序 printline 按要求格式显示人名及电话号码;

（13）重复查号提示符直至用户不要求查号为止。

四、实验程序及结果

dataseg segment

namepar label byte

maxnlen db 21

actnlen db ?

_name db 21 dup(?)

phonepar label byte

maxplen db 9

actplen db ?

phone db 9 dup(?)

crlf db 13,10,'$'

endaddr dw ?

mess1 db 'enter name:','$'

mess2 db 'enter a telephone number:','$'

mess3 db 'Do you want a telephone number?(Y/N)','$'

mess4 db 'name?','$'

mess5 db 'name',16 dup(' '),'tel',0dh,0ah,'$'

mess6 db 'Not in the table.',0dh,0ah,'$'

mess7 db 'Invalid input!',0dh,0ah,'$'

count db 0

tel_tab db 50 dup(20 dup(' '),8 dup(' '))

temp db 20 dup(' '),8 dup(' '),0dh,0ah,'$'

swapped db 0

dataseg ends

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

codeseg segment

main proc far

assume cs:codeseg,ds:dataseg,es:dataseg

start::

push ds

sub ax,ax

push ax

mov ax,dataseg

mov ds,ax

mov es,ax;

cld

lea di,tel_tab ;di中存放表首地址

inputloop:

mov ah,09h

lea dx,mess1

int 21h

call input_name

cmp actnlen,0 ;没有输入人名时

jz a1 ;直接跳到提示是否查找的地方

cmp count,50 ;输入上限

je a1

call stor_name ;保存人名到tel_tab

mov ah,09h

lea dx,mess2

int 21h

call input_stor_phone ;输入并保存电话号码

jmp inputloop

a1:

cmp count,1

jbe searchloop ;如果没有输入或者输入一个

call name_sort ;排序

call disp_all ;显示所有

searchloop:

lea dx,mess3 ;输出询问句子

mov ah,09h

int 21h

mov ah,01h

int 21h

cmp al,'N'

je exit

cmp al,'n'

je exit

cmp al,'Y'

je showname

cmp al,'y'

je showname

mov ah,09

lea dx,crlf ;回车换行

int 21h

lea dx,mess7 ;非法输入

mov ah,09h

int 21h

jmp searchloop

showname:

mov ah,09

lea dx,crlf

int 21h

lea dx,mess4 ;当输入Y时,显示'name?'

mov ah,09

int 21h

call input_name ;输入要查找的人名

call name_search ;查找

call printline

jmp searchloop

exit:

ret

main endp

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

input_name proc near

mov ah,0ah

lea dx,namepar

int 21h ;输入名字

mov dl,0ah

mov ah,02h

int 21h ;换行

mov bh,0 ;bx高位置0

mov bl,actnlen ;bx低位置输入名字个数

mov cx,21

sub cx,bx ;计算剩下的长度

i1:

mov _name[bx],20h

inc bx

loop i1 ;把bx之后剩下的填充空格

ret

input_name endp

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

stor_name proc near

inc count ;有人名输入所以个数加1

cld

lea si,_name ;把si指向刚才输入名字的位置

mov cx,10 ;把name中的前20个字符放入tel_tab中每一个人信息的前20个byte中

rep movsw ;把si所指名字赋值给di所指地方tel_tab

ret

stor_name endp

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

input_stor_phone proc near

mov ah,0ah

lea dx,phonepar

int 21h ;把电话号码存入phonrpar

mov ah,02h

mov dl,0ah ;换行

int 21h

mov bh,0

mov bl,actplen

mov cx,9

sub cx,bx ;计算剩下的长度

s2:

mov phone[bx],20h ;剩下的地方填充空格

inc bx

loop s2

cld

lea si,phone ;再把名字放入之后di就已经移动到名字之后了

mov cx,4 ;把phone中的前8个字符放入tel_tab中每一个人信息的后8个byte中

rep movsw

ret

input_stor_phone endp

;***************************************************************** name_sort proc near

sub di,56 ;di为什么减56

mov endaddr,di

n1:

mov swapped,0

lea si,tel_tab

n2:

mov cx,20

mov di,si

add di,28 ;下一个被比较的名字

mov ax,di

mov bx,si

repe cmpsb ;比较20次

jbe n3 ;小于或等于不用交换

call npxchg

n3:

mov si,ax

cmp si,endaddr

jbe n2

cmp swapped,0

jnz n1

ret

name_sort endp

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

npxchg proc near

mov cx,14 ;交换名字和电话号码

lea di,temp

mov si,bx

rep movsw ;move lower item to save

mov di,bx

rep movsw

mov cx,14

lea si,temp

rep movsw

mov swapped,1

ret

npxchg endp

;************************************************************ disp_all proc near

mov ah,09h

lea dx,mess5

int 21h

lea si,tel_tab

d1:

lea di,temp

mov cx,14

rep movsw

mov ah,09h

lea dx,temp

int 21h

dec count

jnz d1

ret

disp_all endp

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

name_search proc near

lea si,tel_tab

mov bx,si

add endaddr,28

e1:

lea di,_name ;存放待查找的人名地址

mov cx,10

repe cmpsw

jcxz exit3 ;相等

add bx,28 ;表中下一个比较的人名

mov si,bx

cmp si,endaddr

jbe e1

mov cx,-1

ret

exit3:

mov si,bx

mov cx,14

rep movsw

ret

name_search endp

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

printline proc near

cmp cx,-1

je norecord

mov ah,09h

lea dx,mess5

int 21h ;输出name和tel

mov ah,09h

lea dx,temp

int 21h ;输出名字和电话号码

ret

norecord:

mov ah,09h

lea dx,mess6

int 21h ;输出没找到

ret

printline endp

;************************************************************ codeseg ends

end start

三、课程设计（综合实验）总结或结论

本次汇编实验历时四个早上，做了四个实验，第一个实验比较简单，通过此实验加深

了我对ASCII的认识和cx寄存器的使用，也近一不了解了汇编环境。第二个实验感觉比较难，分析可能是自己对数据存取在内存中的认识不够深，不能很好的运用，所以调试了一个上午才完成了。第三个实验有了前两个实验的经验，对此实验进行修改时，简单，熟练了一些，能统计出大小写的英文字母。实验四，一个人两个号码的查询没有做出来，调试了一个早上都没有成功，查询完一个后怎么继续查询老是出错。做实验时痛苦的，但做出实验室开心的，同过这次实验，加深了我对汇编语言的了解，实现了从书本到程序的转变。

四、参考文献

[1]沈美明温冬婵张赤红《IBM-PC汇编语言程序设计实验教程》清华大学出版社附录（设计流程图、程序、表格、数据等）

实验四流程图