Subversion Repositories NaviCtrl

Rev

Rev 699 | Rev 715 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1 ingob 1
/*#######################################################################################*/
2
/* !!! THIS IS NOT FREE SOFTWARE !!!                                                     */
3
/*#######################################################################################*/
4
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
5
// + www.MikroKopter.com
6
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 7
// + Software Nutzungsbedingungen (english version: see below)
8
// + der Fa. HiSystems GmbH, Flachsmeerstrasse 2, 26802 Moormerland - nachfolgend Lizenzgeber genannt -
9
// + Der Lizenzgeber räumt dem Kunden ein nicht-ausschließliches, zeitlich und räumlich* unbeschränktes Recht ein, die im den
489 killagreg 10
// + Mikrocontroller verwendete Firmware für die Hardware Flight-Ctrl, Navi-Ctrl, BL-Ctrl, MK3Mag & PC-Programm MikroKopter-Tool
360 holgerb 11
// + - nachfolgend Software genannt - nur für private Zwecke zu nutzen.
12
// + Der Einsatz dieser Software ist nur auf oder mit Produkten des Lizenzgebers zulässig.
1 ingob 13
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 14
// + Die vom Lizenzgeber gelieferte Software ist urheberrechtlich geschützt. Alle Rechte an der Software sowie an sonstigen im
15
// + Rahmen der Vertragsanbahnung und Vertragsdurchführung überlassenen Unterlagen stehen im Verhältnis der Vertragspartner ausschließlich dem Lizenzgeber zu.
16
// + Die in der Software enthaltenen Copyright-Vermerke, Markenzeichen, andere Rechtsvorbehalte, Seriennummern sowie
17
// + sonstige der Programmidentifikation dienenden Merkmale dürfen vom Kunden nicht verändert oder unkenntlich gemacht werden.
18
// + Der Kunde trifft angemessene Vorkehrungen für den sicheren Einsatz der Software. Er wird die Software gründlich auf deren
19
// + Verwendbarkeit zu dem von ihm beabsichtigten Zweck testen, bevor er diese operativ einsetzt.
20
// + Die Haftung des Lizenzgebers wird - soweit gesetzlich zulässig - begrenzt in Höhe des typischen und vorhersehbaren
489 killagreg 21
// + Schadens. Die gesetzliche Haftung bei Personenschäden und nach dem Produkthaftungsgesetz bleibt unberührt. Dem Lizenzgeber steht jedoch der Einwand
360 holgerb 22
// + des Mitverschuldens offen.
23
// + Der Kunde trifft angemessene Vorkehrungen für den Fall, dass die Software ganz oder teilweise nicht ordnungsgemäß arbeitet.
24
// + Er wird die Software gründlich auf deren Verwendbarkeit zu dem von ihm beabsichtigten Zweck testen, bevor er diese operativ einsetzt.
25
// + Der Kunde wird er seine Daten vor Einsatz der Software nach dem Stand der Technik sichern.
26
// + Der Kunde ist darüber unterrichtet, dass der Lizenzgeber seine Daten im zur Vertragsdurchführung erforderlichen Umfang
27
// + und auf Grundlage der Datenschutzvorschriften erhebt, speichert, verarbeitet und, sofern notwendig, an Dritte übermittelt.
28
// + *) Die räumliche Nutzung bezieht sich nur auf den Einsatzort, nicht auf die Reichweite der programmierten Software.
29
// + #### ENDE DER NUTZUNGSBEDINGUNGEN ####'
30
// +  Hinweis: Informationen über erweiterte Nutzungsrechte (wie z.B. Nutzung für nicht-private Zwecke) sind auf Anfrage per Email an info(@)hisystems.de verfügbar.
1 ingob 31
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 32
// + Software LICENSING TERMS
1 ingob 33
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 34
// + of HiSystems GmbH, Flachsmeerstrasse 2, 26802 Moormerland, Germany - the Licensor -
489 killagreg 35
// + The Licensor grants the customer a non-exclusive license to use the microcontroller firmware of the Flight-Ctrl, Navi-Ctrl, BL-Ctrl, and MK3Mag hardware
360 holgerb 36
// + (the Software) exclusively for private purposes. The License is unrestricted with respect to time and territory*.
37
// + The Software may only be used with the Licensor's products.
38
// + The Software provided by the Licensor is protected by copyright. With respect to the relationship between the parties to this
39
// + agreement, all rights pertaining to the Software and other documents provided during the preparation and execution of this
40
// + agreement shall be the property of the Licensor.
41
// + The information contained in the Software copyright notices, trademarks, other legal reservations, serial numbers and other
42
// + features that can be used to identify the program may not be altered or defaced by the customer.
43
// + The customer shall be responsible for taking reasonable precautions
44
// + for the safe use of the Software. The customer shall test the Software thoroughly regarding its suitability for the
45
// + intended purpose before implementing it for actual operation. The Licensor's liability shall be limited to the extent of typical and
46
// + foreseeable damage to the extent permitted by law, notwithstanding statutory liability for bodily injury and product
47
// + liability. However, the Licensor shall be entitled to the defense of contributory negligence.
48
// + The customer will take adequate precautions in the case, that the software is not working properly. The customer will test
49
// + the software for his purpose before any operational usage. The customer will backup his data before using the software.
50
// + The customer understands that the Licensor collects, stores and processes, and, where required, forwards, customer data
51
// + to third parties to the extent necessary for executing the agreement, subject to applicable data protection and privacy regulations.
52
// + *) The territory aspect only refers to the place where the Software is used, not its programmed range.
53
// + #### END OF LICENSING TERMS ####
54
// + Note: For information on license extensions (e.g. commercial use), please contact us at info(@)hisystems.de.
1 ingob 55
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
41 ingob 56
//#define MCLK96MHZ
1 ingob 57
const unsigned long _Main_Crystal = 25000;
491 killagreg 58
//#include <stdio.h>
693 holgerb 59
#include <string.h>
41 ingob 60
#include "91x_lib.h"
61
#include "led.h"
62
#include "uart0.h"
63
#include "uart1.h"
64
#include "uart2.h"
215 killagreg 65
#include "gps.h"
489 killagreg 66
#include "i2c.h"
242 killagreg 67
#include "compass.h"
426 holgerb 68
#include "ncmag.h"
119 killagreg 69
#include "timer1.h"
70
#include "timer2.h"
134 killagreg 71
#include "analog.h"
41 ingob 72
#include "spi_slave.h"
73
#include "fat16.h"
74
#include "sdc.h"
82 killagreg 75
#include "logging.h"
156 killagreg 76
#include "params.h"
88 killagreg 77
#include "settings.h"
154 killagreg 78
#include "config.h"
1 ingob 79
#include "main.h"
250 ingob 80
#include "debug.h"
254 killagreg 81
#include "eeprom.h"
350 holgerb 82
#include "ssc.h"
362 holgerb 83
#include "sdc.h"
380 holgerb 84
#include "uart1.h"
688 holgerb 85
#include "canbus.h"
706 holgerb 86
#include "triggerlog.h"
254 killagreg 87
 
