Loop:
       mov   a, #01h
       mov   r2, #8
Output:
       mov   P1, a
       rl    a
       call  Delay
       djnz  r2, Output
       ljmp  Loop

Delay:
       mov   r6, #0
       mov   r7, #0
DelayLoop:
       djnz  r6, DelayLoop
       djnz  r7, DelayLoop
       ret

       end