Ejemplo HPWM 16F87X

'OPTION_REG =%00111111

PORTA=0:TRISA=%00000001

PORTB=0:TRISB=%00000000

PORTC=0:TRISC=%00000000

PORTD=0:TRISD=%00000000

ADCON1= %10001110 '

T2CON = %00000101

PR2=249

'-----------------------------------------------------------------

@ DEVICE PIC16F877                                                   

@ DEVICE PIC16F877, WDT_OFF            

@ DEVICE PIC16F877, PWRT_OFF           

@ DEVICE PIC16F877, PROTECT_OFF       

@ DEVICE PIC16F877, XT_OSC            

'-----------------------------------------------------------------

DEFINE OSC 4

'**************** ADC ************************

DEFINE ADC_BITS 10    '

DEFINE ADC_CLOCK 1    '

DEFINE ADC_SAMPLEUS 3 '

'****************HPWM ********************

DEFINE CCP1_REG   PORTC    'Hpwm 1 pin port

DEFINE CCP1_BIT     2          'Hpwm 1 pin bit

DEFINE CCP2_REG   PORTC    'Hpwm 2 pin port

DEFINE CCP2_BIT     1      'Hpwm 2 pin bit

'******************* VARIABLES ********************

HAM var word

X   VAR WORD

DUTY VAR BYTE  

'---------------------------------------------------------------------------

CCP1CON.2=1   

CCP1CON.3=1

CCP2CON.2=1 

CCP2CON.3=1

TIEMPO:

      DUTY=50

      GOSUB SALIDA

      GOTO TIEMPO

SALIDA:

       ADCIN 0,HAM

       PR2=((1024-HAM)*/5625)/100+24

       X=(PR2+1)* DUTY /25

       CCP1CON.4=X.0

       CCP1CON.5=X.1

       CCP2CON.4=X.0

       CCP2CON.5=X.1

       CCPR1L=X>>2

      CCPR2L=X>>2   

       RETURN