427 killagreg 88
 
314 killagreg 89
#ifdef FOLLOW_ME
90
u8 TransmitAlsoToFC = 0;
91
#endif
41 ingob 92
u32 TimerCheckError;
489 killagreg 93
u8 ErrorCode = 0;
41 ingob 94
u16 BeepTime;
92 killagreg 95
u8  NCFlags = 0;
153 killagreg 96
s16 GeoMagDec = 0; // local magnetic declination in 0.1 deg
328 holgerb 97
u8 ErrorGpsFixLost = 0;
513 killagreg 98
u8 FromFC_LoadWP_List = 0, FromFC_Load_SinglePoint = 0, FromFC_Save_SinglePoint = 0;
531 holgerb 99
u8 ToFC_MaxWpListIndex = 4;
255 killagreg 100
u8 ClearFCStatusFlags = 0;
41 ingob 101
u8 StopNavigation = 0;
378 holgerb 102
volatile u32 PollingTimeout = 10000;
41 ingob 103
Param_t Parameter;
699 holgerb 104
Partner_t Partner;
78 holgerb 105
volatile FC_t FC;
378 holgerb 106
volatile u32 SPIWatchDog = 15000; // stop Navigation if this goes to zero
400 holgerb 107
volatile u32 SD_WatchDog = 15000; // stop Logging if this goes to zero
663 holgerb 108
u32 CountGpsProcessedIn5Sec = 50,CountNewGpsDataIn5Sec = 25, FreqGpsNavProcessed = 0, FreqNewGpsData = 0;
504 holgerb 109
u8 NewWPL_Name = 0;
532 holgerb 110
u32 MaxWP_Radius_in_m = 0;
41 ingob 111
s8 ErrorMSG[25];
699 holgerb 112
s8 PartnerErrorMSG[25] = "     ---                \0";
533 holgerb 113
u32 TimeSinceMotorStart = 0;
699 holgerb 114
u8 IamMaster = NOTHING; // for Master/Slave Redundance
41 ingob 115
 
1 ingob 116
//----------------------------------------------------------------------------------------------------
41 ingob 117
void SCU_Config(void)
1 ingob 118
{
41 ingob 119
        /* configure PLL and set it as master clock source */
120
        SCU_MCLKSourceConfig(SCU_MCLK_OSC);             // set master clock source to external oscillator clock (25MHz) before diabling the PLL
121
        SCU_PLLCmd(DISABLE);                                    // now disable the PLL
122
        #ifdef MCLK96MHZ
123
        SCU_BRCLKDivisorConfig(SCU_BRCLK_Div2); // set BRCLK to MCLK/2 = 48MHz
124
        SCU_PCLKDivisorConfig(SCU_PCLK_Div4);   // set PCLK     (APB bus clock) divisor to 4 (half Reference Clock)
125
        SCU_RCLKDivisorConfig(SCU_RCLK_Div2);   // set RCLK     (Reference Clock) divisor to 1 (full PPL clock)
126
        SCU_HCLKDivisorConfig(SCU_HCLK_Div2);   // set HCLK     (AHB bus clock) divisor to 1 (full Reference Clock)
127
        SCU_PLLFactorsConfig(192,25,2);                 // PLL = 96 MHz, Feedback Divider N=192, Pre-Divider M=25, Post-Divider P=2
128
        #else
129
        SCU_BRCLKDivisorConfig(SCU_BRCLK_Div1); // set BRCLK to MCLK = 48MHz
130
        SCU_PCLKDivisorConfig(SCU_PCLK_Div2);   // set PCLK     (APB bus clock) divisor to 2 (half Reference Clock)
131
        SCU_RCLKDivisorConfig(SCU_RCLK_Div1);   // set RCLK     (Reference Clock) divisor to 1 (full PPL clock)
132
        SCU_HCLKDivisorConfig(SCU_HCLK_Div1);   // set HCLK     (AHB bus clock) divisor to 1 (full Reference Clock)
133
        SCU_PLLFactorsConfig(192,25,3);                 // PLL = 48 MHz, Feedback Divider N=192, Pre-Divider M=25, Post-Divider P=3
134
        #endif
135
        SCU_PLLCmd(ENABLE);                                     // Enable PLL (is disabled by SCU_PLLFactorsConfig)
136
        SCU_MCLKSourceConfig(SCU_MCLK_PLL);     // set master clock source to PLL
137
}
1 ingob 138
 
41 ingob 139
//----------------------------------------------------------------------------------------------------
140
void GetNaviCtrlVersion(void)
1 ingob 141
{
41 ingob 142
        u8 msg[25];
270 killagreg 143
 
530 holgerb 144
        sprintf(msg,"\n\r NaviCtrl HW: V%d.%d SW: V%d.%02d%c", UART_VersionInfo.HWMajor/10, UART_VersionInfo.HWMajor%10, VERSION_MAJOR,  VERSION_MINOR, 'a'+ VERSION_PATCH);
110 killagreg 145
        UART1_PutString(msg);
1 ingob 146
}
147
 
148
//----------------------------------------------------------------------------------------------------
231 holgerb 149
 
