splitting output from a counter

[astouffer]

Hello all, I'm trying to figure out a way to have a 12F683 take a variable frequency square wave in and generate a pulse train out from two pins. The input would never go above 3Khz and the output would look like this:


pin3-pin2-pin2-pin2-pin2-pin3-pin2-pin2-pin2-pin2-pin3

One pulse from pin 3 and then four pulses from pin 2 all depending on the incoming frequency. The code so far doesn't seem to work very well.

@	__CONFIG _INTOSCIO & _FCMEN_OFF & _IESO_OFF & _BOD_OFF & _BOD_OFF & _CP_OFF & _MCLRE_ON & _MCLRE_OFF & _PWRTE_ON & _WDT_OFF

DEFINE OSC 8           ' Internal 8MHz
'DEFINE ADC_BITS 8      ' 8-bit resolution
'DEFINE ADC_CLOCK 2     ' Set clock source to Frc/32
'DEFINE ADC_SAMPLEUS 50 ' Sample time in uS before A/D conversion is started

CMCON0 = 7   			'Comparators off
ADCON0 = %00000000		
ANSEL = %00000000		
INTCON = 0			'INTERRUPTS off
OSCCON = %01110000		'8 Mhz
TRISIO = %000100		
GPIO = %00000100 		
OPTION_REG = %00101000	

A	VAR	byte



TMR0= 0      ' clear count
low GPIO.4
low GPIO.5
input GPIO.2
A=0

main:
while TMR0 <= 5
wend
TMR0= 0      ' clear count 
A= A+1
if A = 4 then largepulse
pulsout GPIO.5, 100		'500 uS short pulses pin 2
gosub main


largepulse:
pulsout GPIO.4, 100		'500 uS big pulse pin 3
A=0
return

Am I way off here or on the right track?

[LinkMTech]

Just a few things to start off with:

@	__CONFIG _INTOSCIO & _FCMEN_OFF & _IESO_OFF & _BOD_OFF & _BOD_OFF & _CP_OFF & _MCLRE_ON & _MCLRE_OFF & _PWRTE_ON & _WDT_OFF
Choose one 

DEFINE OSC 8           ' Internal 8MHz
'DEFINE ADC_BITS 8      ' 8-bit resolution
'DEFINE ADC_CLOCK 2     ' Set clock source to Frc/32
'DEFINE ADC_SAMPLEUS 50 ' Sample time in uS before A/D conversion is started

CMCON0 = 7   			'Comparators off
ADCON0 = %00000000		
ANSEL = %00000000		
INTCON = 0			'INTERRUPTS off
OSCCON = %01110000		'8 Mhz
TRISIO = %000100		
GPIO = %00000100 		
OPTION_REG = %00101000	

A	VAR	byte



TMR0= 0      ' clear count
low GPIO.4
low GPIO.5
input GPIO.2
A=0

main: 'You'll probably want to "see" what's happening on GPIO.2 once you get this part done I reckon
while TMR0 <= 5
wend
TMR0= 0      ' clear count 
A= A+1
pulsout GPIO.5, 100		'500 uS short pulses pin 2
if A = 4 then GOSUB largepulse   ' lets the four pulses go first then jumps to "large pulse"
GOTO main   ' GOTO here instead


largepulse:
pulsout GPIO.4, 100		'500 uS big pulse pin 3
A=0
return

There's probably more but that's what I see for now.

[Archangel]

Hi astouffer,
execute a subroutine . . .

counter var byte
. . . . . your code . . . . 
gosub goesout
. . . . more code . . . . 
goesout:
Pulseout 10, pin3
for counter = 0 to 3
pulseout 10, pin2
next counter
return

Please forgive if the pulseout is wrong as I am not home and have no manual here . . .
But you get the Idea.

[astouffer]

Ok we finally got the code working. This picture explains it much better. The yellow trace is a 1.5Khz square wave. The purple and green traces are the resulting outputs.

@	__CONFIG _INTOSCIO & _FCMEN_OFF & _IESO_OFF & _BOD_OFF & _BOD_OFF & _CP_OFF & _MCLRE_OFF & _PWRTE_ON & _WDT_OFF

DEFINE OSC 8           ' Internal 8MHz

CMCON0 = 7   			'Comparators off
ADCON0 = %00000000		'ADC enabled and right justified
ANSEL = %00000000		'GPIO.0 and GPIO.1 analog input
INTCON = 0				'INTERRUPTS off
OSCCON = %01110000		'8 Mhz
TRISIO = %000100		'GPIO2 input
GPIO = %00000100 		'All outputs = 0 on boot
OPTION_REG = %00101000	'
INCLUDE "Modedefs.bas"



A	VAR	word
A=0
TMR0= 0      						
input GPIO.2						
main:
while TMR0 <= 5
wend
A = A+1
TMR0= 0
if A <> 5 then pulsout GPIO.5, 400		
if A=5 then onepulse
'TMR0= 0  								 pause		     						
gosub main

onepulse:
TMR0= 0
pulsout GPIO.4, 400						
A=0
gosub main