.model small
.data
n dw 0009
r dw 0003
res dw ?
.code
mov ax,@data
mov ds,ax

mov ax,0001
mov cx,r
mov bx,r
call ncr

push ax
mov ax,0001
mov cx,r
mov bx,n
call ncr

pop bx
div bx
mov res,ax

jmp kill
ncr proc
cmp cx,0000
jle ll
dec cx
mul bx
dec bx
call ncr
ll:ret
ncr endp
kill:mov ah,4ch
int 21h
end