Android Question BLE2. Transfer stops after sending 600 bytes.

    Public SaveDeviceId As String 
    Public SaveServiceId As String
    Public SaveCharacteristicId As String
    Public ServiceIdStartsWith As String  = "0000fff0"
    Public CharacteristicIdStartsWith_1 As String = "0000fff1"
    Public CharacteristicIdStartsWith_2 As String = "0000fff2"

Sub BleMan_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
    Log("DeviceFound = " & Id.Trim & " " & Name.Trim & " " & RSSI)
    If SaveDeviceId = "" Then    'if we haven't yet found the device we're looking for
        If Name="FSC-BT616" Then
            BleMan.StopScan
            Sleep(500)
            SaveDeviceId = Id
            BleMan.Connect2(SaveDeviceId, False)
        End If
    End If
End Sub

Sub BleMan_Connected (Services As List)
    Log("Connected")
    Sleep(500)
    For Each SS As String In Services
        Log("Service = " & SS)
        If SaveServiceId = "" Then    'if we haven't yet found the service we're looking for
            If SS.StartsWIth(ServiceIdStartsWith) Then
                SaveServiceId = SS    'then save it
                BleMan.ReadData(SaveServiceId)    'and read it
            End If
        End If
    Next
End Sub

Sub BleMan_DataAvailable (ServiceId As String, Characteristics As Map)
    For Each C As String In Characteristics.Keys
        Dim V() As Byte = Characteristics.Get(C)
        If SaveCharacteristicId = "" Then
            If ServiceId = SaveServiceId Then
                If C.StartsWith(CharacteristicIdStartsWith_1) Then
                    BleMan.SetIndication(SaveServiceId, C, True)
                else if C.StartsWith(CharacteristicIdStartsWith_2) Then
                    SaveCharacteristicId = C
                End If
            End If
        End If
    Next
End Sub

    For i=0 To 10000
        Sleep(500)
        BleMan.WriteData(SaveServiceId,SaveCharacteristicId,Array As Byte(0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07))
    Next