汇编语言程序设计实验报告

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

实 验 报 告

实验名称 专业班级：信息安全

学 号：

姓 名： | |

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

实验一 汇编语言上机过程和Debug常用调试命令

一． 实验目的：

学习程序设计的基本方法和技能，熟练掌握用汇编语言设计、编写、调试和运行

程序的方法。

二． 实验题目：

熟悉与实验有关的系统软件(如编辑程序、汇编程序、连接程序和调试程序等)的

使用方法。在调试过程中，学习及掌握debug程序的各种操作命令。

三． 问题描述：

试编写一程序：比较两个字符串string1和string2所含的字符是否相同，若相同

则显示‘match’; 否则，显示‘no match’。

四． 方法说明：

a) 使用ws、tc或EDIT编辑程序来建立源文件，然后存盘，使系统返回DOS。 b) 用汇编程序masm(或asm)对源文件汇编产生目标文件obj

如：汇编指示出错则需重新调用编辑程序修改错误，直至汇编通过为止。 c) 用连接程序link 产生执行文件EXE. d) 执行程序，可直接从DOS执行程序。 e) 使用debug程序调试程序的方法。 五． 实验步骤：

1． 调用字处理程序EDIT 建立以sample.asm文件 datarea segment

string1 db ‘move the cursor backward.’ string2 db ‘move the cursor backward.’ mess1 db ‘Match..’,13,10,’$’ mess2 db ‘No match!..’,13,10,’$’ datarea ends prognam segment main proc far

assume cs:prognam,ds:datarea,es:datarea

start:

push ds sub ax,ax push ax mov ax,datarea mov ds,ax mov es,ax lea si,string1 lea di,string2 cld

mov cx,25

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

repz cmpsb jz match lea dx,mess2 jmp short disp

match:

lea dx, mess1 disp:

mov ah,09 int 21h ret main endp prognam ends

end start

2． 对源文件汇编产生目标文件obj

D:\masm 文件名。Asm

3．用连接程序link产生执行文件exe D:\link文件名。Obj 4．执行程序 D:\ 文件名

5. 使用debug程序调试程序的方法。 d>debug 文件名.exe _ 1. 2. 3. 4. 5. 6. 7. 8.

五、实验总结

第一次进行汇编实验，主要是学习程序设计的基本方法和技能，熟练掌握用汇编语言设计、编写、调试和运行程序的方法，只有多上机练习，才能更好的掌握汇编语言程序设计的思想。

用G命令运行程序 用U命令显示程序 学会设置断点。

学会查看数据段的内容情况D 用E命令修改数据区的字符串。 用A 命令把数据区的内容恢复原状 T命令逐条跟踪程序的执行

学会使用F命令、R命令、Q命令等等

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

实验二 循环程序设计1

循环结构是控制重复执行某一程序段的基本程序结构. 在汇编语言程序设计中, 循环程序的地位也是极为重要,从本质上来看, 循环程序结构是分支程序结构的一种手特殊形式, 也是使用条件转移指令来控制执行循环的.

一.实验目的：

学会用循环结构进行程序编程。

二.实验题目：

设计一个按表格形式显示ASC||码为10H—100H的所有字符的程序。

三.实验要求：

按15行*16列的表格形式显示ASC||码为10H----100H的所有字符，

即以行为主的顺序及ASC||码递增的次序依次显示对应的字符。每16个字符为一行,每行中的相邻两个字符之间用空白符(ASC||为0)隔开。

四．方法说明：

(1) 显示每个字符可使用功能号为02的显示输出功能调用，使用方法如下：

mov ah,02h mov dl,0AH int 21h

本题中可把dl 初始化为10H, 然后不断使其加1(用INC指令) 以取得下一个字符的ASC||码。

(2) 显示空白符时，用其ASC||码0置入dl 寄存器，每行结束时，用显示回车(ASC||为0dh)和换行符(ASC||为oah)来结束本行并开始下一行。 (3) 由于逐个显示相继的ASC||字符时，需要保存并不断修改dl寄存器的内容，而显示空白、回车、换行符时也需要使用dl寄存器，为此可使用堆栈来保存相继的ASC||字符。具体用法是：在显示空白或回车，换行符前用指令

