;;;;;通過查表程序控制P0口的發光二極管周期性變換花樣閃爍發光
MAIN:CLR A ;初始化
MOV DPTR,#SHEET ;取表首地址
MOV R0,A ;初始化
LOOP:MOV A,R0 ;準備查表
MOVC A,@A+DPTR ;查表
CJNE A,#01H,SHOW ;判斷查表結束沒有
AJMP MAIN ;若查表結束重新開始
→ SHOW:MOV P0,A ;輸出到P0口
LCALL DELAY ;調用延時子程序
INC R0 ;準備下次查表
AJMP LOOP ;繼續查表
DELAY:MOV R7,#150 ;延時子程序
D1: MOV R6,#50
D2: MOV R5,#50
DJNZ R5,$
DJNZ R6,D2
DJNZ R7,D1
RET
SHEET:DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,7FH ;單燈流水2遍
DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,7FH
DB 0FAH,0F5H,0EBH,0D7H,0AFH,5FH,0BEH,7DH ;雙燈流水2遍
DB 0FAH,0F5H,0EBH,0D7H,0AFH,5FH,0BEH,7DH
DB 01H ;表結束標準
END
急,在線等
111.png (23.15 KB, 下載次數: 39)
下載附件
2020-5-17 22:21 上傳
222.png (4.32 KB, 下載次數: 44)
下載附件
2020-5-17 22:21 上傳
|