include io.asm

stack segment stack
	dw 128 dup (?)
stack ends

data segment
 d db smt
data ends

code segment 'code'
	assume ss:stack, ds:data, cs:code
pro proc
    dec sp
    pop bh
	pop bl
	cmp bh,bl
	jnb gott
	add bh,bl
	push bl
	push bh
	mov ax,0
	inc sp
	call pro
	inc ax
	ret
gott:push bl
     push bh 
     ret
pro endp
	
start:
	mov ax,data
	mov ds,ax
	push bx
	push k1
	push k2
    call pro
	pop bx
    finish
code ends
    end start