数码管

[Talnex]

 ORG 0000H
 LJMP MAIN
 ORG 0030H

MAIN:
MOV R0,#70H
MOV R7,#04H
MOV A,#00H

M1:
MOV @r0,A
INC A
INC R0
DJNZ R7, M1

LP:
LCALL DISP
SJMP LP

DISP:
MOV R6,#0EFH
MOV R7,#04H
MOV R0,#70H

DIS1:
MOV A,R6
MOV P3,A
MOV A,@r0
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P1,A
LCALL DELAY

MOV A,R6
RL A
MOV R6,A
INC R0
DJNZ R7,DIS1

RET

TAB:
DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H
DB 7FH,6FH,77H,7CH,39H

DELAY:
MOV R3,#0AH
d2: MOV R4,#1FH
d1:
DJNZ R4,d1
DJNZ R3,d2
RET

END