Subversion Repositories FlightCtrl

Rev

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

Rev Author Line No. Line
2050 holgerb 1
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2
// + www.MikroKopter.com
3
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4
// + Software Nutzungsbedingungen (english version: see below)
5
// + der Fa. HiSystems GmbH, Flachsmeerstrasse 2, 26802 Moormerland - nachfolgend Lizenzgeber genannt -
6
// + Der Lizenzgeber räumt dem Kunden ein nicht-ausschließliches, zeitlich und räumlich* unbeschränktes Recht ein, die im den
7
// + Mikrocontroller verwendete Firmware für die Hardware Flight-Ctrl, Navi-Ctrl, BL-Ctrl, MK3Mag & PC-Programm MikroKopter-Tool 
8
// + - nachfolgend Software genannt - nur für private Zwecke zu nutzen.
9
// + Der Einsatz dieser Software ist nur auf oder mit Produkten des Lizenzgebers zulässig.
10
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
11
// + Die vom Lizenzgeber gelieferte Software ist urheberrechtlich geschützt. Alle Rechte an der Software sowie an sonstigen im
12
// + Rahmen der Vertragsanbahnung und Vertragsdurchführung überlassenen Unterlagen stehen im Verhältnis der Vertragspartner ausschließlich dem Lizenzgeber zu.
13
// + Die in der Software enthaltenen Copyright-Vermerke, Markenzeichen, andere Rechtsvorbehalte, Seriennummern sowie
14
// + sonstige der Programmidentifikation dienenden Merkmale dürfen vom Kunden nicht verändert oder unkenntlich gemacht werden.
15
// + Der Kunde trifft angemessene Vorkehrungen für den sicheren Einsatz der Software. Er wird die Software gründlich auf deren
16
// + Verwendbarkeit zu dem von ihm beabsichtigten Zweck testen, bevor er diese operativ einsetzt.
17
// + Die Haftung des Lizenzgebers wird - soweit gesetzlich zulässig - begrenzt in Höhe des typischen und vorhersehbaren
18
// + Schadens. Die gesetzliche Haftung bei Personenschäden und nach dem Produkthaftungsgesetz bleibt unberührt. Dem Lizenzgeber steht jedoch der Einwand 
19
// + des Mitverschuldens offen.
20
// + Der Kunde trifft angemessene Vorkehrungen für den Fall, dass die Software ganz oder teilweise nicht ordnungsgemäß arbeitet.
21
// + Er wird die Software gründlich auf deren Verwendbarkeit zu dem von ihm beabsichtigten Zweck testen, bevor er diese operativ einsetzt.
22
// + Der Kunde wird er seine Daten vor Einsatz der Software nach dem Stand der Technik sichern.
23
// + Der Kunde ist darüber unterrichtet, dass der Lizenzgeber seine Daten im zur Vertragsdurchführung erforderlichen Umfang
24
// + und auf Grundlage der Datenschutzvorschriften erhebt, speichert, verarbeitet und, sofern notwendig, an Dritte übermittelt.
25
// + *) Die räumliche Nutzung bezieht sich nur auf den Einsatzort, nicht auf die Reichweite der programmierten Software.
26
// + #### ENDE DER NUTZUNGSBEDINGUNGEN ####'
27
// +  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.
28
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
29
// + Software LICENSING TERMS
30
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31
// + of HiSystems GmbH, Flachsmeerstrasse 2, 26802 Moormerland, Germany - the Licensor -
32
// + 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 
33
// + (the Software) exclusively for private purposes. The License is unrestricted with respect to time and territory*.
34
// + The Software may only be used with the Licensor's products.
35
// + The Software provided by the Licensor is protected by copyright. With respect to the relationship between the parties to this
36
// + agreement, all rights pertaining to the Software and other documents provided during the preparation and execution of this
37
// + agreement shall be the property of the Licensor.
38
// + The information contained in the Software copyright notices, trademarks, other legal reservations, serial numbers and other
39
// + features that can be used to identify the program may not be altered or defaced by the customer.
40
// + The customer shall be responsible for taking reasonable precautions
41
// + for the safe use of the Software. The customer shall test the Software thoroughly regarding its suitability for the
42
// + intended purpose before implementing it for actual operation. The Licensor's liability shall be limited to the extent of typical and
43
// + foreseeable damage to the extent permitted by law, notwithstanding statutory liability for bodily injury and product
44
// + liability. However, the Licensor shall be entitled to the defense of contributory negligence.
45
// + The customer will take adequate precautions in the case, that the software is not working properly. The customer will test
46
// + the software for his purpose before any operational usage. The customer will backup his data before using the software.
47
// + The customer understands that the Licensor collects, stores and processes, and, where required, forwards, customer data
48
// + to third parties to the extent necessary for executing the agreement, subject to applicable data protection and privacy regulations.
49
// + *) The territory aspect only refers to the place where the Software is used, not its programmed range.
50
// + #### END OF LICENSING TERMS ####
51
// + Note: For information on license extensions (e.g. commercial use), please contact us at info(@)hisystems.de.
52
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1917 holgerb 53
#include "libfc.h"
54
#include "printf_P.h"
55
#include "main.h"
56
#include "spi.h"
57
#include "capacity.h"
58
 
1925 holgerb 59
#if (defined(__AVR_ATmega1284__) || defined(__AVR_ATmega1284P__))
60
 
1920 holgerb 61
#define HoTT_printf(format, args...)                    {  _printf_P(&LIBFC_HoTT_Putchar, PSTR(format) , ## args);}
62
#define HoTT_printfxy(x,y,format, args...)              { LIBFC_HoTT_SetPos(y * 21 + x); _printf_P(&LIBFC_HoTT_Putchar, PSTR(format) , ## args);}
63
#define HoTT_printfxy_INV(x,y,format, args...)          { LIBFC_HoTT_SetPos(y * 21 + x); _printf_P(&LIBFC_HoTT_Putchar_INV, PSTR(format) , ## args);}
64
#define HoTT_printfxy_BLINK(x,y,format, args...)        { LIBFC_HoTT_SetPos(y * 21 + x); _printf_P(&LIBFC_HoTT_Putchar_BLINK, PSTR(format) , ## args);}
1921 holgerb 65
#define HoTT_printf_BLINK(format, args...)              { _printf_P(&LIBFC_HoTT_Putchar_BLINK, PSTR(format) , ## args);}
66
#define HoTT_printf_INV(format, args...)                        { _printf_P(&LIBFC_HoTT_Putchar_INV, PSTR(format) , ## args);}
1917 holgerb 67
 
