四位共阳极数码管显示函数_单片机利用四位共阳极得数码管显示

展开全部

DAT62616964757a686964616fe78988e69d8331333339663966EQU 33H

T0LEQU 38H

T0HEQU 39H

SCANLEDEQU 3BH

ORG 0000H

LJMP MAIN

ORG 000BH

LJMP T0ISR

ORG 0030H

MAIN:

MOV SP,#5FH

MOV TMOD,#01H

MOV T0L,#0F0H

MOV T0H,#0D8H

MOV TH0,#0D8H

MOV TL0,#0F0H

MOV P2,#00H

MOV SCANLED,#0

MOV 33H,#10H

MOV 34H,#10H

MOV 35H,#10H

MOV 36H,#10H

SETB EA

SETB ET0

SETB TR0

MOV 33H,#02H

MOV 34H,#00H

MOV 35H,#01H

MOV 36H,#06H

LOOP:

SJMP LOOP

;--------------------

DELAY:

MOV R3,#50

DELAY1:

MOV R4,#100

DJNZ R4,$

DJNZ R3,DELAY1

DJNZ R2,DELAY

RET

;--------------------

T0ISR:

PUSH ACC

CLR TR0

MOV TH0,T0H

MOV TL0,T0L

SETB TR0

MOV DPTR,#LEDTAB

T000:;数字显示

MOV R0,#DAT

MOV A,SCANLED

ADD A,R0

MOV R0,A

MOV A,SCANLED

JNZ T001

MOV P2,#01H

SJMP T0DIS

T001:

DEC A

JNZ T002

MOV P2,#02H

SJMP T0DIS

T002:

DEC A

JNZ T003

MOV P2,#04H

SJMP T0DIS

T003:

MOV P2,#08H

T0DIS:

MOV A,@R0

MOVC A,@A+DPTR

MOV P0,A

INC SCANLED

MOV A,SCANLED

ANL A,#03H

MOV SCANLED,A

POP ACC

RETI

;--------------------

LEDTAB:

DB 0C0H;"0"00H

DB 0F9H;"1"01H

DB 0A4H;"2"02H

DB 0B0H;"3"03H

DB 99H;"4"04H

DB 92H;"5"05H

DB 82H;"6"06H

DB 0F8H;"7"07H

DB 80H;"8"08H

DB 90H;"9"09H

DB 88H;"A"0AH

DB 83H;"B"0BH

DB 0C6H;"C"0CH

DB 0A1H;"D"0DH

DB 86H;"E"0EH

DB 8EH;"F"0FH

DB 0FFH;" "10H

END