Сортировка массива пузырьком

cseg segment
assume cs:cseg,ds:dseg
start:  mov ax,dseg
    mov ds,ax
 
cntn:   xor si,si
    mov cx,n
    dec cx
    mov dl,1    
sort:   mov al,array[si]
    cmp al,array[si+1]
    jnl nxt
    xchg al,array[si+1]
    mov array[si],al
    xor dl,dl   ;обмен был, обнуляем dl
nxt:    inc si
    loop sort
    or dl,dl    ;если dl=1, элементы не менялись, на выход
    jz cntn 
 
    mov ax,4c00h
    int 21h
cseg ends
dseg segment
 
array db 3,15,125,4,67,1,8,-43,56,7,22,8
n=$-array
 
dseg ends
 
sseg segment stack
 
db 256 dup(0)
 
sseg ends
 
end start

    mov si,offset array
    mov cx,n
outpt:  xor ax,ax
    lodsb
    call OutInt
    mov ah,02h  ;отделим выводимые числа пробелами
    mov dl,' '
    int 21h
    loop outpt

cseg segment
assume cs:cseg,ds:dseg
start:  mov ax,dseg
        mov ds,ax
 
cntn:   xor si,si
        mov cx,n
        dec cx
        mov dl,1        
sort:   mov al,array[si]
        cmp al,array[si+1]
        jnl nxt
        xchg al,array[si+1]
        mov array[si],al
        xor dl,dl       ;обмен был, обнуляем dl
nxt:    inc si
        loop sort
        or dl,dl        ;если dl=1, элементы не менялись, на выход
        jz cntn 
 
    mov si,offset array
    mov cx,n
outpt:  xor ax,ax
    lodsb
    cbw
    call OutInt
    mov ah,02h  ;отделим числа пробелами
    mov dl,' '
    int 21h
    loop outpt  
 
        mov ax,4c00h
        int 21h
 
OutInt proc
    push ax
    push bx
    push cx
    push dx
        
; Проверяем число на знак.
       test    ax, ax
       jns     oi1
 
; Если оно отрицательное, выведем минус и оставим его модуль.
       mov  cx, ax
       mov     ah, 02h
       mov     dl, '-'
       int     21h
       mov  ax, cx
       neg     ax
; Количество цифр будем держать в CX.
oi1:  
        xor     cx, cx
        mov     bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
        xor             dx,dx
        div     bx
; Делим число на основание сс. В остатке получается последняя цифра.
; Сразу выводить её нельзя, поэтому сохраним её в стэке.
        push    dx
        inc     cx
; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
        test    ax, ax
        jnz     oi2
; Теперь приступим к выводу.
        mov     ah, 02h
oi3:
        pop     dx
        add     dl, '0'
        int     21h
; Повторим ровно столько раз, сколько цифр насчитали.
        loop    oi3
 
    pop dx
    pop cx
    pop bx
    pop ax
        
        ret
 
OutInt endp 
 
cseg ends
dseg segment
 
array db 3,15,125,4,67,1,8,-43,56,7,22,8
n=$-array
 
dseg ends
 
sseg segment stack
 
db 256 dup(0)
 
sseg ends
 
end start

    ...
    mov cx,n
    xor si,si
outpt:  mov al,array[si]
    cbw
    call OutInt
    mov ah,02h  
    mov dl,' '
    int 21h
    inc si
    loop outpt
    ...