$mod52
org 00H

etstart:
mov A, #0
eta:
mov P2, A
inc A
call delay
CJNE A,#9H,eta
add A,#6
sjmp etb

etb: mov P2, A
inc A
call delay
CJNE A,#1AH,etb
add A,#6
sjmp etc

etc: mov P2, A
inc A
call delay
CJNE A,#2AH,etc
add A,#6
sjmp etd

etd: mov P2, A
inc A
call delay
CJNE A,#3AH,etd
add A,#6
sjmp etstart

delay:
mov R7, #250
Dl7:
mov R6, #500
djnz R6, $
djnz R7, Dl7
ret

end