;用移位方式實現流水燈
;///////////////////////////////////////////     
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