12F683 2 x PWM Outputs

[Darrel Taylor]

Thanks for the reply. I do plan on doing something with this in due course.

Great confidence I have now ... NOT!

Oh well, more things to do tomorrow I have ....
Tonight, I do this ...
Next year, you may try it.

DEFINE OSC 8

SPWMpin  var GPIO.5     ' Output Pin for SSPWM
INCLUDE "SSPWM.inc"     ' include the SSPWM module

;----[Constants]------------------------------------------
HPWMfreq        CON 20000
Freq = 2000             ' Set Frequency of SSPWM (word)

;----[Variables]------------------------------------------
HPWMduty        VAR BYTE
LastHPWMduty    VAR BYTE
SSPWMduty       VAR BYTE

;----[Initialize]-----------------------------------------
OSCCON = %01110000      ' 8Mhz
ANSEL = %000011         ' AN0 and AN1 ANALOG
DutyCycle = 10          ' Set Duty Cycle of SSPWM
gosub StartSPWM         ' Start SSPWM @ Freq/DutyCycle
HPWM 1, 127, HPWMfreq   ' Start 20Khz PWM @ 50%

;----[Main Program Loop]---------------------------------
Main:
    ADCIN 0, HPWMduty
    ADCIN 1, SSPWMduty

    IF HPWMDuty != LastHPWMduty THEN
        LastHPWMduty = HPWMDuty
        HPWM 1, HPWMDuty, HPWMfreq
    ENDIF

    
    DutyCycle = SSPWMduty*80/256+10  ' scale SSPWM dutycycle
    gosub SetSPWM                    ' Change SSPWM DutyCycle
GOTO Main

Dutycycle of the 2Khz is 10% in the image.
Both dutycycles are adjustable from the pots, and works from 10% to 90%, (0 to 100% for the HPWM).

Don't forget to comment the wsave vars not used by the 683 in the .inc file.

Happy Holidays.

[retepsnikrep]

Incredible I was envisaging pages of code! many thanks to Darrel

Could you post that Isis code and hex code as i have it and would like to look at the simulation.

[Darrel Taylor]

Could you post that Isis code and hex code...

Here ya go.

[retepsnikrep]

Darrel

Can you tell me the version of issis/proteus you are using i can't load it, my version is 7.4 SP2

Cheers

[Darrel Taylor]

7.8 SP0 (beta)

If your license is up to date, you should be able to run the update manager and get the latest version.

[retepsnikrep]

Back to breadboard then it will cost be a fortune to upgrade suffciently to run it. Thanks anyway.
I only have the picaxe VSM lite software which doesnt support simulating plain pics etc anyway.

[retepsnikrep]

Thanks to all those who helped with this i have had this breadboarded and working in my pic on bench today, it works great. What a forum incredible. Now to design my pcb.