Triggering 5 TTL clocks simultaneously

[mister_e]

about this section

vertpulse = vertpulse + 1
IF vertpulse < 512 THEN 
   GOTO horizloop 
ELSE 
   GOTO buttonloop 
ENDIF
horizloop:

seems to be a common used here to exit from a IF THEN statement... sorry that's a bad practice IMHO and can overflow the stack really fast.

vertpulse = vertpulse + 1
IF vertpulse >= 512 THEN buttonloop 

horizloop:

about this

IF INTCON.1 = 0 THEN ' PORTB.4 goes high as close 
GOTO Resetcheck ' to the external trigger's
ELSE ' rising edge as possible
ENDIF

copy/paste error !?! something missing between ELSE and ENDIF ?!?

For HPWM... looks that you'll have to do it manually... the following is an example for a PIC18F2320

' PIC18F2320
TRISC.2=0 ' CCP1 AS OUTPUT
Tmr2dutyvar VAR WORD
Tmr2dutyvar=86 ' ((1/3600)/4)/20Mhz / 16(prescaller)
PR2=$57 ' load frequency period (PWM freq=3.6 KHZ)
    'set Duty cycle
    CCP1CON.5=Tmr2dutyvar.1
    CCP1CON.4=Tmr2dutyvar.0
    CCPR1L =(tmr2dutyvar>>2)
    
    T2CON=%00000110 ' start timer 2
                    ' set prescaler = 16

    CCP1CON = %00001100 ' pwm mode for CCP1
HERE: GOTO HERE

[TurboLS]

Is there something wrong with the HWPM command that I used? And I suppose if I take out the ELSE statement in the reset check loop, and go straight to ENDIF, then that would fix a logical error. Is my ADCON1 register set correctly to receive a digital input on PORTA.2? Also, using your clock example, would that program ever advance past the "HERE" line? The whole idea of doing the HWPM was so it would run in the background while the loops were dependant on certain conditions. thanks for the help.

[mister_e]

yes for sure Here: goto here can be skip. just for testing purpose on a single task.

once you start the PWM it will run as long as you have power on the PIC.. DEUH!!!

For the HPWM statement... i always set register myself. Never tested this one. By the book it's suppose to work... or i'm missing something like a DEFINE something stuff.

[TurboLS]

Alright, I'll try that tomorrow and let you know how it goes. thanks again.

[TurboLS]

OK, I tried it and I am getting the same problem. CCP1 does not appear to be oscillating at all. Also, do I have to set PORTA.2 to receive an external interrupt?? I thought if I just test and see if it has a 5V source on it, that would suffice, but maybe not. I just plopped your code example in there to see if it would compile, and it did, but does not appear to generate the desired function.

' Connect analog input to (RA0)
' Connect clocks to PORTB
' PORTB.0 is the Reset Clock
' PORTB.1 is the Vphase1 clock
' PORTB.2 is the Vphase2 clock
' PORTB.3 is the Hphase1 clock
' PORTB.4 is the Hphase2 clock
' The reset will be connected to a HWPM clock pin #17, USE FEEDBACK WIRE!!
' Connect pin 2 from the DB9 connector to PORTC.6
' Have a +5V source ready to touch PORTA.2 to trigger clocking process

include "modedefs.bas"

' Define ADCIN parameters
Define ADC_BITS 8 ' Set number of bits in result
DEFINE OSC 20 ' Sets clock speed to 20Mhz
Define ADC_CLOCK 4 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS

' PIC18F2320 example, may need to change
TRISC.2=0 ' CCP1 AS OUTPUT
Tmr2dutyvar VAR WORD
Tmr2dutyvar=86 ' ((1/3600)/4)/20Mhz / 16(prescaller)
PR2=$57 ' load frequency period (PWM freq=3.6 KHZ)
'set Duty cycle
CCP1CON.5=Tmr2dutyvar.1
CCP1CON.4=Tmr2dutyvar.0
CCPR1L =(tmr2dutyvar>>2)

T2CON=%00000110 ' start timer 2
' set prescaler = 16

CCP1CON = %00001100 ' pwm mode for CCP1

INTCON2 = %0100000 ' External Interrupt on Rising Edge
INTCON.7 = 0 ' Disables global interrupts
TRISA = %11111111 ' Set PORTA to all input
ADCON1 = %00001101 ' Set PORTA analog, except for pin 2
TRISB = %00000001 ' Set PORTB to all output, except for bit 0
Pause 500 ' Wait .5 second
Pause 500 ' Wait .5 second

horizpulse var byte
vertpulse var byte
adval var byte ' Create adval to store result

horizpulse = 1 ' Initialize counters, initial states
vertpulse = 1
PORTB.1 = 0
PORTB.2 = 0
PORTB.3 = 1
PORTB.4 = 0

buttonloop:
IF PORTA.2 = 1 then
GOTO vertloop
else
GOTO buttonloop ' Waits for 5V that signals shutter is closed
ENDIF
vertloop:
horizpulse = 1
PORTB.1 = 1
PAUSEUS 139
PORTB.1 = 0
PORTB.2 = 1
PAUSEUS 139
PORTB.1 = 1
PORTB.2 = 0
PAUSEUS 139
PORTB.1 = 0
PAUSEUS 270
vertpulse = vertpulse + 1
IF vertpulse < 512 THEN
GOTO horizloop
ELSE
GOTO buttonloop
ENDIF
horizloop:
INTCON.1 = 0 ' Resets interrupt flag to 0
Resetcheck: ' Loops back to make sure
' the PORTB.3 goes low and
IF INTCON.1 = 0 THEN ' PORTB.4 goes high as close
GOTO Resetcheck ' to the external trigger's
' rising edge as possible
ENDIF
PORTB.3 = 0
PORTB.4 = 1
PAUSEUS 139
PORTB.4 = 0
PORTB.3 = 1
PAUSEUS 15
ADCIN 0, adval ' A/D 8 bit value from PORTA.0 into adval
SEROUT2 PORTC.6,16416,[BIN8 adval,13,10] ' Output 8 bit word serially to PC from C.6
PAUSEUS 87
horizpulse = horizpulse + 1
IF horizpulse < 784 THEN
GOTO horizloop
ELSE
PAUSEUS 270
GOTO vertloop
ENDIF
END

[mister_e]

mm, unfortunately i don't have any of those 4520 here to test... weird.

1. Did you set config fuse to HS oscillator in your programmer?!?
2. is your MCLR is tie to VCC via 1K-10K resistor ?!?
3. is your supply line 5volts and clean... have you place 0.1 uF close to the PIC?!?
4. Is a stupid blink light on this pin work?!?

[TurboLS]

Yes, I have HS configured in the EPIC programmer.

My master clear is tied to +5V through a 1k resistor.

My supply line is 5V.

And I was doing a lot more than the blinking program on this PIC before I tried doing the HPWM.