B. Cr9000(X) Program Example - Garmin 16-HVS Instruction Manual

Appendix B. CR9000(X) Program
Example
'NEMAGGA_Sio4_030805MGW1.CR9
'This program acquires NMEA GGA data from a GPS receiver using the SDM-SIO4.
'_____
'Notes:
'(1) Data is acquired from NMEA0183 $GPGGA string:
' Sio4Fields: GGAFields:
' f1 GGA(Field1)
' f2,f3 GGA(Field2)
' f4, GGA(Field3)
' f5,f6 GGA(Field4)
' f7 GGA(Field5)
' f8 GGA(Field6)
' f9 GGA(Field7)
' f10 GGA(Field8)
' f11 GGA(Field9)
' GGA(Field10)
' GGA(Field11) Geoidal seperation in Meters
' GGA(Field12)
' GGA(Field13) Age of differential GPS data
' GGA(Field14) Differential reference station
'(2) SIO4 programming:
' fltst 1 "t[$GPGGA,]xFt[,]Dt[.]Dt[,]b1t[,]Dt[.]Dt[,]b1t[,]Ft[,]Ft[,]Ft[,]FX"
'_
Const OneRep=1
Const NoValues=0
Const OneValue=1
Const ElevenGGAValues=11
'..
Const UnityMultiplier=1.0
Const NoOffset=0.0
'..
Const Sio4Address0=0
Const Port2=2
'..
'SDM-Sio4 command codes:
Const UnusedParameter = 0000
Const PollForData0001 = 0001
Const SendDataToLgr = 0004
Const Sio4COMSetUpCmd = 2049
Const StartRxFilter = 2054
Const Port2ComCode = 9147 '9=NoHandshaking; 1=1StopBitNoParity; 4=8DataBits; 7=19200Baud
Const RxFilt9001 = 9001 'Command parameter for user defined fltst #1.
Dim DataPoll,NotUsed
'..
Public RawGGAData(ElevenGGAValues)
Alias RawGGAData(1)=GGA_UTC_Time
Alias RawGGAData(2)=Latt_Int : Units Latt_Int=Deg
Alias RawGGAData(3)=Latt_Frac : Units Latt_Frac=Deg
Alias RawGGAData(4)=LattH_NS
Alias RawGGAData(5)=Longit_Int : Units Longit_Int=Deg
Definitions:
GGA_UTC_Time of position
Lattitude
North or South indication letter
Longitude
East or West indication letter
GPS quality,0=NoGPS,1=GPS,2DGPS
Number of satellites in use
HDOP, Horizontal Dilution Of Precision
Antenna altitude in Meters
B-1