Pin High for 13 seconds while....

[Chadhammer]

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

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

[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?

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

[NavMicroSystems]

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?

           T_cyc VAR WORD

[Chadhammer]

That worked perfectly

[NavMicroSystems]

That worked perfectly

My pleasure.