1919 holgerb 68
#define VOICE_MINIMALE_EINGANSSPANNUNG    16
69
#define VOICE_BEEP                         5
1920 holgerb 70
#define HoTT_GRAD       96
71
#define HoTT_LINKS      123
72
#define HoTT_RECHTS 124
73
#define HoTT_OBEN       125
74
#define HoTT_UNTEN      126
1917 holgerb 75
 
1949 holgerb 76
#define HOTT_KEY_RIGHT  1
77
#define HOTT_KEY_DOWN   2
78
#define HOTT_KEY_UP     4
79
#define HOTT_KEY_SET    6
80
#define HOTT_KEY_LEFT   8
81
 
1943 holgerb 82
GPSPacket_t GPSPacket;
83
VarioPacket_t VarioPacket;
84
ASCIIPacket_t ASCIIPacket;
85
ElectricAirPacket_t ElectricAirPacket;
86
HoTTGeneral_t HoTTGeneral;
2090 holgerb 87
unsigned char SpeakHoTT = SPEAK_MIKROKOPTER;
1944 holgerb 88
int HoTTVarioMeter = 0;
2090 holgerb 89
const char PROGMEM MIKROKOPTER[] =      {"     MikroKopter     "};
2120 holgerb 90
const char PROGMEM UNDERVOLTAGE[] =     {" !! LiPo voltage !!  "};
1930 holgerb 91
const char PROGMEM NC_ERROR_TEXT[MAX_ERR_NUMBER][17] =
92
{
93
//0123456789123456
94
 "No Error        \0",  // 0
95
 "Not compatible  \0",  // 1
96
 "MK3Mag not compa\0",  // 2
97
 "No FC communicat\0",  // 3
98
 "MK3Mag communica\0",  // 4
99
 "GPS communicatio\0",  // 5
100
 "compass value   \0",  // 6
101
 "RC Signal lost  \0",  // 7
102
 "FC spi rx error \0",  // 8
103
 "No NC communicat\0",  // 9
104
 "FC Nick Gyro    \0",  // 10
105
 "FC Roll Gyro    \0",  // 11
106
 "FC Yaw Gyro     \0",  // 12
107
 "FC Nick ACC     \0",  // 13
108
 "FC Roll ACC     \0",  // 14
109
 "FC Z-ACC        \0",  // 15
110
 "Pressure sensor \0",  // 16
1936 holgerb 111
 "I2C FC->BL-Ctrl \0",  // 17
1930 holgerb 112
 "Bl Missing      \0",  // 18
113
 "Mixer Error     \0",  // 19
1937 holgerb 114
 "Carefree Error  \0",  // 20
1944 holgerb 115
 "GPS Fix lost    \0",  // 21
1948 holgerb 116
 "Magnet Error    \0",  // 22
117
 "Motor restart   \0",  // 23
2008 holgerb 118
 "BL Limitation   \0",  // 24
119
 "GPS Range       \0",  // 25
2009 holgerb 120
 "No SD-Card      \0",  // 26
121
 "SD-Logging error\0",  // 27
2034 holgerb 122
 "Flying range!   \0",  // 28
123
 "Max Altitude!   \0"   // 29
1930 holgerb 124
};
1919 holgerb 125
 
2090 holgerb 126
 
127
const char PROGMEM HOTT_ERROR[MAX_ERR_NUMBER][2] =
128
{       // 1 -> only in flight   0 -> also on ground
129
//0123456789123456
130
         {0,0},// "No Error        \0",  // 0
131
         {SPEAK_ERROR,0},// "Not compatible  \0",  // 1
132
         {SPEAK_ERROR,0},// "MK3Mag not compa\0",  // 2
133
         {SPEAK_ERR_NAVI,1},// "No FC communicat\0",  // 3
134
         {SPEAK_ERR_COMPASS,1},// "MK3Mag communica\0",  // 4
135
         {SPEAK_ERR_GPS,0},// "GPS communicatio\0",  // 5
136
         {SPEAK_ERR_COMPASS,1},// "compass value   \0",  // 6
137
         {SPEAK_ERR_RECEICER,0},// "RC Signal lost  \0",  // 7
138
         {SPEAK_ERR_NAVI,0},// "FC spi rx error \0",  // 8
139
         {SPEAK_ERR_NAVI,0},// "No NC communicat\0",  // 9
140
         {SPEAK_ERR_SENSOR,0},// "FC Nick Gyro    \0",  // 10
141
         {SPEAK_ERR_SENSOR,0},// "FC Roll Gyro    \0",  // 11
142
         {SPEAK_ERR_SENSOR,0},// "FC Yaw Gyro     \0",  // 12
143
         {SPEAK_ERR_SENSOR,0},// "FC Nick ACC     \0",  // 13
144
         {SPEAK_ERR_SENSOR,0},// "FC Roll ACC     \0",  // 14
145
         {SPEAK_ERR_SENSOR,0},// "FC Z-ACC        \0",  // 15
146
         {SPEAK_ERR_SENSOR,0},// "Pressure sensor \0",  // 16
147
         {SPEAK_ERR_DATABUS,1},// "I2C FC->BL-Ctrl \0",  // 17
148
         {SPEAK_ERR_DATABUS,1},// "Bl Missing      \0",  // 18
149
         {SPEAK_ERROR,0},// "Mixer Error     \0",  // 19
150
         {SPEAK_CF_OFF,1},// "Carefree Error  \0",  // 20
151
         {SPEAK_GPS_FIX,1},// "GPS Fix lost    \0",  // 21
152
         {SPEAK_ERR_COMPASS,0},// "Magnet Error    \0",  // 22
153
         {SPEAK_ERR_MOTOR,1},// "Motor restart   \0",  // 23
154
         {SPEAK_MAX_TEMPERAT,1},// "BL Limitation   \0",  // 24
155
         {SPEAK_MAX_RANGE,1},// "GPS Range       \0",  // 25
156
         {SPEAK_ERROR,1},// "No SD-Card      \0",  // 26
157
         {SPEAK_ERROR,1},// "SD-Logging error\0",  // 27
158
         {SPEAK_MAX_RANGE,1},// "Flying range!   \0",   // 28
159
         {SPEAK_MAX_ALTITUD,1}// "Max Altitude!   \0"   // 29
160
};
161
 
