612.asm

&#61494 &#61486 &#61489 &#61490 &#61472 编写子程序嵌套结构的程序

data segment
	val1	dw	10d
	bank	dw	8 dup(' '),'$'
	cr	db	0dh,0ah,'$'
data ends

stacks segment para stack
		dw	100 dup(0)
stacks ends

code segment
BANDO proc far
	assume cs:code,ds:data,ss:stacks
start:
	mov	ax,data
	mov	ds,ax
	

	mov	ax,val1
	push	ax
	call	PAIRS

	mov	ah,01h
	int	21h
	mov	ax,4c00h
	int	21h
BANDO endp

PAIRS proc near
	push	bp
	mov	bp,sp
	mov	si,[bp+4]


	mov	dl,2
	call	OUTS
	mov	dx,offset bank
	mov	ah,09h
	int	21h

	mov	dl,8
	call	OUTS
	mov	dx,offset cr
	mov	ah,09h
	int	21h

	ret	4	
PAIRS endp

OUTS proc near

;余数进栈
	xor	cx,cx
	mov	ax,si
back:	div	dl
	mov	bl,al
	mov	al,ah
	cbw
	add	ax,30h
	push	ax
	inc	cx
	mov	al,bl
	cbw
	cmp	ax,0h
	jz	next
	jnz	back

;输出
next:	pop	dx
;	add	dl,30h
	mov	ah,02h
	int	21h
	loop	next

	ret	
	
OUTS endp

code ends
     end start