org 256

length  equ 423
        mov ax,00ffh
        cwd
        mov si,array
        mov cx,length
        xor bx,bx

search  cmp al,[si]
        jc notmin
        mov al,[si]
        mov bp,bx
notmin  cmp [si],dl
        jc notmax
        mov dl,[si]
        mov di,bx
notmax  inc si
        inc bx
        loop search

        push si
        push di
        push bp
        push dx

print
        mov di, 0ah
smycka  xor dx, dx            
        div di
        push dx
        inc cx
        test ax, ax ; = cmp ax,0
        jnz smycka
pis     pop ax
        add al, 030h
        int 029h
        loop pis

        mov al,' '
        int 29h

        pop ax

        cmp si, ax
        jne print

        ret

array   incbin 'sojarray.bin'