复件 数码管1.txt

数码管单片机实验七段数码管显示实验程单片机实验七段数码管显示实验程序

ORG  0000H
START: MOV R1,#01h
       MOV R0,#00H
       MOV R2,#08H
DISP:  MOV DPTR,#TAB
       MOV A,R0
       MOVC A,@A+DPTR
       MOV P0,A
       MOV A,R1
       MOV P1,A
       ACALL DL10MS
       INC R0
       MOV A,R1
       RL A
       MOV R1,A
       DJNZ R2,DISP
       AJMP START
DL10MS:MOV R7,#01H
DL0:   MOV R6,#0FH
DL1:   nop
       nop
       DJNZ R6,DL1
       DJNZ R7,DL0
       RET
tab:   db 03h,09FH,25h,0Dh,099h,49h,41h,01Fh,01h,09h,0BFH
END              


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
数码管显示
ORG 0000H 
SJMP START 
ORG 000BH 
SJMP T0INT 
ORG 0030H 

START: MOV SP,#60H 
MOV TMOD,#01H 
MOV TL0,#0B0H 
MOV TH0,#3CH 
SETB ET0 
SETB EA 
SETB TR0 

MOV R1,#20 
MOV DPTR,#TABFLA 
MOV R4,#37H 

LOOP1: MOV A,R4 
MOV R0,A 
MOV R2,#01H 

LOOP: MOV A,R2 
MOV P2,A 
MOV A,@R0 
MOVC A,@A+DPTR 
MOV P1,A 
MOV R3,#0 
DJNZ R3,$ 
MOV P1,#0FFH 
MOV A,R2 
RL A 
MOV R2,A 
INC R0 
CJNE A,#01,LOOP 

CJNE R1,#0,LOOP1 
MOV R1,#20 

DEC R4 
CJNE R4,#2FH,LOOP1 
SJMP START 

TABFLA: DB 0C0H,0F9H,0A4H,0B0H,99H 
DB 92H,82H,0F8H,80H,90H,88H 
DB 83H,0C6H,0A1H,86H,8EH 

T0INT: MOV TH0,#3CH 
MOV TL0,#0B0H 
DEC R1 
RETI 

END
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~