ds1302

[tcpipchip]

Aqui tenho uma rotina que fiz em BASIC+ASSEMBLY 8051....funciona 100%

Código: Selecionar todos

Rem ******************************************************
Rem * Esta rotina le o RELOGIO
Rem * Parametros: posicao e endereço device
Rem * Retorna: em dat
Rem ******************************************************
Sub Read_mem_ds_2(position As Byte)
    Dat = 0
    Reset Rst_ht1380
    NOP
    Reset Clk_ht1380
    NOP
    Set Rst_ht1380
    nop

    For Loop_o = 0 To 7
      Reset Io_ht1380
      NOP
      If Position.0 = 1 Then
        Set Io_ht1380
        NOP
      End If
      Reset Clk_ht1380
      NOP
      Set Clk_ht1380
      NOP
      Rotate Position , Right , 1
    Next

    Set Io_ht1380                                             'CONFIGURA COMO ENTRADA

    For Loop_o = 0 To 7
      Set Clk_ht1380
      NOP
      Reset Clk_ht1380
      NOP

      MOV C,Io_ht1380
      MOV A,{Dat_temp}
      RLC A
      MOV {Dat_temp},A
      RL A
      RL A
      RL A
      RL A
      RL A
      RL A
      RL A
      MOV {DAT_TEMP},A
      MOV A,{DAT}
      RR A
      MOV {DAT},A
      ORL A,{DAT_TEMP}
      MOV {DAT},A
      Reset Clk_ht1380
      NOP
      Set Clk_ht1380
      NOP
    Next
    Reset Rst_ht1380
    nop
End Sub