zhong2.asm

电子钟设计

ORG 0000H
LJMP START
ORG 001BH
LJMP 1400H
ORG 1200H
START:MOV SP,#60H
     SETB RS1
        CLR RS0
     MOV R2,#0AH
     CLR RS1
     MOV TMOD,#10H
        MOV TL1,#0B0H
     MOV TH1,#3CH
     MOV 50H,#0
     MOV 51H,#0
     MOV 52H,#0
        MOV R0,#7EH
     MOV IE,#88H
     L0:LCALL KEYI
      SJMP L0
ORG 1300H
DISP1:SETB RS0
        CLR RS1
     MOV R6,#03H
     MOV R0,#79H
        MOV R1,#50H
   LOOP:MOV A,@R1
        ANL A,#0FH
        MOV @R0,A
        INC R0
        MOV A,@R1
        SWAP A
        ANL A,#0FH
        MOV @R0,A
        INC R1
        INC R0
        DJNZ R6,LOOP
        LCALL DISP
        CLR RS0
     RET
ORG 1400H
INTT1:PUSH ACC
     PUSH PSW
     SETB RS1
        CLR   RS0
        DJNZ R2,DOWN
        MOV R2,#0AH
     MOV R0,#50H
     MOV A,@R0
     ADD A,#01H
     DA A
     MOV @R0,A
     CLR C
     SUBB A,#60H
     JC DOWN
     MOV @R0,#00H
     INC R0
     MOV A,@R0
     ADD A,#01H
     DA A
     MOV @R0,A
     CLR C
        SUBB A,#60H
     JC DOWN
     MOV @R0,#00H
     INC R0
     MOV A,@R0
     ADD A,#01H
     DA A
     MOV @R0,A
     CLR C
     SUBB A,#24H
     JC DOWN
     MOV @R0,#00H
   DOWN:CLR TR1
     MOV A,#0B7H
     ADD A,TL1
     MOV TL1,A
     MOV A,#3CH
        ADDC A,TH1
        MOV TH1,A
        SETB TR1
        CLR RS1
        POP PSW
        POP ACC
        RETI
ORG 1500H
   DISP:MOV R6,#20H
        MOV R0,#7EH
        MOV R5,#06H
        MOV R7,#00H
        MOV DPTR,#TAB
   DIR2:MOV A,@R0
        MOVC A,@A+DPTR
        MOV R1,#0DCH
        MOVX @R1,A
MOV A,R6
        MOV R1,#0DDH
        MOVX @R1,A
        MOV A,R6
        RR A
        MOV R6,A
   HERE:DJNZ R7,HERE
        DEC R0
        DJNZ R5,DIR2
        RET
TAB:DB 0C0H,0F9H,0A4H,0B0H,99H
    DB 92H,82H,0F8H,80H,90H
ORG 1800H
   KEYI:ACALL   KS1
     JNZ     LK1
     NI:LCALL   DISP1
     AJMP    KND
    LK1:LCALL   DISP1
        LCALL   DISP1
     ACALL   KS1
     JNZ     LK2
      AJMP    KND
    LK2:MOV     R2,#0FEH
     MOV     R4,#00H
    LK4:MOV   DPTR,#0FFDDH
     MOV   A,R2
     MOVX @DPTR,A
     INC   DPTR
     MOVX A,@DPTR
     JB    Acc.0,LONE
     MOV   A,#00H
     AJMP LKP
   LONE:JB    Acc.1,LTW0
     MOV   A,#08H
     AJMP LKP
   LTW0:JB    Acc.2,LTHR
     MOV   A,#10H
     AJMP LKP
   LTHR:JB    Acc.3,NEXT
     MOV   A,#18H
    LKP:ADD   A,R4
     PUSH ACC
    LK3:LCALL DISP1
     ACALL KS1
     JNZ   LK3
     POP     ACC
     LCALL KESB
    KND:RET
   NEXT:INC   R4
     MOV   A,R2
     JNB   Acc.7,KND
        RL   A
     MOV    R2,A
     LJMP   LK4
ORG 1A00H
    KS1:MOV DPTR,#0FFDDH
     MOV    A,#00H
     MOVX   @DPTR,A
     INC    DPTR
     MOVX A,@DPTR
     CPL   A
     ANL   A,#0FH
     RET
ORG 1B00H
   KESB:MOV DPTR,#KSC
        MOVC A,@A+DPTR
        JNB Acc.4,L10
        CJNE A,#16H,LE24
        LJMP L12
    L10:MOV @R0,A
        DEC R0
     CJNE R0,#78H,L11
     MOV R0,#7EH
    L11:MOV   A, 7EH
        SWAP A
        ORL   A, 7DH
        MOV   52H, A
        CJNE A, #24H,LE09
   LE09:JNC   L19
        AJMP L18
    L19:MOV R0,#7EH
        AJMP LE24
    L18:MOV   A, 7CH
        SWAP A
        ORL   A, 7BH
        MOV   51H, A
        CJNE A, #60H,LE15
   LE15:JNC   L20
        AJMP L21
    L20:MOV R0,#7CH
        AJMP LE24
    L21:MOV   A, 7AH
        SWAP A
        ORL   A, 79H
        MOV   50H, A
        CJNE A, #60H,LE21
   LE21:JNC   L22
        AJMP LE24
    L22:MOV R0,#7AH
        AJMP LE24
    L12:SETB RS1
        SETB TR1
   LE24:RET
    KSC:DB 07H,04H,08H,05H,09H,06H,0AH,0BH
        DB 01H,00H,02H,0FH,03H,0EH,0CH,0DH
        DB 10H,11H,12H,13H,14H,15H,16H,17H
        DB 18H,19H,1AH,1BH,1CH,1DH,1EH,1FH
END