DATA SEGMENT
     
     S1 DB 10 DUP(?)
    
    DATA ENDS


CODE SEGMENT
     ASSUME CS:CODE,DS:DATA
     START:MOV AX,DATA
           MOV DS,AX
           LEA SI,S1
           MOV CX,10
        L1:MOV AH,01H
           INT 21H
           MOV [SI],AL
           INC SI
           LOOP L1
           MOV AH,02H
           MOV DL,0DH
           INT 21H
           MOV DL,0AH
           INT 21H
           
           MOV CX,9
        L2:MOV BX,CX
           MOV SI,0
        L3:MOV AL,S1[SI]
           CMP AL,S1[SI+1]
           JLE L4
           XCHG AL,S1[SI+1]
           MOV [SI],AL
        L4:INC SI
           LOOP L3
           MOV CX,BX
           LOOP L2
           
           MOV CX,10
           LEA SI,S1
        L5:MOV AH,02H
           MOV DL,S1[SI]
           INT 21H
           INC SI
           LOOP L5
                       
              
    
    CODE ENDS

END START