;fade
list P=12f675
#include <p12f675.inc>
__config _INTRC_OSC_NOCLKOUT & _BODEN_OFF & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _CPD_OFF & _CP_OFF
ERRORLEVEL -302
cblock 20h
timer1,timer2,timer3,slow,pwm
endc
bsf STATUS,RP0 ;bank 1
movlw 0x38
movwf ANSEL
movlw 0x38
movwf TRISIO
bcf STATUS,RP0
movlw 0x07 ;turn off comparitors
movwf CMCON
movlw 0x0d
movwf ADCON0
start
bsf ADCON0,1
waiting
btfsc ADCON0,1
goto waiting
start1
movlw 0x0f
movwf timer3
start2
movf ADRESH,0
movwf timer1
movwf timer2
start3
movlw 0x01
movwf GPIO ;turn on
decfsz timer1,1
goto start3
pause1
movlw 0x00
movwf GPIO
incfsz timer2,1
goto pause1
decfsz timer3,1
goto start2
goto start
end