code conversion

[Jerson]

Some observations

1 - the VB code is reading 4 hex characters from locations (x*5 + 1) at a time. This is assuming VB is set to "option base 1"
so, for index 1 it reads from 6, for index 2 it reads from 11 etc
Your PB code is not doing that

2 - the VB code is expecting HEX characters and converts them to a value using the val("&H" ......) operation.
Your PB code is treating the values in the EEPROM as proper word values which they are not

[dj.lambert]

Hi Jerson

thanks for the reply

the 1st point i have removed the lines for that and forgot to put them back in (i removed them to make it a bit simpler to follow).

the second point is i think where the problem with the conversion is occurring.
i get compile errors if i try to force the variables to hex.

dj.lambert

[Jerson]

Hi Dj

You do not need to force the values to Hex, instead you need to convert the HEX values to word. Since PBP does not support a function like VB does, you need to build this code. A simple routine to convert a hex character to byte would be

' expects a HEX character with capitalized A-F values
Hex2Bin:
    Hexchar = Hexchar - "0"          ' remove the value of ascii 0 (30H)
    if Hexchar > 9 then  Hexchar = Hexchar - 7   ' convert A-F to 0a-0Fh
    return

Now, you would do this 4 times once for each nibble in the word you are converting and get your Hex word like this

   WordVal = 0                              ' start with a val of 0
   read a hex character to HexChar
  gosub Hex2Bin
  WordVal = WordVal * 16 + HexChar
   read a hex character to HexChar
  gosub Hex2Bin
  WordVal = WordVal * 16 + HexChar
   read a hex character to HexChar
  gosub Hex2Bin
  WordVal = WordVal * 16 + HexChar
   read a hex character to HexChar
  gosub Hex2Bin
  WordVal = WordVal * 16 + HexChar

Now, WordVal would contain the 16 bit representation of the 4 character Hex String