DEFINE LOADER_USED 1
INCLUDE "modedefs.bas"
DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 25 'Gebruik deze twee defines 25
dEFINE HSER_TXSTA 24h 'voor HSER met 9600 Baud
OPTION_REG = $7f ' Enable PORTB pullups
ADCON1 = 7 ' Make PORTA and PORTE digital
on interrupt goto myint
INTCON = $88
pause 50
TRISB = %11110000
led var portb.0
start:
pause 5
goto start
'***Start interruptroutine***
disable
myint:
high led
pause 500
low led
INTCON.0=0 'Clear interruptflag
resume
enable
end
Bookmarks