New PBP user

[J. Mark Wolf]

I'm a new PBP user and am porting a large program from another basic compiler.

In PBP I'm not clear as to how to fill a numeric array, then later refer to it specifically in OWOUT commands.

The code below is how it is done in the previous compiler

Sensor0 bytetable $28,$9e,$50,$1b,$00,$00,$00,$85 'DS18B20 ID code
OWOUT w1,1,[MatchROM,STR Sensor0\8,ReadScratch] 'send ID code

Can someone on the forum please jot down the equivalent PBP code here?

TIA

[crematory]

Hello

[quote]
SensorID VAR BYTE[8] 'DS18B20 ID array

' DS18B20 ID intialization
SensorID[0] = $28
SensorID[1] = $9E
\/
\/
\/
SensorID[7] = $85

For the OWOUT command, you better read about it in the manual....

bye

[J. Mark Wolf]

So then, a FOR/NEXT loop and a LOOKUP table is the most practical way to do this PBP?

for i = 1 to
LOOKUP 1, [$28,$9e,$50,$1b,$00,$00,$00,$85], sensor0
next i

[crematory]

your option is time consuming while looking for that value...

[J. Mark Wolf]

I'm not looking for a value, I'm just trying to load the array, so that I can subsequently refer to in my OWOUT command ("Sensor\8" indicated below).

OWOUT w1,1,[MatchROM,STR Sensor0\8,ReadScratch] 'send ID code

[J. Mark Wolf]

I am finally able to fill my string array but it is UGLY! The following code works, but it barks!

for x = 0 to 3
lookup x,["0",".","0","0"],y
RevLevString(x) = y 'load string array with "0.00"
next x
'
for x = 0 to 19
lookup x,["O","C","T"," ","2","5",","," ","2","0","0","5"," ","9",":","2","5","p","m"," "],y
RevDateString(x) = y 'load str array with "OCT 25, 2005 9:25pm"
next x

A competing product accomplishes the same thing as follows:

RevLevString bytetable "0.96"
RevDateString bytetable "OCT 01, 2005 7:25pm "

Is there a more elegant way to fill a string array in PBP?