中南大学汇编语言实验报告0001x

rotate: mov cl,4

rotate: mov cl,4 ; 设置循环左移的位数

中南大学 汇编语言实验报告

计算机原理与汇编 实 验 报 告

学生姓名 学 号 专业班级

指导教师 贺建飚

学院 信息科学与工程学院

完成时间 2019 年 6 月

实验一 二进制转十六进制

一、实验目的

掌握循环程序的设计方法。

掌握汇编语言源程序的编辑、汇编、连接及调试过程。

进一步熟悉利用DEBU(程序修改参数的方法，并检查和验证结果的正确性。

学会针对不同的问题，选用不同的组织循环的方法。

二、 实验要求

掌握循环程序的过程和汇编实现原理，进一步熟练掌握 DEBUGS作指令以及汇编语言

源程序的编辑、汇编、连接及调试过程。

三、 实验内容

掌握循环排序算法的思想：

二进制到十六进制转换程序

实验代码如下：

assume cs:code

code segment

main proc far

start: mov bx,[**************]0b ; 待转换成十六进制的二进制数 mov ch,4 ; 设

置循环次数

1

1)掌握循环程序的设计方法

rol bx,cl

rol bx,cl ; 将 bx 中的每位依次循环左移 4 位 ,

；每左移一次,把最高位同时移入 CF和操作数最低位

mov al,bl

and al,0fh ; 将 al 高 4 位清 0, 保留从 rol 循环移位到 al 低四位的值

add al,30h ; 将 4 位二进制数转换成对应的 ASCII 码

cmp al,3ah ; 判定 4 位二进制数是否大于 9

jl print

add al,7h

print: mov dl,al ; 调用中断程序输出单个字符

mov ah,2

int 21h

dec ch ; 继续循环 , 直到循环 4 次为止

jnz rotate

main endp

mov ax,4c00h

int 21h

code ends

end

四、实验结果

DEBUG 调试如下：

五、实验心得 编了这个程序之后发现，想要真正理解一个程序都是需要掌握众多助记符的用法以及

它的意思，只有了解并明白了这些之后才可以分析程序或者是编写简单的小程序。

　实验二 起泡排序算法的程序实现

、实验目的

(2)掌握汇编语言源程序的编辑、汇编、连接及调试过程。

(3)进一步熟悉利用 DEBUGS序修改参数的方法，并检查和验证结果的正确性。

( 4)学会针对不同的问题，选用不同的组织循环的方法。

二、 实验原理

循环结构分DO_WHILE口 DO_UNTIL两种，无论使用哪种循环结构，循环程序一般应包 括以下几部分：

循环初始化。它包括设置循环次数的初始值、地址指针的初始设置等。

循环体。这是循环工作的主体，包括要重复执行的操作，以及循环的修改部分。

　修改部分包括地址指针的修改、循环控制条件的修改等。

循环控制部分。它是控制循环的关键，判断循环条件满足与否。

特别要注意循环入口和循环次数的正确设置、地址指针及循环控制条件的修改等。否 则会得不到期望的结果。

三、 实验内容

掌握循环排序算法的思想：

起泡排序算法的程序实现

实验代码如下：

DATAS SEGMENT

BUFFER DB 100 DUP(?)

X DB 5 DUP(?)

STRING1 DB "PLEASE INPUT DATAS:","$"

STRING2 DB "AFTER SORT IS:","$"

SHIFT DB 13,10,'$'

SPACE DB 20H,'$'

DATAS ENDS

STACKS SEGMENT

DB 256 DUP(?)

STACKS ENDS

CODES SEGMENT

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

START:

MOV AX,DATAS

MOV DS,AX

MOV ES,AX

MOV AX,STACKS

LEA SI,BUFFER

MOV CX,0

LEA DX,STRING1

MOV AH,09H

INT 21H

L1:

MOV AH,01H ;///////////////// 键盘输入转成数

INT 21H

CMP AL,0DH

JE L2

CMP AL,20H

JE L3

XOR AH,AH

SUB AX,30H

XCHG AX,BX

MOV DX,10

MUL DX

ADD BX,AX

JMP L1

L3:

INC CX

MOV [SI],BL

ADD SI,1

XOR BX,BX

JMP L1

L2:

LEA DX,SHIFT

MOV AH,09H

INT 21H

MOV [SI],BL

LEA DI,X

MOV [DI],CL

LABLE2:

LEA SI,BUFFER

PUSH CX

LABLE:

