;///////////////////////////////////////////
;本程序源代碼由單片機培訓網提供.
;單片機培訓網,讓更多人學習單片機更容易.
;第一網址----www.mcuedu.com
;第二網址----http://51_train.nease.net
;創辦人------劉永忠
;熱線電話----(0755)27529998
;email-------aa815@163.com
;用取表方式實現廣告燈的移動和閃爍.
;P1口單一燈左移兩次,右移兩次,閃爍兩次.
;程序難易等級--------稍難
;///////////////////////////////////////////
	org	0000h
	jmp	start
	org	0030h
start:
	mov	dptr,#table				;table表的地址存入數據指針
loop:
	clr	a									;清除ACC
	movc	a,@a+dptr				;到數據指針所指的地址取碼
	cjne	a,#01,loop1			;取出的碼是否01H?不是則跳到LOOP1
	jmp	start
loop1:
	mov	p2,a							;將A輸出至P1
	mov	r3,#20						;延時0.2秒
	call	delay
	inc	dptr							;數據指針加一,取下一個碼
	jmp	loop
delay:
	mov	r4,#20						;10毫秒
d1:
	mov	r5,#248
	djnz	r5,$
	djnz	r4,d1
	djnz	r3,delay
	ret
table:
	db	0feh,0fdh,0fbh,0f7h		;左移
	db	0efh,0dfh,0bfh,7fh
	db	0feh,0fdh,0fbh,0f7h		;左移
	db	0efh,0dfh,0bfh,7fh
	db	7fh,0bfh,0dfh,0efh		;右移
	db	0f7h,0fbh,0fdh,0feh							
	db	7fh,0bfh,0dfh,0efh		;右移
	db	0f7h,0fbh,0fdh,0feh							
	db	00h,0ffh,00h,0ffh			;閃爍2次
	db	01h										;結束碼
	end