Sub Le_Eeprom ( pStart As UInt, pMax As UInt ) As Byte()
Dim i, xCnt, ate As UInt
Dim xTemp As String
i = pStart
xCnt = 0
ate = i + pMax
Do While i < ate
xTemp = bc.HexFromBytes (eeprom.ReadBytes ( i,1) )
Log ( xTemp)
If xTemp <> "00" Then
xCnt = xCnt + 1
Else
i = ate + 1
End If
i = i + 1
Loop
Dim xResp() As Byte = eeprom.ReadBytes(pStart,xCnt+1)
Log ( xCnt )
Return xResp
End Sub