Pin High for 13 seconds while....

Life cycle tester: I need to hold a pin (Relay1) high for about 10 seconds while I am doing other things with other pins. I want to drive a relay and that runs a Pic outputting a square wave at 20 Hz for 200 pulses. I want to count the pulses using TMR0. Then I need Relay1 to go low for about 3 seconds .

I have 2 problems right now:

1) Relay1 pin goes high for a blip then low so I need to get some kind of timing loop going for the relay cycle. But how do i keep other things going on with other pins at the same time?

2) my test cycle counter goes to 255 and resets and I want it to go to 9999 cycles before going back to 0 and so does my pulse counter.

Any help or push in the right direction would be great

Code:

---

Init:
          INTCON.7 = 0            'Disable interrupts
          OPTION_REG = %00111000
          TRISB = %01100111        'Setup Port B
          PORTB = %00000000        'Clear port B pins
          T_cyc Var Byte   
          T_cyc = 0
          PAUSE 1000              'Pause for the LCD to wake
         
Relay:             
          T_cyc = T_cyc + 1        'Test cycle counter
          Relay1 var PORTB.5
          High Relay1              'Drive relay pin 26 high for 13 seconds
          Goto Main         

Main:     
          MP_Count var PORTB.6    ' Holds count value
          MP_Count = 0            ' Clear pulse counter
          TMR0 = 0                ' Clear TMR0 counter
          MP_Count = TMR0          ' Get TMR0 count
         
          LCDout $fe, 1, "Test # ",dec4 T_cyc 'Test cycle (0-9999 tests)
          LCDout $fe,$c0, DEC5 MP_Count, " Pulses"
         
          Low Relay1
          PAUSE 4000
          GOTO Relay                 
     
End

---

Using a Pic 16F870

Udate: I have some success now. I used COUNT[pin,duration,var] and it's working fine except for my tests complete: How do I get my cycle counter to count decimal beyond 255?

Code:

---

Init:
          INTCON.7 = 0            'Disable interrupts
          OPTION_REG = %00111000
          TRISB = %01100111        'Setup Port B
          PORTB = %00000000        'Clear port B pins
          T_cyc Var Byte   
          T_cyc = 0
          PAUSE 1000              'Pause for the LCD to wake
          Relay1 var PORTB.5
          X Var Byte         
          B VAR Byte
          X=0
          B=0

Relay:             
          T_cyc = T_cyc + 1        'Test cycle counter
          High Relay1              'Drive relay pin 26 high for 10 seconds
          Count PORTB.6,11000,X       
         
          LCDout $fe, 1, "Test # ",dec4 T_cyc 'Test cycle (0-9999 tests)
          LCDout $fe,$c0, DEC5 X, " Pulses"
         
          Low Relay1                'Drive realy pin 26 low
          PAUSE 1000                'Pause 1 second
          If X=198 then B=B+1      'Did we get 198 pulses (pass or fail)?
          LCDOUT $fe,$c0            'Clear the LCD
          LCDOUT $fe,$c0, DEC4 B, " Tests OK"  'Print the # of good tests
         
          PAUSE 2000
          LCDOUT $fe,$c0
          PAUSE 500
          GOTO Relay                 
     
End

---

Quote:

---

Originally Posted by Chadhammer

Udate: I have some success now. I used COUNT[pin,duration,var] and it's working fine except for my tests complete: How do I get my cycle counter to count decimal beyond 255?

---

Code:

---

          T_cyc VAR WORD

---

That worked perfectly

Quote:

---

Originally Posted by Chadhammer

That worked perfectly

---

My pleasure.