;///////////////////////////////////////////
;本程序源代碼由單片機培訓網提供.
;單片機培訓網,讓更多人學習單片機更容易.
;第一網址----www.mcuedu.com
;第二網址----http://51_train.nease.net
;創辦人------劉永忠
;熱線電話----(0755)27529998
;email-------aa815@163.com
;本程序使用查表方式實現流水燈功能
;///////////////////////////////////////////
			org	0000h
			ajmp	main
			org	0030h
main:
			mov dptr,#tab	;將表頭地址送入DPTR
			mov 30h,#00h	;將30H清零
			mov a,30h		;把30H中的數送入ACC中
loop:
			movc a,@a+dptr	;查ROM中的表格并將所得結果送入ACC中
			mov p0,a		;將查表所得結果送入P0口
			inc 30h			;將30H單元加一
			mov a,30h		;將30H單元的的值送入ACC中
			movc a,@a+dptr	;查表并將所得的結果送入ACC中
			mov p2,a		;將ACC中的值送入P2口
			mov r4,#100		;給軟件計時器賦值
tt3:                     	;以下是延時程序延時時間為：10ms*100=1S
			lcall delay10ms	;調用10MS延時程序
			djnz	r4,tt3	;R4不等于零返回到TT3處循環
			inc 30h			;將30H向上加一
			mov a,30h		;將30H中的值送入ACC
			cjne a,#32,loop	;ACC中的數若與32不相等則返回LOOP處循環
			ajmp	main	;相等則返回到主程序處繼續循環
delay10ms:                  ; 10ms 延時程序
			mov r6,#100
tt2:
			mov r5,#50
			djnz r5,$
			djnz r6,tt2
			ret
			

tab: 	dw 0fffeh,0fffdh,0fffbh,0fff7h
		dw 0ffefh,0ffdfh,0ffbfh,0ff7fh
		dw 07fffh,0bfffh,0dfffh,0efffh
		dw 0f7ffh,0fbffh,0fdffh,0feffh

end