data segment

    buffer  db  1,5,8,2,6,7,9,6,3,4

    N equ  $-sa

data ends

code segment

 assume cs:code,ds:data

 start: mov ax,data

        mov ds,ax

        mov cx,N

        dec cx

 again1:mov di,cx

        mov bx,offset buffer

 again2:mov al,[bx]

        cmp al,[bx+1]

        jae contin

        xchg al,[bx+1]

        mov [bx],al

 contin:inc bx

        loop again2

        mov cx,di

        loop again1

        mov ah,4ch

        int 21h

code ends

   end start

宏汇编后，因为没有输出，故在debug中反汇编

用在debug中D指令查看数据段

结果正确，已经排序完成。OK！