'Frequency pin test
If MM.Info(ip address) = "0.0.0.0" Then
Print "Failure to connect to the Internet - Restart"
CPU restart
EndIf
'
'
Print MM.Info(ip address)

On ERROR SKIP 5
WEB NTP -6 'Saskatoon
If MM.Errno Then WEB NTP -6
If MM.Errno Then WEB NTP -6
If MM.Errno Then Print "Failure to connect to the NTP Server" : CPU RESTART

Target=50.01
SetPin GP5, PWM2B
PWM 2, Target,, 50

'PIO frequency counter for PICOMITE MMBasic measuring period time

'this is a PIO program
Dim a%(7)=(&h008400C5A029E020,&hE0408000A0CA0042,&h00C9008B004AA04A,&h8000A0C9,
0,0,0,0)

'PIO configuration
f=264e6                     '264MHz PIO execution speed
e=Pio(execctrl gp6,0,31)    'use gp0 for PIN...select the input pin

'program pio1 and start
PIO program 1,a%()
PIO init machine 1,0,f,0,e
PIO start 1,0    

'pio fifo register for reading information from PIO
Dim x%(4)

'read the PIO time counted and convert to frequency
Do
PIO read 1,0,5,x%()           'read 5 count values, fifo + most recent
period = x%(4) + 4            'counts measured + instructions PIO setup time
Print f/(3*period);" Hz"      'convert counts to Hz and print
Pause 1000
Loop While Inkey$=""

End