source: Sophya/trunk/Poubelle/archediab.old/archeops.c@ 2502

Last change on this file since 2502 was 657, checked in by ansari, 26 years ago

4 bit pour bolo on-of/bolo transmis
File size: 25.3 KB
Line 
1
2#include "manip.h"
3#include "archeops.h"
4
5/* sauve vol trapani 2eme config de vol */
6
7/********** coefficients pour les mesures bolo **********************************/
8/* toutes les puissances en pW */
9/* -1- loi de reponse thermique des bolos avec R en ohms et T en Kelvin */
10/* */
11/* T = coef2 * ( ln ( R / coef1) ** ( -1 / coef0 ) */
12/* */
13/* -2- fuite thermique du bolo coef 3,4 */
14/* */
15/* Ptot = coef3 * ( (10*Tb) ** coef4 - (10*Tcryo) ** coef4 ) */
16/* */
17/* -3- calcul empirique de Pciel et de tau coef 5,6 */
18/* */
19/* Pciel = coef5 - Pelec coef5= I * Ai (tables xavier) */
20/* tau = - ln ( 1 + Pciel / coef6 ) coef6= I * Bi (tables xavier) */
21/* */
22/* Pour les thermometres 1 à 4 (germanium et carbone Allan-Bradley) */
23/* les coefficients sont utilisés differemment, ils permettent de convertir */
24/* R vers T ( c(6) est un offset sur la mesure de R par rapport aux mesures 4 fils)*/
25/* llR= log(log(R - c(6))-c(0)) */
26/* T = exp(c(1) + c(2)* llR + c(3)* llR* llR + c(4)* llR* llR* llR + */
27/* c(5)* llR* llR* llR* llR) */
28/* */
29/* version vol Trapani */
30/* on corrige le biais de temperature coef2=1.1 old, coef3=old/1.1^coef4 */
31/* */
32/* */
33/* */
34/* */
35/* */
36/****************************************************************************************/
37
38
39/**************************************************************************************/
40/* */
41/* pour les MLPA : gain = 100 diviseur = 101 ou 330 */
42/* pour les bebodiff : gain = diviseur = 100Kohm / R preampli */
43/* pour les bebodiff : la capa est corrigee d'un facteur 0.868 */
44/* pour les cartes modifiees : mettre diviseur=0 */
45/* et capa = la resistance de chage en Megohm */
46/* */
47/**************************************************************************************/
48
49
50/* numero_nom, on/off , 0 = MLPA , N° bolo , gain_pa , capa*1000 , diviseur , coef*10000 */
51/* , 0 ou 1 , 2..8 = BEBO , hard , , 4700 , 333 , */
52/* 10 = Bediff , , , */
53
54/* pour les bediff (code 10) le n° de bolo est N° de bebo*8 + numero dans la bebo */
55/* soit : 1 2 3 4 5 6 .. 9 10 11 12 13 14 .. 17 18 19 20 21 22 .. etc */
56
57
58/*debut_param*/
59/*---------------------------------- fenetre : -----------------------------------*/
60
61/* ------------------------ configuration de vol 5 juillet 99-----------------------------*/
62/* ---------------------- modifié les indices de bolo le 15 septembre 1999-------------------*/
63/* contient au debut : numero_version,n_max_bolo,n_per_block,n_max_mes_per,nb_bolo */
64
65
66param_bolo parametr={29,36,36,88,0,
67
68/* dans l'ordre : */
69/* 1- numero des caracteristiques du bolo */
70/* 2- transmission du bolo (normal = 7) (non transmis = 5) (thermo = 9) */
71/* 3- 10 = bebo differentielle */
72/* 4- numero de la voie de commande (8*n°bebo + N° dans la bebo) */
73/* 5- gain du preamplificateur */
74/* 6- capacite de modulation (en fF) */
75/* 7- diviseur pour la modulation */
76
77{
78{ 11 , 5,10, 1 , 200, 22000 , 200 }, /* 0 */
79{ 9 , 7,10, 2 , 200, 22000 , 200 },
80{ 8 , 7,10, 3 , 200, 22000 , 200 },
81{ 14 , 5,10, 4 , 200, 22000 , 200 },
82
83{ 5 , 7,10, 5 ,1000, 4700 , 1000 }, /* 4 */
84{ 0 , 5,10, 6 ,1000, 4700 , 1000 },
85{ 10 , 7,10, 9 ,1000, 4700 , 1000 },
86{ 0 , 5,10,10, 1000, 4700 , 1000 },
87
88{ 2 , 7,10,11, 1000, 4700 , 1000 }, /* 8 */
89{ 4 , 7,10,12, 1000, 4700 , 1000 },
90{ 7 , 5,10,13, 1000, 4700 , 1000 },
91{ 1 , 7,10,14, 1000, 4700 , 1000 },
92
93{ 13 , 7,10,17, 1000, 4700 , 1000 }, /* 12 */
94{ 3 , 7,10,18, 1000, 4700 , 1000 },
95{ 12 , 1,10,19, 1000, 4700 , 1000 },
96{ 6 , 7,10,20, 1000, 4700 , 1000 },
97
98{ 15 , 7,10,21, 200, 22000 , 200 }, /* 16 */
99{ 16 , 7,10,22, 200, 22000 , 200 },
100{ 17 , 7,10,25, 500, 22000 , 500 },
101{ 18 , 5,10,26, 500, 22000 , 500 },
102
103{ 20 , 9,10,27, 1000, 22000 , 0 }, /* 20 */
104{ 21 , 9,10,28, 1000, 1000 , 0 },
105{ 22 , 9,10,29, 1000, 1000 , 0 },
106{ 23 , 9,10,30, 1000, 1000 , 0 },
107
108{ 0 , 0,10,30, 1000, 1000 , 0 }, /* 24 */
109{ 0 , 0,10,30, 1000, 1000 , 0 },
110{ 0 , 0,10,30, 1000, 1000 , 0 },
111{ 0 , 0,10,30, 1000, 1000 , 0 },
112
113{ 0 , 0,10,30, 1000, 1000 , 0 }, /* 28 */
114{ 0 , 0,10,30, 1000, 1000 , 0 },
115{ 0 , 0,10,30, 1000, 1000 , 0 },
116{ 0 , 0,10,30, 1000, 1000 , 0 },
117
118{ 0 , 0,10,30, 1000, 1000 , 0 }, /* 32 */
119{ 0 , 0,10,30, 1000, 1000 , 0 },
120{ 0 , 0,10,30, 1000, 1000 , 0 },
121{ 0 , 0,10,30, 1000, 1000 , 0 },
122
123},
124{
125{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} }, /* 0 */
126{ "ch1-bolo1" , { 5000 , 600000 , 154000, 63039, 25000, 0, 0} }, /* 1 */
127{ "ch1-bolo2" , { 5000 , 600000 , 154000, 47279, 25000, 0, 0} },
128{ "ch1-bolo3" , { 5000 , 600000 , 154000, 51219, 25000, 0, 0} },
129{ "ch2-bolo4" , { 5000 , 600000 , 154000, 70919, 25000, 0, 0} },
130{ "ch2-bolo5" , { 5000 , 600000 , 154000, 78799, 25000, 0, 0} },
131{ "ch3-bolo6" , { 5000 , 600000 , 154000, 86678, 25000, 0, 0} },
132
133{ "Dum100mK1" , { 5000 , 588000 , 125000, 0,0,0,0} }, /* 7 */
134{ "Dum100mK2" , { 5000 , 588000 , 125000, 0,0,0,0} },
135/*{ "Dum100mK3" , { 5000 , 1361800 , 125000, 0,0,0,0} }, */
136{ "Dum100mK4" , { 5000 , 1361800 , 125000, 0,0,0,0} }, /* 9 */
137/*{ "Dum100mK5" , { 5000 , 1361800 , 125000, 0,0,0,0} }, */
138{ "Dum100mK6" , { 5000 , 1361800 , 125000, 0,0,0,0} },
139
140{ "Lou100mK1" , { 5000 , 5680000 , 560000, 0,0,0,0} }, /* 11 */
141{ "Lou100mK2" , { 5000 , 5680000 , 560000, 0,0,0,0} },
142{ "Lou100mK3" , { 5000 , 5680000 , 560000, 0,0,0,0} },
143{ "Lou100mK4" , { 5000 , 5680000 , 560000, 0,0,0,0} },
144
145{ "Lou1.6K5 " , { 5000 , 0 , 0, 0,0,0,0} }, /* 15 */
146{ "Lou1.6K6 " , { 5000 , 0 , 0, 0,0,0,0} },
147{ "Lou10K7 " , { 5000 , 0 , 0, 0,0,0,0} },
148{ "Lou10K8 " , { 5000 , 0 , 0, 0,0,0,0} },
149
150{ "R10MOhm " , { 5000 , 0 , 0, 0,0,0,0} }, /* 19 */
151
152/* La germanium doit toujours etre en premier par rapport aux autres thermos absolus */
153{ "germanium" , { 0 , 30719 , -910 , -16389 , 2927 , 0, 0} }, /* 20 */
154{ "therm_4k" , { 45000 , 28907 , -16028 , -1327 , 1472 , 872, 52500} },
155{ "therm_1.6k" , { 45000 , 28907 , -16028 , -1327 , 1472 , 872, 566700} },
156{ "therm_10k" , { 45000 , 28907 , -16028 , -1327 , 1472 , 872, 138100} },
157
158{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} }, /* 24 */
159{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
160{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
161{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
162
163{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} }, /* 28 */
164{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
165{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
166{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
167
168{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} }, /* 32 */
169{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
170{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
171{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
172
173{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} }, /* 36 */
174{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
175{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
176{ "Niente " , { 5000 , 0 , 0, 0,0,0,0} },
177
178}
179
180};
181/*fin_param*/
182
183/* Definition Mai-Juin 1999
184{
185{ "v1-bedif1" , 1,10,1 , 200, 22000 , 200, { 5000 , 123100 , 334200,0,0,0,0} },
186{ "v1-bedif2" , 1,10,2 , 200, 22000 , 200, { 500 , 136180 , 9010,0,0,0,0} },
187{ "v1-bedif3" , 1,10,3 , 200, 22000 , 200, { 500 , 136180 , 9010,0,0,0,0} },
188{ "v1-bedif4" , 1,10,4 , 200, 22000 , 200, { 5000 , 123100 , 334200,0,0,0,0} },
189{ "v1-bedif5" , 1,10,5 , 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
190{ "v1-bedif6" , 1,10,6 , 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
191
192{ "v1-bedif7" , 1,10,9 , 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
193{ "v1-bedif8" , 1,10,10, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
194{ "v1-bedif9" , 1,10,11, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
195{ "v1-bedif10" , 1,10,12, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
196{ "v1-bedif11" , 1,10,13, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
197{ "v1-bedif12" , 1,10,14, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
198
199{ "v1-bedif13" , 1,10,17, 1000, 100000 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
200{ "v1-bedif14" , 1,10,18, 1000, 470000 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
201{ "bedif15" , 1,10,19, 1000, 470000 , 1000, { 500 , 58800 , 12500,0,0,0,0} },
202{ "bedif16" , 1,10,20, 1000,2200000 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
203{ "bedif17" , 1,10,21, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
204{ "bedif18" , 1,10,22, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
205
206{ "v1-bedif19" , 2,10,25, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
207{ "v1-bedif20" , 2,10,26, 1000, 4700 , 1000, { 5000 , 123100 , 334200,0,0,0,0} },
208{ "germanium" , 3,10,27, 1000, 22000 , 0, { 3500 , 17100 , 646500,0,0,0,0} },
209{ "therm_4k" , 3,10,28, 1000, 1000 , 0, {12000 ,1804000 , 72800,0,0,0,0} },
210{ "therm_1.6k" , 3,10,29, 1000, 1000 , 0, {12000 ,1804000 , 72800,0,0,0,0} },
211{ "therm_10k" , 3,10,30, 1000, 1000 , 0, {12000 ,1804000 , 72800,0,0,0,0} },
212
213}*/
214
215/* bolos campagne 1998-1999 */
216/*
217reg_NbSi.J, 1, 0, 1, 100, 4.7, 333, .5 ,519.6 , 8.286
218v1-231...L, 1, 0, 2, 100, 4.7, 333, .5 , 1.7 , 32.41 , 0.333 , 10 , 20.30 , 11.41
219v1-232...N, 1, 0, 3, 100, 4.7, 333,
220v1-237...E, 1, 0, 4, 100, 4.7, 333,
221
222reg_JamieO, 1, 0, 5, 100, 4.7, 101,
223
224V2-NbSi..H, 1, 0, 6, 100, 4.7, 101, .5 ,433.8 , 9.25
225V2-230...B, 1, 0, 7, 100, 4.7, 333, .5 , 8.26 , 26.61 , 5.10 , 7 , 9.354 , 1.026
226V2-205...Q, 1, 0, 8, 100, 4.7, 333, .518 , 81 , 25.2
227V2-208...P, 1, 0, 9, 100, 4.7, 333, .5 , 12.31 , 33.42 , 0.627 , 6.5 , 8.113 , 2.958
228
229*/
230/*bolos campagne 1997-1998 */
231/*
232
233v1-208...J, 1, 0, 1, 100, 4.7, 333, .5 , 12.31 , 33.42
234v1-232...L, 1, 0, 2, 100, 4.7, 333,
235v1-205...N, 1, 0, 3, 100, 4.7, 333, .518 , 81 , 25.2
236v1-NbSi..E, 1, 0, 4, 100, 4.7, 333, .5 ,519.6 , 8.286
237Jamie....O, 1, 0, 5, 100, 4.7, 101,
238V2-NbSi..H, 1, 0, 6, 100, 4.7, 101, .5 ,433.8 , 9.25
239V2-224...B, 1, 0, 7, 100, 4.7, 333, .5 ,3.43 , 26.6
240V2-230...Q, 1, 0, 8, 100, 4.7, 333, .5 , 8.26 , 26.61
241V2-231...P, 1, 0, 9, 100, 4.7, 333, .5 , 1.7 , 32.41
242
243*/
244
245
246int mode_transmission_telemesure[nb_modes_telemesure][nb_type_blocks]= {
247
248/* enregisteur de bord flash : plafond standard nominal */
249/* 0*/ { 0,10,15,50, 10,50, 0, 0, 0, 1, 0, 0, 1, 0, 1,2500, 0, 0, 0, 0},
250
251/* 1*/ { 0,10,10, 1, 10, 3, 0, 0, 0, 1, 0, 0, 1, 0, 4,2500, 0, 0, 0, 0},
252
253/* 2*/ { 0,10,05,01, 10,06, 0, 0, 0, 1, 0, 0, 1, 0, 2,2500, 0, 0, 0, 0},
254
255/* 3*/ { 0,10, 1,25, 10, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0,2500, 0, 0, 0, 0},
256
257/* 4*/ { 0,10,15,50, 10,25, 0, 0, 1, 0, 0, 0, 0, 0, 0,2500, 0, 0, 0, 0},
258
259/* 5*/ { 0,10,15,50, 10,25, 0, 0, 0, 0, 1, 0, 0, 0, 0,2500, 0, 0, 0, 0},
260
261/* 6*/ { 0,10,15,50, 10,50, 0, 0, 0, 1, 0, 0, 1, 0, 2,2500, 0, 0, 0, 0},
262
263/* 7*/ { 0,10,15,50,100,50, 1, 1, 0, 1, 0, 0, 1, 0, 1,2500, 0, 0, 0, 0},
264
265/* 8*/ { 0,10,15,50,100,50, 1, 1, 1, 0, 0, 0, 0, 0, 0,2500, 0, 0, 0, 0},
266
267/* 9*/ { 0,10, 1, 1,100, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0,2500, 0, 0, 0, 0}
268
269 };
270
271
272
273int mode_transmission_flash[nb_modes_flash][nb_type_blocks]= {
274
275
276/* enregisteur de bord flash : nominal */
277/* 0*/ { 0,50,15,25, 10,25, 0, 0, 0, 1, 0, 0, 1, 0, 1,2500, 0, 0, 0, 0} ,
278
279/* enregisteur de bord flash : minimum */
280/* 1*/ { 0,50,50,50,50,100, 0, 0, 0, 0, 0, 0, 0, 0, 0,2500, 0, 0, 0, 0} ,
281
282/* enregisteur de bord flash : rien */
283/* 2*/ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} };
284
285
286
287
288/*debut_nom_reglage*/
289/* 0->1 - demarrage par defaut - Nominal*/
290/* 1->2 - idem*/
291/* 2->3 - faible courant*/
292/* 3->4 - fort courant*/
293/* 4->5 - non fffdéfini*/
294/* 5->6 - non défini*/
295/* 6->7 - non défini*/
296/* 7->8 - non défini*/
297/*fin_nom_reglage*/
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330reglage_bolo reglage_standard[8]={{
331
332
333/*debut reglage 0 */
334#ifdef programme
335{32,76,8,1},{
336{20,0}
337,{1311522837,256000}
338,{1048576021,256004}
339,{20,0}
340,{1048576021,256001}
341,{20,0}
342,{262144021,128003}
343,{20,0}
344,{262144021,128001}
345,{262144021,128001}
346,{20,0}
347,{1048576021,256257}
348,{1048576021,256003}
349,{262144021,128001}
350,{262144789,128001}
351,{262144021,128001}
352,{100663317,256002}
353,{100716053,155650}
354,{1048576277,256003}
355,{20,0}
356,{1024021,0}
357,{262165,0}
358,{65557,0}
359,{1024020,0}
360},{
361{1,21,16,4}
362,{1,21,13,4}
363,{1,21,20,4}
364,{1,21,20,4}
365,{0,21,0,4}
366,{0,21,0,4}
367},{
368{3,1,21,24,21,24,0}
369,{0,1,9,1,0,0,0}
370,{0,1,9,1,0,0,0}
371,{6,1,9,34,30,0,65326}
372},{5,3,129,108,0,126,104,88}
373#else
374{1,8,76,32},{
375{20,0}
376,{1311522837,256000}
377,{1048576021,256004}
378,{20,0}
379,{1048576021,256001}
380,{20,0}
381,{262144021,128003}
382,{20,0}
383,{262144021,128001}
384,{262144021,128001}
385,{20,0}
386,{1048576021,256257}
387,{1048576021,256003}
388,{262144021,128001}
389,{262144789,128001}
390,{262144021,128001}
391,{100663317,256002}
392,{100716053,155650}
393,{1048576277,256003}
394,{20,0}
395,{1024021,0}
396,{262165,0}
397,{65557,0}
398,{1024020,0}
399},{
400{4,16,21,1}
401,{4,13,21,1}
402,{4,20,21,1}
403,{4,20,21,1}
404,{4,0,21,0}
405,{4,0,21,0}
406},{
407{24,21,1,3,0,24,21}
408,{1,9,1,0,0,0,0}
409,{1,9,1,0,0,0,0}
410,{34,9,1,6,65326,0,30}
411},{108,129,3,5,88,104,126,0}
412#endif
413/*fin_reglage*/
414
415
416},{
417
418/*debut reglage 1 */
419#ifdef programme
420{32,76,8,1},{
421{20,0}
422,{1311522837,256000}
423,{1048576021,256004}
424,{20,0}
425,{1048576021,256001}
426,{20,0}
427,{262144021,128003}
428,{20,0}
429,{262144021,128001}
430,{262144021,128001}
431,{20,0}
432,{1048576021,256257}
433,{1048576021,256003}
434,{262144021,128001}
435,{262144789,128001}
436,{262144021,128001}
437,{100663317,256002}
438,{100716053,155650}
439,{1048576277,256003}
440,{20,0}
441,{1024021,0}
442,{262165,0}
443,{65557,0}
444,{1024020,0}
445},{
446{1,21,16,4}
447,{1,21,13,4}
448,{1,21,20,4}
449,{1,21,20,4}
450,{0,21,0,4}
451,{0,21,0,4}
452},{
453{3,1,21,24,21,24,0}
454,{0,1,9,1,0,0,0}
455,{0,1,9,1,0,0,0}
456,{6,1,9,34,30,0,65326}
457},{5,3,129,108,0,126,104,88}
458#else
459{1,8,76,32},{
460{20,0}
461,{1311522837,256000}
462,{1048576021,256004}
463,{20,0}
464,{1048576021,256001}
465,{20,0}
466,{262144021,128003}
467,{20,0}
468,{262144021,128001}
469,{262144021,128001}
470,{20,0}
471,{1048576021,256257}
472,{1048576021,256003}
473,{262144021,128001}
474,{262144789,128001}
475,{262144021,128001}
476,{100663317,256002}
477,{100716053,155650}
478,{1048576277,256003}
479,{20,0}
480,{1024021,0}
481,{262165,0}
482,{65557,0}
483,{1024020,0}
484},{
485{4,16,21,1}
486,{4,13,21,1}
487,{4,20,21,1}
488,{4,20,21,1}
489,{4,0,21,0}
490,{4,0,21,0}
491},{
492{24,21,1,3,0,24,21}
493,{1,9,1,0,0,0,0}
494,{1,9,1,0,0,0,0}
495,{34,9,1,6,65326,0,30}
496},{108,129,3,5,88,104,126,0}
497#endif
498/*fin_reglage*/
499
500},{
501
502/*debut reglage 2 */
503#ifdef programme
504{32,76,8,1},{
505{20,0}
506,{100721941,256000}
507,{1048607509,256004}
508,{20,0}
509,{1048586773,256003}
510,{20,0}
511,{50335509,128001}
512,{20,0}
513,{50331669,128001}
514,{50336789,128001}
515,{20,0}
516,{1048622101,256259}
517,{1048635413,256003}
518,{50331669,128001}
519,{50352661,128001}
520,{50337813,128001}
521,{100665109,256002}
522,{100664597,155650}
523,{1048600341,256003}
524,{20,0}
525,{1024021,0}
526,{65557,0}
527,{65557,0}
528,{262165,0}
529},{
530{1,21,11,4}
531,{1,21,13,4}
532,{1,21,20,4}
533,{1,21,20,4}
534,{0,20,0,1}
535,{0,20,0,1}
536},{
537{3,1,21,24,21,24,0}
538,{0,1,9,1,0,0,0}
539,{0,1,9,1,0,0,0}
540,{6,17,0,34,30,0,65386}
541},{5,3,129,108,0,126,104,88}
542#else
543{1,8,76,32},{
544{20,0}
545,{100721941,256000}
546,{1048607509,256004}
547,{20,0}
548,{1048586773,256003}
549,{20,0}
550,{50335509,128001}
551,{20,0}
552,{50331669,128001}
553,{50336789,128001}
554,{20,0}
555,{1048622101,256259}
556,{1048635413,256003}
557,{50331669,128001}
558,{50352661,128001}
559,{50337813,128001}
560,{100665109,256002}
561,{100664597,155650}
562,{1048600341,256003}
563,{20,0}
564,{1024021,0}
565,{65557,0}
566,{65557,0}
567,{262165,0}
568},{
569{4,11,21,1}
570,{4,13,21,1}
571,{4,20,21,1}
572,{4,20,21,1}
573,{1,0,20,0}
574,{1,0,20,0}
575},{
576{24,21,1,3,0,24,21}
577,{1,9,1,0,0,0,0}
578,{1,9,1,0,0,0,0}
579,{34,0,17,6,65386,0,30}
580},{108,129,3,5,88,104,126,0}
581#endif
582/*fin_reglage*/
583
584},{
585
586/*debut reglage 3 */
587#ifdef programme
588{32,76,8,1},{
589{20,0}
590,{100721941,256000}
591,{1048607509,256004}
592,{20,0}
593,{1048586773,256003}
594,{20,0}
595,{524291861,128001}
596,{20,0}
597,{524288021,128001}
598,{524293141,128001}
599,{20,0}
600,{1048622101,256259}
601,{1048635413,256003}
602,{524288021,128001}
603,{524309013,128001}
604,{524294165,128001}
605,{100665109,256002}
606,{100664597,155650}
607,{1048600341,256003}
608,{20,0}
609,{1024021,0}
610,{65557,0}
611,{65557,0}
612,{65557,0}
613},{
614{1,21,18,4}
615,{1,21,13,4}
616,{1,21,20,4}
617,{1,21,20,4}
618,{0,20,0,1}
619,{0,20,0,1}
620},{
621{3,1,21,24,21,24,0}
622,{0,1,9,1,0,0,0}
623,{0,1,9,1,0,0,0}
624,{6,17,0,34,30,0,65386}
625},{5,3,129,108,0,126,104,88}
626#else
627{1,8,76,32},{
628{20,0}
629,{100721941,256000}
630,{1048607509,256004}
631,{20,0}
632,{1048586773,256003}
633,{20,0}
634,{524291861,128001}
635,{20,0}
636,{524288021,128001}
637,{524293141,128001}
638,{20,0}
639,{1048622101,256259}
640,{1048635413,256003}
641,{524288021,128001}
642,{524309013,128001}
643,{524294165,128001}
644,{100665109,256002}
645,{100664597,155650}
646,{1048600341,256003}
647,{20,0}
648,{1024021,0}
649,{65557,0}
650,{65557,0}
651,{65557,0}
652},{
653{4,18,21,1}
654,{4,13,21,1}
655,{4,20,21,1}
656,{4,20,21,1}
657,{1,0,20,0}
658,{1,0,20,0}
659},{
660{24,21,1,3,0,24,21}
661,{1,9,1,0,0,0,0}
662,{1,9,1,0,0,0,0}
663,{34,0,17,6,65386,0,30}
664},{108,129,3,5,88,104,126,0}
665#endif
666/*fin_reglage*/
667
668},{
669
670/*debut reglage 4 */
671#ifdef programme
672{39,62,9,1},{
673{20,0}
674,{-100659180,229382}
675,{-100659436,294918}
676,{20,0}
677,{-100663276,221189}
678,{-100663276,5}
679,{-100659436,245762}
680,{-100663276,5}
681,{-100658154,245761}
682,{-100658156,253954}
683,{20,0}
684,{-100663276,204805}
685,{-100663276,16389}
686,{-100656874,1}
687,{-100656874,16385}
688,{-100663276,3}
689,{-100506347,6}
690,{-100509675,6}
691,{-100372972,6}
692,{2097174,0}
693,{1024022,0}
694,{16406,0}
695,{4117,0}
696,{262164,0}
697},{
698{2,22,24,1}
699,{1,20,24,4}
700,{0,20,24,4}
701,{0,20,24,3}
702,{0,20,24,4}
703,{0,20,24,4}
704},{
705{0,1,9,1,0,0,0}
706,{0,1,9,1,0,0,0}
707,{0,1,9,1,0,0,0}
708,{0,1,9,1,0,0,0}
709},{2,3,129,108,2,126,104,88}
710#else
711{1,9,62,39},{
712{20,0}
713,{-100659180,229382}
714,{-100659436,294918}
715,{20,0}
716,{-100663276,221189}
717,{-100663276,5}
718,{-100659436,245762}
719,{-100663276,5}
720,{-100658154,245761}
721,{-100658156,253954}
722,{20,0}
723,{-100663276,204805}
724,{-100663276,16389}
725,{-100656874,1}
726,{-100656874,16385}
727,{-100663276,3}
728,{-100506347,6}
729,{-100509675,6}
730,{-100372972,6}
731,{2097174,0}
732,{1024022,0}
733,{16406,0}
734,{4117,0}
735,{262164,0}
736},{
737{1,24,22,2}
738,{4,24,20,1}
739,{4,24,20,0}
740,{3,24,20,0}
741,{4,24,20,0}
742,{4,24,20,0}
743},{
744{1,9,1,0,0,0,0}
745,{1,9,1,0,0,0,0}
746,{1,9,1,0,0,0,0}
747,{1,9,1,0,0,0,0}
748},{108,129,3,2,88,104,126,2}
749#endif
750/*fin_reglage*/
751
752},{
753
754/*debut reglage 5 */
755#ifdef programme
756{39,68,9,1},{
757{20,0}
758,{1048982293,229382}
759,{1049128469,253958}
760,{20,0}
761,{1048966677,245765}
762,{20,0}
763,{262157846,245762}
764,{1048919829,5}
765,{262156054,245761}
766,{262154006,253954}
767,{20,0}
768,{1049123349,229381}
769,{1049157141,237573}
770,{262154262,1}
771,{262158614,16385}
772,{262149654,3}
773,{262750740,237572}
774,{262606612,122884}
775,{-1174095083,139270}
776,{20,0}
777,{16406,0}
778,{16406,0}
779,{4117,0}
780,{262164,0}
781},{
782{1,22,16,1}
783,{1,22,16,4}
784,{1,22,16,4}
785,{1,20,16,3}
786,{1,21,20,4}
787,{1,21,20,4}
788},{
789{0,1,9,1,0,0,0}
790,{0,1,9,1,0,0,0}
791,{0,1,9,1,0,0,0}
792,{0,1,9,1,0,0,0}
793},{2,3,129,108,3,126,104,88}
794#else
795{1,9,68,39},{
796{20,0}
797,{1048982293,229382}
798,{1049128469,253958}
799,{20,0}
800,{1048966677,245765}
801,{20,0}
802,{262157846,245762}
803,{1048919829,5}
804,{262156054,245761}
805,{262154006,253954}
806,{20,0}
807,{1049123349,229381}
808,{1049157141,237573}
809,{262154262,1}
810,{262158614,16385}
811,{262149654,3}
812,{262750740,237572}
813,{262606612,122884}
814,{-1174095083,139270}
815,{20,0}
816,{16406,0}
817,{16406,0}
818,{4117,0}
819,{262164,0}
820},{
821{1,16,22,1}
822,{4,16,22,1}
823,{4,16,22,1}
824,{3,16,20,1}
825,{4,20,21,1}
826,{4,20,21,1}
827},{
828{1,9,1,0,0,0,0}
829,{1,9,1,0,0,0,0}
830,{1,9,1,0,0,0,0}
831,{1,9,1,0,0,0,0}
832},{108,129,3,2,88,104,126,3}
833#endif
834/*fin_reglage*/
835
836},{
837
838/*debut reglage 6 */
839#ifdef programme
840{197,191,175,185},{
841{0,0}
842,{0,0}
843,{0,0}
844,{0,0}
845,{0,0}
846,{0,0}
847,{0,0}
848,{0,0}
849,{0,0}
850,{0,0}
851,{0,0}
852,{0,0}
853,{0,0}
854,{0,0}
855,{0,0}
856,{0,0}
857,{0,0}
858,{0,0}
859,{0,0}
860,{0,0}
861,{0,0}
862,{0,0}
863,{0,0}
864,{0,0}
865},{
866{106,98,93,71}
867,{66,74,87,66}
868,{48,46,38,33}
869,{40,41,33,26}
870,{25,29,40,57}
871,{63,62,71,80}
872},{
873{83,79,75,75,92,112,31100}
874,{125,126,117,113,107,94,20315}
875,{108,116,122,124,117,120,32117}
876,{110,99,94,98,107,93,17217}
877},{88,82,94,108,111,126,104,88}
878#else
879{185,175,191,197},{
880{0,0}
881,{0,0}
882,{0,0}
883,{0,0}
884,{0,0}
885,{0,0}
886,{0,0}
887,{0,0}
888,{0,0}
889,{0,0}
890,{0,0}
891,{0,0}
892,{0,0}
893,{0,0}
894,{0,0}
895,{0,0}
896,{0,0}
897,{0,0}
898,{0,0}
899,{0,0}
900,{0,0}
901,{0,0}
902,{0,0}
903,{0,0}
904},{
905{71,93,98,106}
906,{66,87,74,66}
907,{33,38,46,48}
908,{26,33,41,40}
909,{57,40,29,25}
910,{80,71,62,63}
911},{
912{75,75,79,83,31100,112,92}
913,{113,117,126,125,20315,94,107}
914,{124,122,116,108,32117,120,117}
915,{98,94,99,110,17217,93,107}
916},{108,94,82,88,88,104,126,111}
917#endif
918/*fin_reglage*/
919
920},{
921
922/*debut reglage 7 */
923#ifdef programme
924{197,191,175,185},{
925{0,0}
926,{0,0}
927,{0,0}
928,{0,0}
929,{0,0}
930,{0,0}
931,{0,0}
932,{0,0}
933,{0,0}
934,{0,0}
935,{0,0}
936,{0,0}
937,{0,0}
938,{0,0}
939,{0,0}
940,{0,0}
941,{0,0}
942,{0,0}
943,{0,0}
944,{0,0}
945,{0,0}
946,{0,0}
947,{0,0}
948,{0,0}
949},{
950{106,98,93,71}
951,{66,74,87,66}
952,{48,46,38,33}
953,{40,41,33,26}
954,{25,29,40,57}
955,{63,62,71,80}
956},{
957{83,79,75,75,92,112,31100}
958,{125,126,117,113,107,94,20315}
959,{108,116,122,124,117,120,32117}
960,{110,99,94,98,107,93,17217}
961},{88,82,94,108,111,126,104,88}
962#else
963{185,175,191,197},{
964{0,0}
965,{0,0}
966,{0,0}
967,{0,0}
968,{0,0}
969,{0,0}
970,{0,0}
971,{0,0}
972,{0,0}
973,{0,0}
974,{0,0}
975,{0,0}
976,{0,0}
977,{0,0}
978,{0,0}
979,{0,0}
980,{0,0}
981,{0,0}
982,{0,0}
983,{0,0}
984,{0,0}
985,{0,0}
986,{0,0}
987,{0,0}
988},{
989{71,93,98,106}
990,{66,87,74,66}
991,{33,38,46,48}
992,{26,33,41,40}
993,{57,40,29,25}
994,{80,71,62,63}
995},{
996{75,75,79,83,31100,112,92}
997,{113,117,126,125,20315,94,107}
998,{124,122,116,108,32117,120,117}
999,{98,94,99,110,17217,93,107}
1000},{108,94,82,88,88,104,126,111}
1001#endif
1002/*fin_reglage*/
1003
1004} };
1005
1006
1007
1008
1009int calcul_somme_block(block_type_modele* blk,int longueur)
1010{
1011int i,so=0;;
1012for(i=0;i<(longueur/4-4);i++) so^=(int)blk->mot[i];
1013/* somme sur tous les mots internes : on exclus le dbut, les codes et la fin */
1014return((so^(so>>16))&0xffff);
1015}
1016
1017
1018
1019
1020void valide_block(block_type_modele* blk,int type,int block_num)
1021{
1022int somme,longueur;
1023def_long_block
1024longueur=long_block[type];
1025/*printf("valide block adresse %x type %d numblock %d longueur=%d \n" */
1026/* ,(unsigned)blk,type,block_num,longueur);*/
1027blk->debut = debut_block_mesure;
1028somme=0;blk->code1 = (((long)longueur)<<16) | somme;
1029blk->code2 = (((long)block_num) & 0xffffff ) | ( (((long)type)<<24)&0xff000000 );
1030
1031blk->mot[longueur/4-4] = fin_block_mesure;
1032
1033#if defined(_ECC_LIB_H_)
1034{
1035int place_ecc;
1036place_ecc=(longueur-4-ECC_SIZE-SIZE_HEAD-((longueur-4-SIZE_HEAD)/ECC_TOTAL)*ECC_SIZE)/4;
1037SetEcc( blk, (unsigned char *) &(blk->mot[place_ecc] ) ) ;
1038}
1039#endif
1040
1041somme=calcul_somme_block(blk,longueur);
1042blk->code1 = (((long)longueur)<<16) | somme;
1043/* l'ecc est faux car on a change la somme: mettre la somme a zero avant de tester ecc */
1044}
1045
1046/* Quand on est sur une machine swappee, on ne cherche pas a verifier */
1047/* le checksum, puisqu'on a modifie les blocs, sans swapper par exemple */
1048/* les chars des noms de bolometres et des chaines GPS... */
1049#ifdef __alpha
1050#define SWAP
1051#endif
1052#if defined(Linux) || defined(linux)
1053#define SWAP
1054#endif
1055
1056
1057
1058int verifie_block(block_type_modele* blk)
1059{
1060int type,lg,som;
1061def_long_block
1062if(blk->debut != debut_block_mesure) return(block_debut_erreur);
1063type=type_block(blk); if( (type<0) ||(type>=nb_type_blocks) ) return(block_type_inconnu);
1064lg=longueur_block(blk); if( lg != long_block[type] ) return(block_longueur_erreur);
1065if( blk->mot[(lg/4)-4] != fin_block_mesure) return(block_fin_erreur);
1066#ifndef SWAP
1067som=calcul_somme_block(blk,lg); if( som!= somme_block(blk)) return(block_somme_erreur);
1068#endif
1069return(block_correct);
1070}
1071
1072
1073int verifie_block_printf(block_type_modele* blk)
1074{
1075int type,lg,som;
1076def_long_block
1077def_nom_block
1078if(blk->debut != debut_block_mesure)
1079 {
1080 printf(" erreur dans le code debut de block \n");
1081 return(block_debut_erreur);
1082 }
1083
1084type=type_block(blk);
1085if( (type<0) || (type>nb_type_blocks) )
1086 {
1087 printf(" block de type %d inconnu\n",type);
1088 return(block_type_inconnu);
1089 }
1090
1091lg=longueur_block(blk);
1092if( lg!=long_block[type] )
1093 {
1094 printf(" block type %s erreur de longueur (nominal=%d , dans le block=%d \n"
1095 ,nom_block[type],long_block[type],lg);
1096 return(block_longueur_erreur);
1097 }
1098
1099som=calcul_somme_block(blk,lg);
1100if( som!=somme_block(blk) )
1101 {
1102 printf(" block type %s : erreur de somme (calculee=%d , dans le block=%d \n"
1103 ,nom_block[type],som,somme_block(blk) );
1104 return(block_somme_erreur);
1105 }
1106
1107if(blk->mot[(lg/4)-4] != fin_block_mesure)
1108 {
1109 printf(" block type %s erreur de code fin de block : trouve %x au lieu de %x \n"
1110 ,nom_block[type],(int)blk->mot[(lg/4)-4],fin_block_mesure);
1111 return(block_fin_erreur);
1112 }
1113
1114return(block_correct);
1115}
1116
1117
1118
1119
1120
Note: See TracBrowser for help on using the repository browser.