Specifications

51
'resets the MUX (so that even if 12V switched is powered, the MUX itself shoul
PortSet(1,false)
'do now whatever needs the 12V switched supply to be ON and requires warm-up, bu
'GPS work for Garmin (G) or NAL (N) units, or both!
PreParseStr(7) = 0
PreParseStr(9) = 0
'The Garmin part finds its com2 already open and the prog closes it afterwar
'around the CR1000 bug causing higher power draw if we open/close com2 here
If GarminInitOk AND TxModuleGPSpowerOn AND (GPSinUse = "G") Then
GGPSFLAG = true
GPGGAsentence = ""
SerialFlush(com2)'added yesterday
If SerialOut(com2,"","$GPGGA",1,250) Then
SplitStr(PreParseStr(1),GPGGAsentence,CHR(44),15,5)
PreQual_FP = PreParseStr(7)'we need to do this explicit conversion to
PreHDP_FP = PreParseStr(9)'we need to do this explicit conversion to f
If PreQual_FP > 0 AND PreHDP_FP > 0 AND PreHDP_FP <= BestHDPseen Then
SplitStr(ParseStr(1),GPGGAsentence,CHR(44),15,5)
BestHDPseen = HDP
' ElseIf NOT (BestHDPseen < 100) Then'so to avoid deleting a previously
' For ParseStrIT=1 To 15
' ParseStr(ParseStrIT)=""
' Next
EndIf
If NOT (BestHDPseen < 100) Then'so to avoid deleting a previously obta
For ParseStrIT=1 To 15
ParseStr(ParseStrIT)=""
Next
EndIf
EndIf
GGPSFLAG = false
TxPowerDueForSwOff = True
EndIf
'The NAL part (it opens and closes his ComRS232 port itself)
If TxInitializeOk AND TxModuleGPSpowerOn AND (GPSinUse = "N") Then
NGPSFLAG = true
GPGGAsentence = ""
SerialOpen(ComRS232,19200,0,0,150)
SerialOut(ComRS232,"AT"+CHR(13)+CHR(10),"",1,10)'this is to let the CR1000
SerialOut(ComRS232,"AT+PA=1"+CHR(13)+CHR(10),"",1,10)
If SerialOut(ComRS232,"","$GPGGA",1,150) Then
SerialIn(GPGGAsentence,ComRS232,150,"*",150)'was 13
SplitStr(PreParseStr(1),GPGGAsentence,CHR(44),15,5)
PreQual_FP = PreParseStr(7)'we need to do this explicit conversion to
PreHDP_FP = PreParseStr(9)'we need to do this explicit conversion to f
If PreQual_FP > 0 AND PreHDP_FP > 0 AND PreHDP_FP <= BestHDPseen Then
SplitStr(ParseStr(1),GPGGAsentence,CHR(44),15,5)
BestHDPseen = HDP
EndIf
''' If NOT (sBestHDPseen < 100) Then'so to avoid deleting a previously
''' For sParseStrIT=1 To 15
''' sParseStr(sParseStrIT)=""
''' Next
''' EndIf
Else