红外遥控LED电子钟的制作

RIGHT3: CLR    10H
        SETB    11H
        RET
RIGHT4: CLR    11H
        SETB    0EH
        RET
;--------------------------------LEFT-----------------------
LEFT:  JB      0EH,LEFT1
        JB      0FH,LEFT2
        JB      10H,LEFT3
        JB      11H,LEFT4
        RET                      ;左移
LEFT1:  SETB    11H
        CLR    0EH
        RET
LEFT2:  SETB    0EH
        CLR    0FH
        RET
LEFT3:  SETB    0FH
        CLR    10H
        RET
LEFT4:  SETB    10H
        CLR    11H
        RET
;------------------------------MUTE--------------
MUTE:  setb    k_ON
        CPL    06H              ;静音
        CLR    08H
        RET
;-----------------------------DISPLAY OFF--------
DIS_OFF:CLR    ET1
        CPL    05H
        JNB    05H,REDORE
        SETB    ET1
REDORE: RET
;------------------------------------初始化1302-------------------------
SET1302: CLR    RST          ;2002年1月1日12:00:00
        CLR    LED3CLK
        MOV    SECOND,#0
        MOV    61H,#0
        MOV    62H,#18      ;
        MOV    63H,#1
        MOV    64H,#1
        MOV    65H,#1
        MOV    66H,#2
        SETB  RST
        MOV    A,#8EH
        LCALL  R_BIT
        MOV    A,#00H
        LCALL  R_BIT
        SETB  LED3CLK
        CLR    RST

        MOV    R0,#SECOND
        MOV    R7,#7
        MOV    R1,#80H
SET1302A:CLR    RST
        CLR    LED3CLK
        SETB  RST
        MOV    A,R1
        LCALL  R_BIT
        MOV    A,@R0
        LCALL  R_BIT
        INC    R0
        INC    R1
        INC    R1
        SETB  LED3CLK
        CLR    RST
        DJNZ  R7,SET1302A
        CLR    RST
        CLR    LED3CLK

        sETB  LED3CLK
        nop
        CLR    RST
        nop
        clr    led3clk
        SETB  RST
        MOV    A,#90H
        LCALL  R_BIT
        MOV    A,#10100101B        ;充电器设置
        LCALL  R_BIT
        SETB  LED3CLK
        CLR    RST
        CLR    LED3CLK

        SETB  RST
        MOV    A,#8EH
        LCALL  R_BIT
        MOV    A,#80H
        LCALL  R_BIT
        SETB  LED3CLK
        CLR    RST
        RET
;----------------------读取一RAM ------
T_6061:  CLR    RST
        CLR    LED3CLK
        SETB  RST
        MOV    A,R1
        LCALL  R_BIT
        LCALL  W_BIT
        SETB  LED3CLK
        CLR    RST
        RET
;-----------------------------
R_1302:  MOV    R0,#SECOND
        MOV    R7,#7
        MOV    R1,#81H
R_1302A: CLR    RST
        CLR    LED3CLK
        SETB  RST
        MOV    A,R1
        LCALL  R_BIT
        LCALL  W_BIT
        MOV    @R0,A
        INC    R0
        INC    R1
        INC    R1
        SETB  LED3CLK
        CLR    RST
        DJNZ  R7,R_1302A
        RET
;------------------R_BIT------------------
R_BIT:  MOV    R4,#8
R_BIT1:  RRC    A
        MOV    LED4IO,C
        SETB  LED3CLK
        CLR    LED3CLK
        DJNZ  R4,R_BIT1
        RET
;-------------------W_BIT-----------------------
W_BIT:  MOV    R4,#8
W_BIT1:  MOV    C,LED4IO
        RRC    A
        SETB  LED3CLK
        CLR    LED3CLK
        DJNZ  R4,W_BIT1
        RET
;--------------------------------------------------
BCD_HEX:
        MOV    A,6FH
        ANL    A,#0FH
        MOV    B,A
        MOV    A,6FH
        MOV    6FH,B
        SWAP  A
        ANL    A,#0FH
        MOV    B,#0AH
        MUL    AB
        ADD    A,6FH
        ;MOV    6FH,A
        RET

上一页  [1] [2] [3] [4] [5] [6]  下一页

本文关键字：制作  电子钟  时钟-定时电路，电子制作 - 时钟-定时电路