zad3

.model small
.stack
.data
n dw 6
k dw 4
p dw ?
c dw ?
v dw ?


kf dw ?

.code

main:

mov ax,@data
mov ds,ax

mov ax,1
mov bx,1


poc1:
cmp bx,n
jg dalje1
mul bx
inc bx
jmp poc1

dalje1:
mov p,ax

mov ax, n
mov bx, k
sub ax,bx
mov cx,ax

mov ax,1
mov bx,1

poc2:
cmp bx,cx
jg dalje2
mul bx
inc bx
jmp poc2

dalje2:
mov v,ax
mov ax,1

mov bx,1
poc3:
cmp bx,k
jg dalje3
mul bx
inc bx
jmp poc3

dalje3:

mov c,ax

mov bx,v
mul bx
mov cx,ax
mov ax,p
mov dx,0
div cx
mov c,ax

mov ax,c
mov bx,0
mov cx,10
stampa:
cmp ax, 0
je kraj_stampa
mov dx,0
div cx
push dx
inc bx
jmp stampa

kraj_stampa:
   cmp bx, 0
   je kraj
   pop dx
   add dx, '0'
   mov ah, 2
   int 21h
   dec bx
   jmp kraj_stampa

kraj:















mov ah,4ch
int 21h

end main