Arrays calling Arrays

[MOUNTAIN747]

My project is to determine the %moisture content of grain in storage. I’m using 1-Wire DS2438 and Honeywell HIH-4000 RH sensors inside of the grain. I have a number of sensors on each string. All devices are working good using individual SN to address each device. I have ample RAM but I’m running out of CODE space. To reduce the program size I need to be able to use an array of some kind to be called by a variable residing in the routine to address each 1-Wire device in secession so I can loop through a single routine rather than have multiple routines. Instead of using:

OWOUT  DataPin, 1, [MatchRom,$26,$7A,$BA,$11,$01,$00,$00,$D8, ConvertV]

I would like to use:

OWOUT DataPin,1,[MatchRom,  OW_Loop_VAR  , ConvertV]

    OW_Loop_var   VAR   BYTE [8]
    OWbuffer1    VAR  BYTE[8]   ;SN first sensor
    OWbuffer1[0]= $26  
    OWbuffer1[1]= $7A
    OWbuffer1[2]= $BA
    OWbuffer1[3]= $11  
    OWbuffer1[4]= $01
    OWbuffer1[5]= $00
    OWbuffer1[6]= $00
    OWbuffer1[7]= $D8
    OWbuffer2    VAR  BYTE[8]   ;SN second sensor
    OWbuffer2[0]= $26  
    OWbuffer2[1]= $A7
    OWbuffer2[2]= $AB
    OWbuffer2[3]= $11
    OWbuffer2[4]= $10
    OWbuffer2[5]= $00
    OWbuffer2[6]= $00
    OWbuffer2[7]= $E8  
 
OW_Loop_var = OWbuffer1
GOSUB  OWroutine
OW_Loop_var = OWbuffer2
GOSUB  OWroutine

OWrutine:
OWOUT DataPin,1,[MatchRom,  OW_Loop_var , ConvertV]

It seems to me this would work.  As a test I tried:

OWOUT DataPin,1,[MatchRom, OWbuffer1, ConvertV]

But it doesn’t work and I can’t seem to figure out how to make this happen. I’ve been reading posts on strings, arrays, EXT, and everything else I could find but I’ve seen nothing that resembles what I’m trying to do. Assistance please.

[HenrikOlsson]

Hi,
I've never played with the 1-wire commands but according to the manual you should be able to use the STR modifier to send an array of bytes out. So, an educated guess is something like:

OWbuffer VAR BYTE[8]           ;Array for outgoing data
 
'Assign values for sensor 1 to the array.
OWbuffer[0]= $26 : OWbuffer[1]= $7A
OWbuffer[2]= $BA : OWbuffer[3]= $11 
OWbuffer[4]= $01 : OWbuffer[5]= $00
OWbuffer[6]= $00 : OWbuffer[7]= $D8
 
GOSUB OWRoutine    'Send it
 
'Assign values for sensor 2 to the array.
OWbuffer[0]= $26 : OWbuffer[1]= $A7
OWbuffer[2]= $AB : OWbuffer[3]= $11
OWbuffer[4]= $10 : OWbuffer[5]= $00
OWbuffer[6]= $00 : OWbuffer[7]= $E8
 
GOSUB OWRoutine    'Send it
END
 
OWRoutine:
  OWOUT DataPin,1,[MatchRom, STR OWBuffer \8, ConvertV]
RETURN

This way you only have one "instance" of the OWOUT command which should save you a couple of words compared to having 26 of them (if that's what you currently have).

/Henrik.

[MOUNTAIN747]

Henrik,
thanks for the reply. I've tried String modifiers to send 1-wire and it doesn't work. I use String modifiers to recieve data and it works fine. It seems the method should work in both directions.

OWIN DataPin, 2, [STR DSbuffer\9 ] this work fine - recieve data from 1-Wire device

OWOUT DataPin, 1, [MatchRom, STR OWbuffer\8, ConverV] doesn't work - send 1-Wire
OWOUT DataPin, 1, [MatchRom, $26, $....... .......$D8, ConvertV] this works - send 1-Wire

I'm not sure if the PBP comand can handle the string not enclosed in brakets. I'll keep working with this and get back to you. Thanks agin.

[MOUNTAIN747]

OK, I got it. A small error in the method I was using to set up the 1-Wire command. The STR modifier works fine. This will save a lot of code space. Hanrik, thanks for your reply which make me work on the STR method until I got it right!

[HenrikOlsson]

Hi,
Great, I'm glad you got it going!

Another way might be to use the DATA statement to save the values for each sensor to onboard EEPROM and then use a FOR-NEXT loop to read them out and stuff them into the OWBuffer array. Depending on the number of sensor "strings" you have it probably save you even more code space - provided your chip has enough EEPROM space of course.

/Henrik.