' Fosc =  (4MHz)
' PS = Timer2 Preskaler (T2CON<1:0>)
' Frek = PWM izlazna frekvencija
' Duty = Duty cycle (20% = 0.2)

' formula
' PR2=(Fosc/(4*PS*Freq))-1
' CCPR1L:CCP1CON<5:4>=(PR2+1)*4*Duty%

duty VAR WORD  

   TRISC.2 = 0          
   CCP1CON = %00001100   
   T2CON = %00000101    '  Preskales=4

 
' 4MHz clock, preskaler=4. (4E6/(4*4*1E3))-1=249

   PR2 = 249 '  PR2 1KHz izlaz
        
' formula za CCPR1L:CCP1CON<5:4>
' period 20% to 80%.  (249+1)*4*0.2=200 (20%)
' (249+1)*4*0.8=800 (80%)

   duty = 200      ' duty cycle 20%

pocetak:
   CCP1CON.4 = duty.0   
   CCP1CON.5 = duty.1   
   CCPR1L = DUTY  >> 2
                         
           

   Pause 17             ' 

   IF (duty < 800) Then pocetak  
   duty = 200           
   Goto pocetak        

   End