push dx 把dl 的内容保存到堆栈中去。在显示空白或回车，换行符后用指令

pop dx 恢复dl寄存器的原始内容。

五、实验代码

stack segment

db 100 dup (?) stack ends

code segment assume cs:code,ss:stack start:

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

mov dl,10h mov cl,0fh loopc:

mov ah,02h mov al,dl int 21h

inc dl

push dx mov dl,0h

mov ah,02h mov al,dl int 21h

pop dx

loopnz loopc

push dx mov dl,0dh

mov ah,02h mov al,dl int 21h

mov dl,0ah

mov ah,02h mov al,dl int 21h

pop dx

mov cl,0fh

cmp dl,0h jne loopc

mov ah,4ch int 21h

code ends 六、实验结果

end start

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

七、实验总结

本次试验学会用循环结构进行程序编程，学好循环程序是很重要的，在程序

设计中，它的地位是极其重要的。

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

实验三 循环程序设计2

一.实验目的：

学会用循环程序设计进行程序编程。

二.实验题目：

设计查找匹配字符串SEARCH的程序。

三.问题要求：

程序接收用户键入的一个关键字以及一个句子。如果句子中不包含

关键字则显示’no match’;如果句子中包含关键字则显示‘match’，且把该字在句子中的位置用十六进制数显示出来，要求程序的执行过程如下： enter keyword :abc

enter sentence :we are studying abc

match at location :11H of the sentence enter sentence: xyz ,ok? no match

enter sentence :^c

四. 方法说明：

程序可由三部分组成：

(1 ) 输入关键字和一个句子，分别存入相应的缓冲区中，可用功能调用

0AH。

(2) 在句子中查找关键字。

1． 关键字和一个句子中相应字段的比较可使用串比较指令，为此必

须定义附加段，但附加段和数据段可以定义为同一段，以便于串指令的使用，这样，相应的寄存器内容也有了确定的含义，如下：

SI 寄存器为关键字的指针

DI 寄存器为句子中正相比较的字段的指针 CX寄存器存放关键字的字母个数(长度)

2． 整个句子和关键字的比较过程可以用一个循环结构来完成。循环

次数为：

(句子长度--关键字长度)+1在计算循环次数时，如遇到句子长度小于关键字长度的情况则应转向显示“no match”，循环中还需要用到BX寄存器，它用来保存句子中当前正在比较字段的首地址。

(3) 输出信息：

用功能调用09h分“找到”或“找不到”两种情况分别显示不同的

信息。在“找到”时，还要求显示出匹配字符串在句子中的位置，在“找到”时BX寄存器的内容为匹配字符串的首地址，将此值减到句子的首地址，再将差值加1 即是所要的匹配字符串在句子中的位置，可将位置转换为十六进制数从屏幕上显示出来。

五、实验代码

sseg segment stack

dw 256 dup (?)

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

sseg ends

data segment

msg1 db 'Enter keyword:',24h msg2 db 'Enter Sentence:',24h cr db 13,10,24h

keyword db 250,?,250 dup (?) Sentence db 250,?,250 dup (?) match db 'Match at location:',24h

match1 db ' of the sentence',13,10,24h nomatch db 'No match',13,10,24h data ends code segment

assume cs:code,ds:data,ss:sseg disp_hex proc near push ax push cx push dx push ax mov cl,4 ror al,cl and al,0fh add al,30h cmp al,39h jna d1 add al,7 d1:

mov dl,al mov ah,2 int 21h pop ax and al,0fh add al,30h cmp al,39h jna d2 add al,7 d2:

mov dl,al mov ah,2 int 21h mov dl,'h' mov ah,2 int 21h pop dx pop cx pop ax ret

disp_hex endp begin:

mov ax,data mov ds,ax mov es,ax

mov dx,offset msg1 mov ah,9 int 21h

mov dx,offset keyword mov ah,0ah

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

int 21h

cmp keyword + 1,0 je quit

mov dx,offset cr mov ah,9 int 21h b1:

mov dx,offset msg2 mov ah,9 int 21h

mov dx,offset Sentence mov ah,0ah int 21h

