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
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

Do
 Do : loop until pin(1) And pin(2) 'Wait for both to be high
 Do while pin(1) And pin(2) : loop 'Wait for pin2 to fall
 if pin(1) And (Not pin(2))
  timer = 0 : Do while pin(1) And (Not pin(2)) : loop : T = timer
  Print "Time between falling edges  ";T;"mS"
 EndIf
Loop