dzzh2.asm

当今单片机厂商琳琅满目

INCLUDE 'H51.INC'
        LJMP    MAIN
        ORG     001BH
T0INT:  PUSH    PSW
        MOV     TL1,TTL
        MOV     TH1,TTH
        SETB    00H
        DJNZ    CISHU,T0INTE
        MOV     CISHU,#100
        SETB    01H
T0INTE: POP     PSW
        RETI

MAIN:   LCALL   CSHIH         ;初始化
LP1:    LCALL   YIMA          ;译码
        LCALL   LED4W         ;显示
        LCALL   SUANSH        ;计算时间
        CLR     00H
        JNB     00H,$
        SJMP    LP1

SUANSH: JNB     01H,SUANSE
        CLR     01H
        SETB    02H
        INC     MIAO
        MOV     A,MIAO
        CJNE    A,#60,SUANSE
        MOV     MIAO,#0
        INC     FEN
        MOV     A,FEN
        CJNE    A,#60,SUANSE
        MOV     FEN,#0
        INC     SHI
        MOV     A,SHI
        CJNE    A,#24,SUANSE
        MOV     SHI,#0
        INC     DAY
        MOV     A,DAY
        CJNE    A,#32,SUANSE
        MOV     DAY,#1
        INC     YUE
        MOV     A,YUE
        CJNE    A,#13,SUANSE
        MOV     YUE,#1
        INC     NIAN
SUANSE: RET

LED4W:  MOV     A,XWEI
        MOV     B,#3
        MUL     AB
        MOV     DPTR,#LED4T
        JMP     @A+DPTR
LED4T:  LJMP    LD4W1
        LJMP    LD4W2
        LJMP    LD4W3
        LJMP    LD4W4
LD4W1:  MOV     LEDD,MLED1
        MOV     A,#1
        ANL     A,SHAN
        MOV     LEDW,A
        INC     XWEI
        SJMP    LED4WE
LD4W2:  MOV     LEDD,MLED2
        MOV     A,#2
        ANL     A,SHAN
        MOV     LEDW,A
        INC     XWEI
        SJMP    LED4WE
LD4W3:  MOV     LEDD,MLED3
        MOV     A,#4
        ANL     A,SHAN
        MOV     LEDW,A
        INC     XWEI
        SJMP    LED4WE
LD4W4:  MOV     LEDD,MLED4
        MOV     A,#8
        ANL     A,SHAN
        MOV     LEDW,A
        MOV     XWEI,#0
LED4WE: RET

YIMA:   JNB     02H,YIMAE1
        CLR     02H
        MOV     A,XYE
        MOV     B,#3
        MUL     AB
        MOV     DPTR,#YIMAB
        JMP     @A+DPTR
YIMAB:  LJMP    XYE0       ;显秒
        LJMP    XYE1       ;显时分
        LJMP    XYE2       ;显月日
        LJMP    XYE3       ;显年
YIMAE1: LJMP    YIMAE
XYE0:   MOV     A,MIAO
        MOV     B,#10
        DIV     AB
        MOV     BLED1,B
        MOV     BLED2,A
        MOV     BLED3,#13H
        MOV     BLED4,#10H
        LJMP    YIMAA
XYE1:   MOV     A,FEN
        MOV     B,#10
        DIV     AB
        MOV     BLED1,B
        MOV     BLED2,A
        MOV     A,SHI
        MOV     B,#10
        DIV     AB
        MOV     BLED3,B
        MOV     BLED4,A
        LJMP    YIMAA
XYE2:   MOV     A,DAY
        MOV     B,#10
        DIV     AB
        MOV     BLED1,B
        MOV     BLED2,A
        MOV     A,YUE
        MOV     B,#10
        DIV     AB
        MOV     BLED3,B
        MOV     BLED4,A
        LJMP    YIMAA
XYE3:   MOV     A,NIAN
        MOV     B,#100
        DIV     AB
        MOV     BLED3,A
        MOV     A,B
        MOV     B,#10
        DIV     AB
        MOV     BLED1,B
        MOV     BLED2,A
        MOV     BLED4,#2
YIMAA:  MOV     R0,#BLED1     ;四位LED
        MOV     R1,#MLED1
        MOV     R7,#4
        MOV     DPTR,#YIMTAB
YIMAA1: MOV     A,@R0
        MOVC    A,@A+DPTR
        MOV     @R1,A
        INC     R0
        INC     R1
        DJNZ    R7,YIMAA1
YIMAE:  RET
YIMTAB: DB      3FH,06H,5BH,4FH         ;0,1,2,3
        DB      66H,6DH,7DH,07H         ;4,5,6,7
        DB      7FH,6FH,77H,7CH         ;8,9,A,B
        DB      39H,5EH,79H,71H         ;C,D,E,F
        DB      00H,0F3H,76H,80H,40H    ; ,P,H,.,-

CSHIH:  MOV     SHAN,#0FFH
        MOV     XWEI,#0
        MOV     SP,#70H
        MOV     BIAOZ,#00000110B
        MOV     LEDD,#0
        MOV     LEDW,#0
        MOV     XYE,#0
        MOV     CISHU,#100      ;1s=10ms*100
        MOV     NIAN,#7         ;2007.11.09
        MOV     YUE,#11
        MOV     DAY,#9
        MOV     SHI,#14         ;14:30:00
        MOV     FEN,#30
        MOV     MIAO,#0
        MOV     TMOD,#10H       ;T0方式1
        MOV     TTH,#0D8H       ;10MS
        MOV     TTL,#0F0H
        MOV     TL1,TTL
        MOV     TH1,TTH
        SETB    ET1
        SETB    EA
        SETB    TR1
        RET
        END