时钟芯片DS1302 的程序（汇编）

          SETB   T_RST
          MOV    B,     #8EH        ;控制寄存器
          LCALL  RTInputByte  
          MOV    B,     #80H        ;控制,WP=1,写保护
          LCALL  RTInputByte  
          SETB   T_CLK
          CLR    T_RST
          RET
;**********************************************************
;子程序名：Get1302
;功    能：从DS1302 读时间
;说    明：
;调    用：RTInputByte,RTOutputByte
;入口参数：时间保存在:Second,Minute,Hour,Day,Month,Week.YearL
;出口参数：无
;影响资源：A B R0 R1 R4 R7
;设    计：zhaojunjie           日    期：2002-03-19
;修    改：                     日    期：
;**********************************************************
Get1302:      
          MOV    R0,    #Second;
          MOV    R7,    #7
          MOV    R1,    #81H       ;秒地址
G13021:   CLR    T_RST
          CLR    T_CLK
          SETB   T_RST
          MOV    B,     R1        ;秒 分 时 日 月 星期 年 地址
          LCALL  RTInputByte  
          LCALL  RTOutputByte
          MOV    @R0,   A         ;秒
          INC    R0
          INC    R1
          INC    R1
          SETB   T_CLK
          CLR    T_RST
          DJNZ   R7,    G13021
          RET
;**********************************************************
;功    能：写1302一字节  （内部子程序）
;**********************************************************
RTInputByte:  
          MOV    R4,    #8
Inbit1:   MOV    A,     B
          RRC    A
          MOV    B,     A
          MOV    T_IO,  C
          SETB   T_CLK
          CLR    T_CLK
          DJNZ   R4,   Inbit1
          RET
;**********************************************************
;功    能：读1302一字节  （内部子程序）
;**********************************************************
RTOutputByte:
          MOV    R4,    #8
Outbit1:  MOV    C,     T_IO
1.部分资源来自网络,经ET电子归类整理,旨在服务电子爱好者并无商业目的,不保证正确性与完整性.
2.如果您觉得本站资源对您有用,请告知您的好友,用搜索引擎搜"ET电子"即可.