help clean up some code

[longpole001]

hi guys , this code is rubbish but it looks like it is what i need to do , looking for better ways of writing it

cheers

Sheldon

    if counter= 1  then 
             if value0 <> newdata then 
               value1 = newdata
               counter = counter +1
             else 
                return
             endif
          endif
         
         if counter = 2 then 
           if value0 <> newdata then
               if Value1 <> newdata then
                value2 = newdata 
                counter = counter +1 
               else
                return
               endif
           endif    
         endif      
      
         if counter = 3 then 
           if value0 <> newdata then
              if Value1 <> newdata then
                if Value2 <> newdata then 
                 value3 = newdata 
                 counter = counter +1 
                else
                 return
                endif
             endif    
           endif      
        endif
      
      
       if counter = 4 then 
           if value0 <> newdata then
              if Value1 <> newdata then
                if Value2 <> newdata then 
                  if Value3 <> newdata then  
                     value4 = newdata 
                     counter = counter +1 
                  else
                    return
                  endif
                endif    
              endif      
           endif
        endif
          
      if counter = 5 then 
           if value0 <> newdata then
              if Value1 <> newdata then
                if Value2 <> newdata then 
                  if Value3 <> newdata then  
                    if Value4 <> newdata then
                       value5 = newdata 
                       counter = counter +1 
                    else
                      return
                    endif
                  endif    
                endif      
             endif
           endif
       endif     
      if counter = 6 then 
           if value0 <> newdata then
              if Value1 <> newdata then
                if Value2 <> newdata then 
                  if Value3 <> newdata then  
                    if Value4 <> newdata then
                       if Value5 <> newdata then 
                           value6 = newdata 
                           counter= counter +1  
                        else
                         return
                       endif
                     endif    
                    endif      
             endif
           endif
       endif

[mpgmike]

Here's what I'd do:
if counter = 1 and value0 <> newdata then
value1 = newdata
counter = counter +1
return
endif
if counter = 2 and Value0 <> newdata and Value1 <> newdata then
value2 = newdata
counter = counter + 1
return
endif" .......

There is probably a clean "select case" application here as well.

Mike

[longpole001]

yes i could do that but i think the actual structure could be improved , the "newdata" and Value0-6 are actully a 3 values tested to see if that table of arrays(49 arrays values) should add to the larger table of arrays with a total of 6 records

in essence it just test value if it new then add it to the table and inc the counter , if its not then dont add to the table

[mpgmike]

Main:
select case counter
case is = 0
if value0 <> newdata then
value1 = newdata
counter = counter +1
endif
case is = 1
if value0 <> newdata and value1 <> new data then
value2 = newdata
counter = counter + 1
endif.......
return

[longpole001]

thanks mike , both option work ok , as it turned out i decided to go with "and" option , it just really large array group and as such it has about 30 " and " statements per match group of the records it takes about 10k compile for that section , large arrays do take space , i need to write the sorting index routine for this large array in PBP next , not seen any examples where using large data arrays to sort as yet

cheers

Sheldon

[HenrikOlsson]

Hi,
Generally, using nested IF/THENs produces less code than using AND. For example

IF A = 1 THEN
  IF B = 2 THEN
    IF C = 3 THEN
      IF D = 4 THEN
          IF E = 5 THEN
            HIGH PortB.0
          ENDIF
      ENDIF
    ENDIF
  ENDIF
ENDIF

Compiled for a 16F628 is 30 words and 76 bytes for 18F4520 (all variables are bytes) while using AND, like this

IF (A = 1) AND (B = 2) AND (C = 3) AND (D = 4) AND (E = 5) THEN
  HIGH PortB.0
ENDIF

takes 79 words for the 16F628 and 162 bytes for the 18F4520.

/Henrik.

[richard]

how does this look ?

value var byte[6]
chk var byte

chknewval:
chk=0
while chk<6
if value[chk] = 0 then
value[chk]=newvalue
chk=6
else
if value[chk]=newvalue then ;we already have this value
chk=6
else
chk=chk+1
endif
endif
end while
return ?

[mpgmike]

I just learned something new about PBP! (Use of [brackets]). Thanks Richard!

Mike

[longpole001]

i always knew the if , then way produces less words but with 30 "and" compares per test , if then way look really bad and hard to follow, there seems to be no really short way to do large compares for arrays

[HenrikOlsson]

Hi,
I haven't looked into it in detail but perhaps you could use ARRAYREAD with the WAIT or WAITSTR modifer to do what you want?

Value VAR BYTE[6]   ' Array of 6 bytes for the "new values"
DummyVAR   'Needed for ArrayWrite to do what we want - possibly

ARRAYREAD Value, 6, NoMatch, [WAIT("123456"), DummyVAR]    ' Search the Value-array for 123456, jump to NoMatch if not found.
' Continue here if match is found
' ....
' ....

NoMatch:
' Continue here if no match was found

The above tries to match the array to a static string of 123456, if what you want to match is changing then use a second array for the "match condition" and use WAITSTR instead of WAIT. At least that's how I THINK it should work, I haven't actually tried it though.....

/Henrik.

[longpole001]

THANKS HENDRICK , i not looked at that command , will investigate further , i finding it very hard for large arrays and indexing with match , i am working now on arrays using 78 variables per index per group match which 5 variable in the array need to be matched before adding / removing / reindexing , and then needs tobe saved , i have a lot of time before displaying the results on GLCD about 1 sec , i am finding that pbp need to to have more inbuilt functions in this area . iam looking at writing these sort of fuctions in asm , but my asm really need to improve
space is now becoming an issue

i may pm if thats ok
cheers

sheldon