$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