dim twi as TwiMaster
twi= yoyo.OpenTwiMaster(0, twi.RATE_1MHz, False) 'pins 4,5
Dim readbyte() As Byte
Dim writebyte() As Byte
readbyte = Array As Byte (0,0)
writebyte = Array As Byte (0)
Dim result As Boolean
'this is the register we want to read
writebyte(0)=170
'119 is the chip address
'write 1 byte register address
'read 2 byte output from register
result=twi.WriteRead("119",False,writebyte,1,readbyte,2) 'eprom address,7bit,register,result bytes)
'write 2 bytes, read 2 bytes
writebyte(0)=244 'register address 0xf4
writebyte(1)=46 'request type 0x2e
result=Main.twi.WriteRead("119",False,writebyte,2,readbyte,2)