include io.asm

stack segment stack
	dw 128 dup (?)
stack ends

data segment
 d db 10
 k1 db 2
 k2 db 5
data ends

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