list            p=16F877A, r=dec, w=-302
            include         <P16F877A.INC>      ;Include File
            __CONFIG    _LVP_OFF & _BODEN_OFF & _PWRTE_ON & _WDT_OFF & _RC_OSC


init
            clrf        PORTA
            clrf        PORTB
            clrf        PORTC
            clrf        PORTD
            banksel     TRISA ;Select bank 1
            movlw       B'000000000' ;Set all outputs
            movwf       TRISA ;Set to W
            movwf       TRISB ;Set to W
            movwf       TRISC
            movwf       TRISD
        movlw       B'00001110'
            movwf       ADCON1
        movlw       0x3f ;8 bit PWM... For convinence of copying ADC data...
            movwf       PR2
            banksel     PORTA

;ALL OUTPUTS
            movlw       B'11000001'
            movwf       ADCON0

;SETUP OF PWM
        banksel     CCP1CON
            movlw       0x0C
            movwf       CCP1CON
;Timer 2 PREP
            movlw       B'0000111'
            movwf       T2CON

PROGRAM     bsf     ADCON0,GO
        btfsc       ADCON0,GO
        goto        $-1
        movfw       ADRESH
        movwf       CCPR1L
        goto        PROGRAM

        end