;///////////////////////////////////////////
;本程序源代碼由單片機培訓(xùn)網(wǎng)提供.
;單片機培訓(xùn)網(wǎng),讓更多人學習單片機更容易.
;第一網(wǎng)址----www.mcuedu.com
;第二網(wǎng)址----http://51_train.nease.net
;創(chuàng)辦人------劉永忠
;熱線電話----(0755)27529998
;email-------aa815@163.com
;通過廣告燈的左移右移，學習輸出端口的控制。
;程序難易等級--------稍難
;///////////////////////////////////////////
	org	0000h				;起始地址
	ajmp	main
	org	0030h
main:
	mov	a,#0ffh			;ACC=FFH左移初值
	clr	c						;c=0
	mov	r2,#08h			;設(shè)左移8次
loop:
	rlc	a						;左移一位
	mov	p2,a				;輸出至p2
	call	delay			;延0.2秒
	djnz	r2,loop		;左移7次?
	mov	r2,#07h			;
loop1:
	rrc	a						;右移一位
	mov	p2,a				;輸出至p2
	call	delay			;延0.2秒
	djnz	r2,loop1	;右移7次?
	jmp	main
delay:
	mov	r3,#20			;延時0.2秒
d1:
	mov	r4,#20
d2:
	mov	r5,#248
	djnz	r5,$
	djnz	r4,d2
	djnz	r3,d1
	ret
	end