.model small

    array db 0,2,5,3,1

main proc far

    mov ax, @data

    mov ds, ax

    mov cx, 0005h

l1:    mov bx, cx

l2:    mov al, array[bx]

    cmp al, array[bx+1]

    jb next

    mov ah, array[bx+1]

    mov array[bx+1], al

    mov array[bx], ah

next: dec bx

    jnz l2

    dec cx

    jnz l1

    mov ax, 4c00h

    int 21h

main endp

end main