dseg segment    Array dw 10,9,8,7,6,5,4 dup(8)   Len = ($-Array)/2   addr dw ?dseg ends cseg segment   assume cs:cseg,ds:dseg  start:   mov ax,dseg   mov ds,ax      mov cx,Len-1   mov di,0   mov si,Len begin:   dec si    mov di,0   again:      mov bx,di      shl bx,1      mov ax,word ptr Array[bx]      inc di      cmp ax,Array[bx+2]      jna next      xchg ax,Array[bx+2]      mov Array[bx],ax     next:      cmp di,si      jb again         loop begin          mov ah,4ch     int 21h cseg ends    end start     

评论