汇编语言 实验四 子程序结构

实验四 子程序结构

【实验目的】

1.掌握子程序结构
2.掌握如何输入输出十进制数字

【实验要求】

编写程序，在程序中设置两个加数，显示加法算式，用户输入运算结果，给出正确与否的信息。
提示：
1）显示十进制数据：p227 binidec
2）输入十进制数据：p200 decibin

【思考】

以为十进制好输入输出，实际上在汇编语言中还是得分成一位一位的，我以为在前三次上机里面是有过输入输出的，结果一看全是输出字符和字符串等，那么我们需要跟上次输出十六进制一样需要一位一位看，这里是不需要滚动的，因为我们正好是从左往右读的，直接输出即可。

【如何输入十进制】

步骤

我们将思路拆分成以下几个步骤：
1）读入一个字符
2）将字符减去48成为对应的数字，也就是30H
3）判断是否小于零和大于9，如果是的话就ret
4）用BX专门每次乘以10再加上AX

注意

在这里我们需要注意：
1）读入的字符数值是在AL中，我们需要用cbw指令将AL扩充至AX
2）我们得到的值和进行乘以10的操作都是在AX寄存器中进行的，我们在对于BX乘以10的时候首先需要交换AX和BX，用到xchg ax,bx指令
3）在退出的时候需要重新设置一个exit，不能直接写ret，jmp不能跳转到ret

decibin	proc	near
;从键盘输入一个十进制数，存入BX寄存器中
	mov	bx,0
getchar:
	mov 	ah,01h
	int	21h		;读入字符
	sub	al,30h	;减去30H，成为对应数字
	jl	exit		;如果小于0的话，就exit退出
	cmp	al,9d	;与9相比
	jg	exit	;如果大于9就退出
	cbw			;将al扩充至ax
	mov	cx,10	;给cx设置为10进行乘法操作
	xchg ax,bx	;交换ax,bx，因为乘法是在ax中完成的
	mul	cx
	add	bx,ax	;乘以10之后加上
	jmp	getchar	;重新回到getchar再次进行
exit:
	ret
decibin	endp

【如何输出十进制】

步骤

这里按照书上给出的，需要输出五位
1）将除数从10000、1000…1的顺序设置放入cx中，被除数放入bx中,每次进行dec_div从左往右一位一位输出
2）因为div cx指令是以ax为被除数，cx为除数，然后将余数放入dx中，商在al中，所以我们需要将余数dx放入bx中，以便后面继续除以，bx一直存的被除数，将商al放入dl中输出，因为输出指令是需要放入dl中才输出的
简略的步骤如下：
1）设置cx进入输出程序
2）除以cx
3）余数dx放入bx中（bx一直存被除数）
4）将商al放入dl中输出
5）返回

binidec	proc	near
;把BX寄存器中的数以十进制数的形式在屏幕上显示出来
	mov	cx,10000d
	call	dec_div
	mov	cx,1000d
	call	dec_div
	mov	cx,100d
	call	dec_div
	mov	cx,10d
	call	dec_div
	mov	cx,1d	;每次这样设置可以从左到右分为每一位处理
	call	dec_div
	ret
binidec	endp
;------------------------------
dec_div	proc	near
;除法运算:(bx)/(cx)
;入口参数:(bx)=被除数,(cx)=除数
;出口参数:(bx)<--余数，商显示
	mov	ax,bx	;被除数给ax，div的指令要求
	mov	dx,0	;dx置零
	div	cx		;除以cx
	mov	bx,dx	;余数给bx，成为下一次的被除数
	mov	dl,al	;al给dl输出，int指令要求是放入dl输出
	add	dl,30h	;+30H成为字符
	mov	ah,02h	;输出字符
	int	21h
	ret			;返回
dec_div	endp

【主程序】

main	proc	far
	assume	cs:code,ds:data
