[?] libmpsse.dll, Fehler bei SPI-Lesen

[Thomas P. (topla)]

Moin zusammen,

ich habe hier einen SPI-EEPROM 95640, der für die Parametrierung eines 
anderen Controllers genutzt wird und bisher über einen Galep-4 seine 
Daten bekommen hat. Nun möchte ich das Umstellen und das vorhandene 
PC-Programm soll die Daten über einen Adapter mit FT2232D von B. 
Redemann auf den EEPROM schreiben/lesen. Dazu nutze ich ein 
vb.net_programm mit libmpsse.dll.
Die Initialisierung sieht so aus:

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles USB_Start.Click
    ' Start Test
    Dim deviceCount As UInteger = 0

    USBlog.Items.Clear()

    Init_libMPSSE()

    SPI_GetNumChannels(deviceCount)
    Dim deviceList As New FT_DEVICE_LIST_INFO_NODE

    If (deviceCount > 0) Then
        For i As UInteger = 0 To deviceCount - 1
            fT_STATUS = SPI_GetChannelInfo(i, deviceList)

            If fT_STATUS = FT_OK Then
                USBlog.Items.Add("Kanal #" & i)
                USBlog.Items.Add("  Beschreibung   : " & deviceList.Description)
                USBlog.Items.Add("  Seriennummer   : " & deviceList.SerialNumber)
                USBlog.Items.Add("  Typ            : " & deviceList.Type)
                USBlog.Items.Add("  Flags          : " & deviceList.Flags)
                USBlog.Items.Add("  Location ID    : " & deviceList.LocId)
                USBlog.Items.Add(" ")
                If (((deviceList.Type = 4) Or (deviceList.Type = 6)) And myChannel = 0) Then
                    myChannel = i ' channel A des ersten gefundenen Devices
                    myLocId = deviceList.LocId
                    mySerNum = deviceList.SerialNumber
                End If
            Else
                USBlog.Items.Add("Fehler beim Abrufen von Kanalinformationen für Kanal " & i & ". Status: " & fT_STATUS)
            End If
        Next
    Else
        USBlog.Items.Add("Es wurde kein geeignetes USB-Device gefunden!")
    End If

    ' jetzt SPI-Kanal öffnen
    fT_STATUS = SPI_OpenChannel(myChannel, fthandle)    ' hier wird fthandle gesetzt
    If (fT_STATUS = (FTDI.FT_STATUS.FT_OK)) Then
        USBlog.Items.Add("Device " & myLocId.ToString("X") & " " & fT_STATUS & " erfolgreich geöffnet.")
    Else
        USBlog.Items.Add("Device " & myLocId.ToString("X") & " " & fT_STATUS & " konnte nicht geöffnet werden!")
    End If

    Dim ftconfig As New ChannelConfig With {
        .ClockRate = 1000000,         ' 1 MHz
        .LatencyTimer = 2,
        .configOptions = &H0,  ' SPI Mode 0 + CS active low, MPSSE-Standardbelegung
        .Pin = &HB  ' kann auch 0 statt &HB bleiben, hat im MPSSE-Modus keine Wirkung
    }
    ' SPI-Kanal initialisieren
    fT_STATUS = SPI_InitChannel(fthandle, ftconfig)
    If (fT_STATUS = (FTDI.FT_STATUS.FT_OK)) Then
        USBlog.Items.Add("Device " & myLocId.ToString("X") & " " & fT_STATUS & " SPI-Parameter gesetzt.")
    Else
        USBlog.Items.Add("Device " & myLocId.ToString("X") & " " & fT_STATUS & " SPI-Parameter konnten nicht gesetzt werden!")
    End If
    'SPI_ChangeCS(fthandle, &H20)    ' CS active high
    'SPI_ChangeCS(fthandle, &H0)    ' CS active low
End Sub

Anschließend kommt der Leseversuch mit:

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles EEPROM_lesen.Click
    ' eeprom lesen
    ' als Dokumentation:
    ' Const SPI_TRANSFER_OPTIONS_SIZE_IN_BYTES = &H0 ' Transfer Size in Byte (&H1 in Bits)
    ' Const SPI_TRANSFER_OPTIONS_CHIPSELECT_ENABLE = &H2 ' CS wird vor der Operation gesetzt
    ' Const SPI_TRANSFER_OPTIONS_CHIPSELECT_DISABLE = &H4 ' CS wird nach der Operation zurückgenommen

    USBlog.Items.Add("EEPROM-Daten lesen.")

    Dim SpiWriteBuffer As Byte() = New Byte(32) {}  ' eeprom Schreibpuffer
    Dim i As Integer

    ' kompletten eeprom einlesen
    Dim BytesRead As UInt32
    Dim cmd(2) As Byte
    ' READ Befehl vorbereiten
    cmd(0) = &H3              ' READ
    cmd(1) = &H0              ' Address High
    cmd(2) = &H0              ' Address Low
    'SPI_ChangeCS(fthandle, &H0)    ' CS active low

    ' READ Command + Adresse senden
    fT_STATUS = SPI_Write(fthandle, cmd, 3, BytesRead, &H2)
    If fT_STATUS <> FTDI.FT_STATUS.FT_OK Then
        USBlog.Items.Add("EEPROM READ Command fehlgeschlagen!")
        Exit Sub
    End If

    ' Lesen vom EEPROM
    fT_STATUS = SPI_Read(fthandle, eeprom_buffer, 2048, BytesRead, 4)

    If fT_STATUS = FTDI.FT_STATUS.FT_OK Then
        USBlog.Items.Add("EEPROM erfolgreich gelesen: " & BytesRead & " Bytes")
    Else
        USBlog.Items.Add("EEPROM Lesen fehlgeschlagen!")
    End If

    Dim check As Integer = 0
    For i = 0 To 2047
        If eeprom_buffer(i) = &HFF Then check += 1
    Next
End Sub

Das Ganze funktioniert ohne Fehlermeldungen, allerdings gehen die 
Lesezugriffe schief, es wird nur 0xFF gelesen.
Eine Analyse mit dem LA ergab, dass sich CS invers verhält, also 
high-aktiv ist. Die Hardware ist ok, alle Verbindungen geprüft und 
zumindest CS, MOSI und CLK mit dem LA gecheckt.
Trotz intensivem Draufschauen (kann man schon glotzen nennen) finde ich 
den Fehler im Programm nicht. Auch das Umstellen von low-aktiv auf 
high-aktiv habe ich erfolglos versucht. Kann da bitte mal Jemand mit 
mehr Erfahrung drüberschauen?
Wenn garnichts hilft, dann löte ich einen Inverter zwischen FT2232D und 
EEPROM, aber mit Sicherheit habe ich hier einen ganz blöden Fehler 
eingebaut, mit FTs arbeiten doch viele und solche Probleme wären doch 
mal aufgetaucht.

Viele Grüße
Thomas