流水灯-定时器延时

org 00h
start: mov r0,#8;初始化，右移次数与初始亮灯状态
mov a, #01111111b
loop: mov p1,a
acall delay;调用延时子程序
rr a
djnz r0,loop
jmp start
delay: mov tmod,#00000001b
setb tr0
mov tl0,#0b0h ;延时50ms
mov th0,#3ch
jnb tf0,$
clr tf0
ret
end