mov dx,offset cr mov ah,9 int 21h

mov dl,Sentence + 1 cmp dl,0 je quit

mov dh,keyword + 1

mov di,offset Sentence + 2 b2:

cmp dh,dl

ja _nomatch mov si,offset keyword + 2 mov cl,dh mov ch,0 cld

push di repe cmpsb pop di je _match inc di dec dl jmp b2 _match:

mov ax,di

sub ax,offset Sentence + 2 inc ax push ax

mov dx,offset match mov ah,9 int 21h pop ax

call disp_hex

mov dx,offset match1 mov ah,9 int 21h jmp b1 _nomatch:

mov dx,offset nomatch mov ah,9 int 21h jmp b1 quit:

mov ah,4ch int 21h

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

code ends end begin

六、实验结果

七、实验总结

本次试验主要考察了串比较指令的用法，同时将串指令和REPE联合起来用，使得指令变得简单。实验中还用到了一些数据结构，开始时需要定义空间以及缓冲区。

另外程序需要运用有两层循环，内循环由CX记录关键字长度控制循环计数，外循环是由ax记录外循环次数控制外循环计数。

通过本次实验，使我更加熟悉了课堂上知识，还培养了我将理论知识运用到实际编程中去的能力。

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

实验四 分支程序设计

一.实验目的：

学会用分支程序设计进行程序编程。

二.实验题目：

设计一个程序能分类统计字符个数

三.实验要求：

程序接收用户键入的一行字符(字符个数不超过80个，该字符串用回

车符结束)，并按字母、数字及其它字符分类计数，然后将结果存入以letter、digit和other为名的存储单元中。

四.方法说明：

程序可采用0AH功能调用把键入字符直接送到缓冲区中，然后再逐个取出分类计数，也可采用01H功能调用在接收字符后先分类计数然后再存入缓冲区中。

程序需进入debug 运行并查看计数结果。

五．实验代码

DATAS SEGMENT

STRING1 DB 'Input Your String: $';输入提示信息 STRING2 DB 'Digit: $' ;各类字符提示信息 STRING3 DB 'Letter: $'

STRING5 DB 'Others: $' DIGIT DB 0 ;数字

CHARS DB 0 ;字母 OTHERS DB 0 ;其他 DATAS ENDS

CODES SEGMENT

ASSUME CS:CODES,DS:DATAS

START:

MOV AX,DATAS MOV DS,AX

LEA DX,STRING1 ;显示输入提示信息 MOV AH,9 INT 21H

MOV CX,100 ;设置循环次数足够大

L1:MOV AH,1 ;中断调用，单字符输入 INT 21H

CMP AL,0DH ;若输入回车符则结束 JZ OVER2

CMP AL,30H

JB OTHER ;若<30H(0)，OTHERS++

CMP AL,39H ;若>39H(9),跳转进一步比较 JA HIGHER1

JMP DIGITAL ;DIGIT++

HIGHER1: CMP AL,41H ;if<41H(A),OTHERS++ JB OTHER

CMP AL,5AH ;if>5AH(Z),跳转继续比较 JA HIGHER2

JMP CHAR ;ALPHAU++

HIGHER2: CMP AL,61H ;if<61H(a),OTHERS++

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

JB OTHER

CMP AL,7AH ;if>7AH(z),OTHERS++ JA OTHER

JMP CHAR ;ALPHAL++ JMP OVER ;比较结束

OTHER: INC OTHERS ;OTHERS++ JMP OVER

DIGITAL: INC DIGIT ;DIGIT++ JMP OVER

CHAR: INC CHARS ;ALPHAL++ JMP OVER

JMP OVER OVER:NOP

LOOP L1 ;循环，输入下一字符

OVER2:CALL ENDLINE ;回车换行 LEA DX,STRING2 ;输出提示信息 MOV AH,9 INT 21H XOR AX,AX

MOV AL,DIGIT ;将统计的数字送AX，为输出做准备 CALL DISPLAY ;调用输出两位数字的子程序

CALL ENDLINE ;下同 LEA DX,STRING3 MOV AH,9 INT 21H XOR AX,AX MOV AL,CHARS CALL DISPLAY CALL ENDLINE

