计算机原理与汇编语言—实验报告1,2,3

实验1：

循环接收用户按键输入，将用户输入的大字母原样输出，将用户输入的小写字母转换为小写字母再输出，用户若输入数字0则退出程序，其它情况输出“error!”

实验程序代码

data segment

str db 'error!$'

data ends

stack segment para stack 'stack'

db 100 dup(?)

stack ends

code segment

assume ds:data,cs:code,ss:stack

start:mov ax,data

mov ds,ax

again:mov ah,01h

int 21h

cmp al,'0'

je next

cmp al,'A'

jb error ;小于A的出错

cmp al,'Z'

jbe print1 ;在A，Z之间的输出print1

cmp al,'a'

jb error ;在Z（41hH）和a（61H）之间的出错

cmp al,'z'

jbe print2 ;在a，z之间的输出print2

jmp error

print1: mov dl,al

mov ah,02h

int 21h

jmp again ;循环输入，again

print2:mov dl,al

sub dl,20h

mov ah,02h

int 21h

jmp again ;循环输入，again

error :mov dx,offset str

mov ah,09h

int 21h

next:mov ah,4ch

int 21h

code ends

end start

实验截图

实验总结

这个实验比较简单，花费的时间也少，将我们学习的理论知识用于实践。第一次真实的体会到汇编语言的特点，以及和C++语言的区别。

实验2：

从键盘接收用户输入的一个正整数（0-32767之间），输出该数字的所有因子。

实验程序代码

输入字符（0-9），判断合法性，减去30H，存入到数组string[]中

将数组string[]里的数字，整合转换为正整数，存入变量num中

求出num的因子，存入string[]中

转换string[]中数据，加30H，输出ASCII

data segment

str db 'input data 0-32767:$'

num dw 0

string db 5 dup(0)

data ends

stack segment para stack 'stack'

db 1000 dup(?)

stack ends

code segment

assume ds:data,cs:code

start:mov ax,data

mov ds,ax

mov dx,offset str

mov ah,09h

int 21h ;显示标题

mov si,0

mov di,0

rein:mov ah,01h

int 21h

cmp al,20h

jz inte ;输入空格表示输入结束

cmp al,30h

jb exit ;不在0-9之间的退出

cmp al,39h

ja exit

sub al,30h ;不在0-9之间的退出

mov string[si],al

inc si

cmp si,6

jz exit ;输入位数超过5位的退出

jmp rein

;*******************以下整和整数

dec si ;到达这一步时，si比输入的位数大1，所以要减1 inte:mov bx,num

mov ax,10

mul bx

add al,string[di]

adc ah,00h

mov num,ax

inc di

cmp di,si

jb inte ;得出的整数放置于变量num中

;********************以下求因子，输出

mov bx,0

again:mov ax,num

mov dx,0

inc bx

cmp bx,num

ja exit

div bx

cmp dx,0

je tcall

jmp again

tcall:call tprint

jmp again

tprint proc near ;print子程序打印输出bx

mov cx,10

mov si,4

mov ax,bx

boa1:cmp ax,10

jb boa2

xor dx,dx

div cx

or dl,30h

mov string[si],dl

dec si

jmp boa1

boa2:or al,30h

mov string[si],al

g:mov dl,string[si] ;打出输出ASCII

mov ah,2

int 21h

inc si

cmp si,5

jne g

mov dl,20h

mov ah,2

int 21h ;空格隔开每个因子ret

tprint endp

exit: mov ah,4ch

int 21h

code ends

end start

实验截图

注释1：

以上为编译连接运行的结果，其中，输入的，12,120,1310,6789,12345,8等均能给出因子。

注释2：

下图为，特殊的输入情况下，程序退出

一，输入的字符不是0—9之间的字符，退出

二，输入的位数超过范围（0—32767），退出

输入字符‘r’，‘-’等退出程序

输入的整数222222超过范围，自动退出程序

实验总结

本次实验花费了较长时间，其中在修改调试程序上花费时间占绝大部分。在实验代码的一步步完善过程中，经历了一下步骤：

1，程序编译出错

这里的问题出现在语法错误上，不过这些错误很少，容易修改；不过有一个错误是提示：no end of file，造成的原因是由于我定义调用宏，编译时出现的一个不会修改的错误。之后我去掉宏，然后把宏内的代码直接复制到相应的位置，之后再次编译，没有错误。

2，编译连接都没有错误，但在运行时出错

修改运行，出现无限循环输出乱码情况，再次，修改后，出现一个更严重的情况，只要我一运行yinzi.exe程序，电脑就发出do的报警声，再次修改，……….，再后面，程序可以运行，并且可以输出一些正常的结果

3，在根据输入的ASCII字符转换成整数时，如下代码

inte:dec si

mov bx,num

mov ax,10 此行代码错误

mul bx

add al,string[di]

adc ah,00h

mov num,ax

inc di

cmp di,si

jb inte

程序运行结果是：

一，能正确求出两位数的因子，如12,为1,2,3,4,6,12等

二，输入三位数120，结果是12的因子1,2,3,4,6,12

