汇编 选择排序

DATAS SEGMENT
a dw 1,7,2,9,4,8,7,6,3
mess1 db 'the array preinstalled is:12,7,22,19,14,48,37,33,66,31$'
mess2 db 0ah,0dh,'Already sorted array is:','$'
DATAS ENDS
CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX
   

    lea dx,mess1
    mov ah,09h
    int 21h
    lea dx,mess2
    mov ah,09h
    int 21h
    mov ax,offset mess1-offset a
    mov dl,2
    div dl
    cbw
    xor ah,ah
    mov cx,ax
   

    mov si,0
loop1:
    mov di,cx
  

    push si
    mov bx,si
    dec cx
    or cx,cx
    jz ze
loop2:
    mov ax,a[si+2]

    cmp ax,a[bx]
    jb continue
    lea bx,[si+2]
continue:
    add si,2
    loop loop2
   

    pop si
    mov ax,a[si]
    xchg ax,a[bx]
    mov a[si],ax
ze:
    mov dx,a[si]
    call dishex
    ;dec di
    mov cx,di
    inc si
    inc si
    loop loop1
   

    MOV AH,4CH
    INT 21H
   

dishex proc near
    push cx
    mov cx,0404h
print:
    rol dx,cl
    push dx
    and dl,0fh
    cmp dl,0ah
    jb next
    add dl,7
next:
    add dl,30h
    mov ah,2
    int 21h
    pop dx
    dec ch
    jnz print
    mov dl,' '
    mov ah,2
    int 21h
    pop cx
    ret
dishex endp
CODES ENDS
    END START