Option explicit
Option default none
'
Interrupt myint 'set up an interrupt that can be triggered by the CSUB
'
SetPin gp6,cin,3 'set pin 9 (GP6) to cause a H/W interrupt on both edges
'
Dim a%(100) 'array to receive the timestamps
Dim b%=100 'maximum number of transitions to receive
Dim c%=20000000 'timeout of the CSUB in microseconds
'
log a%(),b%,c% 'initialise the logging
'
Do :Loop  'loop continuously
'
Sub myint 'subroutine that is triggered when the non-blocking CSUB terminates
'
 local integer i
 Do While a%(i) 'read all valid data
   Print i,a%(i) 'print it out
   Inc i 'increment the loop counter
 Loop
 Print "end"
 Pause 200
 End  'terminate the program
End Sub
'
' This CSUB logs activity on GP6, each transition of the pin is
' logged to the nearest microsecond. The timestamp is positive for positive
' going transitions and negated for negative going ones
' The parameters are:
' an integer array to hold the timestamps
' an integer with the number of samples to take (the array must be at least this big)
' an integer giving a timeout in microseconds for the CSUB to terminate
' if the number of sample requested is not reached
' when either the timeout occurs or the number of samples is reached the
' CSUB triggers an interrupt to let the Basic program know

CSub log
0000002F
'timout
4B0CB570 4B0C681D 4798681B 428B6A6B D10DD303 42836A2B 4B08D20A 2300681A
4A076013 60136812 681B4B06 601A2201 46C0BD70 10000388 100003A8 10000384
100003C4 100003CC
'intprog
4B16B570 6825681C 3B016923 2B006123 4B13DD0E 2009681B 28004798 4B11D014
4798681B 60696028 33086823 BD706023 681A4B0D 60132300 68124A0C 4B0C6013
2201681B E7E4601A 681B4B06 23004798 418B4242 606B602A 46C0E7E6 10000388
10000328 100003A8 10000384 100003C4 100003CC
'main
0015B570 681B4B0C 447A4A0C 4B0C601A 4A0C681B 601A447A 681C4B0B 680B6020
4B0A6123 4798681B 686B682A 414B1812 62636222 46C0BD70 100003C4 FFFFFF7F
10000384 FFFFFF2D 10000388 100003A8
End CSub

#include "PicoCFunctions.h"
// uSecTimer returns a 64-bit integer giving the number of microseconds since system boot
// CFuncRam is 256 bytes of RAM that aren't touched by Basic
// PinRead gives the status of a pin specified by the number (pin9 = GP6)
// CFuncInt1 is the address of a function to be called when a H/W interrupt occurs on COUNT pin 1
// CFuncmSec is the address of a function to be called every millisecond by trhe main clock interrupt
// Interrupt is a variable that tells Basic that the INTERRUPT specified in the Basic code has been triggered
//
static void timout(void){ //routine called every millisecond
unsigned long long int *endtime=(unsigned long long int *)&CFuncRam[8];
if(uSecTimer()>*endtime){ //  timeout triggered
CFuncmSec=0; //disable the millisecond interrupt
CFuncInt1=0; //disable the H/W pin change interrupt
Interrupt=1; //trigger the Basic ionterrupt
}
}
static void intprog(void){ //routine called every change on GP6
unsigned int *array=(unsigned int *)&CFuncRam[0];
int *count=(int *)&CFuncRam[4];
unsigned int d=*array;
*count=*count-1; //decrement the event counter
if(*count<=0){ //count satisfied
CFuncmSec=0; //disable the millisecond interrupt
CFuncInt1=0; //disable the H/W pin change interrupt
Interrupt=1; //trigger the Basic interrupt
}
if(PinRead(9))*(long long int *)d=uSecTimer();
else *(long long int *)d=-uSecTimer();
*array=*array+sizeof(long long int);
}
void main(long long int *basicarray, long long int *samplecount, long long int *timout){
CFuncInt1=(unsigned int)&intprog; //set up the address for the H/W interrupt
CFuncmSec=(unsigned int)&timout; //Set up the address for the millisecond timer
unsigned int *array=(unsigned int *)&CFuncRam[0]; //get a pointer to a permanent location to store a global pointer to the array
int *count=(int *)&CFuncRam[4]; //get a pointer to a permanent location to store the count of the samples required
unsigned long long int *endtime=(unsigned long long int *)&CFuncRam[8]; //get a pointer to a permanent location to store the timeout value
*array=(unsigned int)basicarray;
*count=(int)*samplecount;
*endtime=uSecTimer()+ *timout;
}

> option list
OPTION SYSTEM SPI GP10,GP11,GP12
OPTION CPUSPEED (KHz) 200000
OPTION LCDPANEL ILI9341, LANDSCAPE,GP7,GP8,GP9
OPTION TOUCH GP14,GP15
GUI CALIBRATE 0, 250, 504, 925, 747
OPTION SDCARD GP13

