Even(5000h) and odd numbers(6000h) --from 1000h

Even(5000h) and odd numbers(6000h) --from 1000h
mov r0,#00
mov r1,#00
mov r2,#00   ;lower byte ,source pointer
mov r6,#7 ; number of bytes in the source address
mov r3,#50h
mov r4,#60h
mov r5,#10h
up:mov dpl,r2
mov dph,r5
movx a,@dptr
jb acc.0,odd
mov dpl,r1
mov dph,r3
movx @dptr,a
inc r1
sjmp lst
odd: mov dpl,r0
     mov dph,r4
movx @dptr,a
inc r0
lst:inc r2
 
djnz r6,up
sjmp $
end