[实验目的]
- 熟悉8086宏汇编实验环境，包括编辑（NotePad）、汇编MASM、链接LINK、调试debug32、运行等开发环境的使用，学习简单程序调试运行。
- 熟悉微机原理，掌握8086/8088CPU内部结构，熟悉8086/8088指令系统。
- 熟练掌握汇编语言程序设计方法，通过本实验初步培养计算机逻辑解题能力，熟练掌握十进制输的输入输出方法；掌握字符串的操作方法。
[实验要求]
在规定期限独立完成实验内容
- 提交实验报告（电子版）
- 2.提交相应源程序文件
[实验内容]
按要求编写以下程序：十进制输入、数组中负数个数、字符串比较程序
1.从键盘输入一个十进制数（无符号数）并在屏幕上显示输出
1）输入一个十进制数（无符号数）
data segment
flag dw ?
dat1 dw ?
data ends
code segment
assume cs:code,ds:data
begin:
mov ax,data
mov ds,ax
call dec_in
mov dat1,bx
call dec_show
mov ah,4ch
int 21h
dec_in proc
mov bx,0
indig: mov ah,1
int 21h
sub al,30h
jb exit2
cmp al,9
ja exit2
cbw
xchg ax,bx
mov cx,10
mul cx
xchg ax,bx
add bx,ax
jmp indig
exit2:ret
dec_in endp
dec_show proc
mov flag,1
mov cx,10000
call dec_div
mov cx,1000
call dec_div
mov cx,100
call dec_div
mov cx,10
call dec_div
mov cx,1
call dec_div
ret
dec_show endp
dec_div proc
mov dx,0
mov ax,bx
div cx
mov bx,dx
mov dl,al
cmp dl,0
jnz print
cmp flag,1
jz exit
print: add dl,30h
mov ah,2
int 21h
mov flag,0
exit: ret
dec_div endp
code ends
end begin2.从键盘输入一个十进制数（带符号数）并在屏幕上显示输出
2）输入一个十进制数（带符号数）
data segment
flag dw ?
dat1 dw ?
f2 dw 0
data ends
code segment
assume cs:code,ds:data
begin:
mov ax,data
mov ds,ax
call f_dec_in
mov dat1,bx
call f_dec_show
mov ah,4ch
int 21h
f_dec_in proc
mov bx,0
mov ah,1
int 21h
cmp al,'-'
jnz posi
mov f2,1
jmp nega
posi: sub al,30h
mov ah,0
mov bx,ax
nega: call dec_in
cmp f2,1
jnz e3
neg bx
e3: ret
f_dec_in endp
dec_in proc
indig: mov ah,1
int 21h
sub al,30h
jb exit2
cmp al,9
ja exit2
cbw
xchg ax,bx
mov cx,10
mul cx
xchg ax,bx
add bx,ax
jmp indig
exit2:ret
dec_in endp
f_dec_show proc
and bx,bx
jns show
mov dl,'-'
mov ah,2
int 21h
neg bx
show: call dec_show
ret
f_dec_show endp
dec_show proc
push cx
mov flag,1
mov cx,10000
call dec_div
mov cx,1000
call dec_div
mov cx,100
call dec_div
mov cx,10
call dec_div
mov cx,1
call dec_div
pop cx
ret
dec_show endp
dec_div proc
mov dx,0
mov ax,bx
div cx
mov bx,dx
mov dl,al
cmp dl,0
jnz print
cmp flag,1
jz exit
print: add dl,30h
mov ah,2
int 21h
mov flag,0
exit: ret
dec_div endp
code ends
end begin3.从键盘输入若干个十进制数（带符号数）存入数组中并显示
3）输入若干个十进制数（带符号数）存入数组中
data segment
arr dw -3,78,88,95,44,-67,70,-345,-565
n dw 9
flag dw ?
dat1 dw ?
f2 dw ?
data ends
code segment
assume cs:code,ds:data
begin:
mov ax,data
mov ds,ax
call arr_in
call arr_show
mov ah,4ch
int 21h
arr_in proc
lea si,arr
mov cx,n
t1: call f_dec_in
mov [si],bx
add si,2
loop t1
ret
arr_in endp
arr_show proc
lea si,arr
mov cx,n
t: mov bx,[si]
call f_dec_show
call space_show
add si,2
loop t
ret
arr_show endp
f_dec_in proc
push cx
mov f2,0
mov bx,0
mov ah,1
int 21h
cmp al,'-'
jnz posi
mov f2,1
jmp nega
posi: sub al,30h
mov ah,0
mov bx,ax
nega: call dec_in
cmp f2,1
jnz e3
neg bx
e3: pop cx
ret
f_dec_in endp
dec_in proc
indig: mov ah,1
int 21h
sub al,30h
jb exit2
cmp al,9
ja exit2
cbw
xchg ax,bx
mov cx,10
mul cx
xchg ax,bx
add bx,ax
jmp indig
exit2:ret
dec_in endp
f_dec_show proc
and bx,bx
jns show
mov dl,'-'
mov ah,2
int 21h
neg bx
show: call dec_show
ret
f_dec_show endp
dec_show proc
push cx
mov flag,1
mov cx,10000
call dec_div
mov cx,1000
call dec_div
mov cx,100
call dec_div
mov cx,10
call dec_div
mov cx,1
call dec_div
pop cx
ret
dec_show endp
dec_div proc
mov dx,0
mov ax,bx
div cx
mov bx,dx
mov dl,al
cmp dl,0
jnz print
cmp flag,1
jz exit
print: add dl,30h
mov ah,2
int 21h
mov flag,0
exit: ret
dec_div endp
space_show proc
mov dl,20h
mov ah,2
int 21h
ret
space_show endp
crlf proc
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
code ends
end begin4.求数组元素中最大数并显示（带符号数），要求数组中数据从键盘输入
4）数组元素中最大数并显示（带符号数）
data segment
arr dw 13,33,-18,99,987,-345,3455,-09,-8769,22
n dw 10
max dw ?
flag dw ?
dat1 dw ?
f2 dw ?
data ends
code segment
assume cs:code,ds:data
begin:
mov ax,data
mov ds,ax
call arr_in
call findmax
mov bx,max
call f_dec_show
;call arr_show
mov ah,4ch
int 21h
findmax proc
lea si,arr
mov ax,[si]
add si,2
mov cx,n
dec n
t2: cmp ax,[si]
jge next
mov ax,[si]
next: add si,2
loop t2
mov max,ax
ret
findmax endp
arr_in proc
lea si,arr
mov cx,n
t1: call f_dec_in
mov [si],bx
add si,2
loop t1
ret
arr_in endp
arr_show proc
lea si,arr
mov cx,n
t: mov bx,[si]
call f_dec_show
call space_show
add si,2
loop t
ret
arr_show endp
f_dec_in proc
push cx
mov f2,0
mov bx,0
mov ah,1
int 21h
cmp al,'-'
jnz posi
mov f2,1
jmp nega
posi: sub al,30h
mov ah,0
mov bx,ax
nega: call dec_in
cmp f2,1
jnz e3
neg bx
e3: pop cx
ret
f_dec_in endp
dec_in proc
indig: mov ah,1
int 21h
sub al,30h
jb exit2
cmp al,9
ja exit2
cbw
xchg ax,bx
mov cx,10
mul cx
xchg ax,bx
add bx,ax
jmp indig
exit2:ret
dec_in endp
f_dec_show proc
and bx,bx
jns show
mov dl,'-'
mov ah,2
int 21h
neg bx
show: call dec_show
ret
f_dec_show endp
dec_show proc
push cx
mov flag,1
mov cx,10000
call dec_div
mov cx,1000
call dec_div
mov cx,100
call dec_div
mov cx,10
call dec_div
mov cx,1
call dec_div
pop cx
ret
dec_show endp
dec_div proc
mov dx,0
mov ax,bx
div cx
mov bx,dx
mov dl,al
cmp dl,0
jnz print
cmp flag,1
jz exit
print: add dl,30h
mov ah,2
int 21h
mov flag,0
exit: ret
dec_div endp
space_show proc
mov dl,20h
mov ah,2
int 21h
ret
space_show endp
crlf proc
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
code ends
end begin5.求数组元素中负数的个数并显示（带符号数），要求数组中数据从键盘输入
5）数组元素中负数的个数并显示（带符号数）
data segment
arr dw 13,33,-18,99,987,-345,3455,-09,-8769,22
n dw 10
flag dw ?
dat1 dw ?
f2 dw ?
num dw ?
data ends
code segment
assume cs:code,ds:data
begin:
mov ax,data
mov ds,ax
call arr_in
call count_neg
mov bx,num
call f_dec_show
;call arr_show
mov ah,4ch
int 21h
count_neg proc
mov bx,0
lea si,arr
mov cx,n
t2: mov ax,[si]
cmp ax,0
jge next
inc bx
next: add si,2
loop t2
mov num,bx
ret
count_neg endp
arr_in proc
lea si,arr
mov cx,n
t1: call f_dec_in
mov [si],bx
add si,2
loop t1
ret
arr_in endp
arr_show proc
lea si,arr
mov cx,n
t: mov bx,[si]
call f_dec_show
call space_show
add si,2
loop t
ret
arr_show endp
f_dec_in proc
push cx
mov f2,0
mov bx,0
mov ah,1
int 21h
cmp al,'-'
jnz posi
mov f2,1
jmp nega
posi: sub al,30h
mov ah,0
mov bx,ax
nega: call dec_in
cmp f2,1
jnz e3
neg bx
e3: pop cx
ret
f_dec_in endp
dec_in proc
indig: mov ah,1
int 21h
sub al,30h
jb exit2
cmp al,9
ja exit2
cbw
xchg ax,bx
mov cx,10
mul cx
xchg ax,bx
add bx,ax
jmp indig
exit2:ret
dec_in endp
f_dec_show proc
and bx,bx
jns show
mov dl,'-'
mov ah,2
int 21h
neg bx
show: call dec_show
ret
f_dec_show endp
dec_show proc
push cx
mov flag,1
mov cx,10000
call dec_div
mov cx,1000
call dec_div
mov cx,100
call dec_div
mov cx,10
call dec_div
mov cx,1
call dec_div
pop cx
ret
dec_show endp
dec_div proc
mov dx,0
mov ax,bx
div cx
mov bx,dx
mov dl,al
cmp dl,0
jnz print
cmp flag,1
jz exit
print: add dl,30h
mov ah,2
int 21h
mov flag,0
exit: ret
dec_div endp
space_show proc
mov dl,20h
mov ah,2
int 21h
ret
space_show endp
crlf proc
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
ret
crlf endp
code ends
end begin
6.密码输入及验证程序。从键盘输入密码，与程序中设定的原始密码比较，若正确，显示“welcome！！”，若错误，提示错误信息“wrong！！”并要求再次输入，若输入3次密码错误，显示“sorry！！password iswrong。。”并退出程序。
6）密码输入及验证程序
data segment
pass db 'gegegege'
n equ $ - pass
pasbuf db 20
db ?
db 20 dup(?)
mess1 db 'password:','$'
mess2 db 'welcome!!!$'
mess3 db 'wrong!!please try agin...',0dh,0ah,'$'
mess4 db 'sorry...password is wrong',0dh,0ah,'$'
data ends
code segment
assume cs:code,ds:data,es:data
begin:
mov ax,data
mov ds,ax
mov es,ax
mov bx,3
t: lea dx,mess1
mov ah,9
int 21h
lea dx,pasbuf
mov ah,0ah
int 21h
lea si,pass
lea di,pasbuf
cmp byte ptr[di+1],n
jne err_show
add di,2
mov cx,n
cld
repe cmpsb
jne err_show
lea dx,mess2
call crlf
mov ah,9
int 21h
jmp exit
err_show:call crlf
lea dx,mess3
mov ah,9
int 21h
dec bx
jnz t
lea dx,mess4
mov ah,9
int 21h
exit: mov ah,4ch
int 21h
crlf proc
push ax
push dx
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
pop dx
pop ax
ret
crlf endp
code ends
end begin[实验截图]
3938
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