LEA DX,STRING5 MOV AH,9 INT 21H XOR AX,AX

MOV AL,OTHERS CALL DISPLAY MOV AH,4CH INT 21H

ENDLINE PROC NEAR ;控制输出格式，输出回车换行子程序 MOV AH,2 MOV DL,0AH INT 21H MOV AH,2 MOV DL,0DH INT 21H RET

ENDLINE ENDP

DISPLAY PROC NEAR ;输出两位数字的子程序 MOV BL,10 ;10送BL

DIV BL ;AX/BL,AL=商，AH=余数 PUSH AX ;保存AX中的信息 MOV DL,AL ADD DL,30H MOV AH,2

INT 21H ;输出十位数 POP AX ;出栈送AX MOV DL,AH ADD DL,30H MOV AH,2

INT 21H ;输出个位数 RET

DISPLAY ENDP CODES ENDS END START

六．实验总结

本次实验要求我们学会用分支程序设计进行程序编程，其中运用到许多跳转和比较指令，只要细心一点，理清思路就能很容易的将本程序编写出来。

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

实验五 子程序设计

一． 实验目的：

学会用子程序设计进行程序编程。 二． 实验题目：

设计一个能查找电话号码phone的程序。

三． 实验要求：

i. 要求程序建立一个可存放50项的电话号码表，每项包括人名(20个

字符)及电话号码(8个字符)两部分；

ii. 程序可接收输入人名及相应的电话号码，并把它们加入电话号码表

中；

iii. 凡有新的输入后，程序应按人名对电话号码表重新排序；

iv. 程序可接收需要查找电话号码的人名，并从电话号码表中查出其电

话号码，再在屏幕上以如下格式显示出来。 name tel **** ****

四． 实验提示：

程序采用子程序结构，主程序的主要部分如下： . 显示提示符‘input name:’;

. 调用子程序input_name接收人名；

. 调用子程序stor_name把人名存入电话号码表tel_tab中；

. 显示提示符‘input a telephone number:’;

. 调用子程序inphone接收电话号码，并把它存入电话号码表tel_tab

中；

. 如输入已结束则调用name_sort子程序对电话号码表按人名排序；

. 显示提示符‘DO you want a telephone number?(y/n)’; . 回答N则退出程序；

. 回答Y则再显示提示符‘ name？’; . 调用子程序input_name接收人名;

. 调用子程序name_search在电话号码表中查找所要的电话号码； . 调用子程序printline按要求格式显示人名及电话号码； . 重复查号提示符直至用户不再要求查号为止。

五、实验代码

data tel_tab tab_len endaddr tname tphone temp iname iphone go_on sname

db db db db db db db

segment 50 dup( 28 dup(' ')) dw dw db

0 0

; tel_tab电话本空间

; 已存联系人数目

; 最后一个联系人的地址+28

21,?,20 dup(' '),? 9,?,8 dup(' '),?

28 dup(?)

; 姓名缓冲区

; 号码缓冲区

; 一个联系人的临时空间

13,10,'Input name:',13,10,'$'

13,10,'Input a telephone number:',13,10,'$' 13,10,'Name?',13,10,'$'

13,10,'Continue insert? <Y/N>',13,10,'$'; 提示是否继续插入联系人

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

name_e text2 text3 text4 data code ; 主程序

db db db db ends

13,10,13,10,'The name has been in the table! Please input again!',13,10,'$' 13,10,'Name Tel. ',13,10,'$' 13,10,'The name is not in the telephone table!',13,10,'$' 13,10,13,10,'Do you want a telephone number? <Y/N>',13,10,'$'

segment

; **************************************************************************** ; ------------------------------------------------------------------------------------- main proc

assume start: push sub

push mov mov mov

inname:

lea mov int call call cmp

je call lea mov int

jmp stor: call lea mov

int call call call

lea mov int

choice1:

mov int cmp je cmp je cmp je cmp je

jmp

far

cs:code ,ds:data,es:data ds

; 保存旧数据用于返回

ax,ax ax ax,data

; 数据段、附加段初始化

ds,ax es,ax

dx,iname

; 提示输入姓名

