##// END OF EJS Templates
HG_REPOSITORIES » LPP » INSTRUMENTATION » SOLO_LFR » DEV_PLE
RSS

Clone from http://pc-instru.lpp.polytechnique.fr:5000/DEV_PLE

little modification on delta_f2 (influence on the first snapshot at f0)
paul -
r260:629526138b27 R3a
parent child
Show More
Show file before | Show file after | Hide comments
@@ -1,1294 +1,1293
1 /** Functions and tasks related to waveform packet generation.
1 /** Functions and tasks related to waveform packet generation.
2 *
2 *
3 * @file
3 * @file
4 * @author P. LEROY
4 * @author P. LEROY
5 *
5 *
6 * A group of functions to handle waveforms, in snapshot or continuous format.\n
6 * A group of functions to handle waveforms, in snapshot or continuous format.\n
7 *
7 *
8 */
8 */
9
9
10 #include "wf_handler.h"
10 #include "wf_handler.h"
11
11
12 //***************
12 //***************
13 // waveform rings
13 // waveform rings
14 // F0
14 // F0
15 ring_node waveform_ring_f0[NB_RING_NODES_F0];
15 ring_node waveform_ring_f0[NB_RING_NODES_F0];
16 ring_node *current_ring_node_f0;
16 ring_node *current_ring_node_f0;
17 ring_node *ring_node_to_send_swf_f0;
17 ring_node *ring_node_to_send_swf_f0;
18 // F1
18 // F1
19 ring_node waveform_ring_f1[NB_RING_NODES_F1];
19 ring_node waveform_ring_f1[NB_RING_NODES_F1];
20 ring_node *current_ring_node_f1;
20 ring_node *current_ring_node_f1;
21 ring_node *ring_node_to_send_swf_f1;
21 ring_node *ring_node_to_send_swf_f1;
22 ring_node *ring_node_to_send_cwf_f1;
22 ring_node *ring_node_to_send_cwf_f1;
23 // F2
23 // F2
24 ring_node waveform_ring_f2[NB_RING_NODES_F2];
24 ring_node waveform_ring_f2[NB_RING_NODES_F2];
25 ring_node *current_ring_node_f2;
25 ring_node *current_ring_node_f2;
26 ring_node *ring_node_to_send_swf_f2;
26 ring_node *ring_node_to_send_swf_f2;
27 ring_node *ring_node_to_send_cwf_f2;
27 ring_node *ring_node_to_send_cwf_f2;
28 // F3
28 // F3
29 ring_node waveform_ring_f3[NB_RING_NODES_F3];
29 ring_node waveform_ring_f3[NB_RING_NODES_F3];
30 ring_node *current_ring_node_f3;
30 ring_node *current_ring_node_f3;
31 ring_node *ring_node_to_send_cwf_f3;
31 ring_node *ring_node_to_send_cwf_f3;
32 char wf_cont_f3_light[ (NB_SAMPLES_PER_SNAPSHOT) * NB_BYTES_CWF3_LIGHT_BLK ];
32 char wf_cont_f3_light[ (NB_SAMPLES_PER_SNAPSHOT) * NB_BYTES_CWF3_LIGHT_BLK ];
33
33
34 bool extractSWF1 = false;
34 bool extractSWF1 = false;
35 bool extractSWF2 = false;
35 bool extractSWF2 = false;
36 bool swf0_ready_flag_f1 = false;
36 bool swf0_ready_flag_f1 = false;
37 bool swf0_ready_flag_f2 = false;
37 bool swf0_ready_flag_f2 = false;
38 bool swf1_ready = false;
38 bool swf1_ready = false;
39 bool swf2_ready = false;
39 bool swf2_ready = false;
40
40
41 int swf1_extracted[ (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK) ];
41 int swf1_extracted[ (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK) ];
42 int swf2_extracted[ (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK) ];
42 int swf2_extracted[ (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK) ];
43 ring_node ring_node_swf1_extracted;
43 ring_node ring_node_swf1_extracted;
44 ring_node ring_node_swf2_extracted;
44 ring_node ring_node_swf2_extracted;
45
45
46 typedef enum resynchro_state_t
46 typedef enum resynchro_state_t
47 {
47 {
48 MEASURE_0,
48 MEASURE_0,
49 MEASURE_1,
49 MEASURE_1,
50 CORRECTION_0,
50 CORRECTION_0,
51 CORRECTION_1
51 CORRECTION_1
52 } resynchro_state;
52 } resynchro_state;
53
53
54 //*********************
54 //*********************
55 // Interrupt SubRoutine
55 // Interrupt SubRoutine
56
56
57 ring_node * getRingNodeToSendCWF( unsigned char frequencyChannel)
57 ring_node * getRingNodeToSendCWF( unsigned char frequencyChannel)
58 {
58 {
59 ring_node *node;
59 ring_node *node;
60
60
61 node = NULL;
61 node = NULL;
62 switch ( frequencyChannel ) {
62 switch ( frequencyChannel ) {
63 case 1:
63 case 1:
64 node = ring_node_to_send_cwf_f1;
64 node = ring_node_to_send_cwf_f1;
65 break;
65 break;
66 case 2:
66 case 2:
67 node = ring_node_to_send_cwf_f2;
67 node = ring_node_to_send_cwf_f2;
68 break;
68 break;
69 case 3:
69 case 3:
70 node = ring_node_to_send_cwf_f3;
70 node = ring_node_to_send_cwf_f3;
71 break;
71 break;
72 default:
72 default:
73 break;
73 break;
74 }
74 }
75
75
76 return node;
76 return node;
77 }
77 }
78
78
79 ring_node * getRingNodeToSendSWF( unsigned char frequencyChannel)
79 ring_node * getRingNodeToSendSWF( unsigned char frequencyChannel)
80 {
80 {
81 ring_node *node;
81 ring_node *node;
82
82
83 node = NULL;
83 node = NULL;
84 switch ( frequencyChannel ) {
84 switch ( frequencyChannel ) {
85 case 0:
85 case 0:
86 node = ring_node_to_send_swf_f0;
86 node = ring_node_to_send_swf_f0;
87 break;
87 break;
88 case 1:
88 case 1:
89 node = ring_node_to_send_swf_f1;
89 node = ring_node_to_send_swf_f1;
90 break;
90 break;
91 case 2:
91 case 2:
92 node = ring_node_to_send_swf_f2;
92 node = ring_node_to_send_swf_f2;
93 break;
93 break;
94 default:
94 default:
95 break;
95 break;
96 }
96 }
97
97
98 return node;
98 return node;
99 }
99 }
100
100
101 void reset_extractSWF( void )
101 void reset_extractSWF( void )
102 {
102 {
103 extractSWF1 = false;
103 extractSWF1 = false;
104 extractSWF2 = false;
104 extractSWF2 = false;
105 swf0_ready_flag_f1 = false;
105 swf0_ready_flag_f1 = false;
106 swf0_ready_flag_f2 = false;
106 swf0_ready_flag_f2 = false;
107 swf1_ready = false;
107 swf1_ready = false;
108 swf2_ready = false;
108 swf2_ready = false;
109 }
109 }
110
110
111 inline void waveforms_isr_f3( void )
111 inline void waveforms_isr_f3( void )
112 {
112 {
113 rtems_status_code spare_status;
113 rtems_status_code spare_status;
114
114
115 if ( (lfrCurrentMode == LFR_MODE_NORMAL) || (lfrCurrentMode == LFR_MODE_BURST) // in BURST the data are used to place v, e1 and e2 in the HK packet
115 if ( (lfrCurrentMode == LFR_MODE_NORMAL) || (lfrCurrentMode == LFR_MODE_BURST) // in BURST the data are used to place v, e1 and e2 in the HK packet
116 || (lfrCurrentMode == LFR_MODE_SBM1) || (lfrCurrentMode == LFR_MODE_SBM2) )
116 || (lfrCurrentMode == LFR_MODE_SBM1) || (lfrCurrentMode == LFR_MODE_SBM2) )
117 { // in modes other than STANDBY and BURST, send the CWF_F3 data
117 { // in modes other than STANDBY and BURST, send the CWF_F3 data
118 //***
118 //***
119 // F3
119 // F3
120 if ( (waveform_picker_regs->status & 0xc0) != 0x00 ) { // [1100 0000] check the f3 full bits
120 if ( (waveform_picker_regs->status & 0xc0) != 0x00 ) { // [1100 0000] check the f3 full bits
121 ring_node_to_send_cwf_f3 = current_ring_node_f3->previous;
121 ring_node_to_send_cwf_f3 = current_ring_node_f3->previous;
122 current_ring_node_f3 = current_ring_node_f3->next;
122 current_ring_node_f3 = current_ring_node_f3->next;
123 if ((waveform_picker_regs->status & 0x40) == 0x40){ // [0100 0000] f3 buffer 0 is full
123 if ((waveform_picker_regs->status & 0x40) == 0x40){ // [0100 0000] f3 buffer 0 is full
124 ring_node_to_send_cwf_f3->coarseTime = waveform_picker_regs->f3_0_coarse_time;
124 ring_node_to_send_cwf_f3->coarseTime = waveform_picker_regs->f3_0_coarse_time;
125 ring_node_to_send_cwf_f3->fineTime = waveform_picker_regs->f3_0_fine_time;
125 ring_node_to_send_cwf_f3->fineTime = waveform_picker_regs->f3_0_fine_time;
126 waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->buffer_address;
126 waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->buffer_address;
127 waveform_picker_regs->status = waveform_picker_regs->status & 0x00008840; // [1000 1000 0100 0000]
127 waveform_picker_regs->status = waveform_picker_regs->status & 0x00008840; // [1000 1000 0100 0000]
128 }
128 }
129 else if ((waveform_picker_regs->status & 0x80) == 0x80){ // [1000 0000] f3 buffer 1 is full
129 else if ((waveform_picker_regs->status & 0x80) == 0x80){ // [1000 0000] f3 buffer 1 is full
130 ring_node_to_send_cwf_f3->coarseTime = waveform_picker_regs->f3_1_coarse_time;
130 ring_node_to_send_cwf_f3->coarseTime = waveform_picker_regs->f3_1_coarse_time;
131 ring_node_to_send_cwf_f3->fineTime = waveform_picker_regs->f3_1_fine_time;
131 ring_node_to_send_cwf_f3->fineTime = waveform_picker_regs->f3_1_fine_time;
132 waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address;
132 waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address;
133 waveform_picker_regs->status = waveform_picker_regs->status & 0x00008880; // [1000 1000 1000 0000]
133 waveform_picker_regs->status = waveform_picker_regs->status & 0x00008880; // [1000 1000 1000 0000]
134 }
134 }
135 if (rtems_event_send( Task_id[TASKID_CWF3], RTEMS_EVENT_0 ) != RTEMS_SUCCESSFUL) {
135 if (rtems_event_send( Task_id[TASKID_CWF3], RTEMS_EVENT_0 ) != RTEMS_SUCCESSFUL) {
136 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 );
136 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 );
137 }
137 }
138 }
138 }
139 }
139 }
140 }
140 }
141
141
142 inline void waveforms_isr_burst( void )
142 inline void waveforms_isr_burst( void )
143 {
143 {
144 unsigned char status;
144 unsigned char status;
145 rtems_status_code spare_status;
145 rtems_status_code spare_status;
146
146
147 status = (waveform_picker_regs->status & 0x30) >> 4; // [0011 0000] get the status bits for f2
147 status = (waveform_picker_regs->status & 0x30) >> 4; // [0011 0000] get the status bits for f2
148
148
149
149
150 switch(status)
150 switch(status)
151 {
151 {
152 case 1:
152 case 1:
153 ring_node_to_send_cwf_f2 = current_ring_node_f2->previous;
153 ring_node_to_send_cwf_f2 = current_ring_node_f2->previous;
154 ring_node_to_send_cwf_f2->sid = SID_BURST_CWF_F2;
154 ring_node_to_send_cwf_f2->sid = SID_BURST_CWF_F2;
155 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_0_coarse_time;
155 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_0_coarse_time;
156 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_0_fine_time;
156 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_0_fine_time;
157 current_ring_node_f2 = current_ring_node_f2->next;
157 current_ring_node_f2 = current_ring_node_f2->next;
158 waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address;
158 waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address;
159 if (rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_BURST ) != RTEMS_SUCCESSFUL) {
159 if (rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_BURST ) != RTEMS_SUCCESSFUL) {
160 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 );
160 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 );
161 }
161 }
162 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004410; // [0100 0100 0001 0000]
162 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004410; // [0100 0100 0001 0000]
163 break;
163 break;
164 case 2:
164 case 2:
165 ring_node_to_send_cwf_f2 = current_ring_node_f2->previous;
165 ring_node_to_send_cwf_f2 = current_ring_node_f2->previous;
166 ring_node_to_send_cwf_f2->sid = SID_BURST_CWF_F2;
166 ring_node_to_send_cwf_f2->sid = SID_BURST_CWF_F2;
167 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_1_coarse_time;
167 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_1_coarse_time;
168 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_1_fine_time;
168 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_1_fine_time;
169 current_ring_node_f2 = current_ring_node_f2->next;
169 current_ring_node_f2 = current_ring_node_f2->next;
170 waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address;
170 waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address;
171 if (rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_BURST ) != RTEMS_SUCCESSFUL) {
171 if (rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_BURST ) != RTEMS_SUCCESSFUL) {
172 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 );
172 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 );
173 }
173 }
174 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004420; // [0100 0100 0010 0000]
174 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004420; // [0100 0100 0010 0000]
175 break;
175 break;
176 default:
176 default:
177 break;
177 break;
178 }
178 }
179 }
179 }
180
180
181 inline void waveform_isr_normal_sbm1_sbm2( void )
181 inline void waveform_isr_normal_sbm1_sbm2( void )
182 {
182 {
183 rtems_status_code status;
183 rtems_status_code status;
184
184
185 //***
185 //***
186 // F0
186 // F0
187 if ( (waveform_picker_regs->status & 0x03) != 0x00 ) // [0000 0011] check the f0 full bits
187 if ( (waveform_picker_regs->status & 0x03) != 0x00 ) // [0000 0011] check the f0 full bits
188 {
188 {
189 swf0_ready_flag_f1 = true;
189 swf0_ready_flag_f1 = true;
190 swf0_ready_flag_f2 = true;
190 swf0_ready_flag_f2 = true;
191 ring_node_to_send_swf_f0 = current_ring_node_f0->previous;
191 ring_node_to_send_swf_f0 = current_ring_node_f0->previous;
192 current_ring_node_f0 = current_ring_node_f0->next;
192 current_ring_node_f0 = current_ring_node_f0->next;
193 if ( (waveform_picker_regs->status & 0x01) == 0x01)
193 if ( (waveform_picker_regs->status & 0x01) == 0x01)
194 {
194 {
195
195
196 ring_node_to_send_swf_f0->coarseTime = waveform_picker_regs->f0_0_coarse_time;
196 ring_node_to_send_swf_f0->coarseTime = waveform_picker_regs->f0_0_coarse_time;
197 ring_node_to_send_swf_f0->fineTime = waveform_picker_regs->f0_0_fine_time;
197 ring_node_to_send_swf_f0->fineTime = waveform_picker_regs->f0_0_fine_time;
198 waveform_picker_regs->addr_data_f0_0 = current_ring_node_f0->buffer_address;
198 waveform_picker_regs->addr_data_f0_0 = current_ring_node_f0->buffer_address;
199 waveform_picker_regs->status = waveform_picker_regs->status & 0x00001101; // [0001 0001 0000 0001]
199 waveform_picker_regs->status = waveform_picker_regs->status & 0x00001101; // [0001 0001 0000 0001]
200 }
200 }
201 else if ( (waveform_picker_regs->status & 0x02) == 0x02)
201 else if ( (waveform_picker_regs->status & 0x02) == 0x02)
202 {
202 {
203 ring_node_to_send_swf_f0->coarseTime = waveform_picker_regs->f0_1_coarse_time;
203 ring_node_to_send_swf_f0->coarseTime = waveform_picker_regs->f0_1_coarse_time;
204 ring_node_to_send_swf_f0->fineTime = waveform_picker_regs->f0_1_fine_time;
204 ring_node_to_send_swf_f0->fineTime = waveform_picker_regs->f0_1_fine_time;
205 waveform_picker_regs->addr_data_f0_1 = current_ring_node_f0->buffer_address;
205 waveform_picker_regs->addr_data_f0_1 = current_ring_node_f0->buffer_address;
206 waveform_picker_regs->status = waveform_picker_regs->status & 0x00001102; // [0001 0001 0000 0010]
206 waveform_picker_regs->status = waveform_picker_regs->status & 0x00001102; // [0001 0001 0000 0010]
207 }
207 }
208 }
208 }
209
209
210 //***
210 //***
211 // F1
211 // F1
212 if ( (waveform_picker_regs->status & 0x0c) != 0x00 ) { // [0000 1100] check the f1 full bits
212 if ( (waveform_picker_regs->status & 0x0c) != 0x00 ) { // [0000 1100] check the f1 full bits
213 // (1) change the receiving buffer for the waveform picker
213 // (1) change the receiving buffer for the waveform picker
214 ring_node_to_send_cwf_f1 = current_ring_node_f1->previous;
214 ring_node_to_send_cwf_f1 = current_ring_node_f1->previous;
215 current_ring_node_f1 = current_ring_node_f1->next;
215 current_ring_node_f1 = current_ring_node_f1->next;
216 if ( (waveform_picker_regs->status & 0x04) == 0x04)
216 if ( (waveform_picker_regs->status & 0x04) == 0x04)
217 {
217 {
218 ring_node_to_send_cwf_f1->coarseTime = waveform_picker_regs->f1_0_coarse_time;
218 ring_node_to_send_cwf_f1->coarseTime = waveform_picker_regs->f1_0_coarse_time;
219 ring_node_to_send_cwf_f1->fineTime = waveform_picker_regs->f1_0_fine_time;
219 ring_node_to_send_cwf_f1->fineTime = waveform_picker_regs->f1_0_fine_time;
220 waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->buffer_address;
220 waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->buffer_address;
221 waveform_picker_regs->status = waveform_picker_regs->status & 0x00002204; // [0010 0010 0000 0100] f1 bits = 0
221 waveform_picker_regs->status = waveform_picker_regs->status & 0x00002204; // [0010 0010 0000 0100] f1 bits = 0
222 }
222 }
223 else if ( (waveform_picker_regs->status & 0x08) == 0x08)
223 else if ( (waveform_picker_regs->status & 0x08) == 0x08)
224 {
224 {
225 ring_node_to_send_cwf_f1->coarseTime = waveform_picker_regs->f1_1_coarse_time;
225 ring_node_to_send_cwf_f1->coarseTime = waveform_picker_regs->f1_1_coarse_time;
226 ring_node_to_send_cwf_f1->fineTime = waveform_picker_regs->f1_1_fine_time;
226 ring_node_to_send_cwf_f1->fineTime = waveform_picker_regs->f1_1_fine_time;
227 waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address;
227 waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address;
228 waveform_picker_regs->status = waveform_picker_regs->status & 0x00002208; // [0010 0010 0000 1000] f1 bits = 0
228 waveform_picker_regs->status = waveform_picker_regs->status & 0x00002208; // [0010 0010 0000 1000] f1 bits = 0
229 }
229 }
230 // (2) send an event for the the CWF1 task for transmission (and snapshot extraction if needed)
230 // (2) send an event for the the CWF1 task for transmission (and snapshot extraction if needed)
231 status = rtems_event_send( Task_id[TASKID_CWF1], RTEMS_EVENT_MODE_NORM_S1_S2 );
231 status = rtems_event_send( Task_id[TASKID_CWF1], RTEMS_EVENT_MODE_NORM_S1_S2 );
232 }
232 }
233
233
234 //***
234 //***
235 // F2
235 // F2
236 if ( (waveform_picker_regs->status & 0x30) != 0x00 ) { // [0011 0000] check the f2 full bit
236 if ( (waveform_picker_regs->status & 0x30) != 0x00 ) { // [0011 0000] check the f2 full bit
237 // (1) change the receiving buffer for the waveform picker
237 // (1) change the receiving buffer for the waveform picker
238 ring_node_to_send_cwf_f2 = current_ring_node_f2->previous;
238 ring_node_to_send_cwf_f2 = current_ring_node_f2->previous;
239 ring_node_to_send_cwf_f2->sid = SID_SBM2_CWF_F2;
239 ring_node_to_send_cwf_f2->sid = SID_SBM2_CWF_F2;
240 current_ring_node_f2 = current_ring_node_f2->next;
240 current_ring_node_f2 = current_ring_node_f2->next;
241 if ( (waveform_picker_regs->status & 0x10) == 0x10)
241 if ( (waveform_picker_regs->status & 0x10) == 0x10)
242 {
242 {
243 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_0_coarse_time;
243 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_0_coarse_time;
244 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_0_fine_time;
244 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_0_fine_time;
245 waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address;
245 waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address;
246 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004410; // [0100 0100 0001 0000]
246 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004410; // [0100 0100 0001 0000]
247 }
247 }
248 else if ( (waveform_picker_regs->status & 0x20) == 0x20)
248 else if ( (waveform_picker_regs->status & 0x20) == 0x20)
249 {
249 {
250 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_1_coarse_time;
250 ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_1_coarse_time;
251 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_1_fine_time;
251 ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_1_fine_time;
252 waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address;
252 waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address;
253 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004420; // [0100 0100 0010 0000]
253 waveform_picker_regs->status = waveform_picker_regs->status & 0x00004420; // [0100 0100 0010 0000]
254 }
254 }
255 // (2) send an event for the waveforms transmission
255 // (2) send an event for the waveforms transmission
256 status = rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_NORM_S1_S2 );
256 status = rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_NORM_S1_S2 );
257 }
257 }
258 }
258 }
259
259
260 rtems_isr waveforms_isr( rtems_vector_number vector )
260 rtems_isr waveforms_isr( rtems_vector_number vector )
261 {
261 {
262 /** This is the interrupt sub routine called by the waveform picker core.
262 /** This is the interrupt sub routine called by the waveform picker core.
263 *
263 *
264 * This ISR launch different actions depending mainly on two pieces of information:
264 * This ISR launch different actions depending mainly on two pieces of information:
265 * 1. the values read in the registers of the waveform picker.
265 * 1. the values read in the registers of the waveform picker.
266 * 2. the current LFR mode.
266 * 2. the current LFR mode.
267 *
267 *
268 */
268 */
269
269
270 // STATUS
270 // STATUS
271 // new error error buffer full
271 // new error error buffer full
272 // 15 14 13 12 11 10 9 8
272 // 15 14 13 12 11 10 9 8
273 // f3 f2 f1 f0 f3 f2 f1 f0
273 // f3 f2 f1 f0 f3 f2 f1 f0
274 //
274 //
275 // ready buffer
275 // ready buffer
276 // 7 6 5 4 3 2 1 0
276 // 7 6 5 4 3 2 1 0
277 // f3_1 f3_0 f2_1 f2_0 f1_1 f1_0 f0_1 f0_0
277 // f3_1 f3_0 f2_1 f2_0 f1_1 f1_0 f0_1 f0_0
278
278
279 rtems_status_code spare_status;
279 rtems_status_code spare_status;
280
280
281 waveforms_isr_f3();
281 waveforms_isr_f3();
282
282
283 if ( (waveform_picker_regs->status & 0xff00) != 0x00) // [1111 1111 0000 0000] check the error bits
283 if ( (waveform_picker_regs->status & 0xff00) != 0x00) // [1111 1111 0000 0000] check the error bits
284 {
284 {
285 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_10 );
285 spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_10 );
286 }
286 }
287
287
288 switch(lfrCurrentMode)
288 switch(lfrCurrentMode)
289 {
289 {
290 //********
290 //********
291 // STANDBY
291 // STANDBY
292 case LFR_MODE_STANDBY:
292 case LFR_MODE_STANDBY:
293 break;
293 break;
294 //**************************
294 //**************************
295 // LFR NORMAL, SBM1 and SBM2
295 // LFR NORMAL, SBM1 and SBM2
296 case LFR_MODE_NORMAL:
296 case LFR_MODE_NORMAL:
297 case LFR_MODE_SBM1:
297 case LFR_MODE_SBM1:
298 case LFR_MODE_SBM2:
298 case LFR_MODE_SBM2:
299 waveform_isr_normal_sbm1_sbm2();
299 waveform_isr_normal_sbm1_sbm2();
300 break;
300 break;
301 //******
301 //******
302 // BURST
302 // BURST
303 case LFR_MODE_BURST:
303 case LFR_MODE_BURST:
304 waveforms_isr_burst();
304 waveforms_isr_burst();
305 break;
305 break;
306 //********
306 //********
307 // DEFAULT
307 // DEFAULT
308 default:
308 default:
309 break;
309 break;
310 }
310 }
311 }
311 }
312
312
313 //************
313 //************
314 // RTEMS TASKS
314 // RTEMS TASKS
315
315
316 rtems_task wfrm_task(rtems_task_argument argument) //used with the waveform picker VHDL IP
316 rtems_task wfrm_task(rtems_task_argument argument) //used with the waveform picker VHDL IP
317 {
317 {
318 /** This RTEMS task is dedicated to the transmission of snapshots of the NORMAL mode.
318 /** This RTEMS task is dedicated to the transmission of snapshots of the NORMAL mode.
319 *
319 *
320 * @param unused is the starting argument of the RTEMS task
320 * @param unused is the starting argument of the RTEMS task
321 *
321 *
322 * The following data packets are sent by this task:
322 * The following data packets are sent by this task:
323 * - TM_LFR_SCIENCE_NORMAL_SWF_F0
323 * - TM_LFR_SCIENCE_NORMAL_SWF_F0
324 * - TM_LFR_SCIENCE_NORMAL_SWF_F1
324 * - TM_LFR_SCIENCE_NORMAL_SWF_F1
325 * - TM_LFR_SCIENCE_NORMAL_SWF_F2
325 * - TM_LFR_SCIENCE_NORMAL_SWF_F2
326 *
326 *
327 */
327 */
328
328
329 rtems_event_set event_out;
329 rtems_event_set event_out;
330 rtems_id queue_id;
330 rtems_id queue_id;
331 rtems_status_code status;
331 rtems_status_code status;
332 ring_node *ring_node_swf1_extracted_ptr;
332 ring_node *ring_node_swf1_extracted_ptr;
333 ring_node *ring_node_swf2_extracted_ptr;
333 ring_node *ring_node_swf2_extracted_ptr;
334
334
335 ring_node_swf1_extracted_ptr = (ring_node *) &ring_node_swf1_extracted;
335 ring_node_swf1_extracted_ptr = (ring_node *) &ring_node_swf1_extracted;
336 ring_node_swf2_extracted_ptr = (ring_node *) &ring_node_swf2_extracted;
336 ring_node_swf2_extracted_ptr = (ring_node *) &ring_node_swf2_extracted;
337
337
338 status = get_message_queue_id_send( &queue_id );
338 status = get_message_queue_id_send( &queue_id );
339 if (status != RTEMS_SUCCESSFUL)
339 if (status != RTEMS_SUCCESSFUL)
340 {
340 {
341 PRINTF1("in WFRM *** ERR get_message_queue_id_send %d\n", status);
341 PRINTF1("in WFRM *** ERR get_message_queue_id_send %d\n", status);
342 }
342 }
343
343
344 BOOT_PRINTF("in WFRM ***\n");
344 BOOT_PRINTF("in WFRM ***\n");
345
345
346 while(1){
346 while(1){
347 // wait for an RTEMS_EVENT
347 // wait for an RTEMS_EVENT
348 rtems_event_receive(RTEMS_EVENT_MODE_NORMAL,
348 rtems_event_receive(RTEMS_EVENT_MODE_NORMAL,
349 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
349 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
350
350
351 snapshot_resynchronization( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime );
351 snapshot_resynchronization( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime );
352
352
353 if (event_out == RTEMS_EVENT_MODE_NORMAL)
353 if (event_out == RTEMS_EVENT_MODE_NORMAL)
354 {
354 {
355 DEBUG_PRINTF("WFRM received RTEMS_EVENT_MODE_SBM2\n");
355 DEBUG_PRINTF("WFRM received RTEMS_EVENT_MODE_SBM2\n");
356 ring_node_to_send_swf_f0->sid = SID_NORM_SWF_F0;
356 ring_node_to_send_swf_f0->sid = SID_NORM_SWF_F0;
357 ring_node_swf1_extracted_ptr->sid = SID_NORM_SWF_F1;
357 ring_node_swf1_extracted_ptr->sid = SID_NORM_SWF_F1;
358 ring_node_swf2_extracted_ptr->sid = SID_NORM_SWF_F2;
358 ring_node_swf2_extracted_ptr->sid = SID_NORM_SWF_F2;
359 status = rtems_message_queue_send( queue_id, &ring_node_to_send_swf_f0, sizeof( ring_node* ) );
359 status = rtems_message_queue_send( queue_id, &ring_node_to_send_swf_f0, sizeof( ring_node* ) );
360 status = rtems_message_queue_send( queue_id, &ring_node_swf1_extracted_ptr, sizeof( ring_node* ) );
360 status = rtems_message_queue_send( queue_id, &ring_node_swf1_extracted_ptr, sizeof( ring_node* ) );
361 status = rtems_message_queue_send( queue_id, &ring_node_swf2_extracted_ptr, sizeof( ring_node* ) );
361 status = rtems_message_queue_send( queue_id, &ring_node_swf2_extracted_ptr, sizeof( ring_node* ) );
362 }
362 }
363 }
363 }
364 }
364 }
365
365
366 rtems_task cwf3_task(rtems_task_argument argument) //used with the waveform picker VHDL IP
366 rtems_task cwf3_task(rtems_task_argument argument) //used with the waveform picker VHDL IP
367 {
367 {
368 /** This RTEMS task is dedicated to the transmission of continuous waveforms at f3.
368 /** This RTEMS task is dedicated to the transmission of continuous waveforms at f3.
369 *
369 *
370 * @param unused is the starting argument of the RTEMS task
370 * @param unused is the starting argument of the RTEMS task
371 *
371 *
372 * The following data packet is sent by this task:
372 * The following data packet is sent by this task:
373 * - TM_LFR_SCIENCE_NORMAL_CWF_F3
373 * - TM_LFR_SCIENCE_NORMAL_CWF_F3
374 *
374 *
375 */
375 */
376
376
377 rtems_event_set event_out;
377 rtems_event_set event_out;
378 rtems_id queue_id;
378 rtems_id queue_id;
379 rtems_status_code status;
379 rtems_status_code status;
380 ring_node ring_node_cwf3_light;
380 ring_node ring_node_cwf3_light;
381 ring_node *ring_node_to_send_cwf;
381 ring_node *ring_node_to_send_cwf;
382
382
383 status = get_message_queue_id_send( &queue_id );
383 status = get_message_queue_id_send( &queue_id );
384 if (status != RTEMS_SUCCESSFUL)
384 if (status != RTEMS_SUCCESSFUL)
385 {
385 {
386 PRINTF1("in CWF3 *** ERR get_message_queue_id_send %d\n", status)
386 PRINTF1("in CWF3 *** ERR get_message_queue_id_send %d\n", status)
387 }
387 }
388
388
389 ring_node_to_send_cwf_f3->sid = SID_NORM_CWF_LONG_F3;
389 ring_node_to_send_cwf_f3->sid = SID_NORM_CWF_LONG_F3;
390
390
391 // init the ring_node_cwf3_light structure
391 // init the ring_node_cwf3_light structure
392 ring_node_cwf3_light.buffer_address = (int) wf_cont_f3_light;
392 ring_node_cwf3_light.buffer_address = (int) wf_cont_f3_light;
393 ring_node_cwf3_light.coarseTime = 0x00;
393 ring_node_cwf3_light.coarseTime = 0x00;
394 ring_node_cwf3_light.fineTime = 0x00;
394 ring_node_cwf3_light.fineTime = 0x00;
395 ring_node_cwf3_light.next = NULL;
395 ring_node_cwf3_light.next = NULL;
396 ring_node_cwf3_light.previous = NULL;
396 ring_node_cwf3_light.previous = NULL;
397 ring_node_cwf3_light.sid = SID_NORM_CWF_F3;
397 ring_node_cwf3_light.sid = SID_NORM_CWF_F3;
398 ring_node_cwf3_light.status = 0x00;
398 ring_node_cwf3_light.status = 0x00;
399
399
400 BOOT_PRINTF("in CWF3 ***\n")
400 BOOT_PRINTF("in CWF3 ***\n")
401
401
402 while(1){
402 while(1){
403 // wait for an RTEMS_EVENT
403 // wait for an RTEMS_EVENT
404 rtems_event_receive( RTEMS_EVENT_0,
404 rtems_event_receive( RTEMS_EVENT_0,
405 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
405 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
406 if ( (lfrCurrentMode == LFR_MODE_NORMAL)
406 if ( (lfrCurrentMode == LFR_MODE_NORMAL)
407 || (lfrCurrentMode == LFR_MODE_SBM1) || (lfrCurrentMode==LFR_MODE_SBM2) )
407 || (lfrCurrentMode == LFR_MODE_SBM1) || (lfrCurrentMode==LFR_MODE_SBM2) )
408 {
408 {
409 ring_node_to_send_cwf = getRingNodeToSendCWF( 3 );
409 ring_node_to_send_cwf = getRingNodeToSendCWF( 3 );
410 if ( (parameter_dump_packet.sy_lfr_n_cwf_long_f3 & 0x01) == 0x01)
410 if ( (parameter_dump_packet.sy_lfr_n_cwf_long_f3 & 0x01) == 0x01)
411 {
411 {
412 PRINTF("send CWF_LONG_F3\n")
412 PRINTF("send CWF_LONG_F3\n")
413 ring_node_to_send_cwf_f3->sid = SID_NORM_CWF_LONG_F3;
413 ring_node_to_send_cwf_f3->sid = SID_NORM_CWF_LONG_F3;
414 status = rtems_message_queue_send( queue_id, &ring_node_to_send_cwf, sizeof( ring_node* ) );
414 status = rtems_message_queue_send( queue_id, &ring_node_to_send_cwf, sizeof( ring_node* ) );
415 }
415 }
416 else
416 else
417 {
417 {
418 PRINTF("send CWF_F3 (light)\n")
418 PRINTF("send CWF_F3 (light)\n")
419 send_waveform_CWF3_light( ring_node_to_send_cwf, &ring_node_cwf3_light, queue_id );
419 send_waveform_CWF3_light( ring_node_to_send_cwf, &ring_node_cwf3_light, queue_id );
420 }
420 }
421
421
422 }
422 }
423 else
423 else
424 {
424 {
425 PRINTF1("in CWF3 *** lfrCurrentMode is %d, no data will be sent\n", lfrCurrentMode)
425 PRINTF1("in CWF3 *** lfrCurrentMode is %d, no data will be sent\n", lfrCurrentMode)
426 }
426 }
427 }
427 }
428 }
428 }
429
429
430 rtems_task cwf2_task(rtems_task_argument argument) // ONLY USED IN BURST AND SBM2
430 rtems_task cwf2_task(rtems_task_argument argument) // ONLY USED IN BURST AND SBM2
431 {
431 {
432 /** This RTEMS task is dedicated to the transmission of continuous waveforms at f2.
432 /** This RTEMS task is dedicated to the transmission of continuous waveforms at f2.
433 *
433 *
434 * @param unused is the starting argument of the RTEMS task
434 * @param unused is the starting argument of the RTEMS task
435 *
435 *
436 * The following data packet is sent by this function:
436 * The following data packet is sent by this function:
437 * - TM_LFR_SCIENCE_BURST_CWF_F2
437 * - TM_LFR_SCIENCE_BURST_CWF_F2
438 * - TM_LFR_SCIENCE_SBM2_CWF_F2
438 * - TM_LFR_SCIENCE_SBM2_CWF_F2
439 *
439 *
440 */
440 */
441
441
442 rtems_event_set event_out;
442 rtems_event_set event_out;
443 rtems_id queue_id;
443 rtems_id queue_id;
444 rtems_status_code status;
444 rtems_status_code status;
445 ring_node *ring_node_to_send;
445 ring_node *ring_node_to_send;
446 unsigned long long int acquisitionTimeF0_asLong;
446 unsigned long long int acquisitionTimeF0_asLong;
447
447
448 acquisitionTimeF0_asLong = 0x00;
448 acquisitionTimeF0_asLong = 0x00;
449
449
450 status = get_message_queue_id_send( &queue_id );
450 status = get_message_queue_id_send( &queue_id );
451 if (status != RTEMS_SUCCESSFUL)
451 if (status != RTEMS_SUCCESSFUL)
452 {
452 {
453 PRINTF1("in CWF2 *** ERR get_message_queue_id_send %d\n", status)
453 PRINTF1("in CWF2 *** ERR get_message_queue_id_send %d\n", status)
454 }
454 }
455
455
456 BOOT_PRINTF("in CWF2 ***\n")
456 BOOT_PRINTF("in CWF2 ***\n")
457
457
458 while(1){
458 while(1){
459 // wait for an RTEMS_EVENT
459 // wait for an RTEMS_EVENT
460 rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2 | RTEMS_EVENT_MODE_BURST,
460 rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2 | RTEMS_EVENT_MODE_BURST,
461 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
461 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
462 ring_node_to_send = getRingNodeToSendCWF( 2 );
462 ring_node_to_send = getRingNodeToSendCWF( 2 );
463 if (event_out == RTEMS_EVENT_MODE_BURST)
463 if (event_out == RTEMS_EVENT_MODE_BURST)
464 {
464 {
465 status = rtems_message_queue_send( queue_id, &ring_node_to_send, sizeof( ring_node* ) );
465 status = rtems_message_queue_send( queue_id, &ring_node_to_send, sizeof( ring_node* ) );
466 }
466 }
467 else if (event_out == RTEMS_EVENT_MODE_NORM_S1_S2)
467 else if (event_out == RTEMS_EVENT_MODE_NORM_S1_S2)
468 {
468 {
469 if ( lfrCurrentMode == LFR_MODE_SBM2 )
469 if ( lfrCurrentMode == LFR_MODE_SBM2 )
470 {
470 {
471 status = rtems_message_queue_send( queue_id, &ring_node_to_send, sizeof( ring_node* ) );
471 status = rtems_message_queue_send( queue_id, &ring_node_to_send, sizeof( ring_node* ) );
472 }
472 }
473 // launch snapshot extraction if needed
473 // launch snapshot extraction if needed
474 if (extractSWF2 == true)
474 if (extractSWF2 == true)
475 {
475 {
476 ring_node_to_send_swf_f2 = ring_node_to_send_cwf_f2;
476 ring_node_to_send_swf_f2 = ring_node_to_send_cwf_f2;
477 // extract the snapshot
477 // extract the snapshot
478 build_snapshot_from_ring( ring_node_to_send_swf_f2, 2, acquisitionTimeF0_asLong,
478 build_snapshot_from_ring( ring_node_to_send_swf_f2, 2, acquisitionTimeF0_asLong,
479 &ring_node_swf2_extracted, swf2_extracted );
479 &ring_node_swf2_extracted, swf2_extracted );
480 // send the snapshot when built
480 // send the snapshot when built
481 status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_SBM2 );
481 status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_SBM2 );
482 extractSWF2 = false;
482 extractSWF2 = false;
483 swf2_ready = true;
483 swf2_ready = true;
484 }
484 }
485 if (swf0_ready_flag_f2 == true)
485 if (swf0_ready_flag_f2 == true)
486 {
486 {
487 extractSWF2 = true;
487 extractSWF2 = true;
488 // record the acquition time of the f0 snapshot to use to build the snapshot at f2
488 // record the acquition time of the f0 snapshot to use to build the snapshot at f2
489 acquisitionTimeF0_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime );
489 acquisitionTimeF0_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime );
490 swf0_ready_flag_f2 = false;
490 swf0_ready_flag_f2 = false;
491 }
491 }
492 }
492 }
493 }
493 }
494 }
494 }
495
495
496 rtems_task cwf1_task(rtems_task_argument argument) // ONLY USED IN SBM1
496 rtems_task cwf1_task(rtems_task_argument argument) // ONLY USED IN SBM1
497 {
497 {
498 /** This RTEMS task is dedicated to the transmission of continuous waveforms at f1.
498 /** This RTEMS task is dedicated to the transmission of continuous waveforms at f1.
499 *
499 *
500 * @param unused is the starting argument of the RTEMS task
500 * @param unused is the starting argument of the RTEMS task
501 *
501 *
502 * The following data packet is sent by this function:
502 * The following data packet is sent by this function:
503 * - TM_LFR_SCIENCE_SBM1_CWF_F1
503 * - TM_LFR_SCIENCE_SBM1_CWF_F1
504 *
504 *
505 */
505 */
506
506
507 rtems_event_set event_out;
507 rtems_event_set event_out;
508 rtems_id queue_id;
508 rtems_id queue_id;
509 rtems_status_code status;
509 rtems_status_code status;
510
510
511 ring_node *ring_node_to_send_cwf;
511 ring_node *ring_node_to_send_cwf;
512
512
513 status = get_message_queue_id_send( &queue_id );
513 status = get_message_queue_id_send( &queue_id );
514 if (status != RTEMS_SUCCESSFUL)
514 if (status != RTEMS_SUCCESSFUL)
515 {
515 {
516 PRINTF1("in CWF1 *** ERR get_message_queue_id_send %d\n", status)
516 PRINTF1("in CWF1 *** ERR get_message_queue_id_send %d\n", status)
517 }
517 }
518
518
519 BOOT_PRINTF("in CWF1 ***\n");
519 BOOT_PRINTF("in CWF1 ***\n");
520
520
521 while(1){
521 while(1){
522 // wait for an RTEMS_EVENT
522 // wait for an RTEMS_EVENT
523 rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2,
523 rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2,
524 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
524 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
525 ring_node_to_send_cwf = getRingNodeToSendCWF( 1 );
525 ring_node_to_send_cwf = getRingNodeToSendCWF( 1 );
526 ring_node_to_send_cwf_f1->sid = SID_SBM1_CWF_F1;
526 ring_node_to_send_cwf_f1->sid = SID_SBM1_CWF_F1;
527 if (lfrCurrentMode == LFR_MODE_SBM1)
527 if (lfrCurrentMode == LFR_MODE_SBM1)
528 {
528 {
529 status = rtems_message_queue_send( queue_id, &ring_node_to_send_cwf, sizeof( ring_node* ) );
529 status = rtems_message_queue_send( queue_id, &ring_node_to_send_cwf, sizeof( ring_node* ) );
530 if (status != 0)
530 if (status != 0)
531 {
531 {
532 PRINTF("cwf sending failed\n")
532 PRINTF("cwf sending failed\n")
533 }
533 }
534 }
534 }
535 // launch snapshot extraction if needed
535 // launch snapshot extraction if needed
536 if (extractSWF1 == true)
536 if (extractSWF1 == true)
537 {
537 {
538 ring_node_to_send_swf_f1 = ring_node_to_send_cwf;
538 ring_node_to_send_swf_f1 = ring_node_to_send_cwf;
539 // launch the snapshot extraction
539 // launch the snapshot extraction
540 status = rtems_event_send( Task_id[TASKID_SWBD], RTEMS_EVENT_MODE_NORM_S1_S2 );
540 status = rtems_event_send( Task_id[TASKID_SWBD], RTEMS_EVENT_MODE_NORM_S1_S2 );
541 extractSWF1 = false;
541 extractSWF1 = false;
542 }
542 }
543 if (swf0_ready_flag_f1 == true)
543 if (swf0_ready_flag_f1 == true)
544 {
544 {
545 extractSWF1 = true;
545 extractSWF1 = true;
546 swf0_ready_flag_f1 = false; // this step shall be executed only one time
546 swf0_ready_flag_f1 = false; // this step shall be executed only one time
547 }
547 }
548 if ((swf1_ready == true) && (swf2_ready == true)) // swf_f1 is ready after the extraction
548 if ((swf1_ready == true) && (swf2_ready == true)) // swf_f1 is ready after the extraction
549 {
549 {
550 status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_NORMAL );
550 status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_NORMAL );
551 swf1_ready = false;
551 swf1_ready = false;
552 swf2_ready = false;
552 swf2_ready = false;
553 }
553 }
554 }
554 }
555 }
555 }
556
556
557 rtems_task swbd_task(rtems_task_argument argument)
557 rtems_task swbd_task(rtems_task_argument argument)
558 {
558 {
559 /** This RTEMS task is dedicated to the building of snapshots from different continuous waveforms buffers.
559 /** This RTEMS task is dedicated to the building of snapshots from different continuous waveforms buffers.
560 *
560 *
561 * @param unused is the starting argument of the RTEMS task
561 * @param unused is the starting argument of the RTEMS task
562 *
562 *
563 */
563 */
564
564
565 rtems_event_set event_out;
565 rtems_event_set event_out;
566 unsigned long long int acquisitionTimeF0_asLong;
566 unsigned long long int acquisitionTimeF0_asLong;
567
567
568 acquisitionTimeF0_asLong = 0x00;
568 acquisitionTimeF0_asLong = 0x00;
569
569
570 BOOT_PRINTF("in SWBD ***\n")
570 BOOT_PRINTF("in SWBD ***\n")
571
571
572 while(1){
572 while(1){
573 // wait for an RTEMS_EVENT
573 // wait for an RTEMS_EVENT
574 rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2,
574 rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2,
575 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
575 RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out);
576 if (event_out == RTEMS_EVENT_MODE_NORM_S1_S2)
576 if (event_out == RTEMS_EVENT_MODE_NORM_S1_S2)
577 {
577 {
578 acquisitionTimeF0_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime );
578 acquisitionTimeF0_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime );
579 build_snapshot_from_ring( ring_node_to_send_swf_f1, 1, acquisitionTimeF0_asLong,
579 build_snapshot_from_ring( ring_node_to_send_swf_f1, 1, acquisitionTimeF0_asLong,
580 &ring_node_swf1_extracted, swf1_extracted );
580 &ring_node_swf1_extracted, swf1_extracted );
581 swf1_ready = true; // the snapshot has been extracted and is ready to be sent
581 swf1_ready = true; // the snapshot has been extracted and is ready to be sent
582 }
582 }
583 else
583 else
584 {
584 {
585 PRINTF1("in SWBD *** unexpected rtems event received %x\n", (int) event_out)
585 PRINTF1("in SWBD *** unexpected rtems event received %x\n", (int) event_out)
586 }
586 }
587 }
587 }
588 }
588 }
589
589
590 //******************
590 //******************
591 // general functions
591 // general functions
592
592
593 void WFP_init_rings( void )
593 void WFP_init_rings( void )
594 {
594 {
595 // F0 RING
595 // F0 RING
596 init_ring( waveform_ring_f0, NB_RING_NODES_F0, wf_buffer_f0, WFRM_BUFFER );
596 init_ring( waveform_ring_f0, NB_RING_NODES_F0, wf_buffer_f0, WFRM_BUFFER );
597 // F1 RING
597 // F1 RING
598 init_ring( waveform_ring_f1, NB_RING_NODES_F1, wf_buffer_f1, WFRM_BUFFER );
598 init_ring( waveform_ring_f1, NB_RING_NODES_F1, wf_buffer_f1, WFRM_BUFFER );
599 // F2 RING
599 // F2 RING
600 init_ring( waveform_ring_f2, NB_RING_NODES_F2, wf_buffer_f2, WFRM_BUFFER );
600 init_ring( waveform_ring_f2, NB_RING_NODES_F2, wf_buffer_f2, WFRM_BUFFER );
601 // F3 RING
601 // F3 RING
602 init_ring( waveform_ring_f3, NB_RING_NODES_F3, wf_buffer_f3, WFRM_BUFFER );
602 init_ring( waveform_ring_f3, NB_RING_NODES_F3, wf_buffer_f3, WFRM_BUFFER );
603
603
604 ring_node_swf1_extracted.buffer_address = (int) swf1_extracted;
604 ring_node_swf1_extracted.buffer_address = (int) swf1_extracted;
605 ring_node_swf2_extracted.buffer_address = (int) swf2_extracted;
605 ring_node_swf2_extracted.buffer_address = (int) swf2_extracted;
606
606
607 DEBUG_PRINTF1("waveform_ring_f0 @%x\n", (unsigned int) waveform_ring_f0)
607 DEBUG_PRINTF1("waveform_ring_f0 @%x\n", (unsigned int) waveform_ring_f0)
608 DEBUG_PRINTF1("waveform_ring_f1 @%x\n", (unsigned int) waveform_ring_f1)
608 DEBUG_PRINTF1("waveform_ring_f1 @%x\n", (unsigned int) waveform_ring_f1)
609 DEBUG_PRINTF1("waveform_ring_f2 @%x\n", (unsigned int) waveform_ring_f2)
609 DEBUG_PRINTF1("waveform_ring_f2 @%x\n", (unsigned int) waveform_ring_f2)
610 DEBUG_PRINTF1("waveform_ring_f3 @%x\n", (unsigned int) waveform_ring_f3)
610 DEBUG_PRINTF1("waveform_ring_f3 @%x\n", (unsigned int) waveform_ring_f3)
611 DEBUG_PRINTF1("wf_buffer_f0 @%x\n", (unsigned int) wf_buffer_f0)
611 DEBUG_PRINTF1("wf_buffer_f0 @%x\n", (unsigned int) wf_buffer_f0)
612 DEBUG_PRINTF1("wf_buffer_f1 @%x\n", (unsigned int) wf_buffer_f1)
612 DEBUG_PRINTF1("wf_buffer_f1 @%x\n", (unsigned int) wf_buffer_f1)
613 DEBUG_PRINTF1("wf_buffer_f2 @%x\n", (unsigned int) wf_buffer_f2)
613 DEBUG_PRINTF1("wf_buffer_f2 @%x\n", (unsigned int) wf_buffer_f2)
614 DEBUG_PRINTF1("wf_buffer_f3 @%x\n", (unsigned int) wf_buffer_f3)
614 DEBUG_PRINTF1("wf_buffer_f3 @%x\n", (unsigned int) wf_buffer_f3)
615
615
616 }
616 }
617
617
618 void WFP_reset_current_ring_nodes( void )
618 void WFP_reset_current_ring_nodes( void )
619 {
619 {
620 current_ring_node_f0 = waveform_ring_f0[0].next;
620 current_ring_node_f0 = waveform_ring_f0[0].next;
621 current_ring_node_f1 = waveform_ring_f1[0].next;
621 current_ring_node_f1 = waveform_ring_f1[0].next;
622 current_ring_node_f2 = waveform_ring_f2[0].next;
622 current_ring_node_f2 = waveform_ring_f2[0].next;
623 current_ring_node_f3 = waveform_ring_f3[0].next;
623 current_ring_node_f3 = waveform_ring_f3[0].next;
624
624
625 ring_node_to_send_swf_f0 = waveform_ring_f0;
625 ring_node_to_send_swf_f0 = waveform_ring_f0;
626 ring_node_to_send_swf_f1 = waveform_ring_f1;
626 ring_node_to_send_swf_f1 = waveform_ring_f1;
627 ring_node_to_send_swf_f2 = waveform_ring_f2;
627 ring_node_to_send_swf_f2 = waveform_ring_f2;
628
628
629 ring_node_to_send_cwf_f1 = waveform_ring_f1;
629 ring_node_to_send_cwf_f1 = waveform_ring_f1;
630 ring_node_to_send_cwf_f2 = waveform_ring_f2;
630 ring_node_to_send_cwf_f2 = waveform_ring_f2;
631 ring_node_to_send_cwf_f3 = waveform_ring_f3;
631 ring_node_to_send_cwf_f3 = waveform_ring_f3;
632 }
632 }
633
633
634 int send_waveform_CWF3_light( ring_node *ring_node_to_send, ring_node *ring_node_cwf3_light, rtems_id queue_id )
634 int send_waveform_CWF3_light( ring_node *ring_node_to_send, ring_node *ring_node_cwf3_light, rtems_id queue_id )
635 {
635 {
636 /** This function sends CWF_F3 CCSDS packets without the b1, b2 and b3 data.
636 /** This function sends CWF_F3 CCSDS packets without the b1, b2 and b3 data.
637 *
637 *
638 * @param waveform points to the buffer containing the data that will be send.
638 * @param waveform points to the buffer containing the data that will be send.
639 * @param headerCWF points to a table of headers that have been prepared for the data transmission.
639 * @param headerCWF points to a table of headers that have been prepared for the data transmission.
640 * @param queue_id is the id of the rtems queue to which spw_ioctl_pkt_send structures will be send. The structures
640 * @param queue_id is the id of the rtems queue to which spw_ioctl_pkt_send structures will be send. The structures
641 * contain information to setup the transmission of the data packets.
641 * contain information to setup the transmission of the data packets.
642 *
642 *
643 * By default, CWF_F3 packet are send without the b1, b2 and b3 data. This function rebuilds a data buffer
643 * By default, CWF_F3 packet are send without the b1, b2 and b3 data. This function rebuilds a data buffer
644 * from the incoming data and sends it in 7 packets, 6 containing 340 blocks and 1 one containing 8 blocks.
644 * from the incoming data and sends it in 7 packets, 6 containing 340 blocks and 1 one containing 8 blocks.
645 *
645 *
646 */
646 */
647
647
648 unsigned int i;
648 unsigned int i;
649 int ret;
649 int ret;
650 rtems_status_code status;
650 rtems_status_code status;
651
651
652 char *sample;
652 char *sample;
653 int *dataPtr;
653 int *dataPtr;
654
654
655 ret = LFR_DEFAULT;
655 ret = LFR_DEFAULT;
656
656
657 dataPtr = (int*) ring_node_to_send->buffer_address;
657 dataPtr = (int*) ring_node_to_send->buffer_address;
658
658
659 ring_node_cwf3_light->coarseTime = ring_node_to_send->coarseTime;
659 ring_node_cwf3_light->coarseTime = ring_node_to_send->coarseTime;
660 ring_node_cwf3_light->fineTime = ring_node_to_send->fineTime;
660 ring_node_cwf3_light->fineTime = ring_node_to_send->fineTime;
661
661
662 //**********************
662 //**********************
663 // BUILD CWF3_light DATA
663 // BUILD CWF3_light DATA
664 for ( i=0; i< NB_SAMPLES_PER_SNAPSHOT; i++)
664 for ( i=0; i< NB_SAMPLES_PER_SNAPSHOT; i++)
665 {
665 {
666 sample = (char*) &dataPtr[ (i * NB_WORDS_SWF_BLK) ];
666 sample = (char*) &dataPtr[ (i * NB_WORDS_SWF_BLK) ];
667 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) ] = sample[ 0 ];
667 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) ] = sample[ 0 ];
668 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 1 ] = sample[ 1 ];
668 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 1 ] = sample[ 1 ];
669 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 2 ] = sample[ 2 ];
669 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 2 ] = sample[ 2 ];
670 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 3 ] = sample[ 3 ];
670 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 3 ] = sample[ 3 ];
671 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 4 ] = sample[ 4 ];
671 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 4 ] = sample[ 4 ];
672 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 5 ] = sample[ 5 ];
672 wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + 5 ] = sample[ 5 ];
673 }
673 }
674
674
675 // SEND PACKET
675 // SEND PACKET
676 status = rtems_message_queue_send( queue_id, &ring_node_cwf3_light, sizeof( ring_node* ) );
676 status = rtems_message_queue_send( queue_id, &ring_node_cwf3_light, sizeof( ring_node* ) );
677 if (status != RTEMS_SUCCESSFUL) {
677 if (status != RTEMS_SUCCESSFUL) {
678 ret = LFR_DEFAULT;
678 ret = LFR_DEFAULT;
679 }
679 }
680
680
681 return ret;
681 return ret;
682 }
682 }
683
683
684 void compute_acquisition_time( unsigned int coarseTime, unsigned int fineTime,
684 void compute_acquisition_time( unsigned int coarseTime, unsigned int fineTime,
685 unsigned int sid, unsigned char pa_lfr_pkt_nr, unsigned char * acquisitionTime )
685 unsigned int sid, unsigned char pa_lfr_pkt_nr, unsigned char * acquisitionTime )
686 {
686 {
687 unsigned long long int acquisitionTimeAsLong;
687 unsigned long long int acquisitionTimeAsLong;
688 unsigned char localAcquisitionTime[6];
688 unsigned char localAcquisitionTime[6];
689 double deltaT;
689 double deltaT;
690
690
691 deltaT = 0.;
691 deltaT = 0.;
692
692
693 localAcquisitionTime[0] = (unsigned char) ( coarseTime >> 24 );
693 localAcquisitionTime[0] = (unsigned char) ( coarseTime >> 24 );
694 localAcquisitionTime[1] = (unsigned char) ( coarseTime >> 16 );
694 localAcquisitionTime[1] = (unsigned char) ( coarseTime >> 16 );
695 localAcquisitionTime[2] = (unsigned char) ( coarseTime >> 8 );
695 localAcquisitionTime[2] = (unsigned char) ( coarseTime >> 8 );
696 localAcquisitionTime[3] = (unsigned char) ( coarseTime );
696 localAcquisitionTime[3] = (unsigned char) ( coarseTime );
697 localAcquisitionTime[4] = (unsigned char) ( fineTime >> 8 );
697 localAcquisitionTime[4] = (unsigned char) ( fineTime >> 8 );
698 localAcquisitionTime[5] = (unsigned char) ( fineTime );
698 localAcquisitionTime[5] = (unsigned char) ( fineTime );
699
699
700 acquisitionTimeAsLong = ( (unsigned long long int) localAcquisitionTime[0] << 40 )
700 acquisitionTimeAsLong = ( (unsigned long long int) localAcquisitionTime[0] << 40 )
701 + ( (unsigned long long int) localAcquisitionTime[1] << 32 )
701 + ( (unsigned long long int) localAcquisitionTime[1] << 32 )
702 + ( (unsigned long long int) localAcquisitionTime[2] << 24 )
702 + ( (unsigned long long int) localAcquisitionTime[2] << 24 )
703 + ( (unsigned long long int) localAcquisitionTime[3] << 16 )
703 + ( (unsigned long long int) localAcquisitionTime[3] << 16 )
704 + ( (unsigned long long int) localAcquisitionTime[4] << 8 )
704 + ( (unsigned long long int) localAcquisitionTime[4] << 8 )
705 + ( (unsigned long long int) localAcquisitionTime[5] );
705 + ( (unsigned long long int) localAcquisitionTime[5] );
706
706
707 switch( sid )
707 switch( sid )
708 {
708 {
709 case SID_NORM_SWF_F0:
709 case SID_NORM_SWF_F0:
710 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 24576. ;
710 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 24576. ;
711 break;
711 break;
712
712
713 case SID_NORM_SWF_F1:
713 case SID_NORM_SWF_F1:
714 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 4096. ;
714 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 4096. ;
715 break;
715 break;
716
716
717 case SID_NORM_SWF_F2:
717 case SID_NORM_SWF_F2:
718 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 256. ;
718 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 256. ;
719 break;
719 break;
720
720
721 case SID_SBM1_CWF_F1:
721 case SID_SBM1_CWF_F1:
722 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 4096. ;
722 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 4096. ;
723 break;
723 break;
724
724
725 case SID_SBM2_CWF_F2:
725 case SID_SBM2_CWF_F2:
726 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 256. ;
726 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 256. ;
727 break;
727 break;
728
728
729 case SID_BURST_CWF_F2:
729 case SID_BURST_CWF_F2:
730 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 256. ;
730 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 256. ;
731 break;
731 break;
732
732
733 case SID_NORM_CWF_F3:
733 case SID_NORM_CWF_F3:
734 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF_SHORT_F3 * 65536. / 16. ;
734 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF_SHORT_F3 * 65536. / 16. ;
735 break;
735 break;
736
736
737 case SID_NORM_CWF_LONG_F3:
737 case SID_NORM_CWF_LONG_F3:
738 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 16. ;
738 deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 16. ;
739 break;
739 break;
740
740
741 default:
741 default:
742 PRINTF1("in compute_acquisition_time *** ERR unexpected sid %d\n", sid)
742 PRINTF1("in compute_acquisition_time *** ERR unexpected sid %d\n", sid)
743 deltaT = 0.;
743 deltaT = 0.;
744 break;
744 break;
745 }
745 }
746
746
747 acquisitionTimeAsLong = acquisitionTimeAsLong + (unsigned long long int) deltaT;
747 acquisitionTimeAsLong = acquisitionTimeAsLong + (unsigned long long int) deltaT;
748 //
748 //
749 acquisitionTime[0] = (unsigned char) (acquisitionTimeAsLong >> 40);
749 acquisitionTime[0] = (unsigned char) (acquisitionTimeAsLong >> 40);
750 acquisitionTime[1] = (unsigned char) (acquisitionTimeAsLong >> 32);
750 acquisitionTime[1] = (unsigned char) (acquisitionTimeAsLong >> 32);
751 acquisitionTime[2] = (unsigned char) (acquisitionTimeAsLong >> 24);
751 acquisitionTime[2] = (unsigned char) (acquisitionTimeAsLong >> 24);
752 acquisitionTime[3] = (unsigned char) (acquisitionTimeAsLong >> 16);
752 acquisitionTime[3] = (unsigned char) (acquisitionTimeAsLong >> 16);
753 acquisitionTime[4] = (unsigned char) (acquisitionTimeAsLong >> 8 );
753 acquisitionTime[4] = (unsigned char) (acquisitionTimeAsLong >> 8 );
754 acquisitionTime[5] = (unsigned char) (acquisitionTimeAsLong );
754 acquisitionTime[5] = (unsigned char) (acquisitionTimeAsLong );
755
755
756 }
756 }
757
757
758 void build_snapshot_from_ring( ring_node *ring_node_to_send,
758 void build_snapshot_from_ring( ring_node *ring_node_to_send,
759 unsigned char frequencyChannel,
759 unsigned char frequencyChannel,
760 unsigned long long int acquisitionTimeF0_asLong,
760 unsigned long long int acquisitionTimeF0_asLong,
761 ring_node *ring_node_swf_extracted,
761 ring_node *ring_node_swf_extracted,
762 int *swf_extracted)
762 int *swf_extracted)
763 {
763 {
764 unsigned int i;
764 unsigned int i;
765 unsigned long long int centerTime_asLong;
765 unsigned long long int centerTime_asLong;
766 unsigned long long int acquisitionTime_asLong;
766 unsigned long long int acquisitionTime_asLong;
767 unsigned long long int bufferAcquisitionTime_asLong;
767 unsigned long long int bufferAcquisitionTime_asLong;
768 unsigned char *ptr1;
768 unsigned char *ptr1;
769 unsigned char *ptr2;
769 unsigned char *ptr2;
770 unsigned char *timeCharPtr;
770 unsigned char *timeCharPtr;
771 unsigned char nb_ring_nodes;
771 unsigned char nb_ring_nodes;
772 unsigned long long int frequency_asLong;
772 unsigned long long int frequency_asLong;
773 unsigned long long int nbTicksPerSample_asLong;
773 unsigned long long int nbTicksPerSample_asLong;
774 unsigned long long int nbSamplesPart1_asLong;
774 unsigned long long int nbSamplesPart1_asLong;
775 unsigned long long int sampleOffset_asLong;
775 unsigned long long int sampleOffset_asLong;
776
776
777 unsigned int deltaT_F0;
777 unsigned int deltaT_F0;
778 unsigned int deltaT_F1;
778 unsigned int deltaT_F1;
779 unsigned long long int deltaT_F2;
779 unsigned long long int deltaT_F2;
780
780
781 deltaT_F0 = 2731; // (2048. / 24576. / 2.) * 65536. = 2730.667;
781 deltaT_F0 = 2731; // (2048. / 24576. / 2.) * 65536. = 2730.667;
782 deltaT_F1 = 16384; // (2048. / 4096. / 2.) * 65536. = 16384;
782 deltaT_F1 = 16384; // (2048. / 4096. / 2.) * 65536. = 16384;
783 deltaT_F2 = 262144; // (2048. / 256. / 2.) * 65536. = 262144;
783 deltaT_F2 = 262144; // (2048. / 256. / 2.) * 65536. = 262144;
784 sampleOffset_asLong = 0x00;
784 sampleOffset_asLong = 0x00;
785
785
786 // (1) get the f0 acquisition time => the value is passed in argument
786 // (1) get the f0 acquisition time => the value is passed in argument
787
787
788 // (2) compute the central reference time
788 // (2) compute the central reference time
789 centerTime_asLong = acquisitionTimeF0_asLong + deltaT_F0;
789 centerTime_asLong = acquisitionTimeF0_asLong + deltaT_F0;
790
790
791 // (3) compute the acquisition time of the current snapshot
791 // (3) compute the acquisition time of the current snapshot
792 switch(frequencyChannel)
792 switch(frequencyChannel)
793 {
793 {
794 case 1: // 1 is for F1 = 4096 Hz
794 case 1: // 1 is for F1 = 4096 Hz
795 acquisitionTime_asLong = centerTime_asLong - deltaT_F1;
795 acquisitionTime_asLong = centerTime_asLong - deltaT_F1;
796 nb_ring_nodes = NB_RING_NODES_F1;
796 nb_ring_nodes = NB_RING_NODES_F1;
797 frequency_asLong = 4096;
797 frequency_asLong = 4096;
798 nbTicksPerSample_asLong = 16; // 65536 / 4096;
798 nbTicksPerSample_asLong = 16; // 65536 / 4096;
799 break;
799 break;
800 case 2: // 2 is for F2 = 256 Hz
800 case 2: // 2 is for F2 = 256 Hz
801 acquisitionTime_asLong = centerTime_asLong - deltaT_F2;
801 acquisitionTime_asLong = centerTime_asLong - deltaT_F2;
802 nb_ring_nodes = NB_RING_NODES_F2;
802 nb_ring_nodes = NB_RING_NODES_F2;
803 frequency_asLong = 256;
803 frequency_asLong = 256;
804 nbTicksPerSample_asLong = 256; // 65536 / 256;
804 nbTicksPerSample_asLong = 256; // 65536 / 256;
805 break;
805 break;
806 default:
806 default:
807 acquisitionTime_asLong = centerTime_asLong;
807 acquisitionTime_asLong = centerTime_asLong;
808 frequency_asLong = 256;
808 frequency_asLong = 256;
809 nbTicksPerSample_asLong = 256;
809 nbTicksPerSample_asLong = 256;
810 break;
810 break;
811 }
811 }
812
812
813 //****************************************************************************
813 //****************************************************************************
814 // (4) search the ring_node with the acquisition time <= acquisitionTime_asLong
814 // (4) search the ring_node with the acquisition time <= acquisitionTime_asLong
815 for (i=0; i<nb_ring_nodes; i++)
815 for (i=0; i<nb_ring_nodes; i++)
816 {
816 {
817 //PRINTF1("%d ... ", i);
817 //PRINTF1("%d ... ", i);
818 bufferAcquisitionTime_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send->coarseTime );
818 bufferAcquisitionTime_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send->coarseTime );
819 if (bufferAcquisitionTime_asLong <= acquisitionTime_asLong)
819 if (bufferAcquisitionTime_asLong <= acquisitionTime_asLong)
820 {
820 {
821 //PRINTF1("buffer found with acquisition time = %llx\n", bufferAcquisitionTime_asLong);
821 //PRINTF1("buffer found with acquisition time = %llx\n", bufferAcquisitionTime_asLong);
822 break;
822 break;
823 }
823 }
824 ring_node_to_send = ring_node_to_send->previous;
824 ring_node_to_send = ring_node_to_send->previous;
825 }
825 }
826
826
827 // (5) compute the number of samples to take in the current buffer
827 // (5) compute the number of samples to take in the current buffer
828 sampleOffset_asLong = ((acquisitionTime_asLong - bufferAcquisitionTime_asLong) * frequency_asLong ) >> 16;
828 sampleOffset_asLong = ((acquisitionTime_asLong - bufferAcquisitionTime_asLong) * frequency_asLong ) >> 16;
829 nbSamplesPart1_asLong = NB_SAMPLES_PER_SNAPSHOT - sampleOffset_asLong;
829 nbSamplesPart1_asLong = NB_SAMPLES_PER_SNAPSHOT - sampleOffset_asLong;
830 //PRINTF2("sampleOffset_asLong = %lld, nbSamplesPart1_asLong = %lld\n", sampleOffset_asLong, nbSamplesPart1_asLong);
830 //PRINTF2("sampleOffset_asLong = %lld, nbSamplesPart1_asLong = %lld\n", sampleOffset_asLong, nbSamplesPart1_asLong);
831
831
832 // (6) compute the final acquisition time
832 // (6) compute the final acquisition time
833 acquisitionTime_asLong = bufferAcquisitionTime_asLong +
833 acquisitionTime_asLong = bufferAcquisitionTime_asLong +
834 sampleOffset_asLong * nbTicksPerSample_asLong;
834 sampleOffset_asLong * nbTicksPerSample_asLong;
835
835
836 // (7) copy the acquisition time at the beginning of the extrated snapshot
836 // (7) copy the acquisition time at the beginning of the extrated snapshot
837 ptr1 = (unsigned char*) &acquisitionTime_asLong;
837 ptr1 = (unsigned char*) &acquisitionTime_asLong;
838 // fine time
838 // fine time
839 ptr2 = (unsigned char*) &ring_node_swf_extracted->fineTime;
839 ptr2 = (unsigned char*) &ring_node_swf_extracted->fineTime;
840 ptr2[2] = ptr1[ 4 + 2 ];
840 ptr2[2] = ptr1[ 4 + 2 ];
841 ptr2[3] = ptr1[ 5 + 2 ];
841 ptr2[3] = ptr1[ 5 + 2 ];
842 // coarse time
842 // coarse time
843 ptr2 = (unsigned char*) &ring_node_swf_extracted->coarseTime;
843 ptr2 = (unsigned char*) &ring_node_swf_extracted->coarseTime;
844 ptr2[0] = ptr1[ 0 + 2 ];
844 ptr2[0] = ptr1[ 0 + 2 ];
845 ptr2[1] = ptr1[ 1 + 2 ];
845 ptr2[1] = ptr1[ 1 + 2 ];
846 ptr2[2] = ptr1[ 2 + 2 ];
846 ptr2[2] = ptr1[ 2 + 2 ];
847 ptr2[3] = ptr1[ 3 + 2 ];
847 ptr2[3] = ptr1[ 3 + 2 ];
848
848
849 // re set the synchronization bit
849 // re set the synchronization bit
850 timeCharPtr = (unsigned char*) &ring_node_to_send->coarseTime;
850 timeCharPtr = (unsigned char*) &ring_node_to_send->coarseTime;
851 ptr2[0] = ptr2[0] | (timeCharPtr[0] & 0x80); // [1000 0000]
851 ptr2[0] = ptr2[0] | (timeCharPtr[0] & 0x80); // [1000 0000]
852
852
853 if ( (nbSamplesPart1_asLong >= NB_SAMPLES_PER_SNAPSHOT) | (nbSamplesPart1_asLong < 0) )
853 if ( (nbSamplesPart1_asLong >= NB_SAMPLES_PER_SNAPSHOT) | (nbSamplesPart1_asLong < 0) )
854 {
854 {
855 nbSamplesPart1_asLong = 0;
855 nbSamplesPart1_asLong = 0;
856 }
856 }
857 // copy the part 1 of the snapshot in the extracted buffer
857 // copy the part 1 of the snapshot in the extracted buffer
858 for ( i = 0; i < (nbSamplesPart1_asLong * NB_WORDS_SWF_BLK); i++ )
858 for ( i = 0; i < (nbSamplesPart1_asLong * NB_WORDS_SWF_BLK); i++ )
859 {
859 {
860 swf_extracted[i] =
860 swf_extracted[i] =
861 ((int*) ring_node_to_send->buffer_address)[ i + (sampleOffset_asLong * NB_WORDS_SWF_BLK) ];
861 ((int*) ring_node_to_send->buffer_address)[ i + (sampleOffset_asLong * NB_WORDS_SWF_BLK) ];
862 }
862 }
863 // copy the part 2 of the snapshot in the extracted buffer
863 // copy the part 2 of the snapshot in the extracted buffer
864 ring_node_to_send = ring_node_to_send->next;
864 ring_node_to_send = ring_node_to_send->next;
865 for ( i = (nbSamplesPart1_asLong * NB_WORDS_SWF_BLK); i < (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK); i++ )
865 for ( i = (nbSamplesPart1_asLong * NB_WORDS_SWF_BLK); i < (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK); i++ )
866 {
866 {
867 swf_extracted[i] =
867 swf_extracted[i] =
868 ((int*) ring_node_to_send->buffer_address)[ (i-(nbSamplesPart1_asLong * NB_WORDS_SWF_BLK)) ];
868 ((int*) ring_node_to_send->buffer_address)[ (i-(nbSamplesPart1_asLong * NB_WORDS_SWF_BLK)) ];
869 }
869 }
870 }
870 }
871
871
872 double computeCorrection( unsigned char *timePtr )
872 double computeCorrection( unsigned char *timePtr )
873 {
873 {
874 unsigned long long int acquisitionTime;
874 unsigned long long int acquisitionTime;
875 unsigned long long int centerTime;
875 unsigned long long int centerTime;
876 unsigned long long int previousTick;
876 unsigned long long int previousTick;
877 unsigned long long int nextTick;
877 unsigned long long int nextTick;
878 unsigned long long int deltaPreviousTick;
878 unsigned long long int deltaPreviousTick;
879 unsigned long long int deltaNextTick;
879 unsigned long long int deltaNextTick;
880 double deltaPrevious_ms;
880 double deltaPrevious_ms;
881 double deltaNext_ms;
881 double deltaNext_ms;
882 double correctionInF2;
882 double correctionInF2;
883
883
884 // get acquisition time in fine time ticks
884 // get acquisition time in fine time ticks
885 acquisitionTime = get_acquisition_time( timePtr );
885 acquisitionTime = get_acquisition_time( timePtr );
886
886
887 // compute center time
887 // compute center time
888 centerTime = acquisitionTime + 2731; // (2048. / 24576. / 2.) * 65536. = 2730.667;
888 centerTime = acquisitionTime + 2731; // (2048. / 24576. / 2.) * 65536. = 2730.667;
889 previousTick = centerTime - (centerTime & 0xffff);
889 previousTick = centerTime - (centerTime & 0xffff);
890 nextTick = previousTick + 65536;
890 nextTick = previousTick + 65536;
891
891
892 deltaPreviousTick = centerTime - previousTick;
892 deltaPreviousTick = centerTime - previousTick;
893 deltaNextTick = nextTick - centerTime;
893 deltaNextTick = nextTick - centerTime;
894
894
895 deltaPrevious_ms = ((double) deltaPreviousTick) / 65536. * 1000.;
895 deltaPrevious_ms = ((double) deltaPreviousTick) / 65536. * 1000.;
896 deltaNext_ms = ((double) deltaNextTick) / 65536. * 1000.;
896 deltaNext_ms = ((double) deltaNextTick) / 65536. * 1000.;
897
897
898 PRINTF2(" delta previous = %.3f ms, delta next = %.2f ms\n", deltaPrevious_ms, deltaNext_ms);
898 PRINTF2(" delta previous = %.3f ms, delta next = %.2f ms\n", deltaPrevious_ms, deltaNext_ms);
899 // PRINTF2(" delta previous = %llu fine time ticks, delta next = %llu fine time ticks\n",
899 // PRINTF2(" delta previous = %llu fine time ticks, delta next = %llu fine time ticks\n",
900 // deltaPreviousTick, deltaNextTick);
900 // deltaPreviousTick, deltaNextTick);
901
901
902 // which tick is the closest?
902 // which tick is the closest?
903 if (deltaPreviousTick > deltaNextTick)
903 if (deltaPreviousTick > deltaNextTick)
904 {
904 {
905 // the snapshot center is just before the second => increase delta_snapshot
905 // the snapshot center is just before the second => increase delta_snapshot
906 correctionInF2 = + (deltaNext_ms * 256. / 1000. );
906 correctionInF2 = + (deltaNext_ms * 256. / 1000. );
907 }
907 }
908 else
908 else
909 {
909 {
910 // the snapshot center is just after the second => decrease delta_snapshot
910 // the snapshot center is just after the second => decrease delta_snapshot
911 correctionInF2 = - (deltaPrevious_ms * 256. / 1000. );
911 correctionInF2 = - (deltaPrevious_ms * 256. / 1000. );
912 }
912 }
913
913
914 PRINTF1(" correctionInF2 = %.2f\n", correctionInF2);
914 PRINTF1(" correctionInF2 = %.2f\n", correctionInF2);
915
915
916 return correctionInF2;
916 return correctionInF2;
917 }
917 }
918
918
919 void applyCorrection( double correction )
919 void applyCorrection( double correction )
920 {
920 {
921 int correctionInt;
921 int correctionInt;
922
922
923 if (correction>=0)
923 if (correction>=0)
924 {
924 {
925 correctionInt = floor(correction);
925 correctionInt = floor(correction);
926 }
926 }
927 else
927 else
928 {
928 {
929 correctionInt = ceil(correction);
929 correctionInt = ceil(correction);
930 }
930 }
931 waveform_picker_regs->delta_snapshot = waveform_picker_regs->delta_snapshot + correctionInt;
931 waveform_picker_regs->delta_snapshot = waveform_picker_regs->delta_snapshot + correctionInt;
932 //set_wfp_delta_f0_f0_2();
933 }
932 }
934
933
935 void snapshot_resynchronization( unsigned char *timePtr )
934 void snapshot_resynchronization( unsigned char *timePtr )
936 {
935 {
937 static double correction = 0.;
936 static double correction = 0.;
938 static double delay_0 = 0.;
937 static double delay_0 = 0.;
939 static resynchro_state state = MEASURE_0;
938 static resynchro_state state = MEASURE_0;
940
939
941 int correctionInt;
940 int correctionInt;
942
941
943 correctionInt = 0;
942 correctionInt = 0;
944
943
945 switch (state)
944 switch (state)
946 {
945 {
947
946
948 case MEASURE_0:
947 case MEASURE_0:
949 // ********
948 // ********
950 PRINTF("MEASURE_0 ===\n");
949 PRINTF("MEASURE_0 ===\n");
951 state = CORRECTION_0;
950 state = CORRECTION_0;
952 delay_0 = computeCorrection( timePtr );
951 delay_0 = computeCorrection( timePtr );
953 correction = delay_0;
952 correction = delay_0;
954 PRINTF1("MEASURE_0 === correction = %.2f\n", correction );
953 PRINTF1("MEASURE_0 === correction = %.2f\n", correction );
955 applyCorrection( correction );
954 applyCorrection( correction );
956 PRINTF1("MEASURE_0 === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot);
955 PRINTF1("MEASURE_0 === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot);
957 //****
956 //****
958 break;
957 break;
959
958
960 case CORRECTION_0:
959 case CORRECTION_0:
961 //************
960 //************
962 PRINTF("CORRECTION_0 ===\n");
961 PRINTF("CORRECTION_0 ===\n");
963 state = CORRECTION_1;
962 state = CORRECTION_1;
964 computeCorrection( timePtr );
963 computeCorrection( timePtr );
965 correction = -correction;
964 correction = -correction;
966 PRINTF1("CORRECTION_0 === correction = %.2f\n", correction );
965 PRINTF1("CORRECTION_0 === correction = %.2f\n", correction );
967 applyCorrection( correction );
966 applyCorrection( correction );
968 PRINTF1("CORRECTION_0 === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot);
967 PRINTF1("CORRECTION_0 === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot);
969 //****
968 //****
970 break;
969 break;
971
970
972 case CORRECTION_1:
971 case CORRECTION_1:
973 //************
972 //************
974 PRINTF("CORRECTION_1 ===\n");
973 PRINTF("CORRECTION_1 ===\n");
975 state = MEASURE_0;
974 state = MEASURE_0;
976 computeCorrection( timePtr );
975 computeCorrection( timePtr );
977 PRINTF1("CORRECTION_1 === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot);
976 PRINTF1("CORRECTION_1 === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot);
978 //****
977 //****
979 break;
978 break;
980
979
981 default:
980 default:
982 break;
981 break;
983
982
984 }
983 }
985 }
984 }
986
985
987 //**************
986 //**************
988 // wfp registers
987 // wfp registers
989 void reset_wfp_burst_enable( void )
988 void reset_wfp_burst_enable( void )
990 {
989 {
991 /** This function resets the waveform picker burst_enable register.
990 /** This function resets the waveform picker burst_enable register.
992 *
991 *
993 * The burst bits [f2 f1 f0] and the enable bits [f3 f2 f1 f0] are set to 0.
992 * The burst bits [f2 f1 f0] and the enable bits [f3 f2 f1 f0] are set to 0.
994 *
993 *
995 */
994 */
996
995
997 // [1000 000] burst f2, f1, f0 enable f3, f2, f1, f0
996 // [1000 000] burst f2, f1, f0 enable f3, f2, f1, f0
998 waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable & 0x80;
997 waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable & 0x80;
999 }
998 }
1000
999
1001 void reset_wfp_status( void )
1000 void reset_wfp_status( void )
1002 {
1001 {
1003 /** This function resets the waveform picker status register.
1002 /** This function resets the waveform picker status register.
1004 *
1003 *
1005 * All status bits are set to 0 [new_err full_err full].
1004 * All status bits are set to 0 [new_err full_err full].
1006 *
1005 *
1007 */
1006 */
1008
1007
1009 waveform_picker_regs->status = 0xffff;
1008 waveform_picker_regs->status = 0xffff;
1010 }
1009 }
1011
1010
1012 void reset_wfp_buffer_addresses( void )
1011 void reset_wfp_buffer_addresses( void )
1013 {
1012 {
1014 // F0
1013 // F0
1015 waveform_picker_regs->addr_data_f0_0 = current_ring_node_f0->previous->buffer_address; // 0x08
1014 waveform_picker_regs->addr_data_f0_0 = current_ring_node_f0->previous->buffer_address; // 0x08
1016 waveform_picker_regs->addr_data_f0_1 = current_ring_node_f0->buffer_address; // 0x0c
1015 waveform_picker_regs->addr_data_f0_1 = current_ring_node_f0->buffer_address; // 0x0c
1017 // F1
1016 // F1
1018 waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->previous->buffer_address; // 0x10
1017 waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->previous->buffer_address; // 0x10
1019 waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address; // 0x14
1018 waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address; // 0x14
1020 // F2
1019 // F2
1021 waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->previous->buffer_address; // 0x18
1020 waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->previous->buffer_address; // 0x18
1022 waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address; // 0x1c
1021 waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address; // 0x1c
1023 // F3
1022 // F3
1024 waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->previous->buffer_address; // 0x20
1023 waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->previous->buffer_address; // 0x20
1025 waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address; // 0x24
1024 waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address; // 0x24
1026 }
1025 }
1027
1026
1028 void reset_waveform_picker_regs( void )
1027 void reset_waveform_picker_regs( void )
1029 {
1028 {
1030 /** This function resets the waveform picker module registers.
1029 /** This function resets the waveform picker module registers.
1031 *
1030 *
1032 * The registers affected by this function are located at the following offset addresses:
1031 * The registers affected by this function are located at the following offset addresses:
1033 * - 0x00 data_shaping
1032 * - 0x00 data_shaping
1034 * - 0x04 run_burst_enable
1033 * - 0x04 run_burst_enable
1035 * - 0x08 addr_data_f0
1034 * - 0x08 addr_data_f0
1036 * - 0x0C addr_data_f1
1035 * - 0x0C addr_data_f1
1037 * - 0x10 addr_data_f2
1036 * - 0x10 addr_data_f2
1038 * - 0x14 addr_data_f3
1037 * - 0x14 addr_data_f3
1039 * - 0x18 status
1038 * - 0x18 status
1040 * - 0x1C delta_snapshot
1039 * - 0x1C delta_snapshot
1041 * - 0x20 delta_f0
1040 * - 0x20 delta_f0
1042 * - 0x24 delta_f0_2
1041 * - 0x24 delta_f0_2
1043 * - 0x28 delta_f1 (obsolet parameter)
1042 * - 0x28 delta_f1 (obsolet parameter)
1044 * - 0x2c delta_f2
1043 * - 0x2c delta_f2
1045 * - 0x30 nb_data_by_buffer
1044 * - 0x30 nb_data_by_buffer
1046 * - 0x34 nb_snapshot_param
1045 * - 0x34 nb_snapshot_param
1047 * - 0x38 start_date
1046 * - 0x38 start_date
1048 * - 0x3c nb_word_in_buffer
1047 * - 0x3c nb_word_in_buffer
1049 *
1048 *
1050 */
1049 */
1051
1050
1052 set_wfp_data_shaping(); // 0x00 *** R1 R0 SP1 SP0 BW
1051 set_wfp_data_shaping(); // 0x00 *** R1 R0 SP1 SP0 BW
1053
1052
1054 reset_wfp_burst_enable(); // 0x04 *** [run *** burst f2, f1, f0 *** enable f3, f2, f1, f0 ]
1053 reset_wfp_burst_enable(); // 0x04 *** [run *** burst f2, f1, f0 *** enable f3, f2, f1, f0 ]
1055
1054
1056 reset_wfp_buffer_addresses();
1055 reset_wfp_buffer_addresses();
1057
1056
1058 reset_wfp_status(); // 0x18
1057 reset_wfp_status(); // 0x18
1059
1058
1060 set_wfp_delta_snapshot(); // 0x1c *** 300 s => 0x12bff
1059 set_wfp_delta_snapshot(); // 0x1c *** 300 s => 0x12bff
1061
1060
1062 set_wfp_delta_f0_f0_2(); // 0x20, 0x24
1061 set_wfp_delta_f0_f0_2(); // 0x20, 0x24
1063
1062
1064 //the parameter delta_f1 [0x28] is not used anymore
1063 //the parameter delta_f1 [0x28] is not used anymore
1065
1064
1066 set_wfp_delta_f2(); // 0x2c
1065 set_wfp_delta_f2(); // 0x2c
1067
1066
1068 DEBUG_PRINTF1("delta_snapshot %x\n", waveform_picker_regs->delta_snapshot);
1067 DEBUG_PRINTF1("delta_snapshot %x\n", waveform_picker_regs->delta_snapshot);
1069 DEBUG_PRINTF1("delta_f0 %x\n", waveform_picker_regs->delta_f0);
1068 DEBUG_PRINTF1("delta_f0 %x\n", waveform_picker_regs->delta_f0);
1070 DEBUG_PRINTF1("delta_f0_2 %x\n", waveform_picker_regs->delta_f0_2);
1069 DEBUG_PRINTF1("delta_f0_2 %x\n", waveform_picker_regs->delta_f0_2);
1071 DEBUG_PRINTF1("delta_f1 %x\n", waveform_picker_regs->delta_f1);
1070 DEBUG_PRINTF1("delta_f1 %x\n", waveform_picker_regs->delta_f1);
1072 DEBUG_PRINTF1("delta_f2 %x\n", waveform_picker_regs->delta_f2);
1071 DEBUG_PRINTF1("delta_f2 %x\n", waveform_picker_regs->delta_f2);
1073 // 2688 = 8 * 336
1072 // 2688 = 8 * 336
1074 waveform_picker_regs->nb_data_by_buffer = 0xa7f; // 0x30 *** 2688 - 1 => nb samples -1
1073 waveform_picker_regs->nb_data_by_buffer = 0xa7f; // 0x30 *** 2688 - 1 => nb samples -1
1075 waveform_picker_regs->snapshot_param = 0xa80; // 0x34 *** 2688 => nb samples
1074 waveform_picker_regs->snapshot_param = 0xa80; // 0x34 *** 2688 => nb samples
1076 waveform_picker_regs->start_date = 0x7fffffff; // 0x38
1075 waveform_picker_regs->start_date = 0x7fffffff; // 0x38
1077 //
1076 //
1078 // coarse time and fine time registers are not initialized, they are volatile
1077 // coarse time and fine time registers are not initialized, they are volatile
1079 //
1078 //
1080 waveform_picker_regs->buffer_length = 0x1f8;// buffer length in burst = 3 * 2688 / 16 = 504 = 0x1f8
1079 waveform_picker_regs->buffer_length = 0x1f8;// buffer length in burst = 3 * 2688 / 16 = 504 = 0x1f8
1081 }
1080 }
1082
1081
1083 void set_wfp_data_shaping( void )
1082 void set_wfp_data_shaping( void )
1084 {
1083 {
1085 /** This function sets the data_shaping register of the waveform picker module.
1084 /** This function sets the data_shaping register of the waveform picker module.
1086 *
1085 *
1087 * The value is read from one field of the parameter_dump_packet structure:\n
1086 * The value is read from one field of the parameter_dump_packet structure:\n
1088 * bw_sp0_sp1_r0_r1
1087 * bw_sp0_sp1_r0_r1
1089 *
1088 *
1090 */
1089 */
1091
1090
1092 unsigned char data_shaping;
1091 unsigned char data_shaping;
1093
1092
1094 // get the parameters for the data shaping [BW SP0 SP1 R0 R1] in sy_lfr_common1 and configure the register
1093 // get the parameters for the data shaping [BW SP0 SP1 R0 R1] in sy_lfr_common1 and configure the register
1095 // waveform picker : [R1 R0 SP1 SP0 BW]
1094 // waveform picker : [R1 R0 SP1 SP0 BW]
1096
1095
1097 data_shaping = parameter_dump_packet.sy_lfr_common_parameters;
1096 data_shaping = parameter_dump_packet.sy_lfr_common_parameters;
1098
1097
1099 waveform_picker_regs->data_shaping =
1098 waveform_picker_regs->data_shaping =
1100 ( (data_shaping & 0x20) >> 5 ) // BW
1099 ( (data_shaping & 0x20) >> 5 ) // BW
1101 + ( (data_shaping & 0x10) >> 3 ) // SP0
1100 + ( (data_shaping & 0x10) >> 3 ) // SP0
1102 + ( (data_shaping & 0x08) >> 1 ) // SP1
1101 + ( (data_shaping & 0x08) >> 1 ) // SP1
1103 + ( (data_shaping & 0x04) << 1 ) // R0
1102 + ( (data_shaping & 0x04) << 1 ) // R0
1104 + ( (data_shaping & 0x02) << 3 ) // R1
1103 + ( (data_shaping & 0x02) << 3 ) // R1
1105 + ( (data_shaping & 0x01) << 5 ); // R2
1104 + ( (data_shaping & 0x01) << 5 ); // R2
1106 }
1105 }
1107
1106
1108 void set_wfp_burst_enable_register( unsigned char mode )
1107 void set_wfp_burst_enable_register( unsigned char mode )
1109 {
1108 {
1110 /** This function sets the waveform picker burst_enable register depending on the mode.
1109 /** This function sets the waveform picker burst_enable register depending on the mode.
1111 *
1110 *
1112 * @param mode is the LFR mode to launch.
1111 * @param mode is the LFR mode to launch.
1113 *
1112 *
1114 * The burst bits shall be before the enable bits.
1113 * The burst bits shall be before the enable bits.
1115 *
1114 *
1116 */
1115 */
1117
1116
1118 // [0000 0000] burst f2, f1, f0 enable f3 f2 f1 f0
1117 // [0000 0000] burst f2, f1, f0 enable f3 f2 f1 f0
1119 // the burst bits shall be set first, before the enable bits
1118 // the burst bits shall be set first, before the enable bits
1120 switch(mode) {
1119 switch(mode) {
1121 case LFR_MODE_NORMAL:
1120 case LFR_MODE_NORMAL:
1122 case LFR_MODE_SBM1:
1121 case LFR_MODE_SBM1:
1123 case LFR_MODE_SBM2:
1122 case LFR_MODE_SBM2:
1124 waveform_picker_regs->run_burst_enable = 0x60; // [0110 0000] enable f2 and f1 burst
1123 waveform_picker_regs->run_burst_enable = 0x60; // [0110 0000] enable f2 and f1 burst
1125 waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0f; // [1111] enable f3 f2 f1 f0
1124 waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0f; // [1111] enable f3 f2 f1 f0
1126 break;
1125 break;
1127 case LFR_MODE_BURST:
1126 case LFR_MODE_BURST:
1128 waveform_picker_regs->run_burst_enable = 0x40; // [0100 0000] f2 burst enabled
1127 waveform_picker_regs->run_burst_enable = 0x40; // [0100 0000] f2 burst enabled
1129 waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0c; // [1100] enable f3 and f2
1128 waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0c; // [1100] enable f3 and f2
1130 break;
1129 break;
1131 default:
1130 default:
1132 waveform_picker_regs->run_burst_enable = 0x00; // [0000 0000] no burst enabled, no waveform enabled
1131 waveform_picker_regs->run_burst_enable = 0x00; // [0000 0000] no burst enabled, no waveform enabled
1133 break;
1132 break;
1134 }
1133 }
1135 }
1134 }
1136
1135
1137 void set_wfp_delta_snapshot( void )
1136 void set_wfp_delta_snapshot( void )
1138 {
1137 {
1139 /** This function sets the delta_snapshot register of the waveform picker module.
1138 /** This function sets the delta_snapshot register of the waveform picker module.
1140 *
1139 *
1141 * The value is read from two (unsigned char) of the parameter_dump_packet structure:
1140 * The value is read from two (unsigned char) of the parameter_dump_packet structure:
1142 * - sy_lfr_n_swf_p[0]
1141 * - sy_lfr_n_swf_p[0]
1143 * - sy_lfr_n_swf_p[1]
1142 * - sy_lfr_n_swf_p[1]
1144 *
1143 *
1145 */
1144 */
1146
1145
1147 unsigned int delta_snapshot;
1146 unsigned int delta_snapshot;
1148 unsigned int delta_snapshot_in_T2;
1147 unsigned int delta_snapshot_in_T2;
1149
1148
1150 delta_snapshot = parameter_dump_packet.sy_lfr_n_swf_p[0]*256
1149 delta_snapshot = parameter_dump_packet.sy_lfr_n_swf_p[0]*256
1151 + parameter_dump_packet.sy_lfr_n_swf_p[1];
1150 + parameter_dump_packet.sy_lfr_n_swf_p[1];
1152
1151
1153 delta_snapshot_in_T2 = delta_snapshot * 256;
1152 delta_snapshot_in_T2 = delta_snapshot * 256;
1154 waveform_picker_regs->delta_snapshot = delta_snapshot_in_T2 - 1; // max 4 bytes
1153 waveform_picker_regs->delta_snapshot = delta_snapshot_in_T2 - 1; // max 4 bytes
1155 }
1154 }
1156
1155
1157 void set_wfp_delta_f0_f0_2( void )
1156 void set_wfp_delta_f0_f0_2( void )
1158 {
1157 {
1159 unsigned int delta_snapshot;
1158 unsigned int delta_snapshot;
1160 unsigned int nb_samples_per_snapshot;
1159 unsigned int nb_samples_per_snapshot;
1161 float delta_f0_in_float;
1160 float delta_f0_in_float;
1162
1161
1163 delta_snapshot = waveform_picker_regs->delta_snapshot;
1162 delta_snapshot = waveform_picker_regs->delta_snapshot;
1164 nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1];
1163 nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1];
1165 delta_f0_in_float = nb_samples_per_snapshot / 2. * ( 1. / 256. - 1. / 24576.) * 256.;
1164 delta_f0_in_float = nb_samples_per_snapshot / 2. * ( 1. / 256. - 1. / 24576.) * 256.;
1166
1165
1167 waveform_picker_regs->delta_f0 = delta_snapshot - floor( delta_f0_in_float );
1166 waveform_picker_regs->delta_f0 = delta_snapshot - floor( delta_f0_in_float );
1168 waveform_picker_regs->delta_f0_2 = 0x30; // 48 = 11 0000, max 7 bits
1167 waveform_picker_regs->delta_f0_2 = 0x30; // 48 = 11 0000, max 7 bits
1169 }
1168 }
1170
1169
1171 void set_wfp_delta_f1( void )
1170 void set_wfp_delta_f1( void )
1172 {
1171 {
1173 /** Sets the value of the delta_f1 parameter
1172 /** Sets the value of the delta_f1 parameter
1174 *
1173 *
1175 * @param void
1174 * @param void
1176 *
1175 *
1177 * @return void
1176 * @return void
1178 *
1177 *
1179 * delta_f1 is not used, the snapshots are extracted from CWF_F1 waveforms.
1178 * delta_f1 is not used, the snapshots are extracted from CWF_F1 waveforms.
1180 *
1179 *
1181 */
1180 */
1182
1181
1183 unsigned int delta_snapshot;
1182 unsigned int delta_snapshot;
1184 unsigned int nb_samples_per_snapshot;
1183 unsigned int nb_samples_per_snapshot;
1185 float delta_f1_in_float;
1184 float delta_f1_in_float;
1186
1185
1187 delta_snapshot = waveform_picker_regs->delta_snapshot;
1186 delta_snapshot = waveform_picker_regs->delta_snapshot;
1188 nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1];
1187 nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1];
1189 delta_f1_in_float = nb_samples_per_snapshot / 2. * ( 1. / 256. - 1. / 4096.) * 256.;
1188 delta_f1_in_float = nb_samples_per_snapshot / 2. * ( 1. / 256. - 1. / 4096.) * 256.;
1190
1189
1191 waveform_picker_regs->delta_f1 = delta_snapshot - floor( delta_f1_in_float );
1190 waveform_picker_regs->delta_f1 = delta_snapshot - floor( delta_f1_in_float );
1192 }
1191 }
1193
1192
1194 void set_wfp_delta_f2( void ) // parameter not used, only delta_f0 and delta_f0_2 are used
1193 void set_wfp_delta_f2( void ) // parameter not used, only delta_f0 and delta_f0_2 are used
1195 {
1194 {
1196 /** Sets the value of the delta_f2 parameter
1195 /** Sets the value of the delta_f2 parameter
1197 *
1196 *
1198 * @param void
1197 * @param void
1199 *
1198 *
1200 * @return void
1199 * @return void
1201 *
1200 *
1202 * delta_f2 is used only for the first snapshot generation, even when the snapshots are extracted from CWF_F2
1201 * delta_f2 is used only for the first snapshot generation, even when the snapshots are extracted from CWF_F2
1203 * waveforms (see lpp_waveform_snapshot_controler.vhd for details).
1202 * waveforms (see lpp_waveform_snapshot_controler.vhd for details).
1204 *
1203 *
1205 */
1204 */
1206
1205
1207 unsigned int delta_snapshot;
1206 unsigned int delta_snapshot;
1208 unsigned int nb_samples_per_snapshot;
1207 unsigned int nb_samples_per_snapshot;
1209
1208
1210 delta_snapshot = waveform_picker_regs->delta_snapshot;
1209 delta_snapshot = waveform_picker_regs->delta_snapshot;
1211 nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1];
1210 nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1];
1212
1211
1213 waveform_picker_regs->delta_f2 = delta_snapshot - nb_samples_per_snapshot / 2;
1212 waveform_picker_regs->delta_f2 = delta_snapshot - nb_samples_per_snapshot / 2 - 1;
1214 }
1213 }
1215
1214
1216 //*****************
1215 //*****************
1217 // local parameters
1216 // local parameters
1218
1217
1219 void increment_seq_counter_source_id( unsigned char *packet_sequence_control, unsigned int sid )
1218 void increment_seq_counter_source_id( unsigned char *packet_sequence_control, unsigned int sid )
1220 {
1219 {
1221 /** This function increments the parameter "sequence_cnt" depending on the sid passed in argument.
1220 /** This function increments the parameter "sequence_cnt" depending on the sid passed in argument.
1222 *
1221 *
1223 * @param packet_sequence_control is a pointer toward the parameter sequence_cnt to update.
1222 * @param packet_sequence_control is a pointer toward the parameter sequence_cnt to update.
1224 * @param sid is the source identifier of the packet being updated.
1223 * @param sid is the source identifier of the packet being updated.
1225 *
1224 *
1226 * REQ-LFR-SRS-5240 / SSS-CP-FS-590
1225 * REQ-LFR-SRS-5240 / SSS-CP-FS-590
1227 * The sequence counters shall wrap around from 2^14 to zero.
1226 * The sequence counters shall wrap around from 2^14 to zero.
1228 * The sequence counter shall start at zero at startup.
1227 * The sequence counter shall start at zero at startup.
1229 *
1228 *
1230 * REQ-LFR-SRS-5239 / SSS-CP-FS-580
1229 * REQ-LFR-SRS-5239 / SSS-CP-FS-580
1231 * All TM_LFR_SCIENCE_ packets are sent to ground, i.e. destination id = 0
1230 * All TM_LFR_SCIENCE_ packets are sent to ground, i.e. destination id = 0
1232 *
1231 *
1233 */
1232 */
1234
1233
1235 unsigned short *sequence_cnt;
1234 unsigned short *sequence_cnt;
1236 unsigned short segmentation_grouping_flag;
1235 unsigned short segmentation_grouping_flag;
1237 unsigned short new_packet_sequence_control;
1236 unsigned short new_packet_sequence_control;
1238 rtems_mode initial_mode_set;
1237 rtems_mode initial_mode_set;
1239 rtems_mode current_mode_set;
1238 rtems_mode current_mode_set;
1240 rtems_status_code status;
1239 rtems_status_code status;
1241
1240
1242 //******************************************
1241 //******************************************
1243 // CHANGE THE MODE OF THE CALLING RTEMS TASK
1242 // CHANGE THE MODE OF THE CALLING RTEMS TASK
1244 status = rtems_task_mode( RTEMS_NO_PREEMPT, RTEMS_PREEMPT_MASK, &initial_mode_set );
1243 status = rtems_task_mode( RTEMS_NO_PREEMPT, RTEMS_PREEMPT_MASK, &initial_mode_set );
1245
1244
1246 if ( (sid == SID_NORM_SWF_F0) || (sid == SID_NORM_SWF_F1) || (sid == SID_NORM_SWF_F2)
1245 if ( (sid == SID_NORM_SWF_F0) || (sid == SID_NORM_SWF_F1) || (sid == SID_NORM_SWF_F2)
1247 || (sid == SID_NORM_CWF_F3) || (sid == SID_NORM_CWF_LONG_F3)
1246 || (sid == SID_NORM_CWF_F3) || (sid == SID_NORM_CWF_LONG_F3)
1248 || (sid == SID_BURST_CWF_F2)
1247 || (sid == SID_BURST_CWF_F2)
1249 || (sid == SID_NORM_ASM_F0) || (sid == SID_NORM_ASM_F1) || (sid == SID_NORM_ASM_F2)
1248 || (sid == SID_NORM_ASM_F0) || (sid == SID_NORM_ASM_F1) || (sid == SID_NORM_ASM_F2)
1250 || (sid == SID_NORM_BP1_F0) || (sid == SID_NORM_BP1_F1) || (sid == SID_NORM_BP1_F2)
1249 || (sid == SID_NORM_BP1_F0) || (sid == SID_NORM_BP1_F1) || (sid == SID_NORM_BP1_F2)
1251 || (sid == SID_NORM_BP2_F0) || (sid == SID_NORM_BP2_F1) || (sid == SID_NORM_BP2_F2)
1250 || (sid == SID_NORM_BP2_F0) || (sid == SID_NORM_BP2_F1) || (sid == SID_NORM_BP2_F2)
1252 || (sid == SID_BURST_BP1_F0) || (sid == SID_BURST_BP2_F0)
1251 || (sid == SID_BURST_BP1_F0) || (sid == SID_BURST_BP2_F0)
1253 || (sid == SID_BURST_BP1_F1) || (sid == SID_BURST_BP2_F1) )
1252 || (sid == SID_BURST_BP1_F1) || (sid == SID_BURST_BP2_F1) )
1254 {
1253 {
1255 sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_NORMAL_BURST;
1254 sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_NORMAL_BURST;
1256 }
1255 }
1257 else if ( (sid ==SID_SBM1_CWF_F1) || (sid ==SID_SBM2_CWF_F2)
1256 else if ( (sid ==SID_SBM1_CWF_F1) || (sid ==SID_SBM2_CWF_F2)
1258 || (sid == SID_SBM1_BP1_F0) || (sid == SID_SBM1_BP2_F0)
1257 || (sid == SID_SBM1_BP1_F0) || (sid == SID_SBM1_BP2_F0)
1259 || (sid == SID_SBM2_BP1_F0) || (sid == SID_SBM2_BP2_F0)
1258 || (sid == SID_SBM2_BP1_F0) || (sid == SID_SBM2_BP2_F0)
1260 || (sid == SID_SBM2_BP1_F1) || (sid == SID_SBM2_BP2_F1) )
1259 || (sid == SID_SBM2_BP1_F1) || (sid == SID_SBM2_BP2_F1) )
1261 {
1260 {
1262 sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_SBM1_SBM2;
1261 sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_SBM1_SBM2;
1263 }
1262 }
1264 else
1263 else
1265 {
1264 {
1266 sequence_cnt = (unsigned short *) NULL;
1265 sequence_cnt = (unsigned short *) NULL;
1267 PRINTF1("in increment_seq_counter_source_id *** ERR apid_destid %d not known\n", sid)
1266 PRINTF1("in increment_seq_counter_source_id *** ERR apid_destid %d not known\n", sid)
1268 }
1267 }
1269
1268
1270 if (sequence_cnt != NULL)
1269 if (sequence_cnt != NULL)
1271 {
1270 {
1272 segmentation_grouping_flag = TM_PACKET_SEQ_CTRL_STANDALONE << 8;
1271 segmentation_grouping_flag = TM_PACKET_SEQ_CTRL_STANDALONE << 8;
1273 *sequence_cnt = (*sequence_cnt) & 0x3fff;
1272 *sequence_cnt = (*sequence_cnt) & 0x3fff;
1274
1273
1275 new_packet_sequence_control = segmentation_grouping_flag | (*sequence_cnt) ;
1274 new_packet_sequence_control = segmentation_grouping_flag | (*sequence_cnt) ;
1276
1275
1277 packet_sequence_control[0] = (unsigned char) (new_packet_sequence_control >> 8);
1276 packet_sequence_control[0] = (unsigned char) (new_packet_sequence_control >> 8);
1278 packet_sequence_control[1] = (unsigned char) (new_packet_sequence_control );
1277 packet_sequence_control[1] = (unsigned char) (new_packet_sequence_control );
1279
1278
1280 // increment the sequence counter
1279 // increment the sequence counter
1281 if ( *sequence_cnt < SEQ_CNT_MAX)
1280 if ( *sequence_cnt < SEQ_CNT_MAX)
1282 {
1281 {
1283 *sequence_cnt = *sequence_cnt + 1;
1282 *sequence_cnt = *sequence_cnt + 1;
1284 }
1283 }
1285 else
1284 else
1286 {
1285 {
1287 *sequence_cnt = 0;
1286 *sequence_cnt = 0;
1288 }
1287 }
1289 }
1288 }
1290
1289
1291 //*************************************
1290 //*************************************
1292 // RESTORE THE MODE OF THE CALLING TASK
1291 // RESTORE THE MODE OF THE CALLING TASK
1293 status = rtems_task_mode( initial_mode_set, RTEMS_PREEMPT_MASK, &current_mode_set );
1292 status = rtems_task_mode( initial_mode_set, RTEMS_PREEMPT_MASK, &current_mode_set );
1294 }
1293 }
General Comments 0
You need to be logged in to leave comments. Login now