51单片机实验程序

				。
				
				        ;左移
				  star: mov r3,#8         ;设置流水位数
				        mov p1,#11111110b ;从p1.0开始
				  loop: acall d01s
				        mov a,p1          ;读取p1当前数据到acc
				        rl a              ;左移一位
				        mov p1,a          ;将左移的数据再送到p1
				        djnz r3,loop      ;没有完成8位继续
				        ;******************
				        mov p1,#0ffh      ;熄灭所有灯
				        ;******************
				        ;右移 
				        mov r3,#8         ;设置流水位数
				        mov p1,#01111111b ;从p1.7开始
				  loop1: acall d01s
				        mov a,p1          ;读取p1当前数据到acc
				        rr a              ;右移一位
				        mov p1,a          ;将左移的数据再送到p1
				        djnz r3,loop1     ;没有完成8位继续
				
				        ljmp star         ;完成后返回到开始再来
				
				  ;延时子程序
				   d01s: mov r0,#255
				  d01l1: mov r1,#198
				         djnz r1,$
				         djnz r0,d01l1
				         ret
				         end