led4w.asm

当今单片机厂商琳琅满目

        LJMP    MAIN
        ORG     000BH
        LJMP    T0INT
MAIN:   LCALL   CSHIH         ;初始化
LP1:    LCALL   JISUAN        ;计算
        LCALL   YIMA          ;译码
        LCALL   LED4W         ;显示
        CLR     00H
        JNB     00H,$
        SJMP    LP1

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
JISUAN:
        RET
YIMA:   MOV     R0,#BLED1     ;四位LED
        MOV     R1,#MLED1
        MOV     R7,#4
        MOV     DPTR,#YIMTAB
YIMA1:  MOV     A,@R0
        MOVC    A,@A+DPTR
        MOV     @R1,A
        INC     R0
        INC     R1
        DJNZ    R7,YIMA1
        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     LEDD,#0
        MOV     LEDW,#0
        MOV     TMOD,#1         ;T0方式1
        MOV     TTH0,#0D8H      ;10MS
        MOV     TTL0,#0F0H
        MOV     TL0,TTL0
        MOV     TH0,TTH0
        SETB    ET0
        SETB    EA
        SETB    TR0
        MOV     BLED1,#1
        MOV     BLED2,#2
        MOV     BLED3,#3
        MOV     BLED4,#4
        RET

T0INT:  MOV     TL0,TTL0
        MOV     TH0,TTH0
        SETB    00H
        RETI

BIAOZ   DATA    20H     ;标志:.0定时到。

XWEI    DATA    60H     ;显示位,4位:0~3
SHAN    DATA    61H     ;闪耀位,对应位=0灭,=1亮
TTL0    DATA    62H
TTH0    DATA    63H

LED1    DATA    70H     ;显示数据HEX
LED2    DATA    71H
LED3    DATA    72H
LED4    DATA    73H
BLED1   DATA    74H     ;显示数据BCD
BLED2   DATA    75H
BLED3   DATA    76H
BLED4   DATA    77H
MLED1   DATA    78H     ;显示数据译码
MLED2   DATA    79H
MLED3   DATA    7AH
MLED4   DATA    7BH

LEDD    EQU     P0      ;数码管段
LEDW    EQU     P1      ;数码管位
        END