Campbell Scientific GPS16X-HVS GPS Receiver - Manual (Page 36)

Appendix C. Using an SDM-SIO4
'..
'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
Alias RawGGAData(6)=Longit_Frac : Units Longit_Int=Deg
Alias RawGGAData(7)=LongH_EW
Alias RawGGAData(8)=GPSQuality
Alias RawGGAData(9)=Satellites
Alias RawGGAData(10)=HDOP
Alias RawGGAData(11)=Altitude : Units Altitude=Meters
'_
DataTable(GPSData,True,-1)
DataInterval(0,0,0,0)
Sample(ElevenGGAValues,RawGGAData(),IEEE4)
EndTable
'_________
BeginProg
'..........................................................
'Configure SDM-Sio4 Port#2 for communications with GPS port:
SDMSIO4(NotUsed,OneRep,Sio4Address0,Port2,Sio4COMSetUpCmd,Port2ComCode,UnusedParameter,NoValues
,UnityMultiplier,NoOffset)
Delay(100,mSec)
'......................................
'Start GGA data filter on SDM-Sio4 port:
SDMSIO4(NotUsed,OneRep,Sio4Address0,Port2,StartRxFilter,RxFilt9001,UnusedParameter,NoValues,Uni
tyMultiplier,NoOffset)
Delay(20,mSec)
'____________________________
Scan(50,mSec,0,0) 'Main Scan:
'..
SDMSIO4(DataPoll,OneRep,Sio4Address0,Port2,PollForData0001,UnusedParameter,UnusedParameter,OneV
alue,UnityMultiplier,NoOffset)
If DataPoll>0 Then
Delay(10,mSec)
SDMSIO4(RawGGAData(),OneRep,Sio4Address0,Port2,SendDataToLgr,UnusedParameter,UnusedParameter,El
evenGGAValues,UnityMultiplier,NoOffset)
Delay(10,mSec)
CallTable(GPSData)
EndIf
'..
NextScan
'_______
EndProg
C-2