GPCINTExample

@ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF
DEFINE OSC 4
Include "DT_INTS-14.bas"

CMCON0 = 7             ' comparator pins configured as I/O
ANSEL  = 0             ' all I/O as digital
OSCCON = %01100000     ' 96 decimal 
GPIO   = %00000000
TRISIO = %00001000     ' GPIO Input all others as Outputs
Option_Reg = %01000000 ' Interrupt on rising edge  INTEDG bit
IOC = %00001000        ' Enable interrupt on change gpio.3
i var byte
Mainloop:
ASM
INT_LIST  macro        ; IntSource,  Label,      Type, ResetFlag?
        INT_Handler      GPC_INT,   _Do_This,     ASM,  no 
    endm
    INT_CREATE                   ; Creates the interrupt processor
ENDASM

@   INT_ENABLE   GPC_INT           ; enable external (INT) interrupts


for i = 0 to 9
GPIO.0 = 1
pause 500
gpio.0 = 0
pause 500
next i
gpio = 0

Goto Mainloop

End



Do_This:
gpio.1 = 1

goto mainloop