' --- биты чтения и записи ds1307 ---
Dim Seco As Byte , Mine As Byte , Hour As Byte , Weekday As Byte , Dat As Byte , Month As Byte , Year As Byte
Const Ds1307w = &HD0          ' бит записи
Const Ds1307r = &HD1          ' бит чтения

Config Clock = User           'Soft       ' User = DS1307
Config Date = Dmy , Separator = .

Config I2cdelay = 10
I2cinit
Gosub Getdatetime             ' Настройка DS1307


'==========================


Getdatetime:
   'Print "Запуск часов DS1307"
   ' ''---- Запуск часов DS1307 --- Для перестраховки, вдруг батарейку меняли и часы не работают...
   I2cstart : I2cwbyte Ds1307w : I2cwbyte 0
   I2cstart : I2cwbyte Ds1307r : I2crbyte Seco , Nack : I2cstop
   Seco = Seco And &B_0111_1111       ' Сброс Бита7  = Запуск тактового генератора часов

   Waitms 10                  ' обязательно для DS1307 !!!

   I2cstart : I2cwbyte Ds1307w
   I2cwbyte 0                 ' Адрес начала записи
   I2cwbyte Seco              ' запуск часов, если меняли батарейку
   I2cstop

   '   Mine = 29
   '   Hour = 14
   '   Dat = 5
   '   Month = 11
   '   Year = 14
   'Gosub Save_time                                                  ' Сохраним дату и время


   'I2cstart                                          ' Generate start code
   'I2cwbyte Ds1307w                                  ' send address
   'I2cwbyte 0                                        ' start address in 1307
   'I2cstart                                          ' Generate start code
   'I2cwbyte Ds1307r                                  ' send address
   'I2crbyte _sec , Ack
   'I2crbyte _min , Ack                               ' MINUTES
   'I2crbyte _hour , Ack                              ' Hours
   'I2crbyte Weekday , Ack                            ' Day of Week
   'I2crbyte _day , Ack                               ' Day of Month
   'I2crbyte _month , Ack                             ' Month of Year
   'I2crbyte _year , Nack                             ' Year
   'I2cstop
   ' _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
   ' _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return



' =============================================================================
Read_time:                    ' ---  узнаем время и дату  ---
   'Print "Read TIME"
   I2cstart
   I2cwbyte Ds1307w
   I2cwbyte 0

   I2cstart
   I2cwbyte Ds1307r
   I2crbyte Seco , Ack
   I2crbyte Mine , Ack
   I2crbyte Hour , Ack
   I2crbyte Weekday , Ack
   I2crbyte Dat , Ack
   I2crbyte Month , Ack
   I2crbyte Year , Nack
   I2cstop

   Seco = Makedec(seco)
   Mine = Makedec(mine)
   Hour = Makedec(hour)
   Dat = Makedec(dat)
   Month = Makedec(month)
   Year = Makedec(year)
   'Print Hour ; ":" ; Mine ; ":" ; Seco ; "    "
   'Print "20" ; Year ; "-" ; Month ; "-" ; Dat
Return


' =============================================================================
Save_time:                    ' Сохраним дату и время
   Mine = Makebcd(mine)       ' всё преобразуем в 2/10 код
   Hour = Makebcd(hour)
   Dat = Makebcd(dat)
   Month = Makebcd(month)
   Year = Makebcd(year)

   I2cstart
   I2cwbyte Ds1307w
   I2cwbyte 0                 ' Стартовый байт начала записи
   I2cwbyte 255               ' запуск часов, если меняли батарейку

   Waitms 10

   I2cstart
   I2cwbyte Ds1307w
   I2cwbyte 0                 ' Стартовый байт начала записи
   I2cwbyte 1                 ' Секунды всегда =0  - чтобы сбросить флаги и запустить питание от батарейки
   I2cwbyte Mine
   I2cwbyte Hour
   I2cwbyte 0
   I2cstop

   I2cstart
   I2cwbyte Ds1307w
   I2cwbyte 4                 ' Стартовый байт начала записи
   I2cwbyte Dat
   I2cwbyte Month
   I2cwbyte Year
   I2cstop
Return