array problem [Archive] - MEL PICBASIC Forum

View Full Version : array problem

ro37bis

- 14th September 2006, 09:34

hello guys,
I need to make some like this:
---------------
array var word [5]
C var byte

for c = 0 to 5
if array[C].highbyte = 0 then ' <- Compiler message: This style array syntax not supported
gosub Compute
endif
next c

end

Compute:
'Do something
return
----------------------
but the compiler do not support my array style.
Some idea to solve it?
tnk in advance.
Roberto from Italy

Melanie

- 14th September 2006, 10:48

Most things are already somewhere here on the forum... you just need to SEARCH for them...

http://www.picbasic.co.uk/forum/showthread.php?t=544

ro37bis

- 14th September 2006, 11:32

Hi Melanie,
usefull!!
Tnk you very much!!!!!!!
Roberto

sayzer

- 14th September 2006, 11:47

Like this ?

array var word [5]
C var byte
Temp Var word

for c = 0 to 5

Temp = array[C]
if temp.highbyte = 0 then gosub Compute

next c

mister_e

- 14th September 2006, 14:10

Or maybe

array var word [5]
C var byte

for c = 0 to 5
if (array[C]>>8) = 0 then gosub Compute
next
end

Compute:
'Do something
return

another method...

array var word [5]
C var byte

for c = 0 to 5
if array[C]<=$00FF then gosub Compute
next
end

Compute:
'Do something
return

SteveB

- 14th September 2006, 21:55

Roberto, Sayzer and Steve

Me thinks you will avoid much trouble if the array has 6 elements, or the FOR...NEXT counts from 0 to 4. ;)

Steve B

mister_e

- 15th September 2006, 06:36

LMAO! ssshhhhhhut!

sayzer

- 15th September 2006, 08:10

I know that Steve sleeps only a few hrs from late morning to later morning.

Just like I do.

Don't know about Roberto's.

--------------------

ro37bis

- 16th September 2006, 09:51

Hi guys,
thank you for the support.

I tested all of your suggestion.
the Sayzer solution require 34 bytes,
the 1st Mister_e solution require 83 bytes,
the 2nd solution require 66 bytes.
the Melanie idea for solution:
---------------
array var word [5]
C var byte

for c = 1 to 9 step 2
if array.lowbyte(c) = 0 then gosub Compute
next
end

Compute:
'Do something
return
------------------
require 35 bytes.

The winner is:......... Sayzer.

bye
Roberto

Darrel Taylor

- 16th September 2006, 19:21

OH! A competition.

And as usual, I'm too late, oh well. Here's my entry.
DEFINE NO_CLRWDT 1 ; Saves 2 words :)

array VAR WORD [5] BANK0 SYSTEM

ArrayStart CON EXT
@ArrayStart = array + 1 ; Start at highbyte of element 0
LastElement CON EXT
@LastElement = ArrayStart + (4 * 2) ; Stop at element 4

FSR = ArrayStart
Loop1:
IF INDF = 0 THEN GOSUB Compute
FSR = FSR + 2
IF FSR < LastElement THEN Loop1
;----------------------------------

Compute:
'Do something
RETURN21 words<hr>
Or going the ASM route
array VAR WORD [5] BANK0 SYSTEM

ASM
ArrayStart = array + 1 ; Start at highbyte of element 0
LastElement = ArrayStart + (4 * 2) ; Stop at element 4
movlw ArrayStart
movwf FSR ; FSR = ArrayStart
Loop1
movf INDF, W
btfsc STATUS, Z
call _Compute ; if INDF = 0 then gosub Compute
movlw 2
addwf FSR, F ; FSR = FSR + 2
movlw LastElement
subwf FSR, W
btfss STATUS, C
goto Loop1 ; if FSR < LastElement then Loop1
ENDASM
;----------------------------------

Compute:
'Do something
RETURN13 words

mister_e

- 16th September 2006, 20:41

Neat!
I wasn't aware that we could access to FSR and INDF directly... thanks!

i just hope our friend don't use 18Fs or some 12 bit core ;)

Darrel Taylor

- 16th September 2006, 21:12

>> i just hope our friend don't use 18Fs or some 12 bit core

I had the same concerns, but after compiling the "Melanie idea for solution" example(post 9), I found that it was 35 words instead of bytes. So I knew he was using a 16F (or C).

And yup, you can directly access any register with PBP. They are all defined in the PIC14EXT.BAS file in the PBP folder.