MOV AL,[SI]

CMP AL,[SI+1]

JBE L4

XCHG AL,[SI+1]

MOV [SI],AL

L4:

存储到 buffer 中;/////////ADD SI,1 ; 跳到回车处理 ;

存储到 buffer 中;/////////

POP CX

LOOP LABLE2

LEA DX,STRING2

MOV AH,09H

INT 21H

LEA DI,BUFFER

L7:

MOV CX,2

MOV BH,[DI]

L6:

PUSH CX

MOV CL,4

ROL BX,CL

MOV DL,BL

AND DL,0FH

CMP DL,9

JBE L5

ADD DL,7

L5:

ADD DL,30H

MOV AH,02H

INT 21H

POP CX

LOOP L6

INC DI

LEA DX,SPACE

MOV AH,09H

INT 21H

LEA SI,X

MOV BL,[SI]

CMP BL,0

DEC BL

LEA SI,X

MOV [SI],BL

JGE L7

MOV AH,4CH

INT 21H

CODES ENDS

END START

四、实验结果 ;///////////////////// 显示字符

DEBUG 调试如下：

五、实验心得

在进行循环程序设计时，要注意循环初始化、内外层循环的控制、循环结束条件 等的设置，对整个程序的执行逻辑要非常清楚，这样可以避免死循环等意外情况的出现。

多层循环的控制更为复杂，编写代码时，要注意注释重要的循环控制部分，这样 思路才不会乱。同时要对照流程图，随时观察代码的逻辑思路是否正确。

当要观察排序结果时，可利用 D 命令，显示数据段的内容，检查程序是否正常运

实验三 查找匹配字符串

一、实验目的

掌握循环程序的设计方法。

掌握汇编语言源程序的编辑、汇编、连接及调试过程。

