Appendix B. CR9000(X) Program Example
B-2
Alias RawGGAData(6)=Longit_Frac : Units Longit_Int=Deg
Alias RawGGAData(7)=LongH_EW
Alias RawGGAData(8)=GPSQuality
Alias RawGGAData(9)=Satilites
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:
SIO4(NotUsed,OneRep,Sio4Address0,Port2,Sio4COMSetUpCmd,Port2ComCode,UnusedParameter,NoValues,U
nityMultiplier,NoOffset)
Delay(100,mSec)
'......................................
'Start GGA data filter on SDM-Sio4 port:
SIO4(NotUsed,OneRep,Sio4Address0,Port2,StartRxFilter,RxFilt9001,UnusedParameter,NoValues,UnityMultiplie
r,NoOffset)
Delay(20,mSec)
'____________________________
Scan(50,mSec,0,0) 'Main Scan:
'..
SIO4(DataPoll,OneRep,Sio4Address0,Port2,PollForData0001,UnusedParameter,UnusedParameter,OneValue,Unit
yMultiplier,NoOffset)
If DataPoll>0 Then
Delay(10,mSec)
SIO4(RawGGAData(),OneRep,Sio4Address0,Port2,SendDataToLgr,UnusedParameter,UnusedParameter,ElevenG
GAValues,UnityMultiplier,NoOffset)
Delay(10,mSec)
CallTable(GPSData)
EndIf
'..
NextScan
'_______
EndProg