list p=18F2420
#include <p18F2420.inc>
errorlevel -302 ; suppress message 302 from list file
errorlevel -305
CONFIG OSC = INTIO7, FCMEN = OFF, IESO = OFF, PWRT = OFF, BOREN = OFF, WDT = OFF, MCLRE = OFF, LPT1OSC = OFF, PBADEN = OFF, STVREN = OFF, LVP = OFF, XINST = OFF, DEBUG = OFF
org 0
goto Start
nop
nop
ISR:
bcf PORTA,0
sleep
nop
nop
Start
clrf LATA
clrf PORTA
clrf TRISA
movlw b'01100010' ;4mhz
movwf OSCCON
movlw b'00011110' ;<3:0> set trip level (1110 = 4.6V)
movwf HLVDCON
bcf PIR2,2 ;(HLVDIF)
bsf PIE2,2 ;(HLVDIE)
bsf INTCON,7 ;(GIE)
bsf RCON,7 ;(IPEN - enable priority interupts)
bsf IPR2,2 ;HLVD is high priority interupt
Main
bsf PORTA,0 ;turn led on
nop
goto $-2 ;wait for interupt
end