$mod51
org 00h

 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,#255
L4:  mov r1,#255
L3:  mov r2,#20
L2:  djnz r2,L2
 djnz r1,L3
 djnz r0,L4
 ret
end