Najduži sortirani podniz

; Napisati program koji nalazi koliki je najduzi sortirani podniz u nizu, stampa njegovu duzinu
; Napomena: uradjeno je za rastuci poredak

data segment
   n dw ?
   a db 50 dup (?)
   rez db ?
   nr db 10, 13, "$"
   space db "  ", "$"

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

stack segment
    dw   128  dup(0)
ends

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

    mov ah, 1
    int 21h
    sub al, 48
    mov bl, 10
    mul bl
    mov n, ax

    mov ah, 1
    int 21h
    sub al, 48
    mov bl, 1
    mul bl
    add n, ax

    mov ah, 9
    lea dx, nr
    int 21h

    mov si, 0

    unosniza:
    cmp si, n
    jl unesi
    jmp krajunosa

    unesi:
    mov ah, 1
    int 21h
    sub al, 48
    mov a[si], al

    mov ah, 9
    lea dx, space
    int 21h

    add si, 1
    jmp unosniza

    krajunosa:
    mov ah, 9
    lea dx, nr
    int 21h

    mov rez, 1
    mov cl, 1
    mov si, 1

    for:
    cmp si, n
    jle proveri
    jmp kraj

    proveri:
    mov ch, a[si]
    cmp ch, a[si-1]
    jge nizraste
    jmp rezultat

    nizraste:
    add cl, 1
    add si, 1
    jmp for

    rezultat:
    cmp cl, rez
    jg rezje
    jmp uvecaj

    rezje:
    mov rez, cl

    uvecaj:
    mov cl, 1
    add si, 1
    jmp for

    kraj:
    mov dl, rez
    add dl, 48
    mov ah, 2
    int 21h


    mov ah, 9
    lea dx, nr
    int 21h

    lea dx, pkey
    mov ah, 9
    int 21h        ; output string at ds:dx

    ; wait for any key....
    mov ah, 1
    int 21h

    mov ax, 4c00h ; exit to operating system.
    int 21h
ends

end start ; set entry point and stop the assembler.