Array sort assembly

; MULTI-SEGMENT EXECUTABLE FILE TEMPLATE.

DATA SEGMENT
    ; ADD YOUR DATA HERE!
    PKEY DB "PRESS ANY KEY...$"
    ARR DB 5 DUP(?)
ENDS

STACK SEGMENT
    DW   128  DUP(0)
ENDS

CODE SEGMENT
START:
; SET SEGMENT REGISTERS:
    MOV AX, DATA
    MOV DS, AX
    MOV ES, AX

    ; ADD YOUR CODE HERE

    MOV CX,5
     MOV SI,0
    MYARRAY:
    MOV AH,1
    INT 21H
    SUB AL,'0'
    MOV ARR[SI],AL
    INC SI
    LOOP MYARRAY

    MOV CX,5
    SUB CX,1
    MOV SI,0


    BUBBLESORT:
        CMP CX,SI
        JZ NEXT
        MOV AL,ARR[SI]
        MOV BL,ARR[SI+1]
        CMP AL,BL
        JA EXCHANGE
        ADD SI,1
        JMP BUBBLESORT
    EXCHANGE:
        MOV ARR[SI+1],AL
        MOV ARR[SI],BL
        ADD SI,1
        JMP BUBBLESORT
    NEXT:
        MOV SI,0
        SUB CX,1
        CMP CX,0
        JNZ BUBBLESORT


    ;NEW LINE
    MOV AH,2
    MOV DL,0DH
    INT 21H
    MOV DL,0AH
    INT 21H                                                                 0

    MOV CX,5
    MOV SI,0
    MYARR:
    MOV DL,ARR[SI]
    ADD DL,'0'
    MOV AH,2
    INT 21H
    MOV AH,2
    MOV DL,0DH
    INT 21H
    MOV DL,0AH
    INT 21H
    INC SI
    LOOP MYARR

    LEA DX, PKEY
    MOV AH, 9
    INT 21H        ; OUTPUT STRING AT DS:DX

    ; WAIT FOR ANY KEY....
    MOV AH, 1
    INT 21H

    MOV AX, 4C00H ; EXIT TO OPERATING SYSTEM.
    INT 21H
ENDS

END START ; SET ENTRY POINT AND STOP THE ASSEMBLER.