N-ti clan Fibonacijevog niza

; multi-segment executable file template.

data segment
    a db ?
    n dw 4


    pkey db "press any key...$"
ends

stack segment
    dw   128  dup(0)
ends

code segment
start:
; set segment registers:
    mov ds, ax
    mov es, ax

    mov a[0], 0
    mov a[1], 1

    mov si, 2
    mov bx, 7

    petlja:

    cmp si, bx
    jl radi
    jmp kraj

    radi:

    add al, a[si-2]
    add al, a[si-1]
    mov a[si], al
    mov al, 0
    add si, 1
    jmp petlja

    kraj:
    mov dl, a[si-1]
    mov al, dl
    mov bl, 1
    mul bl
    mov bl, 10
    div bl
    mov dh, ah

    mov dl, al
    add dl, 48
    mov ah, 2
    int 21h

    mov dl, dh
    add dl, 48
    mov ah, 2
    int 21h

mov ax, 4c00h
int 21h
ends

end start ; set entry point and stop the assembler.