162
 
163
 
1943 holgerb 164
unsigned char MaxBlTempertaure = 0;
165
unsigned char MinBlTempertaure = 0;
166
unsigned char HottestBl = 0;
167
 
168
void GetHottestBl(void)
169
{
170
 static unsigned char search = 0,tmp_max,tmp_min,who;
171
                if(Motor[search].Temperature > tmp_max) { tmp_max = Motor[search].Temperature; who = search;}
172
                else
173
                if(Motor[search].Temperature) if(Motor[search].Temperature < tmp_min) tmp_min = Motor[search].Temperature;
174
                if(++search > MAX_MOTORS)
175
                {
176
                 search = 0;
177
                 if(tmp_min != 255) MinBlTempertaure = tmp_min; else MinBlTempertaure = 0;
178
                 MaxBlTempertaure = tmp_max;
179
                 HottestBl = who;
180
                 tmp_min = 255;
181
                 tmp_max = 0;
182
                 who = 0;
183
                 }
184
}
185
 
1919 holgerb 186
//---------------------------------------------------------------
1917 holgerb 187
void Hott_ClearLine(unsigned char line)
188
{
189
 HoTT_printfxy(0,line,"                     ");
190
}
1919 holgerb 191
//---------------------------------------------------------------
1917 holgerb 192
 
1919 holgerb 193
unsigned char HoTT_Waring(void)
194
{
2090 holgerb 195
  unsigned char status = 0;
196
  static char old_status = 0;
197
  static int repeat;
2120 holgerb 198
//if(Parameter_UserParam1) return(Parameter_UserParam1); 
199
//DebugOut.Analog[16] = 0;
2090 holgerb 200
  if(FC_StatusFlags & FC_STATUS_LOWBAT) status = VOICE_MINIMALE_EINGANSSPANNUNG;
201
  else
202
  if(NC_ErrorCode)      
203
   {
204
    if(MotorenEin || !pgm_read_byte(&HOTT_ERROR[NC_ErrorCode][1])) status = pgm_read_byte(&HOTT_ERROR[NC_ErrorCode][0]);
205
   }
206
 
2091 holgerb 207
  if(!status)
208
   {
209
        if(!(GetParamByte(PID_SPEAK_HOTT_CFG) & 0x01)) SpeakHoTT = 0;  // is the voice wanted?
210
    else status = SpeakHoTT;
211
   };
2090 holgerb 212
 
213
  if(old_status == status)
214
   {
215
    if(!CheckDelay(repeat)) return(0);
216
        repeat = SetDelay(5000);
217
   }
218
   else repeat = SetDelay(2000);
219
 
220
  if(status)
221
   {
222
    if(status == SpeakHoTT) SpeakHoTT = 0;
223
   }   
224
  old_status = status;
2120 holgerb 225
//  DebugOut.Analog[16] = status;
2090 holgerb 226
  return(status);
1919 holgerb 227
}
228
 
229
//---------------------------------------------------------------
1942 holgerb 230
void NC_Fills_HoTT_Telemety(void)
1940 holgerb 231
{
2034 holgerb 232
 unsigned char *ptr = NULL;
1940 holgerb 233
 unsigned char max = 0,i,z;
234
 switch(FromNaviCtrl.Param.Byte[11])
235
  {
236
   case HOTT_VARIO_PACKET_ID:
237
                ptr = (unsigned char *) &VarioPacket;
238
                max = sizeof(VarioPacket);
239
                break;
240
   case HOTT_GPS_PACKET_ID:
241
                ptr = (unsigned char *) &GPSPacket;
242
                max = sizeof(GPSPacket);
243
                break;
244
   case HOTT_ELECTRIC_AIR_PACKET_ID:
245
                ptr = (unsigned char *) &ElectricAirPacket;
246
                max = sizeof(ElectricAirPacket);
247
                break;
1943 holgerb 248
   case HOTT_GENERAL_PACKET_ID:
249
                ptr = (unsigned char *) &HoTTGeneral;
250
                max = sizeof(HoTTGeneral);
251
                break;
1940 holgerb 252
  }
253
 z = FromNaviCtrl.Param.Byte[0]; // Data allocation
254
 
255
 for(i=0; i < FromNaviCtrl.Param.Byte[1]; i++)
256
  {
257
   if(z >= max) break;
258
   ptr[z] = FromNaviCtrl.Param.Byte[2+i];
259
   z++;
260
  }
261
}
262
 
1942 holgerb 263
unsigned int BuildHoTT_Vario(void)
264
{
1944 holgerb 265
 unsigned int tmp = 30000;
266
 if(VarioCharacter == '+' || VarioCharacter == '-')
267
  {
268
   tmp = 30000 + (AltitudeSetpointTrimming * EE_Parameter.Hoehe_Verstaerkung) / 3;
269
   if(tmp < 30000 && tmp > 30000 - 50) tmp = 30000 - 50; // weil es sonst erst bei < 0,5m/sek piept
270
  }
1942 holgerb 271
 else
1944 holgerb 272
 if((VarioCharacter == ' ') && (FC_StatusFlags & FC_STATUS_FLY))
273
  {
274
   tmp = 30000 + HoTTVarioMeter;
275
   if(tmp > 30000)
276
    {
277
     if(tmp < 30000 + 100) tmp = 30000;
278
         else tmp -= 100;
279
        }
280
   if(tmp < 30000)
281
    {
282
     if(tmp > 30000 - 100) tmp = 30000;
283
         else tmp += 100;
284
        }
285
  }
286
 else
287
 if(VarioCharacter == '^') tmp = 30000 + FromNC_AltitudeSpeed * 10;
288
 else
289
 if(VarioCharacter == 'v') tmp = 30000 - FromNC_AltitudeSpeed * 10;
290
 
1942 holgerb 291
 return(tmp);
292
}
293
 
1943 holgerb 294
 
