$swstack = 1000
$framesize = 1000
$baud = 9600
$baud1 #4 = 9600

Enable Interrupts

Config Submode = New
Config Date = Dmy , Separator = /
Config Clock = Soft
Config Serialin = Buffered , Size = 200
Config Serialin3 = Buffered , Size = 200

Open "COM3:" For binary As #4

wait 1 ' gps booting

$include "gpsroutines.inc"
$include "GpsDeclarations.inc"
$include "gpsroutines.inc"

Do
   Call Getstring()

   F1 = Commapos(2 , Gpgga)       'lat
   F2 = Commapos(3 , Gpgga)       'n/s
   F3 = Commapos(4 , Gpgga)       'lon
   F4 = Commapos(5 , Gpgga)       'e/w
   Sats = Commapos(7 , Gpgga)       ' SATS IN VIEW
   F5 = Commapos(9 , Gpgga)       'altitude
   F6 = Commapos(10 , Gpgga)       'meters
   Timez = Commapos(1 , Gprmc)
   Valid = Commapos(2 , Gprmc)       'A OR V    VALID FIX = A
   F7 = Commapos(7 , Gprmc)       'Speed In Knots
   F8 = Commapos(8 , Gprmc)       'TRACK ANGLE
   Datez = Commapos(9 , Gprmc)

   Latt = Convert(f1 , F2)
   Lon = Convert(f3 , F4)
  ' Dist = 3ddistance( -8.763979 , 115.170276 , Latt , Lon , 1 , 1)
  ' Alarm = Anchor( -8.763979 , 115.170276 , Latt , Lon , P1 , P2)
  'Head = Bearing( -37.819571 , 144.941557 , -33.872817 , 151.222786 )
  'Alarm = 166


 print, valid

Loop

End


Close #4

$nocompile
'----------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------
'below loads gpgga and gprmc nmea sentances into global variables called as such

Dim Gpgga As String * 80
Dim Gprmc As String * 80

Sub Getstring()
   Local Ggps As String * 5 : Local Gps1 As String * 80  : Local Ch As string*1

'CLEAR BUFFER, LOOPS 'TILL NOTHING LEFT
   While Ischarwaiting (#4) > 0
      Ch = Inkey (#4)
      print " we have data in buffer"         '<-- debug -----this never prints
      Wend

    print "no data in buffer"                        '<-- debug...   this prints


   Ggps = ""          'CLEAR GGPS variable JUST IN CASE
   While Ggps <> "GPGGA"    ' <---------- the sentance we want
      Do
         Ch = Inkey (#4)
      Loop Until Ch = "$"         '<  -------sentance start
      Input #4 , Gps1  Noecho       'GET A FULL SENTENCE  and load in into gps1
      Ggps = Left(gps1 , 5)              'suck out the header and CHECK IT FOR A MATCH  (top of wend)
   Wend

   Gpgga = Gps1

   Ggps = ""          'CLEAR GGPS JUST IN CASE
   While Ggps <> "GPRMC"
      Do
      Ch = Inkey (#4)
      Loop Until Ch = "$"
      Input #4 , Gps1 Noecho       'GET A FULL SENTENCE
      Ggps = Left(gps1 , 5)       'CHECK IT FOR A MATCH, nmea sentance header that is
   Wend
   Gprmc = Gps1

Toggle Togglebit

End Sub

 

$regfile = "m2560def.dat"                                   ' specify the used micro
$crystal = 16000000                                          ' used crystal frequency
$hwstack = 200                                               ' default use 32 for the hardware stack
$swstack = 200                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space
$baud = 9600

Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin1 = Buffered , Size = 200

dim Nm As string*5

Open "com2:" For Binary As #1
Enable Interrupts

Print  "Start"

Do
  If Ischarwaiting(#1) = 1 Then                            'was there a char?
      Nm = inkey(#1)                                      'get it
      Print  Nm                                         'print it
   End If

   Wait 1                                                   'wait 1 second
Loop
Close #1