;///////////////////////////////////////////     
;本程序源代碼由單片機培訓網提供.                 
;單片機培訓網,讓更多人學習單片機更容易.          
;第一網址----www.mcuedu.com                      
;第二網址----http://51_train.nease.net           
;創辦人------劉永忠                              
;熱線電話----(0755)27529998                      
;email-------aa815@163.com     
;用移位方式實現流水燈
;///////////////////////////////////////////     
org 00h				;程序上電從00h開始
ajmp	main		;跳轉到主程序
org	0030h			;主程序起始地址
main:
	mov	p2,#0f0h
	mov a,#0feh		;給A賦值成11111110
loop:	
	mov	p0,a		;將A送到P1口,發光二極管低電平點亮
	lcall delay		;調用延時子程序
	rl a			;累加器A循環左移一位
	ajmp	loop	;重新送P1顯示
delay:
	mov r3,#20		;最外層循環二十次
d1:
	mov r4,#80		;次外層循環八十次
d2:
	mov r5,#250		;最內層循環250次
	djnz r5,$		;總共延時2us*250*80*20=0.8S
	djnz r4,d2
	djnz r3,d1
	ret
	end