进一步熟悉利用DEBU(程序修改参数的方法，并检查和验证结果的正确性。

学会针对不同的问题，选用不同的组织循环的方法。

二、 实验要求

掌握循环程序的过程和汇编实现原理，进一步熟练掌握 DEBUGS作指令以及汇编语言

源程序的编辑、汇编、连接及调试过程。

三、 实验内容

掌握循环排序算法的思想：

查找匹配字符串：程序接收用户键入的一个关键字以及一个句子。如果句子中不包含 关键字则显示‘ NO match!';如果句子中包含关键字则显示‘ MATCH，且把该字在句 子中的位置用十六进制数显示出来。

实验代码如下：

DATA SEGMENT

mess1 DB 'Enter keyword:','$'

mess2 DB 'Enter Sentence:','$'

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

mess4 DB 'NOT MATCH.',13,10,'$'

mess5 DB 'H of the sentence',13,10,'$'

change DB 13,10,'$'

stoknin1 label byte

max1 db 10

act1 db ?

stokn1 db 10 dup(?)

stoknin2 label byte max2 db 50 act2 db ?

stokn2 db 50 dup(?)

DATA ENDS

STACKS SEGMENT

; 此处输入堆栈段代码

STACKS ENDS

CODE SEGMENT

;************************************* 代码 main proc far

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

START:

push ds

sub AX,AX

sub BX,BX

sub DI,DI

sub SI,SI

push AX ; 为返回 dos 并清空后面要用到的寄存器

MOV AX,DATA

MOV DS,AX

LEA DX,mess1

MOV ah,09

INT 21h ; 输出 Enter keyword

LEA DX,stoknin1

MOV ah,0ah ; 用 21 号中段的 0ah 号功能获取关键字

INT 21h

cmp act1,0

je exit ; 如果为空直接退出程序

a10:

输入 Sentence 并判断?

输入 Sentence 并判断

J

LEA DX,change

MOV ah,09

INT 21h ; 输出回程，换行

LEA DX,mess2

MOV ah,09

INT 21h ; 输出 Enter Sentence:

LEA DX,stoknin2

MOV ah,0ah

INT 21h ; 用 21号中段的 0ah 号功能获取句子

MOV AL,act1

CBW

MOV CX,AX ; 保存关键字长度到 cx

PUSH CX ;cx 入栈

MOV AL,act2

cmp AL,0

je a50 ; 保存句子长度到 al ，若句子为空则跳转显示 not match SUB AL,act1

js a50 ; 若句子长度小于关键字长度，则跳转显示 not match INC AL

CBW

LEA BX,stokn2 ; 将句子的首地址放进 BX

MOV DI,0

MOV SI,0

a20:

比较，内循环? ****************************************

比较，内循环

MOV AH,[BX+DI]

CMP AH,stokn1[SI] ; 遇见字符不相等就跳转到 a30

jne a30

INC DI

INC SI

DEC CX ; 没遇到一个相等的字符 ,cx-1,cx 不为 0 则比较下一个字符 , 当 cx 为 0 是说明 关键字比较完

CMP CX,0

je a40

jmp a20

a30:

外循环，BX+1,清空si

外循环，BX+1,清空si , di继续内循

J

环比较 INC BX

DEC AL

cmp AL,0 je a50

MOV DI,0

MOV SI,0

POP CX push CX

jmp a20

a40:

将 bx

将 bx 减去句子的首地址加一

得到关键字所在位置，调用二进制转十六进制子函数将位置输出

SUB BX,offset stokn2

INC BX

LEA DX,change

MOV ah,09

INT 21h

LEA DX,mess3

MOV ah,09

INT 21h

CALL btoh

LEA DX,mess5

MOV ah,09

INT 21h

jmp a10

二进制转换十六进制? ****************************************

二进制转换十六进制

J

btoh PROC NEAR

MOV CH,4

rotate: MOV CL,4

ROL BX,CL

MOV AL,BL

and AL,0fh

add AL,30h

cmp al,3ah

jl printit add al,7h printit: MOV dl,al MOV ah,2 int 21h dec ch

jnz rotate ret btoh endp a50:

显示 not match?

显示 not match

J

LEA DX,change

MOV ah,09

INT 21h

LEA DX,mess4

MOV ah,09

INT 21h

jmp a10

exit:

ret

main endp

CODE ENDS

END

四、实验结果

五、实验心得

与第一次实验相比这次用到了数据段，应该注意数据段的定义和使用。此外应该注意 单个字符时的“边缘”情况，因为这时指针的移动和关键字的长度是一致的，但是这并不 意味着，两个字符串匹配。

实验四 求 Fibonacci 递归数

一、实验目的：

掌握子程序的设计方法，熟悉递归程序的设计。

二、实验要求：

掌握递归程序的调用、返回及入口、出口的传递方法。

三、实验内容

程序接受由用户键入的数 N,根据给定的N值，计算Fibonacci数。

Fibonacci

数的公式如下：

Fib

（1）

=1；

当 n=1

Fib

（2）

=1；

当 n=2

Fib

（n）

=Fib

(n-1 )+Fib (n-2 )

实验代码如下：

DATAS SEGMENT

; 此处输入数据段代码

RESULT DB 1D,24 DUP(0)

X DB 1D,24 DUP(0)

MESS1 DB 0DH,0AH,'Please input a data :','$'

MESS2 DB 0DH,0AH,'The result is:','$'

MESS3 DB 0DH,0AH,'Input Q/q to quit.','$'

MESS4 DB 0DH,0AH,'====================== ','$'

FLAG DW 0DH

MESSERROR DB 0DH,0AH,'Input error,please re-enter.','$'

QUIT DB 0DH,0AH,'You have typed Q/q to exit.','$'

DATAS ENDS

STACKS SEGMENT

; 此处输入堆栈段代码

DW 128 DUP(?)

STACKS ENDS

CODES SEGMENT

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

START:

MOV AX,DATAS

MOV DS,AX

MOV ES,AX

MOV AX,STACKS

MOV SS,AX

; 此处输入代码段代码

REINPUT:

PUSH AX

PUSH BX

PUSH CX

PUSH DX

PUSH SI

PUSH DI

MOV AH,09

LEA DX,MESS4

INT 21H

LEA DX,MESS3

INT 21H

LEA DX,MESS1

INT 21H

MOV BX,0

INPUT:

MOV AH,01

INT 21H

CMP AL,'q';

JZ END_

CMP AL,'Q';

JZ END_

CMP AL,0DH;

JZ CONT

CMP AL,'0';

JB ERROR;

CMP AL,':'

JNB ERROR

SUB AL,30H

CBW

XCHG AX,BX

MOV CX,10D

MUL CX

XCHG AX,BX

ADD BX,AX

JMP INPUT

ERROR:;

MOV AH,09

LEA DX,MESSERROR

INT 21H

JMP REINPUT

END_:

MOV AH,09

LEA DX,QUIT

INT 21H

INT 21H

RET

CONT:MOV CX,BX;

CMP CX,2

JLE PRINT;

SUB CX,2;

NEXT:MOV DI,CX

MOV CX,25

MOV SI,0

ADDE:MOV DL,X[SI]

MOV DH,RESULT[SI]

ADD DL,DH;

MOV RESULT[SI],DL

MOV X[SI],DH;

CMP DL,10D

JAE GREAT;

INC SI

JMP GOON

GREAT:SUB RESULT[SI],10D;

INC SI

ADD X[SI],1;

GOON:LOOP ADDE

MOV CX,DI

LOOP NEXT

PRINT:LEA DX,MESS2

MOV AH,09

INT 21H

MOV CX,25

MOV SI,24

DISPLAY1:

CMP FLAG,0;

JNZ N2

CMP RESULT[SI],0

JZ N3

ADD FLAG,1

N2:MOV DL,RESULT[SI];

ADD DL,30H

MOV AH,02H

INT 21H

N3:DEC SI

LOOP DISPLAY1

MOV FLAG,0

MOV RESULT[0],1D

MOV SI,1

MOV CX,24

INITIAL:MOV RESULT[SI],0

MOV X[SI],0

ADD SI,1

LOOP INITIAL

MOV SI,0

POP DI;

POP SI

POP DX

POP CX

POP BX

POP AX

JMP REINPUT;

MOV AH,4CH

INT 21H

CODES ENDS

END START

四、实验结果

五、实验心得

在程序的制作过程中，遇到了很多意想不到的困难，自己一个人解决起来有很大的困 难，于是也少不了同学的帮助，深刻体会到开发程序不只是一两个人就能很好地完成的， 要大家互相帮助，共同探讨问题，才能更好的解决困难。

实验五 分类统计字符个数

一、实验目的

掌握分支程序设计的原理与方法，重点掌握各种程序中形成和判断条件而产生的程序 段的设计方法和技巧。

二、实验要求

掌握分支程序的调用及基本子程序的编写，判断程序运行的顺序。

三、实验内容

程序接受用户输入一行字符，并按照字符串中字符所属的类型分类，将结果输出（例 如：aaabb1234&中，字母5,数字4，其他字符1）

实验代码如下：

DATAS SEGMENT

STRING1 DB 'Input Your String: $'; 输入提示信息

STRING2 DB 'Digit: $' ; 各类字符提示信息

STRING3 DB 'UpLetter: $'

STRING4 DB 'LowLetter: $'

STRING5 DB 'Others: $'

DIGIT DB 0 ; 数字

ALPHAU DB 0 ; 大写字母

ALPHAL 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 ; 若

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

JA HIGHER1

JMP DIGITAL ;DIGIT++

HIGHER1:CMP AL,41H ;if

JB OTHER

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

JA HIGHER2

JMP UALPHA ;ALPHAU++

HIGHER2: CMP AL,61H ;if

JB OTHER

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

JA OTHER

JMP LALPHA ;ALPHAL++

JMP OVER ; 比较结束

OTHER:INC OTHERS ;OTHERS++

JMP OVER

DIGITAL:INC DIGIT ;DIGIT++

JMP OVER

LALPHA:INC ALPHAL ;ALPHAL++

JMP OVER

UALPHA:INC ALPHAU ;ALPHAU++

JMP OVER

OVER:NOP

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

OVER2:CALL ENDLINE ; 回车换行

LEA DX,STRING2 ; 输出提示信息

MOV AH,9

INT 21H

XOR AX,AX

MOV ALQIGIT ; 将统计的数字送 AX为输出做准备

CALL DISPLAY ; 调用输出两位数字的子程序

CALL ENDLINE ; 下同

LEA DX,STRING3

MOV AH,9

INT 21H

XOR AX,AX

MOV AL,ALPHAU

CALL DISPLAY

CALL ENDLINE

LEA DX,STRING4

MOV AH,9

INT 21H

XOR AX,AX

MOV AL,ALPHAL

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= 商，人日=余数

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

四、实验结果

五、实验心得

我认为本次实验主要是要清楚各分支程序。什么时候该跳转到哪个分支，并在分支中 做好各项处理工作是本次实验的重点。

并且此次实验也让我们明白了，汇编的输出都是“字符”，也就是说要想输出两位数 字必须做一点处理，将它转换为相应的字符“一个一个”地输出，从而解决了实验中的疑 问。

　还有一点就是关于输入的问题，我采用的是单字符输入，边输入边处理。因为用字 符串的话，输入之后，仍然要“一个一个”字符取出来去做判断，还不如直接就判断了。