1940 holgerb 295
//---------------------------------------------------------------
1919 holgerb 296
unsigned char HoTT_Telemety(unsigned char packet_request)
297
{
2090 holgerb 298
unsigned char i;
299
  //Debug("rqst: %02X",packet_request);
300
 
1919 holgerb 301
 switch(packet_request)
302
 {
303
  case HOTT_VARIO_PACKET_ID:
1921 holgerb 304
                VarioPacket.Altitude = HoehenWert/100 + 500;  
1942 holgerb 305
                VarioPacket.m_sec = BuildHoTT_Vario();
1943 holgerb 306
                VarioPacket.m_3sec = VarioPacket.m_sec;
307
                VarioPacket.m_10sec = VarioPacket.m_sec;
1919 holgerb 308
                if (VarioPacket.Altitude < VarioPacket.MinAltitude) VarioPacket.MinAltitude = VarioPacket.Altitude;
309
                if (VarioPacket.Altitude > VarioPacket.MaxAltitude) VarioPacket.MaxAltitude = VarioPacket.Altitude;            
2090 holgerb 310
                VarioPacket.WarnBeep = 0;//HoTT_Waring();
1919 holgerb 311
                HoTT_DataPointer = (unsigned char *) &VarioPacket;
2090 holgerb 312
        VarioPacket.FreeCharacters[0] = VarioCharacter;
313
    if(FC_StatusFlags2 & FC_STATUS2_CAREFREE) VarioPacket.FreeCharacters[1] = 'C'; else VarioPacket.FreeCharacters[1] = ' ';
314
//      VarioPacket.FreeCharacters[2] = ' ';
315
    if(NC_ErrorCode)
316
         {
317
                for(i=0; i<16;i++) VarioPacket.Text[i+4] = pgm_read_byte(&NC_ERROR_TEXT[NC_ErrorCode][i]);
318
                VarioPacket.Text[0] = NC_ErrorCode/10 + '0';
319
                VarioPacket.Text[1] = NC_ErrorCode%10 + '0';
320
                VarioPacket.Text[2] = ':';
321
         }
2120 holgerb 322
         else
323
         if(FC_StatusFlags & FC_STATUS_LOWBAT) for(i=0; i<21;i++) VarioPacket.Text[i] = pgm_read_byte(&UNDERVOLTAGE[i]); // no Error
324
         else    
325
         for(i=0; i<21;i++) VarioPacket.Text[i] = pgm_read_byte(&MIKROKOPTER[i]); // no Error
2090 holgerb 326
 
1919 holgerb 327
                return(sizeof(VarioPacket));
328
                break;
1921 holgerb 329
 
1919 holgerb 330
  case HOTT_GPS_PACKET_ID:
1921 holgerb 331
                GPSPacket.Altitude = HoehenWert/100 + 500;  
1943 holgerb 332
//              GPSPacket.Distance = GPSInfo.HomeDistance/10;  // macht die NC
333
//              GPSPacket.Heading = GPSInfo.HomeBearing/2;     // macht die NC
334
//              GPSPacket.Speed = (GPSInfo.Speed * 36) / 10;   // macht die NC
1942 holgerb 335
                GPSPacket.m_sec = BuildHoTT_Vario();
1921 holgerb 336
                GPSPacket.m_3sec = 120;
2090 holgerb 337
                GPSPacket.NumOfSats = GPSInfo.NumOfSats;
1919 holgerb 338
                GPSPacket.WarnBeep = HoTT_Waring();
2090 holgerb 339
                if(GPSInfo.Flags & FLAG_DIFFSOLN) GPSPacket.SatFix = 'D';
340
                else
341
        if(GPSInfo.SatFix == SATFIX_3D) GPSPacket.SatFix = ' ';
342
                else GPSPacket.SatFix = '!';
1919 holgerb 343
                HoTT_DataPointer = (unsigned char *) &GPSPacket;
2090 holgerb 344
                GPSPacket.FreeCharacters[0] = NC_GPS_ModeCharacter;
345
                GPSPacket.FreeCharacters[2] = GPSPacket.SatFix;
346
                GPSPacket.HomeDirection = GPSInfo.HomeBearing / 2;//230;
1919 holgerb 347
                return(sizeof(GPSPacket));  
348
                break;
349
  case HOTT_ELECTRIC_AIR_PACKET_ID:
1943 holgerb 350
                GetHottestBl();
1940 holgerb 351
                ElectricAirPacket.Altitude = HoehenWert/100 + 500;
1921 holgerb 352
                ElectricAirPacket.Battery1 = UBat;
1940 holgerb 353
                ElectricAirPacket.Battery2 = UBat;
1943 holgerb 354
                ElectricAirPacket.VoltageCell1 = ErsatzKompassInGrad / 2;
355
                ElectricAirPacket.VoltageCell8 = ElectricAirPacket.VoltageCell1;
1944 holgerb 356
                ElectricAirPacket.VoltageCell6 = GPSInfo.HomeBearing / 2;
1943 holgerb 357
                ElectricAirPacket.VoltageCell7 = GPSInfo.HomeDistance/20;
1944 holgerb 358
                ElectricAirPacket.VoltageCell13 = ElectricAirPacket.VoltageCell6;
1943 holgerb 359
                ElectricAirPacket.VoltageCell14 = ElectricAirPacket.VoltageCell7;
1942 holgerb 360
                ElectricAirPacket.m_sec = BuildHoTT_Vario();
1940 holgerb 361
                ElectricAirPacket.m_3sec = 120;
362
                ElectricAirPacket.InputVoltage = UBat;
1943 holgerb 363
                ElectricAirPacket.Temperature1 = MinBlTempertaure + 20;
364
                ElectricAirPacket.Temperature2 = MaxBlTempertaure + 20;
1940 holgerb 365
                ElectricAirPacket.Capacity = Capacity.UsedCapacity/10;
2090 holgerb 366
                ElectricAirPacket.WarnBeep = 0;//HoTT_Waring();
1940 holgerb 367
                ElectricAirPacket.Current = Capacity.ActualCurrent;
1919 holgerb 368
                HoTT_DataPointer = (unsigned char *) &ElectricAirPacket;
2090 holgerb 369
                ElectricAirPacket.FlightTimeMinutes = FlugSekunden / 60;
370
                ElectricAirPacket.FlightTimeSeconds = FlugSekunden % 60;
1919 holgerb 371
                return(sizeof(ElectricAirPacket));
372
                break;
1943 holgerb 373
  case HOTT_GENERAL_PACKET_ID:
374
                GetHottestBl();
375
                HoTTGeneral.Rpm = GPSInfo.HomeDistance/100;
376
                HoTTGeneral.VoltageCell1 = ErsatzKompassInGrad / 2;
1944 holgerb 377
                HoTTGeneral.VoltageCell6 = GPSInfo.HomeBearing / 2;
1943 holgerb 378
                if(UBat > BattLowVoltageWarning + 5) HoTTGeneral.FuelPercent = (UBat - (BattLowVoltageWarning + 6)) * 3;
379
                else HoTTGeneral.FuelPercent = 0;
1944 holgerb 380
                HoTTGeneral.FuelCapacity = HoehenWert/100;
381
                if(HoTTGeneral.FuelCapacity < 0) HoTTGeneral.FuelCapacity = 0;
1943 holgerb 382
                HoTTGeneral.Altitude = HoehenWert/100 + 500;
383
                HoTTGeneral.Battery1 = UBat;
384
                HoTTGeneral.Battery2 = UBat;
385
                HoTTGeneral.m_sec =  BuildHoTT_Vario();
386
                HoTTGeneral.m_3sec = 120;
387
                HoTTGeneral.InputVoltage = UBat;
388
                HoTTGeneral.Temperature1 = MinBlTempertaure + 20;
389
                HoTTGeneral.Temperature2 = MaxBlTempertaure + 20;
390
                HoTTGeneral.Capacity = Capacity.UsedCapacity/10;
2090 holgerb 391
                HoTTGeneral.WarnBeep = 0;//HoTT_Waring();
1943 holgerb 392
                HoTTGeneral.Current = Capacity.ActualCurrent;
393
                HoTT_DataPointer = (unsigned char *) &HoTTGeneral;
394
                return(sizeof(HoTTGeneral));
395
                break;
1919 holgerb 396
  default: return(0);
397
  }            
398
}
399
 
