16 bit PWM using CCP1

[richard]

A pbp version

'****************************************************************
'*  Name    : PWM16.BAS                                      *
'*  Author  : RICHARD                    *
'*  Notice  : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 8/23/2014                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
  
#CONFIG
             __config        _CONFIG1,    _FOSC_INTOSC & _CP_OFF & _WDTE_ON  &  _PWRTE_ON  &  _MCLRE_ON  & _CLKOUTEN_OFF
              __config      _CONFIG2, _PLLEN_ON & _LVP_OFF
#ENDCONFIG


 
  include "dt_ints-14.bas"
  

asm
INT_LIST macro
      
     
     
     
      INT_HANDLER TMR1_INT, _Tm1, asm,yes
      endm
       INT_CREATE
       
     
       
ENDASM   

 
    DEFINE OSC 32 
    

     

    sSEROUT_PIN VAR PORTA.0
    sBAUD CON 84  '16416 = 19200 BAUD 

    yTEMP VAR Byte 
 
    wDUTY  VAR WORD       
    

    '***********************************************
START:
       ' disable analog functions
   OSCCON=$70
   ANSELA=0
   ANSELC=0

    '********************
    '16 BIT CCP1 PWM
    T1CON   = 0   ' Turn off Timer1 with a Prescaler value of 1:8
    PIE1    = %00000001    ' enable TMR1 overflow interrupt 
    INTCON  = %11000000    ' enable global and peripheral interrupts 
     ' LOW PORTC.2 ON MATCH TM1 WITH DUTY
    ccp4con=0
    wDUTY = 32768          ' 32768 = 50% DUTY PWM
    T1CON.0 = 1            ' TMR1 ON
    CCPR4H=$80;
    CCPR4L=0;
    PAUSE 800 
    SerOut2 sSEROUT_PIN,sBAUD,["START",13] 
     trisc = %11111001
    '***********************************************
      CCP4CON = %00001001  
MAIN:
    yTEMP = yTEMP +1 
    SerOut2 sSEROUT_PIN,sBAUD,["LOOP ",Dec yTEMP,13] 
    PAUSE 500
Goto MAIN


  '**** ASSEMBLY INTERRUPT ROUTINE ****  
Tm1: 
  Asm
    bsf PORTC  ,2
    CHK?RP   CCP4CON                  
    clrf      CCP4CON 
    movlw     9            
    movwf     CCP4CON            
      banksel 0 
    bcf      PORTC  ,2
    
  EndAsm
  '**** END ASSEMBLY INTURRUPT ROUTINE **** 
@ INT_RETURN 
End

[EarlyBird2]

A pbp version

'****************************************************************
'*  Name    : PWM16.BAS                                      *
'*  Author  : RICHARD                    *
'*  Notice  : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 8/23/2014                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
  
#CONFIG
             __config        _CONFIG1,    _FOSC_INTOSC & _CP_OFF & _WDTE_ON  &  _PWRTE_ON  &  _MCLRE_ON  & _CLKOUTEN_OFF
              __config      _CONFIG2, _PLLEN_ON & _LVP_OFF
#ENDCONFIG


 
  include "dt_ints-14.bas"
  

asm
INT_LIST macro
      
     
     
     
      INT_HANDLER TMR1_INT, _Tm1, asm,yes
      endm
       INT_CREATE
       
     
       
ENDASM   

 
    DEFINE OSC 32 
    

     

    sSEROUT_PIN VAR PORTA.0
    sBAUD CON 84  '16416 = 19200 BAUD 

    yTEMP VAR Byte 
 
    wDUTY  VAR WORD       
    

    '***********************************************
START:
       ' disable analog functions
   OSCCON=$70
   ANSELA=0
   ANSELC=0

    '********************
    '16 BIT CCP1 PWM
    T1CON   = 0   ' Turn off Timer1 with a Prescaler value of 1:8
    PIE1    = %00000001    ' enable TMR1 overflow interrupt 
    INTCON  = %11000000    ' enable global and peripheral interrupts 
     ' LOW PORTC.2 ON MATCH TM1 WITH DUTY
    ccp4con=0
    wDUTY = 32768          ' 32768 = 50% DUTY PWM
    T1CON.0 = 1            ' TMR1 ON
    CCPR4H=$80;
    CCPR4L=0;
    PAUSE 800 
    SerOut2 sSEROUT_PIN,sBAUD,["START",13] 
     trisc = %11111001
    '***********************************************
      CCP4CON = %00001001  
MAIN:
    yTEMP = yTEMP +1 
    SerOut2 sSEROUT_PIN,sBAUD,["LOOP ",Dec yTEMP,13] 
    PAUSE 500
Goto MAIN


  '**** ASSEMBLY INTERRUPT ROUTINE ****  
Tm1: 
  Asm
    bsf PORTC  ,2
    CHK?RP   CCP4CON                  
    clrf      CCP4CON 
    movlw     9            
    movwf     CCP4CON            
      banksel 0 
    bcf      PORTC  ,2
    
  EndAsm
  '**** END ASSEMBLY INTURRUPT ROUTINE **** 
@ INT_RETURN 
End

Impressive Richard!

What was the difference CCP4?

[richard]

no any ccp will work I tested it on 2,3 and 4 , the issue was the Bank selection a pic18 doesn't need it a pic16 will die without it

[richard]

I didn't pickup what ver of pbp talat was using , and I'm not sure if the chk?rp macro exists in early versions


but try

Asm
PWM_INT
CHK?RP   CCP1CON
movlw 9 ; compare mode
clrf CCP1CON ; clear reg
movwf CCP1CON ; Set reg
CHK?RP  PWM_VAL
movf PWM_VAL+1,W ; hb
CHK?RP   CCPRIL
movwf CCPR1H ; put
CHK?RP  PWM_VAL
movf PWM_VAL,W ; lb
CHK?RP   CCPRIL
movwf CCPR1L ; put
banksel 0
bsf INTCON,7 ;GIE = 1
bsf INTCON,6 ;PEIE = 1 Enable peripheral interrupts
bsf PIE1,0 ; TMR1IE= 1 Enable TMR1
bcf PIR1,0 ; TMR1IF = 0 Clear Timer1 Int Flag

RETFIE ; Return from Interrupt
EndAsm

if that fails try

banksel CCP1CON OR WHATERVER SFR

OR
read data sheet and find what bank each sfr is in


with all that bank switching the effort may be pointless

[richard]

post 35 is wrong pie1 is not in bank0 either

Asm
PWM_INT
CHK?RP   CCP1CON
movlw 9 ; compare mode
clrf CCP1CON ; clear reg
movwf CCP1CON ; Set reg
CHK?RP  PWM_VAL
movf PWM_VAL+1,W ; hb
CHK?RP   CCPRIL
movwf CCPR1H ; put
CHK?RP  PWM_VAL
movf PWM_VAL,W ; lb
CHK?RP   CCPRIL
movwf CCPR1L ; put
banksel 0
bsf INTCON,7 ;GIE = 1
bsf INTCON,6 ;PEIE = 1 Enable peripheral interrupts
CHK?RP   PIE1
bsf PIE1,0 ; TMR1IE= 1 Enable TMR1
BANKSEL 0
bcf PIR1,0 ; TMR1IF = 0 Clear Timer1 Int Flag

RETFIE ; Return from Interrupt
EndAsm

it just gets worse

[talatsahim]

Richard and EarlyBird,
Thank you very much for your generosity and support.
I'm using version 3.0.1.4.


Talat