' i2cdetect like program

' Set Pins!
SetPin gp0, gp1, I2C

' Open first I2C
I2C open 100, 200


' Prep table
Print "     0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"

' loop col/row
For y=0 To 7
Print Hex$(y,2);": ";
For x=0 To 15
 addr = y*16+x               ' calc address
 I2C write addr, 0, 1, &H00  ' write zero to that address
 If MM.I2C=0 Then            ' check for errors
   Print Hex$(addr,2);" ";   ' found one!
Else
  Print "-- ";               ' nothing here..
EndIf
Next x
Print
Next y

' i2cdetect like program

' Set Pins!
' SetPin gp0, gp1, I2C

' Open first I2C
' I2C open 100, 200

Print "PicoMite System I2C or I2C2 Address Scanner "
Dim integer x, y, addr, device, found
' Prep table
Print "     0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
' loop col/row
For y=0 To 7
 Print Hex$(y,2);": ";
 For x=0 To 15
   addr = y*16+x               ' calc address
   On error skip 2
   I2C write addr, 0, 1, &H00  ' write zero to that adress
   I2C2 write addr, 0, 1, &H00  'write zero to that adress
   If MM.I2C=0 Then            ' check for errors
   Print Hex$(addr,2);" ";     ' found one!
   Dev.addr=addr
   Inc found
  Else
   Print "-- ";               ' nothing here..
  EndIf
 Next x
 'Add any new devices to this list
 Select Case Dev.addr
  Case &H68 :Print "RTC DS3232, DS1307 etc";
  Case &H50 To &H57 :Print "24Cxx EEPROM";
  Case &H3C :Print "LCD SSD1306";
  Case &H38,  &H39 :Print "AHT10 humid & temp";
  Case &H29 :Print "VL53LOX laser distance";
  Case &H20 :Print "MPC23017 port expander";
 End Select
 Dev.addr=0
 Print
Next y
Print
Print "Found "found" devices. If more than one on a line only the last is named."
End

Dim integer x, y, addr, device, found

Dim integer x, y, addr, dev.addr, found

'  "PicoMite I2C 1&2 and System Address Scanner v6.bas"
Print :Print "PicoMite SystemI2C or I2C or I2C2 Address Scanner ":Print
Dim integer channel, addr, found, vacant, SDA, SCL
Dim string I2Csda$, I2Cscl$, I2Cch$
Print "Check if SYSTEM I2C has been set. Note the GP numbers":Print
Option List

 Print :Print "Type SDA pin GP number (even numbers starting with 0)"
 Print :Print "Or type both SDA and, SCL pin GP numbers (SDA, SCL)":Print
 Do
  Input "Omit GP, just the number(s):- ", SDA, SCL

  If SDA Mod 2 = 0 Then
    If sda Mod 4 = 0 Then channel = 1
    If channel Then I2Cch$ = "I2C - the first I2C channel" Else I2Cch$ = "I2C2 - the second I2C channel"
    addr = 1
    Print :Print "You are using ";I2Cch$ :Print
   Else
    Print :Print "Not a valid SDA pin, try again"
  EndIf
 Loop Until addr = 1

 Do
  If scl=0 Then
    Print "Choose SCL pin from these GP numbers"
    If channel Then
      Print "1,  5,  9, 13,  17,  21"
     Else
      Print "3,  7,  11,  15,  19,  27"
    EndIf

    Print :Print "Type SCL pin"
    Input "Omit GP, just the number:- ", scl
  EndIf

  If (SCL-2*(1-channel)) Mod 4 = 1 Then
    addr = 0
   Else
    scl = 0
    Print :Print "Not a valid SCL pin, try again"
  EndIf

 Loop Until addr = 0

 Print :Print "SDA pin = GP";SDA; " and SCL pin = GP";SCL

 On error skip 2
 SDA=MM.Info(pinno "GP"+Str$(SDA))
 SCL=MM.Info(pinno "GP"+Str$(SCL))
 Print "SDA = Pico pin";SDA; " and SCL = Pico pin";SCL :Print

 Print "start ";Left$(I2Cch$,4);" scan":Print
 If channel Then
   On error skip 2
   SetPin SDA,SCL,I2C
   I2C open 100,500
  Else
   On error skip 2
   SetPin SDA,SCL,I2C2
   I2C2 open 100,500
  EndIf
  For addr = 0 To 127
   On error skip
   If channel Then I2C write addr, 0, 1, 0 Else I2C2 write addr, 0, 1, 0
   ' write zero to that adress

   If Not MM.I2C Then              ' check for errors
     Inc found
     Print :Print :Print "&h"Hex$(addr,2),       ' found one!
     'Add any new devices to this list
     Select Case addr
      Case &H20 :Print "MPC23017 port expander ";
      Case &H29 :Print "VL53LOX laser distance ";
      Case &H38, &H39 :Print "AHT10 humid & temp ";
      Case &H3C :Print "LCD SSD1306 ";
      Case &H50 To &H57 :Print "24Cxx EEPROM ";
      Case &H68 :Print "RTC DS3232, DS1307, M41T11 ";
      Case &HA2 :Print "RTC PCF8563 ";

      Case Else :Print "unknown device ";
     End Select

     Print "@ &h"Hex$(addr,2) " ("Str$(addr)" decimal)"
     vacant = 0
    Else
     Print ".";
     Inc vacant
     If vacant Mod 32 = 0 Then Print
  EndIf

 Next addr
 Print :Print :Print "Found"found" devices ('.' = vacant address)" : Print

End

> 'SDA pin = GP 4 and SCL pin = GP 5 on channel 1
> setpin gp4,gp5,I2C : I2C open 100,200
> for addr=0 to 127: I2C write addr,0,1,0:If not MM.I2C Then :?addr,"&h"hex$(addr):endif:next
81     &h51
87     &h57
> 'Using System I2C on channel 2
> for addr=0 to 127: I2C2 write addr,0,1,0:If not MM.I2C Then :?addr,"&h"hex$(addr):endif:next
41     &h29
56     &h38
83     &h53
104    &h68
>