Private Sub ic_Read(pin As UInt) As Boolean
Dim pinstatus As Int
ic.WriteTo(0x24, Array As Byte(0x00))
Dim result() As Byte = ic.RequestFrom(0x24, 1)
If result.Length = 0 Then
Return False
Else
pinstatus= Bit.Get(result(0),pin)
Log(pinstatus)
If pinstatus=0 Then
Return False
Else
Return True
End If
End If
End Sub
Private Sub ic_Write(pin As UInt,pinstate As Boolean)
'ic.WriteTo(0x24, Array As Byte(0x00))
Dim result() As Byte = ic.RequestFrom(0x24, 1)
If pinstate =True Then
Bit.Clear(result(0),pin)
ic.WriteTo(0x24, Array As Byte(0x00,result(0)))
Else
Bit.Set(result(0),pin)
ic.WriteTo(0x24, Array As Byte(0x00,result(0)))
End If
End Sub