Delay:
;; here
      SETCOUNT 
loop: djnz r7,loop
      djnz r6,loop
      ret

SETCOUNT   macro
           LOCAL NoInc
           mov   a,r7
           jz    NoInc
           inc   r6
NoInc:
           endm