include io.asm

stack segment stack
	dw 128 dup (?)
stack ends

data segment
 d db smt
data ends

code2 segment 'code2'
    assume cs:code2
pro proc
    inc sp
    pop bh
	pop bl
	cmp bh,bl
	jnb gott
	add bh,bl
	sub sp,3
	push bl
	push bh
	mov ax,0
	inc sp
	call pro
	inc ax
	ret
gott:mov ax,0
     push bl
     push bh 
     ret
pro endp	

code segment 'code'
	assume ss:stack, ds:data, cs:code
start:
	mov ax,data
	mov ds,ax
	push bx
	push k1
	push k2
    call pro
	pop bx
    finish
code ends
    end start