On Int0 GoSub label
On Int1 GoSub label
On Int2 GoSub label
On Int3 GoSub label

This command must be called before accepting external interrupts. Cubloc has 4 external interrupt pins. The interrupt pins can be set to sense input on the rising edge, falling edge, or both.

The Set OnIntx command must be used with this command in order for the interrupt to work.

* The CB220 has no external interrupt inputs.

  Dim A As Integer
  On Int0 GoSub GETINT0
  Set Int0 0 'Falling Edge Input
  Do
  Loop
 
GETINT0:
  A=A+1 'Record number of interrupts
  Return

Go CUBLOC home