新建 文本文档 (2).txt

七段数码管 单片机实验中的七段数码管的实验 C 语言程序和汇编程序

   ORG      0000H
        AJMP     MAIN
   ORG      001BH
        AJMP      T1INT
   ORG      0030H
MAIN:
   MOV      DPTR,#TAB
   MOV      30H,#00H
   MOV      31H,#00H
   MOV      32H,#00H 
   MOV      R2,#100
   MOV      R4,#60
   MOV      R6,#60
   MOV      TMOD,#10H
   MOV      TL1,#0EFH
   MOV      TH1,#0D8H
   MOV      IE,#88H
   SETB     TR1
L1: 
   ACALL   DISPLAY 
   AJMP    L1
T1INT:
   CLR      EA
   MOV      TL1,#0EFH
   MOV      TH1,#0D8H
   DJNZ      R2,NEXT1
   MOV       R2,#100
   MOV       30H,#00H
   DJNZ      R4,NEXT2
   MOV       R4,#60
   MOV       31H,#00H
   DJNZ      R6,NEXT3
   MOV       R6,#60
   MOV      32H,#00H
NEXT1:
   INC      30H
   SJMP OUT
NEXT2:
    INC      31H
    SJMP OUT
NEXT3:
    INC      32H
OUT:
    SETB      EA
    RETI


DISPLAY:
   MOV     R1,#30H
   MOV     R7,#0FEH
SA:
 
   CJNE      R1,#33H,SS
   AJMP       DISPLAY
SS:MOV      P3,R7
   MOV      A,@R1
   MOV      B,#10
   DIV      AB
   MOV      33H,B
   MOV      34H,A
   MOV      A,33H
 
   MOVC      A,@A+DPTR
   MOV      P1,A
   ACALL    DELAY

   MOV      A,R7
   RL       A
   MOV      R7,A
   MOV      P3,R7

   MOV      A,34H
   MOVC     A,@A+DPTR
   MOV      P1,A
   ACALL    DELAY

   INC       R1

   MOV       A,R7
   RL        A
   MOV       R7,A

   AJMP      SA
   RET



DELAY:  MOV  R0,#10
TIME:   MOV  R3,#0
        DJNZ  R3,$
        DJNZ   R0,TIME  
        RET
TAB:  DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,98H
END