Program to perform maximum of two numbers (8051)

MOV DPTR,#1000H 
MOV R1,#5H
MOV B ,#00H
AGAIN: MOVX A,@DPTR
CJNE A,B ,L1
SJMP L2
L1: JC L2
MOV B,A
INC DPTR
L2: DJNZ R1,AGAIN
END