$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