400
//---------------------------------------------------------------
1917 holgerb 401
void HoTT_Menu(void)
402
{
1982 holgerb 403
 static unsigned char line, page = 0,show_current = 0,show_mag = 0, show_poti = 0;
1921 holgerb 404
 unsigned char tmp;
1944 holgerb 405
 HoTTVarioMeter = (HoTTVarioMeter * 7 + VarioMeter) / 8;
406
 
1921 holgerb 407
 if(page == 0)
1933 holgerb 408
  switch(line++)
1917 holgerb 409
  {
1919 holgerb 410
        case 0:  
1923 holgerb 411
                if(FC_StatusFlags & FC_STATUS_LOWBAT)
1939 holgerb 412
                         HoTT_printfxy_BLINK(0,0,"  %2i.%1iV  ",UBat/10, UBat%10)
413
                        else
414
                         HoTT_printfxy(0,0,"  %2i.%1iV  ",UBat/10, UBat%10)
415
 
416
                        if(Parameter_GlobalConfig & CFG_HOEHENREGELUNG)
417
                          {
418
                           if(HoehenReglerAktiv)        HoTT_printfxy_INV(10,0,"ALT:%4im %c", (int16_t)(HoehenWert/100),VarioCharacter)
419
                           else                                         HoTT_printfxy(10,0,"ALT:%4im  ", (int16_t)(HoehenWert/100))
420
                           }
421
            else    HoTT_printfxy(10,0,"ALT:---- ");
422
                        break;
423
        case 1:  
424
                if(FC_StatusFlags & FC_STATUS_LOWBAT)
425
                         HoTT_printfxy_BLINK(0,1,"  %2i:%02i  ",FlugSekunden/60,FlugSekunden%60)
426
            else   HoTT_printfxy(0,1,"  %2i:%02i  ",FlugSekunden/60,FlugSekunden%60);                      
1941 holgerb 427
                        HoTT_printfxy(10,1,"DIR: %3d%c",ErsatzKompassInGrad, HoTT_GRAD);
1949 holgerb 428
                        if(FC_StatusFlags2 & FC_STATUS2_CAREFREE) HoTT_printfxy_INV(20,1,"C") else HoTT_printfxy(20,1," ");
1939 holgerb 429
            break;
430
        case 2:
431
                if(FC_StatusFlags & FC_STATUS_LOWBAT)
432
                         HoTT_printfxy_BLINK(0,2,"  %5i  ",Capacity.UsedCapacity)
433
            else   HoTT_printfxy(0,2,"  %5i  ",Capacity.UsedCapacity);                     
1940 holgerb 434
                        HoTT_printfxy(12,2,"I:%2i.%1iA ",Capacity.ActualCurrent/10, Capacity.ActualCurrent%10);
1939 holgerb 435
                        break;
436
        case 3:
2072 holgerb 437
                        HoTT_printfxy(9,0,":");
438
                        HoTT_printfxy(9,1,":");
439
                        HoTT_printfxy(9,2,":");
1939 holgerb 440
                        HoTT_printfxy(0,3,"---------+-----------");
2072 holgerb 441
 
442
//                      HoTT_printfxy(0,3,"---------------------");
1939 holgerb 443
                        HoTT_printfxy(0,6,"---------------------");
444
                        break;
445
        case 4:  
446
                        if(NaviDataOkay)
447
                        {
2072 holgerb 448
                                HoTT_printfxy(9,4,":");
1939 holgerb 449
                                HoTT_printfxy(0,4,"SAT:%2d ",GPSInfo.NumOfSats);
450
                            HoTT_printfxy(10,4,"DIST:%3dm",GPSInfo.HomeDistance/10);
451
                                switch (GPSInfo.SatFix)
452
                                {
453
                                        case SATFIX_3D:
454
                                                        if(GPSInfo.Flags & FLAG_DIFFSOLN) HoTT_printfxy(7,4,"D ")
455
                                                        else HoTT_printfxy(7,4,"3D");
456
                                                break;
457
                                        default:
1943 holgerb 458
                                                HoTT_printfxy_BLINK(7,4,"!!");
1939 holgerb 459
                                                break;
460
                                }      
461
                        }
462
                        else
1944 holgerb 463
                        {                    
1940 holgerb 464
                                Hott_ClearLine(4);
1939 holgerb 465
                        }
466
                        break;
467
        case 5:
468
                        if(NaviDataOkay)
469
                        {
1972 holgerb 470
                        if(show_mag)
471
                          {
472
                                HoTT_printfxy(0,5,"MAG:%3u%% ",EarthMagneticField);
1939 holgerb 473
                            HoTT_printfxy(12,5,"HM:%3d%c %c", GPSInfo.HomeBearing, HoTT_GRAD, NC_GPS_ModeCharacter);
1972 holgerb 474
                                HoTT_printfxy(9,5,"incl:%2d%c(%2i)",EarthMagneticInclination, HoTT_GRAD,EarthMagneticInclinationTheoretic);
475
              }
476
                         else
477
                          {
2072 holgerb 478
                                HoTT_printfxy(0,5,"    %2um/s:  HM:%3d%c %c",GPSInfo.Speed, GPSInfo.HomeBearing, HoTT_GRAD, NC_GPS_ModeCharacter);
1972 holgerb 479
                          }    
1939 holgerb 480
            }
1940 holgerb 481
                        else Hott_ClearLine(5);
1939 holgerb 482
                        break;
483
        case 6:
484
                        break;
485
        case 7: if(NC_ErrorCode)
486
                  {
487
                           if(HoTTBlink && NC_ErrorCode < MAX_ERR_NUMBER)
488
                            {
489
                             Hott_ClearLine(7);
490
                             HoTT_printfxy_INV(0,7,"ERR: %2d !",NC_ErrorCode);
491
                            }
492
                                else
493
                                {
494
                                 HoTT_printfxy(0,7,"ERR: ");     _printf_P(&LIBFC_HoTT_Putchar, NC_ERROR_TEXT[NC_ErrorCode] , 0);};
495
                                }
2120 holgerb 496
                        else
497
                        if(FC_StatusFlags & FC_STATUS_LOWBAT) HoTT_printfxy(1,7,"!! LiPo voltage !!")
1939 holgerb 498
                        else HoTT_printfxy(0,7," www.MikroKopter.de  ");
499
                        break;
2090 holgerb 500
        case 8: //ASCIIPacket.WarnBeep = HoTT_Waring();
1939 holgerb 501
                        // ASCIIPacket.WarnBeep = Parameter_UserParam1;
502
        case 9:
503
        case 10:
504
        case 11:
505
        case 12:
506
        case 13:
507
        case 14:  
508
        case 15:  
509
        case 16:  
1972 holgerb 510
                        if(HottKeyboard == HOTT_KEY_SET) { if(show_mag) show_mag = 0; else show_mag = 1;}
511
                        else
1949 holgerb 512
                        if(HottKeyboard == HOTT_KEY_LEFT) { LIBFC_HoTT_Clear(); page = 1; line = 0;};
1939 holgerb 513
                        HottKeyboard = 0;
514
                        break;
515
   default:  line = 0;
516
                        break;
517
  }
518
  else
519
  if(page == 1)
520
  switch(line++)
521
  {
522
        case 0:  
523
                if(FC_StatusFlags & FC_STATUS_LOWBAT)
1923 holgerb 524
                         HoTT_printfxy_BLINK(0,0," %2i:%02i  %2i.%1iV %4imAh",FlugSekunden/60,FlugSekunden%60,UBat/10, UBat%10,Capacity.UsedCapacity)
525
            else   HoTT_printfxy(0,0," %2i:%02i  %2i.%1iV %4imAh",FlugSekunden/60,FlugSekunden%60,UBat/10, UBat%10,Capacity.UsedCapacity);                         
1917 holgerb 526
                        break;
527
        case 1:  
1921 holgerb 528
                        HoTT_printfxy(0,1,"DIR:%3d%c",KompassValue, HoTT_GRAD);
1917 holgerb 529
                        if(Parameter_GlobalConfig & CFG_HOEHENREGELUNG)
1920 holgerb 530
                          {
531
                           if(HoehenReglerAktiv)        HoTT_printfxy_INV(10,1,"ALT:%4im", (int16_t)(HoehenWert/100))
532
                           else                                         HoTT_printfxy(10,1,"ALT:%4im", (int16_t)(HoehenWert/100))
533
                           }
534
            else    HoTT_printfxy(10,1,"ALT:---- ");
535
                        HoTT_printfxy(20,1,"%c",VarioCharacter);
1917 holgerb 536
            break;
537
        case 2:
538
                        if(NaviDataOkay)
539
                        {
1923 holgerb 540
                          HoTT_printfxy(1,2,"HM:%3d%c  DIST:%3dm %c", GPSInfo.HomeBearing, HoTT_GRAD, GPSInfo.HomeDistance/10, NC_GPS_ModeCharacter);
1917 holgerb 541
            }
542
                        else
543
                        {
1923 holgerb 544
                         Hott_ClearLine(2);
1917 holgerb 545
                        }
546
                        break;
1923 holgerb 547
        case 3:
548
                        HoTT_printfxy(0,3,"PWR:%2i.%1iA (%iW) ",Capacity.ActualCurrent/10, Capacity.ActualCurrent%10,Capacity.ActualPower);
1949 holgerb 549
                        if(FC_StatusFlags2 & FC_STATUS2_CAREFREE) HoTT_printfxy_INV(19,3,"CF") else HoTT_printfxy(19,3,"  ");
1923 holgerb 550
                        break;
1917 holgerb 551
        case 4:  
552
                        if(NaviDataOkay)
553
                        {
1919 holgerb 554
                                HoTT_printfxy(0,4,"GPS:%2um/s SAT:%d ",GPSInfo.Speed,GPSInfo.NumOfSats);
1917 holgerb 555
                                switch (GPSInfo.SatFix)
556
                                {
557
                                        case SATFIX_3D:
558
                                                HoTT_printfxy(16,4,"  3D ");
559
                                                break;
1925 holgerb 560
                                        //case SATFIX_2D:
561
                                        //case SATFIX_NONE:
1917 holgerb 562
                                        default:
1925 holgerb 563
                                                HoTT_printfxy_BLINK(16,4,"NOFIX");
1917 holgerb 564
                                                break;
565
                                }      
566
                                if(GPSInfo.Flags & FLAG_DIFFSOLN)
567
                                {
568
                                        HoTT_printfxy(16,4,"DGPS ");
569
                                }
570
                        }
571
                        else
572
                        {                    //012345678901234567890
1930 holgerb 573
                                HoTT_printfxy(0,4,"   No NaviCtrl       ");
1917 holgerb 574
                        }
575
                        break;
576
        case 5:
1949 holgerb 577
                        if(show_current)
578
                         {
579
                                HoTT_printfxy(0,5,"%2i.%i %2i.%i %2i.%i %2i.%iA", Motor[0].Current/10,Motor[0].Current%10,Motor[1].Current/10,Motor[1].Current%10,Motor[2].Current/10,Motor[2].Current%10,Motor[3].Current/10,Motor[3].Current%10);
580
                         }
581
                         else
582
                         {
583
                                HoTT_printfxy(0,5,"%3i %3i %3i %3i%cC", Motor[0].Temperature, Motor[1].Temperature, Motor[2].Temperature, Motor[3].Temperature,HoTT_GRAD);
584
                         }
1917 holgerb 585
                        break;
586
        case 6:
1949 holgerb 587
                        if(show_current)
588
                         {
1917 holgerb 589
                    if(RequiredMotors == 4) Hott_ClearLine(6);
590
                                else
1949 holgerb 591
                                if(RequiredMotors == 6)  HoTT_printfxy(0,6,"%2i.%i %2i.%iA", Motor[4].Current/10,Motor[4].Current%10,Motor[5].Current/10,Motor[5].Current%10)
592
                                else
593
                                if(RequiredMotors > 6)   HoTT_printfxy(0,6,"%2i.%i %2i.%i %2i.%i %2i.%iA", Motor[4].Current/10,Motor[4].Current%10,Motor[5].Current/10,Motor[5].Current%10,Motor[6].Current/10,Motor[6].Current%10,Motor[7].Current/10,Motor[7].Current%10);
594
             }
595
                         else
596
                         {
597
                    if(RequiredMotors == 4) Hott_ClearLine(6);
598
                                else
1923 holgerb 599
                                if(RequiredMotors == 6)  HoTT_printfxy(0,6,"%3i %3i%cC        ", Motor[4].Temperature, Motor[5].Temperature,HoTT_GRAD)
1917 holgerb 600
                                else
1923 holgerb 601
                                if(RequiredMotors > 6)   HoTT_printfxy(0,6,"%3i %3i %3i %3i%cC", Motor[4].Temperature, Motor[5].Temperature, Motor[6].Temperature, Motor[7].Temperature,HoTT_GRAD);
1949 holgerb 602
             }
1917 holgerb 603
                        break;
1930 holgerb 604
        case 7: if(NC_ErrorCode)
605
                  {
606
                           if(HoTTBlink && NC_ErrorCode < MAX_ERR_NUMBER)
607
                            {
608
                             Hott_ClearLine(7);
609
                             HoTT_printfxy_INV(0,7,"ERR: %2d !",NC_ErrorCode);
610
                            }
611
                                else
612
                                {
613
                                 HoTT_printfxy(0,7,"ERR: ");     _printf_P(&LIBFC_HoTT_Putchar, NC_ERROR_TEXT[NC_ErrorCode] , 0);};
614
                                }
2120 holgerb 615
                        else
616
                        if(FC_StatusFlags & FC_STATUS_LOWBAT) HoTT_printfxy(1,7,"!! LiPo voltage !!")
1937 holgerb 617
                        else HoTT_printfxy(0,7," www.MikroKopter.de  ");
1917 holgerb 618
                        break;
2090 holgerb 619
        case 8: // ASCIIPacket.WarnBeep = HoTT_Waring();
1919 holgerb 620
                        // ASCIIPacket.WarnBeep = Parameter_UserParam1;
1921 holgerb 621
        case 9:
1917 holgerb 622
        case 10:
623
        case 11:
624
        case 12:
625
        case 13:
1919 holgerb 626
        case 14:  
627
        case 15:  
628
        case 16:  
1949 holgerb 629
                        if(HottKeyboard == HOTT_KEY_SET) { if(show_current) show_current = 0; else show_current = 1;   Hott_ClearLine(5);  Hott_ClearLine(6);}
630
                        else
631
                        if(HottKeyboard == HOTT_KEY_LEFT) { LIBFC_HoTT_Clear(); page = 2; line = 0;}
632
                        else
633
                        if(HottKeyboard == HOTT_KEY_RIGHT) { LIBFC_HoTT_Clear(); page = 0; line = 0;}
634
//if(HottKeyboard) HoTT_printfxy(15,6,"%KEY:%02x ",HottKeyboard);
1921 holgerb 635
                        HottKeyboard = 0;
636
                        break;
1933 holgerb 637
   default:  line = 0;
1921 holgerb 638
                        break;
639
  }
640
  else
1939 holgerb 641
  if(page == 2)
1933 holgerb 642
  switch(line++)
1921 holgerb 643
  {
644
        case 0:  
645
                        HoTT_printfxy_INV(0,0,"Setting:%u %s ",GetActiveParamSet(),EE_Parameter.Name);
646
                        break;
647
    case 1: HoTT_printfxy(0,1,"Min:%2i.%1iV %s ",BattLowVoltageWarning/10, BattLowVoltageWarning%10, Mixer.Name);
648
                        break;
1923 holgerb 649
    case 2:  HoTT_printfxy(0,2,"ALT:");
1921 holgerb 650
                 if(Parameter_GlobalConfig & CFG_HOEHENREGELUNG)
651
                 {
652
                          if(!(EE_Parameter.GlobalConfig & CFG_HOEHEN_SCHALTER)) HoTT_printf("POTI:%3u ", Parameter_HoehenSchalter)
653
                          else
654
                          {
655
                           if(Parameter_HoehenSchalter > 50) HoTT_printf("(ON)  ") else HoTT_printf("(OFF) ");
656
                           if((Parameter_ExtraConfig & CFG2_HEIGHT_LIMIT)) HoTT_printf("LIMIT", Parameter_HoehenSchalter)
657
                           else HoTT_printf("VARIO", Parameter_HoehenSchalter);
658
                          }
659
                         }
660
                        else
661
                                HoTT_printf("DISABLED");
662
                        break;
1923 holgerb 663
    case 3: HoTT_printfxy(0,3,"CF:");
1921 holgerb 664
                        if(!EE_Parameter.CareFreeModeControl) HoTT_printf("DISABLED")
665
                        else
666
                         {
667
                          if(CareFree)  HoTT_printf(" (ON) ") else HoTT_printf(" (OFF)");
668
                          if(EE_Parameter.ExtraConfig & CFG_LEARNABLE_CAREFREE) HoTT_printf(" TEACH");
669
                         }
670
                        break;
1923 holgerb 671
    case 4: HoTT_printfxy(0,4,"GPS:");
672
                    if(!(Parameter_GlobalConfig & CFG_GPS_AKTIV)) HoTT_printf("DISABLED")
673
                        else
674
                         {
675
                          CHK_POTI(tmp,EE_Parameter.NaviGpsModeControl);
676
                          if(tmp < 50) HoTT_printf("(FREE)")
677
                          else
678
                          if(tmp >= 180) HoTT_printf("(HOME)")
679
                          else
680
                          if(EE_Parameter.ExtraConfig & CFG_GPS_AID) HoTT_printf("(AID) ")
681
                          else HoTT_printf("(HOLD)")
682
                         }
683
                        if(EE_Parameter.FailSafeTime) HoTT_printfxy(10,4," FS:%usek ",EE_Parameter.FailSafeTime)
684
 
685
                        break;
686
    case 5: HoTT_printfxy(0,5,"HOME ALT:");
687
                        if(EE_Parameter.ComingHomeAltitude) HoTT_printf("%um",EE_Parameter.ComingHomeAltitude) else HoTT_printf("HOLD ");
688
                        break;
1921 holgerb 689
        case 6:
1982 holgerb 690
                        if(!show_poti)
691
                         {
692
              HoTT_printfxy(0,6,"Ni:%4i Ro:%4i C:%3i",PPM_in[EE_Parameter.Kanalbelegung[K_NICK]],PPM_in[EE_Parameter.Kanalbelegung[K_ROLL]], Parameter_ServoNickControl);
693
                      HoTT_printfxy(0,7,"Gs:%4i Ya:%4i ",PPM_in[EE_Parameter.Kanalbelegung[K_GAS]]+127,PPM_in[EE_Parameter.Kanalbelegung[K_GIER]]);
694
                         }
695
                        else
696
                         {
697
              HoTT_printfxy(0,6,"P1:%4i P2:%4i 3:%3i",Poti1,Poti2, Poti3);
698
                      HoTT_printfxy(0,7,"P4:%4i P5:%4i 6:%3i",Poti4,Poti5, Poti6);
699
                         }
700
 
1921 holgerb 701
                        break;
702
    case 7: //HoTT_printfxy(0,6,"WARNINGS:");
703
                        if(HoTTBlink)
704
                        {
705
                         LIBFC_HoTT_SetPos(6 * 21);
706
                         if(!(Parameter_GlobalConfig & CFG_ACHSENKOPPLUNG_AKTIV)) HoTT_printf_BLINK("COUPLING OFF! ");
707
                         if(EE_Parameter.BitConfig & (CFG_LOOP_LINKS | CFG_LOOP_RECHTS | CFG_LOOP_UNTEN | CFG_LOOP_OBEN)) HoTT_printf_BLINK("LOOPING! ");
708
                         if(Parameter_GlobalConfig & CFG_HEADING_HOLD) HoTT_printf_BLINK("HH! ");
709
                         if(!(Parameter_GlobalConfig & CFG_KOMPASS_AKTIV)) HoTT_printf_BLINK("COMPASS OFF! ");
710
                        }
711
                        break;
2090 holgerb 712
    case 8: //ASCIIPacket.WarnBeep = HoTT_Waring();
1921 holgerb 713
                        break;
714
    case 9:
715
    case 10:
716
    case 11:
717
    case 12:
718
    case 13:
719
    case 14:
720
    case 15:
721
    case 16:
1982 holgerb 722
                        if(HottKeyboard == HOTT_KEY_SET) { if(show_poti) show_poti = 0; else show_poti = 1;   Hott_ClearLine(6);  Hott_ClearLine(7);}
723
                        else
2091 holgerb 724
                        if(HottKeyboard == HOTT_KEY_LEFT) { LIBFC_HoTT_Clear(); page = 3; line = 0;}
725
                        else
1949 holgerb 726
                        if(HottKeyboard == HOTT_KEY_RIGHT) { LIBFC_HoTT_Clear(); page = 1; line = 0;};
1921 holgerb 727
                        HottKeyboard = 0;
728
                        break;
1933 holgerb 729
   default:  line = 0;
1917 holgerb 730
                        break;
731
  }
2091 holgerb 732
  else
733
  if(page == 3)
734
  switch(line++)
735
  {
736
        case 0:  
737
                        HoTT_printfxy(0,2,"Speak:");
738
                        break;
739
        case 1:  
740
                        if(GetParamByte(PID_SPEAK_HOTT_CFG) & 0x01) HoTT_printfxy_INV(7,2,"All Messages ")
741
                        else                    HoTT_printfxy_INV(7,2,"Warnings only");
742
                        break;
743
        case 2:  
744
                        HoTT_printfxy(1,4,"Use (set) to select");
745
                        break;
746
    default:
747
                        if(HottKeyboard == HOTT_KEY_SET)
748
                         {
749
                          SetParamByte(PID_SPEAK_HOTT_CFG, GetParamByte(PID_SPEAK_HOTT_CFG) ^ 0x01);
750
                         }
751
                        else
752
                        if(HottKeyboard == HOTT_KEY_RIGHT) { LIBFC_HoTT_Clear(); page = 2; line = 0;};
753
                        HottKeyboard = 0;
754
                        line = 0;
755
                        break;
756
  }
1921 holgerb 757
  else page = 0;
1917 holgerb 758
}
759
 
1925 holgerb 760
#endif
1917 holgerb 761
 
762
 
763