2.asm

汇编实验：电话本管理程序。具有输入

public	decibin,binidec
data segment	common	
	data2	db	5 dup(?)		
data ends
;----------------------------------------------------------------
code segment	
	
decibin proc	far	uses cx ax si
	assume cs:code,ds:data
	mov 	ax,data
	mov	ds,ax
	sub	bx,bx
	mov	cx,10
lop1:
	mov	ah,7
	int	21h
	cmp	al,13
	jz	exit1
	sub	al,30h
	jl	lop1
	cmp	al,9
	jg	lop1
	
	cbw
	xchg	ax,bx
	mul	cx
	xchg	bx,ax
	add	bx,ax
	mov	dl,al
	add	dl,30h
	mov	ah,2
	int	21h
	jmp	lop1
exit1:
	ret
decibin	endp
;*******************************************************************
binidec	proc	far	uses ax dx si cx
	mov 	ax,bx
	mov	cx,10
	sub	dx,dx
	sub	si,si
lop2:
	cmp	ax,10
	jl	next
	div	cx
	mov	data2[si],dl
	sub	dl,dl
	inc	si
	jmp	lop2
next:
	mov	data2[si],al
shuchu:
	mov	ah,2
	mov	dl,data2[si]
	add	dl,30h
	int	21h
	dec	si
	cmp	si,0
	jl	exit2
	jmp	shuchu
exit2:
	ret
binidec	endp
code ends
end