Specifications

46
Else
TxSendSuccess = False
TxSvcAvail = false
TxRSSI = 0
EndIf
SBDsession = False'\
Loop Until TxSendSuccess' actually, it keeps trying until TxTimeout
TxTimeTaken = TxTimeoutTimer
Timer(1,sec,3)
SerialClose(ComRS232)
EndSub
'*******************************************************************************
' The main program. On datalogger power-on and after a few seconds needed for th
' lights the LED for 3 seconds to notify that the station is up and running. The
' the only SlowSequence Scan.
'*******************************************************************************
BeginProg
'light the LED for 2 seconds ("main program started")
PortSet(5,true)
Delay(0,500,msec)
PortSet(5,false)
'SetStatus ("USRDriveSize",8192)' for use with OpenFile when implementing bina
Low_Batt = True'will be cleared after the first scan if battery is ok. Prevent
FastScanMode = False' True
FastScanCount = FastScanReps
IsSummer = False
TxAllowed = True
WinterDataTerminator="!W"
SummerDataTerminator="!S"
InstantDataTerminator="!I"
DiagnDataTermninator="!D"
LoggerOSrev = Right(Status.OSVersion,2)' it assumes that Cambell will keep num
If LoggerOSrev < 14 Then TimersUnitMult = 1000000 Else TimersUnitMult = 1'Here
Battery(Batt_VoltI)
' If Batt_VoltI > LoBattThre + LoBattResHyst Then Low_Batt = False
GPSinUse = UpperCase(GPSType)
BestHDPseen = 100
sBestHDPseen = 100
TxInitializeOk=False
PortGet(C5status,8)
SerialOpen(com2,GarminBaudRate,0,0,1000)'due to a possible bug in the CR1000 O
'*******************************************************************************
' The main Scan calls the Measure subroutine to do the actual measurement job, t
' Iridium module. Depending on which GPS receiver is being used (the Trimble or
' it can wait for the GPS of the Iridium module to return a valid position and t
' proceeds issuing the CallTable commands for the TableMem AND for the TableTxXx
' season. Then if needed it acesses the relevant TableTxXxxxxx, assembles the me
' module, uploads it, initiates the SBD transfer by sending the AT+SBDRB or AT+S
' until either it succeeds or the Max_SBD_Attempts is reached. Finally it calls
'*******************************************************************************
Scan(FastScanRate,Sec,1,0)