;p1口8個跑馬燈的另外一個程序。用移位指令
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網站        	   *
;***************************************************************************
	org	0000h
	ajmp	main
	org	0030h
main:
	mov	p1,#00h		;全亮
	lcall	delay		;
	lcall	delay		;
	lcall	delay		;延時一段時間
	mov	a,#0feh		;每次只亮一個燈。
loop:	mov	p1,a		;
	lcall	delay		;
	lcall	delay		;
	lcall	delay		;
	rl	a		;循環左移。
	ajmp	loop		;

delay:	mov	r7,#00h		;延時子程序
tt:	mov	r6,#00h
	djnz	r6,$
	djnz	r7,tt
	ret
	end