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