How to sort n numbers(Bubble sort ) in 8051

MOV R0,#09H
AGAIN:MOV DPTR,#1000H
MOV R1,#09H
BACK:MOV R2,DPL
MOVX A,@DPTR
MOV B,A
INC DPTR
MOVX A,@DPTR
CJNE A,B ,NEXT
AJMP SKIP
NEXT:JNC SKIP
MOV DPL,R2
MOVX @DPTR,A
INC DPTR
MOV A,B
MOVX @DPTR,A
SKIP:DJNZ R1,BACK
DJNZ R0,AGAIN
END