start:
	;段地址送段寄存器
	mov	ax,data
	mov	ds,ax
	
	;加法计算，结果存入result
	mov	ax,oper1	;将12放入ax中
	mov	bx,oper2	;将45放入bx中
	add	ax,bx		;相加 12+45
	mov	result,ax	;result存答案45
	
	;显示算式
	mov	bx,oper1	;12放入bx中输出
	call	binidec	;输出bx
	
	mov	al,2bh		;ASCII中'+'是2BH
	mov	dl,al		;al放入dl才能输出
	mov	ah,02h		;输出加号+
	int	21h
	
	mov	bx,oper2	;45放入bx中输出
	call	binidec	;输出45
	
	mov	al,3dh		;ASCII中'=是3DH
	mov	dl,al		;放入dl才能输出
	mov	ah,02h
	int	21h
	
	;用户输入运算结果，存入(bx)寄存器中
	call	decibin	;读入放入bx中
	
	;判断用户输入是否正常，并显示信息
	;根据以上程序bx是读入的
	mov ax,result	;ax放入result中
	cmp	ax,bx		;比较ax与bx
	jz	right		;jz:如果为0，那么就跳转right步骤，否则继续向下指向wrong
wrong:
	lea	dx,wrong_msg	;将wrong_msg字符串偏移地址给dx准备输出
	jmp	return		;返回到下面return中，这样可以跳过right指令
right:
	lea	dx,right_msg	;将right_msg字符串偏移地址给dx准备输出
	jmp return		;可以不写，为了好看我还是写了
return:
	mov	ah,09h		;通过dx输出字符串
	int	21h

	mov	ax,4c00h	;结束
	int	21h
main	endp

【总程序】

;-------------------------------
data	segment
	oper1	dw	12
	oper2	dw	45
	result	dw	?
	right_msg db	'right',0dh,0ah,'$'
	wrong_msg db	'wrong',0dh,0ah,'$'
	crlf	db	0dh,0ah,'$'
data	ends
;===================================
code	segment
;------------------------------------------------------------
main	proc	far
	assume	cs:code,ds:data
start:
	;段地址送段寄存器
	mov	ax,data
	mov	ds,ax
	;加法计算，结果存入result
	mov	ax,oper1
	mov	bx,oper2
	add	ax,bx
	mov	result,ax
	;显示算式
	mov	bx,oper1
	call	binidec
	mov	al,2bh
	mov	dl,al
	mov	ah,02h
	int	21h
	mov	bx,oper2
	call	binidec
	mov	al,3dh
	mov	dl,al
	mov	ah,02h
	int	21h
	;用户输入运算结果，存入(bx)寄存器中
	call	decibin
	;判断用户输入是否正常，并显示信息

	;bx是读入的,ax存result
	
	mov 	ax,result
	cmp	ax,bx
	jz	right
wrong:
	lea	dx,wrong_msg
	jmp	return
right:
	lea	dx,right_msg
	jmp 	return
return:
	mov	ah,09h
	int	21h

	mov	ax,4c00h
	int	21h
main	endp
;------------------------------
binidec	proc	near
;把BX寄存器中的数以十进制数的形式在屏幕上显示出来
	mov	cx,10000d
	call	dec_div
	mov	cx,1000d
	call	dec_div
	mov	cx,100d
	call	dec_div
	mov	cx,10d
	call	dec_div
	mov	cx,1d
	call	dec_div
	ret
binidec	endp
;------------------------------
dec_div	proc	near
;除法运算:(bx)/(cx)
;入口参数:(bx)=被除数,(cx)=除数
;出口参数:(bx)<--余数，商显示
	mov	ax,bx
	mov	dx,0
	div	cx
	mov	bx,dx
	mov	dl,al
	add	dl,30h
	mov	ah,02h
	int	21h
	ret
dec_div	endp
;------------------------------
decibin	proc	near
;从键盘输入一个十进制数，存入BX寄存器中
	mov	bx,0
getchar:
	mov 	ah,01h
	int	21h
	sub	al,30h
	jl	exit
	cmp	al,9d
	jg	exit
	cbw		;将al扩充至ax
	mov	cx,10
	xchg	ax,bx
	mul	cx
	add	bx,ax
	jmp	getchar
exit:
	ret
decibin	endp
;--------------------------------
code	ends
;===================================
	end	start

注意其他细节不能丢，如ret,ends,end start等