51单片机STC89C52 数码管动态

DULA BIT P2.6
WELA BIT P2.7
ORG 0000H
MOV P0,#0  ;关显示
SETB DULA
CLR DULA
LOOP0:
MOV R0,#0
LOOP1:
MOV DPTR,#TABLEW
MOV P0,#0  ;关显示
SETB DULA
CLR DULA
MOV A,R0
MOVC A,@A+DPTR
MOV P0,A  ;送位选值
SETB WELA  ;确定显示的位
CLR WELA
MOV A,R0
ADD A,#1
MOV DPTR,#TABLEK
MOVC A,@A+DPTR
MOV P0,A  ;送段码
SETB DULA
CLR DULA
LCALL DELAYXMS  ;延时X ms，修改延时参数可降低闪烁，小于4ms实现动态扫描
INC R0
CJNE R0,#6,LOOP1
AJMP LOOP0
DELAY:    ;延时1S
SETB RS1
MOV R2,#04H
DELAY2:
MOV R1,#150
DELAY1:
MOV R0,#250
DELAY0:
NOP
NOP 
DJNZ R0,DELAY0
DJNZ R1,DELAY1
DJNZ R2,DELAY2
CLR RS1
RET
DELAYXMS:
SETB RS1
MOV R1,#3  ;延时3 ms
DELAY4:
MOV R0,#250
DELAY3:
NOP
NOP 
DJNZ R0,DELAY3
DJNZ R1,DELAY4
CLR RS1
RET
TABLEK:    ;共阴数码管
DB 	3FH,06H,5BH,4FH
DB  66H,6DH,7DH,07H
DB  7FH,6FH,77H,7CH
DB  39H,5EH,79H,71H
TABLEW:   ;位选控制
DB 0FEH,0FDH,0FBH,0F7H
DB 0EFH,0DFH
END