Procedure Assembler 8086

    ; procedura unos
    unos PROC
        mov ah, 1
        int 21h
        sub al, 48
        ret
    unos ENDP

    ; procedura prikaz clanova niza
    prikaz PROC
        mov si, 0

        for:
        cmp si, bx
        jl stampaj
        jmp kraj

        stampaj:
        mov ah, 2
        mov dl, a[si]
        add dl, 48
        int 21h
        add si, 1
        jmp for

        kraj:
        ret
    prikaz ENDP

    ; procedura sortiranje u opadajucem poretku
    sort PROC
        mov bx, n
        sub bx, 2
        mov dx, 0

        for1:
        mov si, 0
        cmp bx, dx
        jge for2
        jmp zavrsi

        for2:
        cmp si, bx
        jle radi
        jmp smanji

        radi:
        mov cl, a[si+1]
        cmp a[si], cl
        jl razmeni
        jmp uvecaj

        razmeni:
        mov al, a[si]
        mov a[si], cl
        mov a[si+1], al
        jmp uvecaj

        uvecaj:
        add si, 1
        jmp for2

        smanji:
        sub bx, 1
        jmp for1

        zavrsi:
        ret
    sort ENDP