$mod51
org 00h
   mov p3,#3fh
 acall L2
 mov p3,#06h
 acall L2
 mov p3,#5bh
 acall L2
 mov p3,#4fh
 acall L2
 mov p3,#66h
 acall L2
 mov p3,#6dh
 acall L2
 mov p3,#7dh
 acall L2
 mov p3,#47h
 acall L2
 mov p3,#7fh
 acall L2
 mov p3,#6fh
 acall L2
l2:

 mov p1,#3fh
 acall L1
 mov p1,#06h
 acall L1
 mov p1,#5bh
 acall L1
 mov p1,#4fh
 acall L1
 mov p1,#66h
 acall L1
 mov p1,#6dh
 acall L1
 mov p1,#7dh
 acall L1
 mov p1,#47h
 acall L1
 mov p1,#7fh
 acall L1
 mov p1,#6fh
 acall L1
L1:
 mov p2,#3fh
 acall delay
 mov p2,#06h
 acall delay
 mov p2,#5bh
 acall delay
 mov p2,#4fh
 acall delay
 mov p2,#66h
 acall delay
 mov p2,#6dh
 acall delay
 mov p2,#4dh
 acall delay
 mov p2,#47h
 acall delay
 mov p2,#7fh
 acall delay
 mov p2,#6fh
 acall delay
delay:
 mov r0,#25
L4:  mov r1,#25
L3:  mov r2,#20
L21:  djnz r2,L21
 djnz r1,L3
 djnz r0,L4
 ret
end