'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