41 ingob 150
void CheckErrors(void)
151
{
516 holgerb 152
    static s32 no_error_delay = 0;
328 holgerb 153
        s32 newErrorCode = 0;
232 killagreg 154
        UART_VersionInfo.HardwareError[0] = 0;
231 holgerb 155
 
489 killagreg 156
        if(CheckDelay(I2CBus(Compass_I2CPort)->Timeout) || (Compass_Heading < 0)) DebugOut.StatusRed |= AMPEL_COMPASS;
338 holgerb 157
        else DebugOut.StatusRed &= ~AMPEL_COMPASS; // MK3Mag green status
231 holgerb 158
 
338 holgerb 159
        if((FC.Error[1] & FC_ERROR1_I2C) || (FC.Error[1] & FC_ERROR1_BL_MISSING)) DebugOut.StatusRed |= AMPEL_BL;
160
        else DebugOut.StatusRed &= ~AMPEL_BL; // BL-Ctrl green status
232 killagreg 161
 
338 holgerb 162
        if(UART_VersionInfo.HardwareError[0] || UART_VersionInfo.HardwareError[1]) DebugOut.StatusRed |= AMPEL_NC;
163
        else DebugOut.StatusRed &= ~AMPEL_NC;
164
 
489 killagreg 165
        if(CheckDelay(I2CBus(Compass_I2CPort)->Timeout))
41 ingob 166
        {
489 killagreg 167
                LED_RED_ON;
472 holgerb 168
                sprintf(ErrorMSG,"no compass communica");
489 killagreg 169
                //Reset Compass communication
501 holgerb 170
                if(Compass_I2CPort == NCMAG_PORT_EXTERN) I2CBus_Init(I2C0);     else I2CBus_Init(I2C1);
489 killagreg 171
                Compass_Init();
472 holgerb 172
                newErrorCode = 4;
41 ingob 173
                StopNavigation = 1;
472 holgerb 174
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_COMPASS_RX;
175
                DebugOut.StatusRed |= AMPEL_COMPASS;
41 ingob 176
        }
488 holgerb 177
        else if(CompassValueErrorCount > 30)
178
        {
179
                LED_RED_ON;
180
                sprintf(ErrorMSG,"compass sensor error");
181
                newErrorCode = 34;
182
                StopNavigation = 1;
183
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_COMPASS_VALUE;
501 holgerb 184
                if(Compass_I2CPort == NCMAG_PORT_EXTERN) I2CBus_Init(I2C0);     else I2CBus_Init(I2C1);
489 killagreg 185
                Compass_Init();
488 holgerb 186
        }
489 killagreg 187
        else if((FCCalibActive || CompassCalState) && FC_Version.Hardware)
188
        {
488 holgerb 189
                sprintf(ErrorMSG,"Calibrate... ");
489 killagreg 190
                newErrorCode = 0;
488 holgerb 191
                ErrorCode = 0;
192
                no_error_delay = 1;
489 killagreg 193
        }
194
        else if(CheckDelay(SPI0_Timeout))
483 holgerb 195
        {
489 killagreg 196
                LED_RED_ON;
472 holgerb 197
                sprintf(ErrorMSG,"no FC communication ");
198
                newErrorCode = 3;
199
                StopNavigation = 1;
200
                DebugOut.StatusGreen &= ~AMPEL_FC; // status of FC Present
201
                DebugOut.StatusGreen &= ~AMPEL_BL; // status of BL Present
202
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_SPI_RX;
203
        }
41 ingob 204
        else if(FC_Version.Compatible != FC_SPI_COMPATIBLE)
205
        {
206
                LED_RED_ON;
318 holgerb 207
#ifndef FOLLOW_ME
41 ingob 208
                sprintf(ErrorMSG,"FC not compatible ");
318 holgerb 209
#else
210
                sprintf(ErrorMSG,"! FollowMe only ! ");
211
#endif
328 holgerb 212
                newErrorCode = 1;
41 ingob 213
                StopNavigation = 1;
256 killagreg 214
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_FC_INCOMPATIBLE;
338 holgerb 215
                DebugOut.StatusRed |= AMPEL_NC;
41 ingob 216
        }
255 killagreg 217
        else if(FC.Error[0] & FC_ERROR0_GYRO_NICK)
231 holgerb 218
        {
219
                LED_RED_ON;
220
                sprintf(ErrorMSG,"ERR: FC Nick Gyro");
328 holgerb 221
                newErrorCode = 10;
232 killagreg 222
        }
255 killagreg 223
        else if(FC.Error[0] & FC_ERROR0_GYRO_ROLL)
231 holgerb 224
        {
225
                LED_RED_ON;
226
                sprintf(ErrorMSG,"ERR: FC Roll Gyro");
328 holgerb 227
                newErrorCode = 11;
232 killagreg 228
        }
255 killagreg 229
        else if(FC.Error[0] & FC_ERROR0_GYRO_YAW)
231 holgerb 230
        {
231
                LED_RED_ON;
232
                sprintf(ErrorMSG,"ERR: FC Yaw Gyro");
328 holgerb 233
                newErrorCode = 12;
232 killagreg 234
        }
255 killagreg 235
        else if(FC.Error[0] & FC_ERROR0_ACC_NICK)
231 holgerb 236
        {
237
                LED_RED_ON;
238
                sprintf(ErrorMSG,"ERR: FC Nick ACC");
328 holgerb 239
                newErrorCode = 13;
232 killagreg 240
        }
255 killagreg 241
        else if(FC.Error[0] & FC_ERROR0_ACC_ROLL)
231 holgerb 242
        {
243
                LED_RED_ON;
244
                sprintf(ErrorMSG,"ERR: FC Roll ACC");
328 holgerb 245
                newErrorCode = 14;
232 killagreg 246
        }
255 killagreg 247
        else if(FC.Error[0] & FC_ERROR0_ACC_TOP)
231 holgerb 248
        {
249
                LED_RED_ON;
327 holgerb 250
                sprintf(ErrorMSG,"ERR:FC Z-ACC");
328 holgerb 251
                newErrorCode = 15;
232 killagreg 252
        }
351 holgerb 253
        else if(NC_To_FC_Flags & NC_TO_FC_FLYING_RANGE)
254
        {
255
                LED_RED_ON;
256
                sprintf(ErrorMSG,"ERR:Flying range!");
257
                newErrorCode = 28;
258
        }
255 killagreg 259
        else if(FC.Error[0] & FC_ERROR0_PRESSURE)
231 holgerb 260
        {
489 killagreg 261
                LED_RED_ON;
327 holgerb 262
                sprintf(ErrorMSG,"ERR:Pressure sensor");
328 holgerb 263
                newErrorCode = 16;
232 killagreg 264
        }
255 killagreg 265
        else if(FC.Error[1] &  FC_ERROR1_I2C)
231 holgerb 266
        {
267
                LED_RED_ON;
327 holgerb 268
                sprintf(ErrorMSG,"ERR:I2C FC to BL");
328 holgerb 269
                newErrorCode = 17;
232 killagreg 270
        }
255 killagreg 271
        else if(FC.Error[1] &  FC_ERROR1_BL_MISSING)
231 holgerb 272
        {
273
                LED_RED_ON;
274
                sprintf(ErrorMSG,"ERR: Bl Missing");
328 holgerb 275
                newErrorCode = 18;
232 killagreg 276
        }
255 killagreg 277
        else if(FC.Error[1] &  FC_ERROR1_MIXER)
231 holgerb 278
        {
279
                LED_RED_ON;
280
                sprintf(ErrorMSG,"Mixer Error");
328 holgerb 281
                newErrorCode = 19;
232 killagreg 282
        }
350 holgerb 283
        else if(CheckDelay(UBX_Timeout) && Parameter.GlobalConfig & FC_CFG_GPS_AKTIV)
41 ingob 284
        {
285
                LED_RED_ON;
548 holgerb 286
                sprintf(ErrorMSG,"no GPS communication");
287
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_GPS_RX;
288
                UART_VersionInfo.Flags &= ~NC_VERSION_FLAG_GPS_PRESENT;
289
                newErrorCode = 5;
41 ingob 290
                StopNavigation = 1;
291
        }
426 holgerb 292
        else if(Compass_Heading < 0 && NCMAG_Present && !NCMAG_IsCalibrated)
293
        {
294
                LED_RED_ON;
295
                sprintf(ErrorMSG,"compass not calibr.");
296
                newErrorCode = 31;
297
                StopNavigation = 1;
298
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_COMPASS_VALUE;
299
        }
254 killagreg 300
        else if(Compass_Heading < 0)
41 ingob 301
        {
302
                LED_RED_ON;
303
                sprintf(ErrorMSG,"bad compass value ");
328 holgerb 304
                newErrorCode = 6;
41 ingob 305
                StopNavigation = 1;
256 killagreg 306
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_COMPASS_VALUE;
41 ingob 307
        }
255 killagreg 308
        else if((FC.Error[1] &  FC_ERROR1_SPI_RX))
199 killagreg 309
        {
310
                LED_RED_ON;
311
                sprintf(ErrorMSG,"FC spi rx error ");
328 holgerb 312
                newErrorCode = 8;
213 killagreg 313
                StopNavigation = 1;
199 killagreg 314
        }
255 killagreg 315
        else if(FC.Error[0] &  FC_ERROR0_CAREFREE)
231 holgerb 316
        {
317
                LED_RED_ON;
318
                sprintf(ErrorMSG,"FC: Carefree Error");
328 holgerb 319
                newErrorCode = 20;
232 killagreg 320
        }
706 holgerb 321
        else if(FC.BAT_Voltage < 45)
322
        {
323
         LED_RED_ON;
324
         sprintf(ErrorMSG,"ERR:Power Supply");
325
         newErrorCode = 41;
326
        }
327
        else
328
        if(FC.Error[1] & FC_ERROR1_RC_VOLTAGE)
329
        {
330
         LED_RED_ON;
331
         sprintf(ErrorMSG,"ERR: 5V RC-Supply");
332
         newErrorCode = 40;
333
        }
255 killagreg 334
        else if(FC.Error[1] &  FC_ERROR1_PPM)
41 ingob 335
        {
336
                LED_RED_ON;
337
                sprintf(ErrorMSG,"RC Signal lost ");
328 holgerb 338
                newErrorCode = 7;
41 ingob 339
        }
489 killagreg 340
        else if(ErrorGpsFixLost)
328 holgerb 341
        {
489 killagreg 342
                LED_RED_ON;
343
                sprintf(ErrorMSG,"GPS Fix lost    ");
344
                newErrorCode = 21;
328 holgerb 345
        }
330 holgerb 346
        else if(ErrorDisturbedEarthMagnetField)
347
        {
489 killagreg 348
                LED_RED_ON;
349
                sprintf(ErrorMSG,"Magnet error    ");
350
                newErrorCode = 22;
351
                DebugOut.StatusRed |= AMPEL_COMPASS | AMPEL_NC;
352
                UART_VersionInfo.HardwareError[0] |= NC_ERROR0_COMPASS_VALUE;
330 holgerb 353
        }
533 holgerb 354
        else if(((ErrorCheck_BL_MinOfMaxPWM == 40 && (TimeSinceMotorStart > 3))  || (ErrorCheck_BL_MinOfMaxPWM == 39)) && !ErrorCode)
338 holgerb 355
        {
489 killagreg 356
                LED_RED_ON;
357
                sprintf(ErrorMSG,"ERR:Motor restart  ");
358
                newErrorCode = 23;
359
                DebugOut.StatusRed |= AMPEL_BL;
338 holgerb 360
        }
472 holgerb 361
        else if(BL_MinOfMaxPWM < 30 && !ErrorCode)
338 holgerb 362
        {
489 killagreg 363
                u16 i;
516 holgerb 364
                for(i = 0; i < 12; i++) if(Motor[i].MaxPWM == BL_MinOfMaxPWM) break;
489 killagreg 365
                LED_RED_ON;
366
                sprintf(ErrorMSG,"ERR:BL%2d Test:%2d ",i+1,BL_MinOfMaxPWM);
516 holgerb 367
                newErrorCode = 32;
368
                DebugOut.StatusRed |= AMPEL_BL;
472 holgerb 369
        }
533 holgerb 370
        else if(ErrorCheck_BL_MinOfMaxPWM < 248 && (TimeSinceMotorStart > 3) && !ErrorCode)
472 holgerb 371
        {
489 killagreg 372
                LED_RED_ON;
373
                sprintf(ErrorMSG,"ERR:BL Limitation   ");
374
                newErrorCode = 24;
375
                DebugOut.StatusRed |= AMPEL_BL;
338 holgerb 376
        }
491 killagreg 377
        else if((NCFlags & NC_FLAG_RANGE_LIMIT) && (FC.StatusFlags & FC_STATUS_FLY) && !ErrorCode)
348 holgerb 378
        {
489 killagreg 379
                LED_RED_ON;
532 holgerb 380
                sprintf(ErrorMSG,"ERR:GPS WP range ");
489 killagreg 381
                newErrorCode = 25;
382
                DebugOut.StatusRed |= AMPEL_NC;
348 holgerb 383
        }
397 holgerb 384
        else if((!SD_SWITCH || (SDCardInfo.Valid == 0)) && Parameter.GlobalConfig3 & CFG3_NO_SDCARD_NO_START && !(FC.StatusFlags & FC_STATUS_FLY))
350 holgerb 385
        {
489 killagreg 386
                LED_RED_ON;
387
                sprintf(ErrorMSG,"ERR:No SD-Card  ");
388
                newErrorCode = 26;
389
                DebugOut.StatusRed |= AMPEL_NC;
350 holgerb 390
        }
383 holgerb 391
        else if((SD_LoggingError || (SD_WatchDog < 2000 && SD_WatchDog != 0)) && Parameter.GlobalConfig3 & CFG3_NO_SDCARD_NO_START)
351 holgerb 392
        {
489 killagreg 393
                LED_RED_ON;
394
                sprintf(ErrorMSG,"ERR:SD Logging abort");
395
                newErrorCode = 27;
396
                DebugOut.StatusRed |= AMPEL_NC;
397
                SD_LoggingError = 0;
351 holgerb 398
        }
355 holgerb 399
        else if(((AbsoluteFlyingAltitude) && (NaviData.Altimeter / 20 >= AbsoluteFlyingAltitude)) && (FC.StatusFlags & FC_STATUS_FLY))
400
        {
489 killagreg 401
                LED_RED_ON;
402
                sprintf(ErrorMSG,"ERR:Max Altitude ");
403
                newErrorCode = 29;
404
                DebugOut.StatusRed |= AMPEL_NC;
355 holgerb 405
        }
516 holgerb 406
        else if(Parameter.GlobalConfig3 & CFG3_NO_GPSFIX_NO_START && !(NCFlags & NC_FLAG_GPS_OK) && ((FC.StatusFlags & (FC_STATUS_START | FC_STATUS_MOTOR_RUN)) || (FC.StickGas < -50 && FC.StickYaw < -50)))
489 killagreg 407
        {
408
                LED_RED_ON;
409
                sprintf(ErrorMSG,"No GPS Fix      ");
410
                newErrorCode = 30;
398 holgerb 411
        }
663 holgerb 412
        else if((FreqNewGpsData <= 35 || FreqNewGpsData > 60) && TimeSinceMotorStart > 15)
646 holgerb 413
        {
414
                LED_RED_ON;
659 holgerb 415
                sprintf(ErrorMSG,"GPS Update rate ");
416
                newErrorCode = 38;
646 holgerb 417
        }
615 holgerb 418
        else if(NC_GPS_ModeCharacter == 'F')
419
        {                                                                
420
                sprintf(ErrorMSG,"FAILSAFE pos.!  ");
421
                newErrorCode = 35;
422
        }
423
        else if(FC.StatusFlags3 & FC_STATUS3_REDUNDANCE_ERROR)
424
        {                                                                
425
                sprintf(ErrorMSG,"ERR:Redundancy  ");
426
                newErrorCode = 36;
427
        }
428
        else if(FC.StatusFlags3 & FC_STATUS3_REDUNDANCE_TEST)
429
        {                                                                
430
                sprintf(ErrorMSG,"Redundancy test ");
431
                newErrorCode = 37;
432
        }
699 holgerb 433
        else if(CanbusTimeOut == 1)
434
        {                                                                
435
                sprintf(ErrorMSG,"ERR: Canbus");
436
                newErrorCode = 39;
437
        }
706 holgerb 438
        else
439
        if(FC.Error[1] & FC_ERROR1_ACC_NOT_CAL)
440
        {
441
         LED_RED_ON;
442
         sprintf(ErrorMSG,"ACC not calib.");
443
         newErrorCode = 42;
444
        }
41 ingob 445
        else // no error occured
446
        {
447
                StopNavigation = 0;
448
                LED_RED_OFF;
489 killagreg 449
                if(no_error_delay) { no_error_delay--;  }
450
                else
451
                {
452
                        sprintf(ErrorMSG,"No Error            ");
453
                        ErrorCode = 0;
454
                }
41 ingob 455
        }
328 holgerb 456
 
516 holgerb 457
    if(newErrorCode)
458
         {
459
          if(FC.StatusFlags & FC_STATUS_MOTOR_RUN) no_error_delay = 8; // delay the errors if the motors are running
460
          ErrorCode = newErrorCode;
461
         }
462
 FC.Error[0] = 0;
463
 FC.Error[1] = 0;
464
 FC.Error[2] = 0;
465
 FC.Error[3] = 0;
466
 FC.Error[4] = 0;
467
 ErrorGpsFixLost = 0;
530 holgerb 468
 ErrorCheck_BL_MinOfMaxPWM = BL_MinOfMaxPWM;
41 ingob 469
}
24 StephanB 470
 
