PROCESSOR   16F684
      LIST      p=16F684
      #include   <p16f684.inc>
      __CONFIG   _CP_OFF & _WDT_OFF & _MCLRE_ON & _INTOSCIO
      #define      B0   bcf STATUS,RP0;izbor na banka 0
      #define      B1   bsf STATUS,RP0;izbor na banka 1
   
W         EQU   0
F         EQU   1
DUTY   EQU     20H
CIKYL   EQU     21H      
CIKYL1   EQU     22H
   ORG H'00'
   GOTO   START
START

   B0
   CLRF PORTC ;Init PORTC
   MOVLW 07h ;Set RC<4,1:0> to
   MOVWF CMCON0 ;digital I/O
   B1
   CLRF ANSEL ;digital I/O
   MOVLW 00H ;Set RC<3:2> as OUT
   MOVWF TRISC
   B0
   BSF   PORTC,5
   B1
   BCF   OPTION_REG,5;TMR0 INTERNAL CLOCK
   BCF   OPTION_REG,7;PULL-UPS ENABLED

   BCF   OPTION_REG,3;PRESCALER ASS. TO TMR0

   BSF   OPTION_REG,0;PRESCALER=256
   BSF   OPTION_REG,1
   BCF   OPTION_REG,2

   GOTO   MAIN


SETUP_PWM   B1
         BSF      TRISC,5
         MOVLW   D'199'   ;
         MOVWF   PR2      ;2
         MOVLW   B'00001110';PWM ACTIV-LOW, DUTY'S LSbits=0
         B0
         MOVWF   CCP1CON   ;3
         ;4
         MOVLW   D'25'      ;PRIMERNA NA4ALNA STOJNOST
         MOVWF   CCPR1L      
      
         BCF      PIR1, TMR2IF;5.1
         BCF      T2CON,T2CKPS0;5.2
         BCF      T2CON,T2CKPS1;5.2
         BSF      T2CON,TMR2ON;5.3
      
   CHAKAJ   BTFSS   PIR1,1;4AKAME TAJMERA DA SE NAPYLNI
         GOTO   CHAKAJ
         B1
         BCF      TRISC,5;SET PWM OUTPUT

         RETURN
MAIN


      CALL   SETUP_PWM;

      B0
      CLRF   CCP1CON
      NOP
      B1
      BCF      TRISC,5
      BCF      ANSEL,5
      B0
      BCF      PORTC,5
   END