Числа фибаначчи

;Числа фибоначчи.

.data
    n DW 0
.const
    scale EQU 10
.code
    mov ah,0ah
    xor di,di
    mov dx,offset buff
    int 21h
    mov dl,0ah
    mov ah,02
    int 21h
    xor ax,ax
    mov bx,scale

MakeNum:
    mov cl,[si]
    cmp cl,0dh
    jz FibCalc
    sub cl,'0'
    mul bx
    add ax,cx
    inc si
    jmp MakeNum

FibCalc:
    mov n, ax
    xor ax,ax
    mov dx,1
    mov cx,n
    sum:
        add ax,dx
        loop sum
    xor cx, cx
    mov bx, scale

AddStackNum:
    xor dx,dx
    div bx
    push dx
    inc cx
    test ax, ax
    jnz AddStackNum
    mov ah, 02h

PrintSymb:
    pop dx
    add dl, '0'
    int 21h
    loop PrintSymb