693 holgerb 471
unsigned char RAM_Checksum(unsigned char* pBuffer, u16 len)
472
{
473
        u8 crc = 0xAA;
474
        u16 i;
475
        for(i=0; i<len; i++) crc += pBuffer[i];
476
        return crc;
477
}
378 holgerb 478
 
479
 
484 holgerb 480
u8 Polling(void)
378 holgerb 481
{
564 holgerb 482
        static u8 running = 0, oldFcFlags = 0, count5sec, TimeoutGPS_Process;
489 killagreg 483
        static u32 old_ms = 0;
484
 
516 holgerb 485
        if(running) {/*DebugOut.Analog[]++;*/ return(1);};
489 killagreg 486
        running = 1;
487
 
488
        if(CountMilliseconds != old_ms)  // 1 ms
489
        {
699 holgerb 490
                if(CanbusTimeOut >= 2) CanbusTimeOut--;
483 holgerb 491
                old_ms = CountMilliseconds;
492
                Compass_Update();               // update compass communication
493
                Analog_Update();                // get new ADC values
494
                CalcHeadFree();
688 holgerb 495
                if(UART_VersionInfo.HWMajor >= 30) ProcessCanBus();
564 holgerb 496
                if(!CheckDelay(SPI0_Timeout)) TimeoutGPS_Process = 0;
497
                else if(CountMilliseconds - SPI0_Timeout > 30000000L) SPI0_Timeout = CountMilliseconds; // avoid too long overflows
498
                if(++TimeoutGPS_Process >= 25)
499
                 {
500
                  GPS_Navigation(&GPSData, &(ToFlightCtrl.GPSStick)); // process the GPS data even if the FC is not connected
501
                  TimeoutGPS_Process = 0;
502
                 }
483 holgerb 503
        }
488 holgerb 504
 
489 killagreg 505
        SPI0_UpdateBuffer();    // also calls the GPS-functions
506
        UART0_ProcessRxData();  // GPS process request
507
        UART0_TransmitTxData(); // GPS send answer
508
        UART1_ProcessRxData();  // PC process request
509
        UART1_TransmitTxData(); // PC send answer
510
        UART2_TransmitTxData(); // FC send answer
511
 
533 holgerb 512
        if(!(FC.StatusFlags & FC_STATUS_MOTOR_RUN)) TimeSinceMotorStart = 0;
513
 
693 holgerb 514
        if(HugeBlockFromFC.WhoAmI == 1) // contains eeprom-Data
515
         {
516
      u8 crc1, crc2;
517
          crc1 = HugeBlockFromFC.Data[sizeof(EE_Parameter)-1];                                                  // contains the EE_Parameter.crc
518
          crc2 = RAM_Checksum((u8 *)(&HugeBlockFromFC.Data), sizeof(EE_Parameter)-1);   // calculates the current crc
519
          if(crc1 == crc2)
520
           {
521
                memcpy(&EE_Parameter, (u8 *) HugeBlockFromFC.Data, sizeof(EE_Parameter));
522
                RequestConfigFromFC = 0;
523
           }
524
                HugeBlockFromFC.WhoAmI = 0;
525
         }
526
 
663 holgerb 527
    if(FCCalibActive)
528
            {
529
             count5sec = 0;
530
             FreqNewGpsData = 50;
531
             CountNewGpsDataIn5Sec = 25;
532
             CountGpsProcessedIn5Sec = 0;
533
             TimerCheckError = SetDelay(1000);
534
            }
535
 
489 killagreg 536
        // ---------------- Error Check Timing ----------------------------
537
        if(CheckDelay(TimerCheckError) || (FC.StatusFlags & FC_STATUS_START && !(oldFcFlags & FC_STATUS_START))) // Timer or FY wants to start
538
        {
539
                if(CheckDelay(TimerCheckError))
380 holgerb 540
                {
706 holgerb 541
                        if(!BLITZ_CONNECTED) BlitzSchuhConnected = 1; else BlitzSchuhConnected = 0;
489 killagreg 542
                        TimerCheckError = SetDelay(1000);
543
                        if(CompassValueErrorCount) CompassValueErrorCount--;
544
                        if(++count5sec == 5)
545
                        {
663 holgerb 546
                                FreqGpsNavProcessed = CountGpsProcessedIn5Sec * 2; //400 = 40Hz
547
                                FreqNewGpsData = CountNewGpsDataIn5Sec;                    // 50 = 5,0Hz
548
 
453 holgerb 549
                                count5sec = 0;
489 killagreg 550
                                CountGpsProcessedIn5Sec = 0;
659 holgerb 551
                                CountNewGpsDataIn5Sec = FreqNewGpsData / 2;
663 holgerb 552
                                ConfirmGpsUpdateRate(FreqNewGpsData);
489 killagreg 553
                        }
380 holgerb 554
                }
489 killagreg 555
                oldFcFlags = FC.StatusFlags;
564 holgerb 556
//              if(CheckDelay(SPI0_Timeout) && (DebugUART == UART1)) GPS_Navigation(&GPSData, &(ToFlightCtrl.GPSStick)); // process the GPS data even if the FC is not connected
489 killagreg 557
 
558
                if(!CheckDelay(SPI0_Timeout) || (DebugUART == UART1)) CheckErrors();
559
 
533 holgerb 560
                if(FC.StatusFlags & FC_STATUS_FLY)
561
                 {
562
                  NaviData.FlyingTime++; // we want to count the battery-time
563
                  TimeSinceMotorStart++;
564
                 }
565
 
489 killagreg 566
                if(SerialLinkOkay) SerialLinkOkay--;
594 holgerb 567
                if(SerialLinkOkay < 250 - 6) NCFlags |= NC_FLAG_NOSERIALLINK; // 6 seconds timeout for serial communication
489 killagreg 568
                else NCFlags &= ~NC_FLAG_NOSERIALLINK;
569
                if(StopNavigation && (Parameter.NaviGpsModeControl >=  50) && (Parameter.GlobalConfig & FC_CFG_GPS_AKTIV)) BeepTime = 1000;
570
        }
571
        running = 0;
514 holgerb 572
//      if(!PollingTimeout) DebugOut.Analog[17]++;
489 killagreg 573
        return(0);
378 holgerb 574
}
575
 
