MOV R0, #(N-1)
MOV A,R0
MOV R1,A
L3: MOV DPTR, 4150
L1: MOVX A,@DPTR
MOV B,A
INC DPTR
MOVX A,@DPTR
MOV R4,A
CLR C
SUBB A,B
MOV A,R4
JNC L2
XCH A,B
L2: MOVX @DPTR,A
MOV R0,DPL
DEC R0
MOV DPL,R0
MOV A,B
MOVX @DPTR,A
INC DPTR
DJNZ R0,L1
DJNZ R1,L3
HLT: SJMP HLT