Program Led PingPong

Org 0h
Mov A, #0feh
Mulai:
Mov P1,A
Acall Delay
Rl A
Cjne A,#7fh,Mulai
Mulai1:
Mov P1,A
Acall Delay
Rr A
Cjne A,#0feh,Mulai1
Sjmp Mulai
Delay: Mov R0,#0
Delay1: Mov R1,#0
Djnz R1,$
Djnz R0,Delay1
Ret
End