ah,09h 21h

input_name ; 调用读入姓名子程序 name_search ; 调用查找子程序， bx,-1 ; 如表中不存在该联系人 stor ; 则跳转到stor crlf

; 回车换行

dx,name_e ; 否则提示该联系人已在表中，提示重新输入

ah,09h 21h inname stor_name ; 调用姓名转存子程序，把姓名移动到表中 dx,iphone

; 提示输入电话号码

ah,09h 21h inphone ; 调用读入号码子程序

name_sort ; 排序

crlf

dx,go_on

; 提示是否继续插入

ah,09h 21h

ah,07

; 读取用户选择

21h al,'y'

inname al,'Y' inname al,'n' print_all

; 如选择不插入，则显示所有记录

al,'N' print_all choice1

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

print_all: call printall ; 显示所有记录

want_search: call crlf lea dx,text4 ; 提示是否查找号码

mov

ah,09 int 21h call

crlf choice2: mov ah,07 ; 读取用户选择

int 21h cmp al,'y' je

search ; 如果为y或Y则跳转到查找search

cmp al,'Y' je search cmp al,'n' ; 为n或N则退出程序

je exit_m cmp al,'N' je

exit_m

jmp choice2 search: lea dx,sname ; 提示用户输入要查找的姓名

mov

ah,09 int 21h

call input_name ; 读入姓名 call name_search ; 查找

call crlf call

crlf cmp bx,-1 ; 是否查找到？ je not_find ; (bx)=1 则跳转到未找到not_find

lea dx,text2

; 找到则输出 'Name Tel. mov

ah,09 int 21h call printline ; 显示查找到的联系人 jmp want_search ; 跳转到提示查找

not_find:

; 未找到

call crlf lea dx,text3

;输出 'The name is not in the telephone table!'

mov ah,09h int

21h

jmp

want_search

exit_m:

ret printall

proc

near

;************************************************************************** ;显示所有电话。显示电话表中的所有姓名和号码，查看排序结果是否正确 ;---------------------------------------------------------------------------------------------- call crlf call crlf lea dx,text2

; 输出'Name Tel. '

mov

ah,09 int 21h

lea bx,tel_tab

; 号码表基址

rept1: call printline ; 显示联系人

add bx,28 ; 求 下一个联系人首地址 cmp bx,endaddr

; 是否到达表尾？ jb

rept1

; 未到达则继续显示

ret

'

选填,简要介绍文档的主要内容,方便文档被更多人浏览和下载。

printall

endp

;******************************************************************* ;输入姓名子程序：读入姓名到tname缓冲区，并把不满20位的部分 ;补上空格（方便查找时的比较）

;---------------------------------------------------------------------------------- input_name proc

call lea int je xor

noinputn:

near

crlf dx,tname ah,0ah 21h

tname[1],0 noinputn bx,bx bl,tname[1] cx,20

; 把不满20位的部分补空格

; 如果输入为回车

; 继续等待输入

; 姓名缓冲区

; 调用dos 0ah读入字符串功能

mov cmp

mov mov

set_blank:

sub mov

inc call ret

cx,bx tname[bx+2],20h

bx set_blank crlf

loop

input_name endp

;***************************************************************** ;stor_name，该子程序把tname缓冲区的姓名转存入号码表中 ;--------------------------------------------------------------------------------- stor_name

;*************************************************************** ;获取号码子程序：读入用户输入的号码到tphone缓冲区，然后 ;转存入号码表对应位置

;------------------------------------------------------------------------------------ inphone noinputp:

xor lea

cx,cx cl,tphone[1] si,tphone[2] di,endaddr di,8 movsb

;移动

;待插入位置

mov mov sub cld rep

proc call lea

near crlf dx,tphone ah,0ah 21h noinputp

;调用dos 0a号功能输入字符串 ;是，则继续等待输入

proc endp

near

cx,cx

cl,tname[1] si,tname[2] di,endaddr movsb tab_len

;字符个数

xor mov lea cld rep inc add ret

;联系人人数增1

mov

endaddr,28 ;最后一个联系人地址增28

stor_name

mov int cmp je

tphone[1],0 ;判断输入是否为回车