输入四位数1230，结果是12的因子1,2,3,4,6,12

输入五位数12100，结果是121的因子1,11,121

……

只需将上面inte：这个移到下一行即可解决问题；

虽然，实验花了很长时间修改，克服种种错误终于能够输出正确结果，但我觉得不但的找出错误并修正错误这个过程更能锻炼人，学到的东西更多。不过，我们在写程序时，一定要细心谨慎，因为如果写的时候不仔细，回头再次调试修改的话就得花更多的时间，不值得，这是我的一点心得体会。

实验3：

从键盘接收用户输入的一个正整数（0-32767之间），输出该数字的所有因子。

1、函数input:接收用户一个正整数，将数据保存到AX

2、函数outpot:将AX中的数据在屏幕上显示出来

3、函数sort:将BX所指向的一批数据进行排序，数据个数在AX中从键盘接收用户一批数据输入，对该批数据从小到大排序，将原数据和排序后的数据在屏幕上显示出来。

实验程序代码

data1 segment

n dw 0000h

data dw 100 dup(?)

num dw 0

buffer db 5 dup(?) ;输入ASCII转换成整数的缓冲区

string0 db 'how many datas: $'

string1 db 'input data: $'

string2 db 'order: $'

data1 ends

stack segment para stack 'stack'

db 100 dup(?)

stack ends

code segment

assume ds:data1,cs:code

start:mov ax,data1

mov ds,ax

mov dx,offset string0

mov ah,9

int 21h ;提示输入多少数据

call input

mov n,ax ;数据个数存入到变量n中

mov dl,0ah

mov ah,2

int 21h ;换行

mov cx,n

mov di,0

datain:call input

mov data[di],ax

add di,2

loop datain ;循环输入几个数据打印出，并存入到data[]中mov dl,0ah

mov ah,2

int 21h ;换行

mov dx,offset string1

mov ah,9

int 21h ;提示输出排序前的

mov si,0

mov cx,n

again1:mov ax,data[si]

call output

add si,2

loop again1

mov dl,0ah

mov ah,2

int 21h ;换行

mov dx,offset string2

mov ah,9

int 21h ;提示输出排序后的

mov cx,n

call sort ;对data[]排序

mov si,0

mov cx,n

again2:mov ax,data[si]

call output

add si,2

loop again2

jmp next

input proc near ;*****接收输入的整数存入AX中,参数buffer[],num******** push di

push bx

mov si,0

mov di,0

rein:mov ah,01h

int 21h

cmp al,20h

je inte ;空格表示输入结束

sub al,30h

mov buffer[si],al

inc si

cmp si,5

jb rein

dec si

inte:mov bx,num

mov ax,10

mul bx

add al,buffer[di]

adc ah,00h

mov num,ax

mov buffer[di],00h ;清零

inc di

cmp di,si

jb inte

mov ax,num ;将整理好的整数放到AX中

mov num,0000h;用完num清0

pop bx

pop di

ret

input endp ;***** 用到的寄存器ax,si,di,bx****************

output proc near ;*****打印出AX中的数据,传入参数AX即可******** push cx

push si

push dx

mov cx,10

mov si,4

boa1:cmp ax,10

jb boa2

xor dx,dx

div cx

or dl,30h

mov buffer[si],dl

dec si

jmp boa1

boa2:or al,30h

mov buffer[si],al

g:mov dl,buffer[si] ;打出输出ASCII

mov ah,2

int 21h

mov buffer[si],0 ;打印完后清零，避免重叠

inc si

cmp si,4

jbe g

mov dl,20h

mov ah,2

int 21h ;空格隔开

pop dx

pop si

pop cx

ret

output endp ;***** 用到的寄存器ax,cx,si,dx**************

sort proc near ;********* 字序列的冒泡排序子程序，参数data[],cx(元素个数) *********

dec cx ;比较遍数

loop1:mov di, cx ;比较次数

mov bx, 0

loop2:

mov ax, data[bx] ;相邻两数

cmp ax, data[bx+2] ;比较

jbe continue

xchg ax, data[bx+2] ;交换位置

mov data[bx], ax

continue:

add bx, 2

loop loop2

mov cx, di

loop loop1

ret

sort endp ; ************用到的寄存器ax，bx，di *************

next:mov ah,4ch

int 21h

code ends

end start

实验截图

实验总结

这个实验跟第二个实验有比较大的关系；这个程序的成功运行也是在不断积累错误中产生的；由于我盲目的复制第二个实验里自己写的代码到第三个实验中，导致一系列错误，步步为营查找很就才查找到几个严重的错误：

1，错误运行结果截图

，‘*’测试用的

分析：input中，要由num=0开始，所以将num存入ax后要把num置零

2，

不排序输出，也是这样，如

错误原因：

一，存入data[si]时，si是以inc si递增的；

二，读取data[si]时，也是以1递增的

由于data[]定义是dw，每个数据占两个字节，故导致以上错误；修改两处，用loop循环修改后：

进一步完善即记得上图中的正确结果：