Specifications

44
Sample(1,QUAL,String)
Sample(1,NUMSATS,String)
Sample(1,HDP,String)
Average(1,US_Pt100,IEEE4,False)
Average(1,US_T,IEEE4,False)'US_ = Rotronics UN-Aspirated Shield
Average(1,US_RH,IEEE4,False)
Average(1,PTemp_C,IEEE4,False)
Maximum(1,Batt_VoltI,IEEE4,False,False)
Minimum(1,Batt_VoltF,IEEE4,False,False)
Average(4,Currents(),FP2,False)
FieldNames("Battery_current_avg,Solar_Panel_current_avg,Fan_current_avg,Tx+GPS_
EndTable
DataTable(TableDiagnostics, True, -1)
DataInterval(0,DiagnosticsRate,hr,100)
CardOut(0,-1)
Sample(1,status.StationName,String)
Sample(1,status.StartTime,NSEC)
Sample(1,status.RunSignature,uint2)
Sample(1,LoggerOSrev,String)
Sample(1,status.Low12VCount,Uint2)
Average(1,PTemp_C,FP2,False)
StdDev(1,PTemp_C,FP2,False)
Average(1,Batt_VoltI,FP2,False)
Average(1,Batt_VoltF,FP2,False)
Average(1,Batt_V_Drop,FP2,False)
Maximum(1,Batt_VoltI,FP2,False,False)
Minimum(1,Batt_VoltF,FP2,False,False)
Average(4,Currents(),FP2,False)
FieldNames("Battery_current_avg,Solar_Panel_current_avg,Fan_current_avg,Tx+GPS_
StdDev(4,Currents(),FP2,False)
FieldNames("Battery_current_std,Solar_Panel_current_std,Fan_current_std,Tx+GPS_
Totalize(1,TxInitializeOk,FP2,False)
Totalize(1,GarminInitOk,FP2,False)
Sample(1,SentWithSuccess,FP2)
Sample(1,SendRecordBacklog,FP2)
Sample(1,DiagnDataTermninator,String)
EndTable
'Declaration of subroutines
Sub TxModuleInit
If NOT (SummerTxRate OR WinterTxRate OR (GPSType="N")) Then ExitSub
TxInitializeOk = False
If NOT TxInitializeOk Then
SerialOpen(ComRS232,19200,0,0,400)
SerialOut(ComRS232,"A","",25,20)' to allow 5 secs for the Iridium Module to
For TxInitilizeAttempt = 1 To TxMaxInitAttempts
' TxInitializeOk = False
' ExitFor
' EndIf'
SerialOut(ComRS232,"TE1"+CHR(13)+CHR(10),"",1,10) 'should be default but d
SerialOut(ComRS232,"ATV1"+CHR(13)+CHR(10),"",1,10)' FIXME!! Then RS232Echo
If SerialOut(ComRS232,"AT"+CHR(13)+CHR(10),"OK"+CHR(13)+CHR(10),1,10) Then
If SerialOut(ComRS232,"ATI4"+CHR(13)+CHR(10),"IRIDIUM 9600 Family"+CHR(13)
'Delay(0,1,sec)'\RREEMMOOVVEE!!!!
'SerialFlush(ComRS232)'needed to clean up the rest of the unused answer to
If TxModuleATok AND True AND TxTypeNAL960x Then 'FIXME!! RS232EchoOk
TxInitializeOk = True
ExitFor
Else
TxInitializeOk = False