;;;;;通过查表程序控制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
急，在线等
|
