org 0x000
goto start
int org 0x004
goto int
start
call initial
again
call startconv
call check
call result
goto again
initial
BCF STATUS,RP1
BSF STATUS,RP0
MOVLW b'00000001'
MOVWF TRISA
MOVLW b'00000000'
MOVWF TRISB
MOVLW b'00000000'
MOVWF TRISC
MOVLW b'00000000'
MOVWF TRISD
MOVLW b'10001110'
MOVWF ADCON1
BCF STATUS,RP1
BCF STATUS,RP0
MOVLW b'10000001'
MOVWF ADCON0
RETURN
startconv
BSF ADCON0,GO
RETURN
check
BTFSS PIR1,ADIF
goto check
MOVLW b'00000001'
MOVWF PORTC
BCF PIR1,ADIF
return
result
BCF STATUS,RP1
BSF STATUS,RP0
MOVFW ADRESL
MOVWF PORTB
BCF STATUS,RP1
BCF STATUS,RP0
MOVFW ADRESH
MOVWF PORTD
RETURN
END