this would work , but the delay time is not straightly like before.

Delay:
;; here
loop: djnz r7,loop
cjne r6,#00h,skip_loop
djnz r6,loop
skip_loop:
ret


another way :

Delay:
cjne r6,#00h,skip
inc r6
skip:
;; here
loop: djnz r7,loop
djnz r6,loop
ret

this will add (R7) more loops to the routine if R6 (MSB) is zero

Farshid J.H.