Output equ P1.0   ; P1.0 port

Loop:   
     
       clr   c
       mov   Output,c
       call  Delay
       setb  c
       mov   Output,c
       call  Delay

       ljmp  Loop

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

       end