CSUB LOG
00000041
'timout
B082B580 4B10AF00 3320681B 4B0F607B 4798681B 681A687B 4299685B D10ED803
D8004290 4B0AE00B 2200681B 4B09601A 2200681B 4B08601A 2201681B 46C0601A
B00246BD 46C0BD80 1000038C 100003AC 10000388 100003C8 100003D0
'intprog
B085B590 4B22AF00 60FB681B 681B4B20 60BB3310 681B68FB 68BB607B 1E5A681B
601A68BB 681B68BB DC0B2B00 681B4B19 601A2200 681B4B18 601A2200 681B4B17
601A2201 681B4B16 47982009 D0081E03 681B4B14 00024798 6879000B 604B600A
4B10E00C 4798681B 000B0002 42502100 687C4199 000B0002 60636022 681B68FB
001A3308 601A68FB 46BD46C0 BD90B005 1000038C 10000388 100003C8 100003D0
1000032C 100003AC
'main
B088B580 60F8AF00 607A60B9 681B4B16 447A4A16 4B16601A 1D3A681B 4B15601A
61FB681B 681B4B13 61BB3310 681B4B11 617B3320 69FB68FA 68BB601A 685B681A
601A69BB 681B4B0C 00024798 6879000B 68496808 414B1812 600A6979 46C0604B
B00846BD 46C0BD80 100003C8 FFFFFF43 10000388 1000038C 100003AC
End CSUB

CSUB LOG
00000041
'check_timer
B082B580 4B10AF00 3320681B 4B0F607B 4798681B 681A687B 4299685B D10ED803
D8004290 4B0AE00B 2200681B 4B09601A 2200681B 4B08601A 2201681B 46C0601A
B00246BD 46C0BD80 1000038C 100003AC 10000388 100003C8 100003D0
'intprog
B085B590 4B22AF00 60FB681B 681B4B20 60BB3310 681B68FB 68BB607B 1E5A681B
601A68BB 681B68BB DC0B2B00 681B4B19 601A2200 681B4B18 601A2200 681B4B17
601A2201 681B4B16 47982009 D0081E03 681B4B14 00024798 6879000B 604B600A
4B10E00C 4798681B 000B0002 42502100 687C4199 000B0002 60636022 681B68FB
001A3308 601A68FB 46BD46C0 BD90B005 1000038C 10000388 100003C8 100003D0
1000032C 100003AC
'main
B088B580 60F8AF00 607A60B9 681B4B16 447A4A16 4B16601A 4A16681B 601A447A
681B4B15 4B1461FB 3310681B 4B1261BB 3320681B 68FA617B 601A69FB 681A68BB
69BB685B 4B0D601A 4798681B 000B0002 68086879 18126849 6979414B 604B600A
46BD46C0 BD80B008 100003C8 FFFFFF43 10000388 FFFFFEDD 1000038C 100003AC
End CSUB

// uSecTimer returns a 64-bit integer giving the number of microseconds since system boot
// CFuncRam is 256 bytes of RAM that aren't touched by Basic
// PinRead gives the status of a pin specified by the number (pin9 = GP6)
// CFuncInt1 is the address of a function to be called when a H/W interrupt occurs on COUNT pin 1
// CFuncmSec is the address of a function to be called every millisecond by trhe main clock interrupt
// Interrupt is a variable that tells Basic that the INTERRUPT specified in the Basic code has been triggered
//
static void check_timer(void){ //routine called every millisecond
unsigned long long int *endtime=(unsigned long long int *)&CFuncRam[8];
if(uSecTimer()>*endtime){ //  timeout triggered
CFuncmSec=0; //disable the millisecond interrupt
CFuncInt1=0; //disable the H/W pin change interrupt
Interrupt=1; //trigger the Basic interrupt
}
}
static void intprog(void){ //routine called every change on GP6
unsigned int *array=(unsigned int *)&CFuncRam[0];
int *count=(int *)&CFuncRam[4];
unsigned int d=*array;
*count=*count-1; //decrement the event counter
if(*count<=0){ //count satisfied
CFuncmSec=0; //disable the millisecond interrupt
CFuncInt1=0; //disable the H/W pin change interrupt
Interrupt=1; //trigger the Basic interrupt
}
if(PinRead(9))*(long long int *)d=uSecTimer();
else *(long long int *)d=-uSecTimer();
*array=*array+sizeof(long long int);
}
void main(long long int *basicarray, long long int *samplecount, long long int *timout){
CFuncInt1=(unsigned int)&intprog; //set up the address for the H/W interrupt
CFuncmSec=(unsigned int)&check_timer; //Set up the address for the millisecond timer
unsigned int *array=(unsigned int *)&CFuncRam[0]; //get a pointer to a permanent location to store a global pointer to the array
int *count=(int *)&CFuncRam[4]; //get a pointer to a permanent location to store the count of the samples required
unsigned long long int *endtime=(unsigned long long int *)&CFuncRam[8]; //get a pointer to a permanent location to store the timeout value
*array=(unsigned int)basicarray;
*count=(int)*samplecount;
*endtime=uSecTimer()+ *timout;
}