'name                     : I2C-multibus.bas
'copyright                : (c) 1995-2016, MCS Electronics
'purpose                  : demonstrates I2C multibus library
'micro                    : Mega88
'suited for demo          : no, lib not included in demo
'commercial addon needed  : no
'----------
$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 24
$framesize = 24

Config I2cbus = 0 , Scl = Portc.0 , Sda = Portc.1           'each bus requires a configuration of the SCL and SDA pins
Config I2cbus = 1 , Scl = Portc.2 , Sda = Portc.3           'this sample creates 4 busses
Config I2cbus = 2 , Scl = Portd.2 , Sda = Portd.3
Config I2cbus = 3 , Scl = Portd.4 , Sda = Portd.5

Dim J As Byte

For J = 0 To 3                                              'the first bus is 0 !!!
 I2cbus = J                                                 'select the BUS
I2cinit                                                     'init the pins and state
Next

Do
For J = 0 To 3
   I2cbus = J                                               'select the bus
  I2csend &H40 , &B01010101                                 'send some data
Next
Waitms 100
Loop

End

Do
          1wreset
          If Err = 1 Then
          Cls
          Lcd "Err"
Do
Loop
Else
            1wwrite &HCC
            1wwrite &H44
            Waitms 750
            1wreset
            1wwrite &HCC
            1wwrite &HBE
            A = 1wread()
            B = 1wread()
            If A > 248 Then
            A = &HFF - A
            B = &HFF - B
            E = 2
Else
            E = 1
            End If
            C = A / 16
            D = B * 16
            C = C + D
            If E = 2 Then C = C + 1
            If E = 1 And C = 0 Then E = 0
            Cls
            Lcd "V O D A= "
            If E = 0 Then Lcd " " ; C ; "'" ; "C"
            If E = 1 Then Lcd "+" ; C ; "'" ; "C"
            If E = 2 Then Lcd "-" ; C ; "'" ; "C"
End If

         If C <= 27 Then       ' разМЫКАЕТ 2 И 3 контакт сверху реле     . зеленый диод на реле ГОРИТ.              это для ВыкЛЮЧЕНИЯ вентиляторов.

          Reset Out_1
          Locate 2 , 1
           Lcd "C O O L E R  O F F"
          End If


           If C > 27 Then            ' в ином случае Замыкает 2 и 3 контакт сверху реле . зеленый диод на реле НЕ горит.   это для ВКЛЮЧЕНИЯ вентиляторов.
          Set Out_1
           Locate 2 , 1
           Lcd "C O O L E R  O N"

            End If