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