380 holgerb 576
// the handler will be cyclic called by the timer 1 ISR
577
// used is for critical timing parts that normaly would handled
578
// within the main loop that could block longer at logging activities
483 holgerb 579
void EXTIT3_IRQHandler(void)  // 1ms - Takt
154 killagreg 580
{
195 killagreg 581
        IENABLE;
154 killagreg 582
        VIC_ITCmd(EXTIT3_ITLine,DISABLE); // disable irq
489 killagreg 583
 
516 holgerb 584
        if(PollingTimeout == 0)
585
        {
586
                PollingTimeout = 5;
587
                //if(Polling() == 0) DebugOut.Analog[]++;
588
                Polling();
380 holgerb 589
        }
378 holgerb 590
 
591
        VIC_SWITCmd(EXTIT3_ITLine,DISABLE); // clear pending bit
195 killagreg 592
        VIC_ITCmd(EXTIT3_ITLine, ENABLE); // enable irq
593
        IDISABLE;
378 holgerb 594
        VIC1->VAR = 0xFF; // write any value to VIC0 Vector address register
154 killagreg 595
}
596
 
41 ingob 597
//----------------------------------------------------------------------------------------------------
598
int main(void)
599
{
489 killagreg 600
 
601
//      static u32 ftimer =0;
602
//      static u8 fstate = 0;
456 holgerb 603
//      static File_t* f = NULL;
489 killagreg 604
 
605
 
41 ingob 606
        /* Configure the system clocks */
607
        SCU_Config();
608
        /* init VIC (Vectored Interrupt Controller)     */
609
        SCU_AHBPeriphClockConfig(__VIC,ENABLE); // enable AHB bus clock for VIC
610
        SCU_AHBPeriphReset(__VIC, DISABLE);             // disable reset state for VIC
611
        VIC_DeInit();                                                   // deinitializes the VIC module registers to their default reset values.
196 killagreg 612
        VIC_InitDefaultVectors();
613
 
119 killagreg 614
        // initialize timer 1 for System Clock and delay rountines
41 ingob 615
        TIMER1_Init();
616
        // initialize the LEDs (needs Timer 1)
617
        Led_Init();
618
        // initialize the debug UART1
619
        UART1_Init();
110 killagreg 620
        UART1_PutString("\r\n---------------------------------------------");
120 killagreg 621
        // initialize timer 2 for servo outputs
180 killagreg 622
        //TIMER2_Init();
41 ingob 623
        // initialize UART2 to FLIGHTCTRL
624
        UART2_Init();
625
        // initialize UART0 (to MKGPS or MK3MAG)
626
        UART0_Init();
134 killagreg 627
        // initialize adc
628
        Analog_Init();
41 ingob 629
        // initialize SPI0 to FC
630
        SPI0_Init();
469 killagreg 631
        // initialize i2c busses (needs Timer 1)
489 killagreg 632
        I2CBus_Init(I2C0);
633
        I2CBus_Init(I2C1);
247 killagreg 634
        // initialize fat16 partition on sd card (needs Timer 1)
41 ingob 635
        Fat16_Init();
156 killagreg 636
        // initialize NC params
637
        NCParams_Init();
88 killagreg 638
        // initialize the settings
639
        Settings_Init();
92 killagreg 640
        // initialize logging (needs settings)
82 killagreg 641
        Logging_Init();
1 ingob 642
 
699 holgerb 643
//UART_VersionInfo.HWMajor = 30;
362 holgerb 644
        LED_GRN_ON;
41 ingob 645
        TimerCheckError = SetDelay(3000);
175 holgerb 646
        UART1_PutString("\r\n++++++++++++++++++++++++++++++++++++++++++");
110 killagreg 647
        UART1_PutString("\n\r Version information:");
116 killagreg 648
 
41 ingob 649
        GetNaviCtrlVersion();
338 holgerb 650
        DebugOut.StatusGreen = AMPEL_NC | AMPEL_COMPASS; // NC and MK3Mag
651
        DebugOut.StatusRed = 0x00;
400 holgerb 652
        UART1_PutString("\r\n++++++++++++++++++++++++++++++++++++++++++");
149 killagreg 653
 
516 holgerb 654
        Compass_Init();
270 killagreg 655
 
314 killagreg 656
#ifdef FOLLOW_ME
657
        TransmitAlsoToFC = 1;
658
        UART1_PutString("\r\n++++++++++++++++++++++++++++++++++++++++++");
659
        UART1_PutString("\n\r FOLLOW-ME Transmitter only!");
660
        UART1_PutString("\r\n++++++++++++++++++++++++++++++++++++++++++\r\n\r\n");
661
        TransmitAlsoToFC = 0;
662
#else
150 killagreg 663
        SPI0_GetFlightCtrlVersion();
664
        if(FC_Version.Compatible != FC_SPI_COMPATIBLE)
41 ingob 665
        {
461 holgerb 666
                UART1_PutString("\n\r Flight-Ctrl not compatible\n\r");
41 ingob 667
                LED_RED_ON;
668
        }
314 killagreg 669
#endif
706 holgerb 670
if(IamMaster == SLAVE)  UART1_PutString(" SLAVE\r\n");
671
if(IamMaster == MASTER) UART1_PutString(" MASTER\r\n");
528 holgerb 672
 
706 holgerb 673
        UBX_Setup(); // inits the GPS-Module via ubx
674
        GPS_Init();
213 killagreg 675
        // ---------- Prepare the isr driven
154 killagreg 676
        // set to absolute lowest priority
516 holgerb 677
    VIC_Config(EXTIT3_ITLine, VIC_IRQ, PRIORITY_SW);
195 killagreg 678
        // enable interrupts
516 holgerb 679
    VIC_ITCmd(EXTIT3_ITLine, ENABLE);
244 killagreg 680
 
250 ingob 681
        Debug_OK("START");
362 holgerb 682
        UART1_PutString("\r\n");
380 holgerb 683
        fifo_purge(&UART1_rx_fifo); // flush the whole fifo init buffer
684
        LED_GRN_ON;
685
        LED_RED_OFF;
530 holgerb 686
    Settings_GetParamValue(PID_SEND_NMEA,(u16 *) &NMEA_Interval);
461 holgerb 687
        UART1_PutString("\r\n");
528 holgerb 688
 
487 holgerb 689
        CompassValueErrorCount = 0;
503 holgerb 690
        I2CBus(Compass_I2CPort)->Timeout = SetDelay(3000);
688 holgerb 691
 
692
        // Intilizes the Canbus
693
        if(UART_VersionInfo.HWMajor >= 30) CanbusInit();
528 holgerb 694
// ++++++++++++++++++++++++++++++++++++++++++++++
154 killagreg 695
        for (;;) // the endless main loop
41 ingob 696
        {
484 holgerb 697
                PollingTimeout = 5;
431 killagreg 698
                Polling();
500 holgerb 699
// ++++++++++++++++++++++++++++++++++++++++++++++
700
                if(FromFC_LoadWP_List)
516 holgerb 701
                {
702
                   WPL_Store.Index = (FromFC_LoadWP_List & ~0x80);
703
                   if(WPL_Store.Index <= ToFC_MaxWpListIndex)
704
                   {
513 killagreg 705
                                if(PointList_ReadFromFile(&WPL_Store) == WPL_OK)
706
                                {
707
                                        if(FromFC_LoadWP_List & 0x80)// -> load relative
516 holgerb 708
                                        {
540 holgerb 709
                                         u32 angle;
710
                                         angle = (360 + GyroCompassCorrected/10 + Parameter.OrientationAngle * 15) % 360;
513 killagreg 711
                                                if(NCFlags & NC_FLAG_FREE || NaviData.TargetPositionDeviation.Distance > 7*10)
516 holgerb 712
                                        {  // take actual position
540 holgerb 713
                                                if(!PointList_Move(1,&(GPSData.Position),angle)) PointList_Clear();     // try to move wp-list so that 1st entry matches the current position 
516 holgerb 714
                                                }
715
                                        else
513 killagreg 716
                                                {  // take last target position
540 holgerb 717
                                                if(!PointList_Move(1, &(NaviData.TargetPosition),angle)) PointList_Clear();     // try to move wp-list so that 1st entry matches the current position 
513 killagreg 718
                                                }
719
                                        }
720
                                        if(FC.StatusFlags & FC_STATUS_FLY) PointList_WPActive(TRUE);
721
                                        GPS_pWaypoint = PointList_WPBegin(); // updates POI index
519 holgerb 722
                                        SpeakWaypointRached = 1;        // Speak once when the last Point is reached
723
                                        SpeakNextWaypoint = 1;          // Speak once as soon as the Points are active
724
                                        NCFlags &= ~NC_FLAG_TARGET_REACHED;
513 killagreg 725
                                        BeepTime = 150;
726
                                }
727
                        }
728
                        FromFC_LoadWP_List = 0;
729
                }
730
// ++++++++++++++++++++++++++++++++++++++++++++++
731
                if(FromFC_Save_SinglePoint)
732
                {
733
                        WPL_Store.Index = FromFC_Save_SinglePoint;
516 holgerb 734
                        if(WPL_Store.Index <= ToFC_MaxWpListIndex) if(PointList_SaveSinglePoint(&WPL_Store) == WPL_OK) BeepTime = 150;
513 killagreg 735
                        FromFC_Save_SinglePoint = 0;
736
                }
737
// ++++++++++++++++++++++++++++++++++++++++++++++
738
                if(FromFC_Load_SinglePoint)
739
                {
516 holgerb 740
                   WPL_Store.Index = FromFC_Load_SinglePoint;
741
                   if(WPL_Store.Index <= ToFC_MaxWpListIndex)
742
                   {
513 killagreg 743
                        if(PointList_LoadSinglePoint(&WPL_Store) == WPL_OK)
502 killagreg 744
                        {
745
                                if(FC.StatusFlags & FC_STATUS_FLY) PointList_WPActive(TRUE);
746
                                GPS_pWaypoint = PointList_WPBegin(); // updates POI index
519 holgerb 747
                                SpeakWaypointRached = 1;        // Speak once when the last Point is reached
748
                                SpeakNextWaypoint = 1;          // Speak once as soon as the Points are active
749
                                NCFlags &= ~NC_FLAG_TARGET_REACHED;
502 killagreg 750
                                BeepTime = 150;
751
                        }
516 holgerb 752
                   }
513 killagreg 753
                        FromFC_Load_SinglePoint = 0;
504 holgerb 754
                }
500 holgerb 755
// ++++++++++++++++++++++++++++++++++++++++++++++
431 killagreg 756
                // ---------------- Logging  ---------------------------------------
489 killagreg 757
                if(SD_WatchDog)
431 killagreg 758
                {
759
                        SD_WatchDog = 30000;
760
                        if(SDCardInfo.Valid == 1) Logging_Update();  // could be block some time for at max. 2 seconds, therefore move time critical part of the mainloop into the ISR of timer 1
516 holgerb 761
                        else
762
                        {
763
                         ToFC_MaxWpListIndex = 0;
764
                         if(FC.StatusFlags & FC_STATUS_START) SD_LoggingError = 100;
503 holgerb 765
                        }
431 killagreg 766
                        if(!SD_WatchDog) UART1_PutString("\n\rSD-Watchdog - Logging aborted\n\r");
767
                }
489 killagreg 768
 
769
/*
324 killagreg 770
                if(CheckDelay(ftimer))
771
                {
772
 
431 killagreg 773
                        static s8 filename[35];
774
                        static u8 i = 0;
775
                        s8 dbgmsg[40];
324 killagreg 776
 
489 killagreg 777
 
778
 
324 killagreg 779
                        ftimer = SetDelay(100);
780
                        if(FC.Poti[3]>100 && fstate == 0)
781
                        {
782
                                fstate = 1;
431 killagreg 783
                                sprintf(filename, "/toast/toasta/toast%02i.txt",i++);
324 killagreg 784
                        }
785
                        else if(FC.Poti[3]<100 && fstate == 2)
786
                        {
787
                                fstate = 3;
788
                        }
789
 
790
                        switch(fstate)
791
                        {
792
                                case 1:
431 killagreg 793
                                        sprintf(dbgmsg,"\r\nStart writing file: %s", filename);
794
                                        Debug(dbgmsg);
324 killagreg 795
                                        f = fopen_(filename, 'a');
796
                                        if(f== NULL) Fat16_Init();
797
                                        fstate = 2;
798
                                        break;
799
 
800
                                case 2:
801
                                        fputs_("\r\ntest edins sdv dsivbds iv dsivb disbv idsv bisd bv d suiv dsibsivbdis fbvisdöb visdbvisdb vidbfibds ibv", f);
802
                                        break;
489 killagreg 803
 
324 killagreg 804
                                case 3:
431 killagreg 805
                                        sprintf(dbgmsg,"\r\nClosing file: %s", filename);
806
                                        Debug(dbgmsg);
324 killagreg 807
                                        fclose_(f);
808
                                        fstate = 0;
809
                                        break;
810
 
811
                                default:
812
                                        break;
813
                        }
814
                }
594 holgerb 815
*/                                                       
24 StephanB 816
        }
1 ingob 817
}
516 holgerb 818
//DebugOut.Analog[]