Timer PIC16F57

[Dwayne]

Hello Leonel,,

just had a brain fart to take care of your blinky light...

Switching var byte;
  LightCount var Word
  Counter1 var word
  Counter2 Var word
  LightCount=0
  Loop:
  Counter1=0
  Counter2=0
  Loop2:
   if Counter1< 20
     if Counter2 <1000
     if switching=1 then Pause 1  'Pause 1/1000 of a second to make 20
     if switching=0 then Pause 2  'Pause 1/500 of a second to make 40

     LightCount=LightCount+1
     If LightCount=20000 then
       LightCount=0
       Blink light = on
       Pause 200  'pause 1/5 of a second to light up the light.
       Blink Light = off
     endif


     if Portb.0=1 then 
            turn on switch.
            goto Loop
      endif

      if Portb.1=1 then 
            turn on switch.
            goto Loop
      endif

      if Portb.2=1 then 
            turn on switch.
            goto Loop
      endif

      ....
      ....    (for each of your eight switches)


        Counter2=Counter2+1;
     Endif
     
     if(Counter2>=1000)
       Counter1=Counter1+1;
       counter2=0;
     endif
   endif
   if Counter1<20 goto Loop2

  Portb=0;  'turn off ALL of the switches!
  goto Loop:

I put a separate counter for the blinky... stuck the blinky in the routine so that it will be called all the time, removed it from the end of the routine and since you said it doesn't matter too much on the exact time.... well...

Dwayne

[leonel]

I´m sorry to start by a blinky light, but my english it´s not good to explain in detaill all things, so i´ve put a simple question
I´m used to finish with endif, but if it´s better for my code space i´ll follow your advise!
Just another question: my code after compiling gives me this warning " "Crossing page boundary -- ensure page bits are set." i don´t have to worry, because PBP takes care of this problem???!!! I don´t have any branch instruction so that´s ok (pag.13 of PBP manual), my code will work great! Correct?

[Dwayne]

Hello Leonel,

Leonel

I´m sorry to start by a blinky light, but my english it´s not good to explain in detaill all things, so i´ve put a simple question

That is fine Leonel... Even I have problems... so you and I are in the same boat together... We can wave flags at each other, and sink with the ship...at least we will have a little fun.

I´m used to finish with endif, but if it´s better for my code space i´ll follow your advise!

This is not a requirement Leonel... This is all up to you and your preference. You may code anyway that makes you understand it. I only made a suggestion, to show you a different way how to code. I have been corrected many times on my coding!... Sometimes I change, sometimes I don't. As long as the code compiles, and I understand it... its fine with me.

Just another question: my code after compiling gives me this warning " "Crossing page boundary -- ensure page bits are set." i don´t have to worry, because PBP takes care of this problem???!!! I don´t have any branch instruction so that´s ok (pag.13 of PBP manual), my code will work great! Correct?

You shouldn't have to worry about crossing page boundary... PBP takes care of that... I only question is why??? I don't think you have 2 k of code there... but I could be wrong. But you should not have to worry about this warning.

Now about your code... If you notice my tag, one of the statements is: "Compile something that runs" There is no guarantee on your code (or my code) running to do the job you want it to do. Since I have no way how to test it, I can only give you code that is Close to what I think you are wanting.

Remember, the code I am giving you is a "shell" around your "Secret weapon" That shell is taking care of a blinky light, taking care of your 20 and 40 second timing, and also checking your switches. I noticed on your code, that my routine was used as a kind of subroutine. This may get you into a little trouble...with how your program works. But you can try it!...

Since you said the blinky light can be off by a few seconds, I made the code as a shell. A shell is the part that fits around your program and stuff. What will vary your blinky light, will be the code in my shell. But I am betting that the computer is so fast, that your code will not make that much difference between the blinky lights.

I also noticed you used a Pause 1000 . That is a 1 second delay...That means if you are pushing a button, you may have to hold it for at least 1 second! If this is ok with you, great.

My biggest question is:

Do you fully understand what my code is doing? Do you fully understand that it is a shell, and how it is taking care of the timing, switch checking, and blinky light? Do you know where to insert your code, so that my code will work like it should? I only ask these questions, because it seems you are using it as a kind of Subroutine. (I have not studied your code to fully comprehend it, but I just picked up on a few little things that made me wonder).


Dwayne

[leonel]

Yes i understand your code and your right, i´m using it with a subroutine, and with your explanation i understand what a shell is (an oil pump )
I used your code with a little modifications... now i have to build my hardware and test it.
I know that with pause the program doesn´t check anything, but in this case (only in 2 inputs), there´s no problem. If you see i'll make some of my outputs high during 20s or 40s with pause. and in this time i don´t want to see any input.

[Dwayne]

Hell Leonel,

Ok! Just wanted to make sure!...

I also noticed you changed my "If" statements to "while" statements.
Since I do not have a testing ground here, I do not know what will happen, if the program "Jumps" out of the middle of a while statement too many times.
I have had no problems jumping out of a "If" statement... but I am not sure about a while statement. So, I did not use while statements, for fear of crashing <g>.

Ralph, Steve, Melanie, Darrel, Bruce... Whats the answer???

Loop
a=1

  while a <100 
    .....
    if a==50 goto Loop
    ...
    a=a+1
  wend
....
goto Loop.

If a hits 50 a bunch of times, will this give PBP a problem and lose its stack? or run haywire? I know in some older versions of C/C++, it could cause a problem with memory...but I am not sure in PBP.

Dwayne

[leonel]

To be honest i don´t know the answer too! If anyone can help us...
In all my experience (10 months in PBP ) i didn´t have problems, but... there´s always a but!

[mister_e]

personnaly if i want to jump out of a while statement i would prefer to validate the WHILE condition and set a JUMP or FLAG bit to do XYZ task...

well code will talk by itself...

Start:
     While AVar!=50
          if AVar==20 then 
               AVar=50
               FlagBit=1
               endif
          Wend
     IF FlagBit=1 then Start

BUT i would also prefer another approach... like two WHILE statement one after the other... case by case i guess.

I don't belive that the Stack will be a problem since it's not a GOSUB...