zymcu.asm

用四位LED数码显示管显示实时时钟单片机源程序

         ORG   0000H
         LJMP   MAIN
         ORG    001BH
         LJMP   PIT0
         ORG    0030H
MAIN:    MOV    SP,#40H
         MOV    R1,#31H
         MOV    7AH,#12H
         MOV    7BH,#00H
         MOV    35H,#0CH
         MOV    7CH,#00H
	 MOV    P3,#0FEH
	 MOV    P1,#00H
         MOV    TMOD,#10H
         MOV    TH1,#0BH
         MOV    TL1,#0F9H
         SETB   EA
         SETB   ET1
         SETB   TR1
         MOV    IP,#08H
         MOV    30H,#08H
         MOV    70H,#0DH
         MOV    71H,#08H
         MOV    73H,#10H
         MOV    74H,#07H
         MOV    75H,#30H
         MOV    77H,#32H
MAIN1:   ACALL  DISP
         MOV    A,35H
         CJNE   A,70H,L44
         MOV    A,7BH
         CJNE   A,71H,L45
         SETB   F0
         MOV    36H,#03H
         SJMP   L04
  L45:   CJNE   A,73H,L04
         CLR    F0
         SJMP   L04
  L44:   CJNE   A,74H,L04
         MOV    A,7BH
         CJNE   A,75H,L00
         SETB   F0
         MOV    36H,#03H
         SJMP   L04
  L00:   CJNE   A,77H,L04
         CLR    F0
  L04:   ACALL  KEY
         SJMP   MAIN1
 PIT0:   PUSH   PSW
         PUSH   ACC
         MOV    TH1,#0BH
         MOV    TL1,#0F9H
         MOV    A,30H
         CJNE   A,#04H,L06
         MOV    32H,#00H
         SJMP   L07
  L06:   CJNE   A,#08H,L07
         MOV    32H,#0FH
  L07:   DJNZ   30H,RET0
         MOV    30H,#08H
         DEC    36H
         MOV    A,7CH
         ADD    A,#01H
         DA     A
         MOV    7CH,A
         XRL    A,#60H
         JNZ    RET0
         MOV    7CH,#00H
         MOV    A,7BH
         ADD    A,#01H
         DA     A
         MOV    7BH,A
         XRL    A,#60H
         JNZ    RET0
         MOV    7BH,#00H
         INC    35H
         MOV    A,7AH
         ADD    A,#01H
         DA     A
         MOV    7AH,A
         MOV    A,35H
         CJNE   A,#0DH,L17
         MOV    7AH,#01H
         SJMP   RET0
  L17:   CJNE   A,#18H,RET0
         MOV    35H,#00H
         MOV    7AH,#00H
  RET0:  POP    ACC
         POP    PSW
         RETI
  KEY:   JNB    P3.4,L08
         JNB    P3.5,L08
         SJMP   L11
  L08:   ACALL  DISP
         ACALL  DISP
         ACALL  DISP
         ACALL  DISP
         JB     P3.4,L09
         INC    35H
         MOV    A,7AH
         ADD    A,#01H
         DA     A
         MOV    7AH,A
         MOV    A,35H
         CJNE   A,#0DH,L18
         MOV    7AH,#01H
         SJMP   L11
  L18:   CJNE   A,#18H,L11
         MOV    7AH,#00H
         MOV    35H,#00H
         SJMP   L11
  L09:   JB     P3.5,L11
         MOV    A,7BH
         ADD    A,#01H
         DA     A
         MOV    7BH,A
         XRL    A,#60H
         JNZ    L11
         MOV    7BH,#00H
   L11:  RET
 DISP:   CLR    P3.0
         SETB   P3.1
         SETB   P3.2
         SETB   P3.3
         MOV    A,7BH
         ANL    A,#0FH
         MOV    3AH,A
         JNB    F0,L40
         MOV    A,32H
         JZ     L40
         MOV    A,36H
         JNZ    L41
         MOV    36H,#03H
         CLR    P3.7
         SJMP   L41
  L40:   SETB   P3.7
         SJMP   L55
  L41:   MOV    3AH,#0AH
  L55:   MOV    R0,#3AH
         MOV    DPTR,#TABLE
         MOV    A,@R0
         MOVC   A,@A+DPTR
         MOV    P1,A
         ACALL  DELAY
         MOV    A,7BH
         ANL    A,#0F0H
         SWAP   A
         MOV    3AH,A
         JNB    F0,L42
         MOV    A,32H
         JZ     L42
         MOV    3AH,#0AH
  L42:   SETB   P3.0
         CLR    P3.1
         MOV    DPTR,#TABLE
         MOV    A,@R0
         MOVC   A,@A+DPTR
         MOV    P1,A
         ACALL  DELAY
         MOV    A,7AH
         ANL    A,#0F0H
         MOV    3AH,A
         SETB   P3.1
         CLR    P3.2
         MOV    DPTR,#TABLE
         MOV    A,@R0
         MOVC   A,@A+DPTR
         MOV    P1,A
         ACALL  DELAY
         MOV    A,7AH
         ANL    A,#0F0H
         SWAP   A
         MOV    3AH,A
         JNZ    L20
         MOV    3AH,#0AH
  L20:  SETB    P3.2
        CLR     P3.3
        MOV    DPTR,#TABLE
         MOV    A,@R0
         MOVC   A,@A+DPTR
         MOV    P1,A
         ACALL  DELAY
         RET
 DELAY:  MOV    R2,#10H
   L15:  MOV    R3,#36H
   L16:  DJNZ   R3,L16
         DJNZ   R2,L15
         RET
 TABLE:  DB     0BFH
         DB     05H
         DB     73H
         DB     37H
         DB     8DH
         DB     6EH
         DB     7EH
         DB     06H
         DB     0FFH
         DB     0EFH
         DB     00H
         END