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.