51單片機STC89C52 數碼管靜態

DULA BIT P2.6
WELA BIT P2.7

ORG 0000H
CLR DULA
CLR WELA
MOV P0,#0
SETB DULA
CLR DULA
MOV P0,#0
SETB WELA
CLR WELA
LOOP0:
MOV R0,#0
MOV DPTR,#TABLEK
LOOP1:
MOV P0,#0
SETB DULA
CLR DULA
MOV A,R0
MOVC A,@A+DPTR
MOV P0,A
SETB DULA
CLR DULA
LCALL DELAY
INC R0
CJNE R0,#16,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
TABLEK:    ;共陰數碼管
DB 	3FH,06H,5BH,4FH
DB  66H,6DH,7DH,07H
DB  7FH,6FH,77H,7CH
DB  39H,5EH,79H,71H
END