wf_handler.c
1343 lines
| 50.0 KiB
| text/x-c
|
CLexer
/ src / wf_handler.c
paul
|
r40 | /** Functions and tasks related to waveform packet generation. | ||
* | ||||
* @file | ||||
* @author P. LEROY | ||||
* | ||||
* A group of functions to handle waveforms, in snapshot or continuous format.\n | ||||
* | ||||
*/ | ||||
#include "wf_handler.h" | ||||
paul@pc-solar1.lab-lpp.local
|
r5 | |||
paul
|
r171 | //*************** | ||
// waveform rings | ||||
// F0 | ||||
paul
|
r92 | ring_node waveform_ring_f0[NB_RING_NODES_F0]; | ||
ring_node *current_ring_node_f0; | ||||
ring_node *ring_node_to_send_swf_f0; | ||||
paul
|
r171 | // F1 | ||
ring_node waveform_ring_f1[NB_RING_NODES_F1]; | ||||
paul
|
r87 | ring_node *current_ring_node_f1; | ||
ring_node *ring_node_to_send_swf_f1; | ||||
ring_node *ring_node_to_send_cwf_f1; | ||||
paul
|
r171 | // F2 | ||
ring_node waveform_ring_f2[NB_RING_NODES_F2]; | ||||
paul
|
r87 | ring_node *current_ring_node_f2; | ||
ring_node *ring_node_to_send_swf_f2; | ||||
ring_node *ring_node_to_send_cwf_f2; | ||||
paul
|
r171 | // F3 | ||
ring_node waveform_ring_f3[NB_RING_NODES_F3]; | ||||
paul
|
r131 | ring_node *current_ring_node_f3; | ||
ring_node *ring_node_to_send_cwf_f3; | ||||
paul
|
r181 | char wf_cont_f3_light[ (NB_SAMPLES_PER_SNAPSHOT) * NB_BYTES_CWF3_LIGHT_BLK ]; | ||
paul
|
r87 | |||
paul
|
r238 | bool extractSWF1 = false; | ||
bool extractSWF2 = false; | ||||
bool swf0_ready_flag_f1 = false; | ||||
bool swf0_ready_flag_f2 = false; | ||||
bool swf1_ready = false; | ||||
bool swf2_ready = false; | ||||
paul
|
r105 | |||
paul
|
r238 | int swf1_extracted[ (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK) ]; | ||
int swf2_extracted[ (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK) ]; | ||||
ring_node ring_node_swf1_extracted; | ||||
ring_node ring_node_swf2_extracted; | ||||
paul
|
r106 | |||
paul
|
r256 | typedef enum resynchro_state_t | ||
{ | ||||
paul
|
r267 | MEASURE, | ||
CORRECTION | ||||
paul
|
r256 | } resynchro_state; | ||
paul
|
r106 | //********************* | ||
// Interrupt SubRoutine | ||||
paul
|
r179 | ring_node * getRingNodeToSendCWF( unsigned char frequencyChannel) | ||
{ | ||||
ring_node *node; | ||||
node = NULL; | ||||
switch ( frequencyChannel ) { | ||||
paul
|
r318 | case CHANNELF1: | ||
paul
|
r179 | node = ring_node_to_send_cwf_f1; | ||
break; | ||||
paul
|
r318 | case CHANNELF2: | ||
paul
|
r179 | node = ring_node_to_send_cwf_f2; | ||
break; | ||||
paul
|
r318 | case CHANNELF3: | ||
paul
|
r179 | node = ring_node_to_send_cwf_f3; | ||
break; | ||||
default: | ||||
break; | ||||
} | ||||
return node; | ||||
} | ||||
ring_node * getRingNodeToSendSWF( unsigned char frequencyChannel) | ||||
{ | ||||
ring_node *node; | ||||
node = NULL; | ||||
switch ( frequencyChannel ) { | ||||
paul
|
r318 | case CHANNELF0: | ||
paul
|
r179 | node = ring_node_to_send_swf_f0; | ||
break; | ||||
paul
|
r318 | case CHANNELF1: | ||
paul
|
r179 | node = ring_node_to_send_swf_f1; | ||
break; | ||||
paul
|
r318 | case CHANNELF2: | ||
paul
|
r179 | node = ring_node_to_send_swf_f2; | ||
break; | ||||
default: | ||||
break; | ||||
} | ||||
return node; | ||||
} | ||||
paul
|
r106 | void reset_extractSWF( void ) | ||
{ | ||||
paul
|
r238 | extractSWF1 = false; | ||
extractSWF2 = false; | ||||
swf0_ready_flag_f1 = false; | ||||
swf0_ready_flag_f2 = false; | ||||
swf1_ready = false; | ||||
swf2_ready = false; | ||||
paul
|
r106 | } | ||
paul
|
r105 | |||
paul
|
r172 | inline void waveforms_isr_f3( void ) | ||
paul
|
r170 | { | ||
rtems_status_code spare_status; | ||||
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 | ||||
|| (lfrCurrentMode == LFR_MODE_SBM1) || (lfrCurrentMode == LFR_MODE_SBM2) ) | ||||
{ // in modes other than STANDBY and BURST, send the CWF_F3 data | ||||
paul
|
r171 | //*** | ||
// F3 | ||||
paul
|
r318 | if ( (waveform_picker_regs->status & BITS_WFP_STATUS_F3) != INIT_CHAR ) { // [1100 0000] check the f3 full bits | ||
paul
|
r171 | ring_node_to_send_cwf_f3 = current_ring_node_f3->previous; | ||
current_ring_node_f3 = current_ring_node_f3->next; | ||||
paul
|
r318 | if ((waveform_picker_regs->status & BIT_WFP_BUF_F3_0) == BIT_WFP_BUF_F3_0){ // [0100 0000] f3 buffer 0 is full | ||
paul
|
r171 | ring_node_to_send_cwf_f3->coarseTime = waveform_picker_regs->f3_0_coarse_time; | ||
ring_node_to_send_cwf_f3->fineTime = waveform_picker_regs->f3_0_fine_time; | ||||
waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F3_0; // [1000 1000 0100 0000] | ||
paul
|
r171 | } | ||
paul
|
r318 | else if ((waveform_picker_regs->status & BIT_WFP_BUF_F3_1) == BIT_WFP_BUF_F3_1){ // [1000 0000] f3 buffer 1 is full | ||
paul
|
r171 | ring_node_to_send_cwf_f3->coarseTime = waveform_picker_regs->f3_1_coarse_time; | ||
ring_node_to_send_cwf_f3->fineTime = waveform_picker_regs->f3_1_fine_time; | ||||
waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F3_1; // [1000 1000 1000 0000] | ||
paul
|
r171 | } | ||
paul
|
r170 | if (rtems_event_send( Task_id[TASKID_CWF3], RTEMS_EVENT_0 ) != RTEMS_SUCCESSFUL) { | ||
paul
|
r171 | spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 ); | ||
paul
|
r170 | } | ||
} | ||||
} | ||||
} | ||||
paul
|
r172 | inline void waveforms_isr_burst( void ) | ||
paul
|
r170 | { | ||
paul
|
r179 | unsigned char status; | ||
paul
|
r170 | rtems_status_code spare_status; | ||
paul
|
r318 | status = (waveform_picker_regs->status & BITS_WFP_STATUS_F2) >> SHIFT_WFP_STATUS_F2; // [0011 0000] get the status bits for f2 | ||
paul
|
r179 | |||
switch(status) | ||||
{ | ||||
paul
|
r318 | case BIT_WFP_BUFFER_0: | ||
paul
|
r185 | ring_node_to_send_cwf_f2 = current_ring_node_f2->previous; | ||
ring_node_to_send_cwf_f2->sid = SID_BURST_CWF_F2; | ||||
paul
|
r179 | ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_0_coarse_time; | ||
ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_0_fine_time; | ||||
paul
|
r185 | current_ring_node_f2 = current_ring_node_f2->next; | ||
paul
|
r179 | waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address; | ||
paul
|
r170 | if (rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_BURST ) != RTEMS_SUCCESSFUL) { | ||
paul
|
r171 | spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 ); | ||
paul
|
r170 | } | ||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F2_0; // [0100 0100 0001 0000] | ||
paul
|
r179 | break; | ||
paul
|
r318 | case BIT_WFP_BUFFER_1: | ||
paul
|
r185 | ring_node_to_send_cwf_f2 = current_ring_node_f2->previous; | ||
ring_node_to_send_cwf_f2->sid = SID_BURST_CWF_F2; | ||||
paul
|
r179 | ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_1_coarse_time; | ||
ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_1_fine_time; | ||||
paul
|
r185 | current_ring_node_f2 = current_ring_node_f2->next; | ||
paul
|
r179 | waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address; | ||
if (rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_BURST ) != RTEMS_SUCCESSFUL) { | ||||
spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_0 ); | ||||
} | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F2_1; // [0100 0100 0010 0000] | ||
paul
|
r179 | break; | ||
default: | ||||
break; | ||||
paul
|
r170 | } | ||
} | ||||
paul
|
r238 | inline void waveform_isr_normal_sbm1_sbm2( void ) | ||
paul
|
r170 | { | ||
rtems_status_code status; | ||||
//*** | ||||
paul
|
r238 | // F0 | ||
paul
|
r318 | if ( (waveform_picker_regs->status & BITS_WFP_STATUS_F0) != INIT_CHAR ) // [0000 0011] check the f0 full bits | ||
paul
|
r238 | { | ||
swf0_ready_flag_f1 = true; | ||||
swf0_ready_flag_f2 = true; | ||||
ring_node_to_send_swf_f0 = current_ring_node_f0->previous; | ||||
current_ring_node_f0 = current_ring_node_f0->next; | ||||
paul
|
r318 | if ( (waveform_picker_regs->status & BIT_WFP_BUFFER_0) == BIT_WFP_BUFFER_0) | ||
paul
|
r238 | { | ||
ring_node_to_send_swf_f0->coarseTime = waveform_picker_regs->f0_0_coarse_time; | ||||
ring_node_to_send_swf_f0->fineTime = waveform_picker_regs->f0_0_fine_time; | ||||
waveform_picker_regs->addr_data_f0_0 = current_ring_node_f0->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F0_0; // [0001 0001 0000 0001] | ||
paul
|
r238 | } | ||
paul
|
r318 | else if ( (waveform_picker_regs->status & BIT_WFP_BUFFER_1) == BIT_WFP_BUFFER_1) | ||
paul
|
r238 | { | ||
ring_node_to_send_swf_f0->coarseTime = waveform_picker_regs->f0_1_coarse_time; | ||||
ring_node_to_send_swf_f0->fineTime = waveform_picker_regs->f0_1_fine_time; | ||||
waveform_picker_regs->addr_data_f0_1 = current_ring_node_f0->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F0_1; // [0001 0001 0000 0010] | ||
paul
|
r238 | } | ||
paul
|
r267 | // send an event to the WFRM task for resynchro activities | ||
status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_SWF_RESYNCH ); | ||||
paul
|
r238 | } | ||
//*** | ||||
paul
|
r170 | // F1 | ||
paul
|
r318 | if ( (waveform_picker_regs->status & 0x0c) != INIT_CHAR ) { // [0000 1100] check the f1 full bits | ||
paul
|
r170 | // (1) change the receiving buffer for the waveform picker | ||
paul
|
r171 | ring_node_to_send_cwf_f1 = current_ring_node_f1->previous; | ||
current_ring_node_f1 = current_ring_node_f1->next; | ||||
paul
|
r318 | if ( (waveform_picker_regs->status & BIT_WFP_BUF_F1_0) == BIT_WFP_BUF_F1_0) | ||
paul
|
r171 | { | ||
ring_node_to_send_cwf_f1->coarseTime = waveform_picker_regs->f1_0_coarse_time; | ||||
ring_node_to_send_cwf_f1->fineTime = waveform_picker_regs->f1_0_fine_time; | ||||
waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F1_0; // [0010 0010 0000 0100] f1 bits = 0 | ||
paul
|
r171 | } | ||
paul
|
r318 | else if ( (waveform_picker_regs->status & BIT_WFP_BUF_F1_1) == BIT_WFP_BUF_F1_1) | ||
paul
|
r171 | { | ||
ring_node_to_send_cwf_f1->coarseTime = waveform_picker_regs->f1_1_coarse_time; | ||||
ring_node_to_send_cwf_f1->fineTime = waveform_picker_regs->f1_1_fine_time; | ||||
waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F1_1; // [0010 0010 0000 1000] f1 bits = 0 | ||
paul
|
r171 | } | ||
paul
|
r170 | // (2) send an event for the the CWF1 task for transmission (and snapshot extraction if needed) | ||
paul
|
r238 | status = rtems_event_send( Task_id[TASKID_CWF1], RTEMS_EVENT_MODE_NORM_S1_S2 ); | ||
paul
|
r170 | } | ||
//*** | ||||
// F2 | ||||
paul
|
r318 | if ( (waveform_picker_regs->status & BITS_WFP_STATUS_F2) != INIT_CHAR ) { // [0011 0000] check the f2 full bit | ||
paul
|
r170 | // (1) change the receiving buffer for the waveform picker | ||
paul
|
r181 | ring_node_to_send_cwf_f2 = current_ring_node_f2->previous; | ||
ring_node_to_send_cwf_f2->sid = SID_SBM2_CWF_F2; | ||||
current_ring_node_f2 = current_ring_node_f2->next; | ||||
paul
|
r318 | if ( (waveform_picker_regs->status & BIT_WFP_BUF_F2_0) == BIT_WFP_BUF_F2_0) | ||
paul
|
r171 | { | ||
ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_0_coarse_time; | ||||
ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_0_fine_time; | ||||
waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F2_0; // [0100 0100 0001 0000] | ||
paul
|
r171 | } | ||
paul
|
r318 | else if ( (waveform_picker_regs->status & BIT_WFP_BUF_F2_1) == BIT_WFP_BUF_F2_1) | ||
paul
|
r171 | { | ||
ring_node_to_send_cwf_f2->coarseTime = waveform_picker_regs->f2_1_coarse_time; | ||||
ring_node_to_send_cwf_f2->fineTime = waveform_picker_regs->f2_1_fine_time; | ||||
waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address; | ||||
paul
|
r318 | waveform_picker_regs->status = waveform_picker_regs->status & RST_WFP_F2_1; // [0100 0100 0010 0000] | ||
paul
|
r171 | } | ||
paul
|
r170 | // (2) send an event for the waveforms transmission | ||
paul
|
r238 | status = rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_NORM_S1_S2 ); | ||
paul
|
r170 | } | ||
} | ||||
paul@pc-solar1.lab-lpp.local
|
r21 | rtems_isr waveforms_isr( rtems_vector_number vector ) | ||
{ | ||||
paul
|
r45 | /** This is the interrupt sub routine called by the waveform picker core. | ||
* | ||||
* This ISR launch different actions depending mainly on two pieces of information: | ||||
* 1. the values read in the registers of the waveform picker. | ||||
* 2. the current LFR mode. | ||||
* | ||||
*/ | ||||
paul@pc-solar1.lab-lpp.local
|
r21 | |||
paul
|
r170 | // STATUS | ||
// new error error buffer full | ||||
// 15 14 13 12 11 10 9 8 | ||||
// f3 f2 f1 f0 f3 f2 f1 f0 | ||||
// | ||||
// ready buffer | ||||
// 7 6 5 4 3 2 1 0 | ||||
// f3_1 f3_0 f2_1 f2_0 f1_1 f1_0 f0_1 f0_0 | ||||
paul
|
r166 | rtems_status_code spare_status; | ||
paul
|
r95 | |||
paul
|
r170 | waveforms_isr_f3(); | ||
paul
|
r265 | //************************************************* | ||
// copy the status bits in the housekeeping packets | ||||
housekeeping_packet.hk_lfr_vhdl_iir_cal = | ||||
paul
|
r318 | (unsigned char) ((waveform_picker_regs->status & BYTE0_MASK) >> SHIFT_1_BYTE); | ||
paul
|
r265 | |||
paul
|
r318 | if ( (waveform_picker_regs->status & BYTE0_MASK) != INIT_CHAR) // [1111 1111 0000 0000] check the error bits | ||
paul
|
r170 | { | ||
paul
|
r171 | spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_10 ); | ||
paul
|
r32 | } | ||
paul
|
r33 | switch(lfrCurrentMode) | ||
paul@pc-solar1.lab-lpp.local
|
r21 | { | ||
paul
|
r238 | //******** | ||
// STANDBY | ||||
case LFR_MODE_STANDBY: | ||||
paul
|
r33 | break; | ||
paul
|
r246 | //************************** | ||
// LFR NORMAL, SBM1 and SBM2 | ||||
paul
|
r238 | case LFR_MODE_NORMAL: | ||
case LFR_MODE_SBM1: | ||||
case LFR_MODE_SBM2: | ||||
waveform_isr_normal_sbm1_sbm2(); | ||||
paul
|
r95 | break; | ||
paul
|
r246 | //****** | ||
// BURST | ||||
paul
|
r238 | case LFR_MODE_BURST: | ||
paul
|
r170 | waveforms_isr_burst(); | ||
paul
|
r95 | break; | ||
paul
|
r246 | //******** | ||
// DEFAULT | ||||
paul
|
r238 | default: | ||
paul
|
r33 | break; | ||
paul@pc-solar1.lab-lpp.local
|
r21 | } | ||
} | ||||
paul
|
r106 | //************ | ||
// RTEMS TASKS | ||||
paul@pc-solar1.lab-lpp.local
|
r18 | rtems_task wfrm_task(rtems_task_argument argument) //used with the waveform picker VHDL IP | ||
{ | ||||
paul
|
r45 | /** This RTEMS task is dedicated to the transmission of snapshots of the NORMAL mode. | ||
* | ||||
* @param unused is the starting argument of the RTEMS task | ||||
* | ||||
* The following data packets are sent by this task: | ||||
* - TM_LFR_SCIENCE_NORMAL_SWF_F0 | ||||
* - TM_LFR_SCIENCE_NORMAL_SWF_F1 | ||||
* - TM_LFR_SCIENCE_NORMAL_SWF_F2 | ||||
* | ||||
*/ | ||||
paul@pc-solar1.lab-lpp.local
|
r5 | rtems_event_set event_out; | ||
paul
|
r35 | rtems_id queue_id; | ||
paul
|
r82 | rtems_status_code status; | ||
paul
|
r238 | ring_node *ring_node_swf1_extracted_ptr; | ||
ring_node *ring_node_swf2_extracted_ptr; | ||||
paul
|
r172 | |||
paul
|
r320 | event_out = EVENT_SETS_NONE_PENDING; | ||
queue_id = RTEMS_ID_NONE; | ||||
paul
|
r238 | ring_node_swf1_extracted_ptr = (ring_node *) &ring_node_swf1_extracted; | ||
ring_node_swf2_extracted_ptr = (ring_node *) &ring_node_swf2_extracted; | ||||
paul
|
r168 | |||
paul
|
r82 | status = get_message_queue_id_send( &queue_id ); | ||
if (status != RTEMS_SUCCESSFUL) | ||||
{ | ||||
paul
|
r246 | PRINTF1("in WFRM *** ERR get_message_queue_id_send %d\n", status); | ||
paul
|
r82 | } | ||
paul
|
r35 | |||
paul
|
r246 | BOOT_PRINTF("in WFRM ***\n"); | ||
paul@pc-solar1.lab-lpp.local
|
r18 | |||
paul
|
r246 | while(1){ | ||
paul@pc-solar1.lab-lpp.local
|
r21 | // wait for an RTEMS_EVENT | ||
paul
|
r267 | rtems_event_receive(RTEMS_EVENT_MODE_NORMAL | RTEMS_EVENT_SWF_RESYNCH, | ||
paul@pc-solar1.lab-lpp.local
|
r21 | RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); | ||
paul
|
r247 | |||
paul
|
r35 | if (event_out == RTEMS_EVENT_MODE_NORMAL) | ||
{ | ||||
paul
|
r246 | DEBUG_PRINTF("WFRM received RTEMS_EVENT_MODE_SBM2\n"); | ||
ring_node_to_send_swf_f0->sid = SID_NORM_SWF_F0; | ||||
paul
|
r238 | ring_node_swf1_extracted_ptr->sid = SID_NORM_SWF_F1; | ||
ring_node_swf2_extracted_ptr->sid = SID_NORM_SWF_F2; | ||||
status = rtems_message_queue_send( queue_id, &ring_node_to_send_swf_f0, sizeof( ring_node* ) ); | ||||
status = rtems_message_queue_send( queue_id, &ring_node_swf1_extracted_ptr, sizeof( ring_node* ) ); | ||||
status = rtems_message_queue_send( queue_id, &ring_node_swf2_extracted_ptr, sizeof( ring_node* ) ); | ||||
paul
|
r106 | } | ||
paul
|
r267 | if (event_out == RTEMS_EVENT_SWF_RESYNCH) | ||
{ | ||||
snapshot_resynchronization( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime ); | ||||
} | ||||
paul@pc-solar1.lab-lpp.local
|
r5 | } | ||
} | ||||
paul@pc-solar1.lab-lpp.local
|
r17 | |||
paul
|
r32 | rtems_task cwf3_task(rtems_task_argument argument) //used with the waveform picker VHDL IP | ||
{ | ||||
paul
|
r45 | /** This RTEMS task is dedicated to the transmission of continuous waveforms at f3. | ||
* | ||||
* @param unused is the starting argument of the RTEMS task | ||||
* | ||||
* The following data packet is sent by this task: | ||||
* - TM_LFR_SCIENCE_NORMAL_CWF_F3 | ||||
* | ||||
*/ | ||||
paul
|
r32 | rtems_event_set event_out; | ||
paul
|
r35 | rtems_id queue_id; | ||
paul
|
r82 | rtems_status_code status; | ||
paul
|
r172 | ring_node ring_node_cwf3_light; | ||
paul
|
r205 | ring_node *ring_node_to_send_cwf; | ||
paul
|
r32 | |||
paul
|
r320 | event_out = EVENT_SETS_NONE_PENDING; | ||
queue_id = RTEMS_ID_NONE; | ||||
paul
|
r82 | status = get_message_queue_id_send( &queue_id ); | ||
if (status != RTEMS_SUCCESSFUL) | ||||
{ | ||||
PRINTF1("in CWF3 *** ERR get_message_queue_id_send %d\n", status) | ||||
} | ||||
paul
|
r35 | |||
paul
|
r172 | ring_node_to_send_cwf_f3->sid = SID_NORM_CWF_LONG_F3; | ||
// init the ring_node_cwf3_light structure | ||||
ring_node_cwf3_light.buffer_address = (int) wf_cont_f3_light; | ||||
paul
|
r318 | ring_node_cwf3_light.coarseTime = INIT_CHAR; | ||
ring_node_cwf3_light.fineTime = INIT_CHAR; | ||||
paul
|
r172 | ring_node_cwf3_light.next = NULL; | ||
ring_node_cwf3_light.previous = NULL; | ||||
ring_node_cwf3_light.sid = SID_NORM_CWF_F3; | ||||
paul
|
r318 | ring_node_cwf3_light.status = INIT_CHAR; | ||
paul
|
r172 | |||
paul
|
r292 | BOOT_PRINTF("in CWF3 ***\n"); | ||
paul
|
r32 | |||
paul
|
r292 | while(1){ | ||
paul
|
r32 | // wait for an RTEMS_EVENT | ||
paul
|
r33 | rtems_event_receive( RTEMS_EVENT_0, | ||
paul
|
r238 | RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); | ||
paul
|
r129 | if ( (lfrCurrentMode == LFR_MODE_NORMAL) | ||
|| (lfrCurrentMode == LFR_MODE_SBM1) || (lfrCurrentMode==LFR_MODE_SBM2) ) | ||||
paul
|
r98 | { | ||
paul
|
r318 | ring_node_to_send_cwf = getRingNodeToSendCWF( CHANNELF3 ); | ||
if ( (parameter_dump_packet.sy_lfr_n_cwf_long_f3 & BIT_CWF_LONG_F3) == BIT_CWF_LONG_F3) | ||||
paul
|
r92 | { | ||
paul
|
r292 | PRINTF("send CWF_LONG_F3\n"); | ||
ring_node_to_send_cwf_f3->sid = SID_NORM_CWF_LONG_F3; | ||||
paul
|
r205 | status = rtems_message_queue_send( queue_id, &ring_node_to_send_cwf, sizeof( ring_node* ) ); | ||
paul
|
r92 | } | ||
else | ||||
{ | ||||
paul
|
r292 | PRINTF("send CWF_F3 (light)\n"); | ||
send_waveform_CWF3_light( ring_node_to_send_cwf, &ring_node_cwf3_light, queue_id ); | ||||
paul
|
r129 | } | ||
paul
|
r33 | } | ||
paul
|
r92 | else | ||
{ | ||||
paul
|
r129 | PRINTF1("in CWF3 *** lfrCurrentMode is %d, no data will be sent\n", lfrCurrentMode) | ||
paul
|
r33 | } | ||
} | ||||
} | ||||
rtems_task cwf2_task(rtems_task_argument argument) // ONLY USED IN BURST AND SBM2 | ||||
{ | ||||
paul
|
r45 | /** This RTEMS task is dedicated to the transmission of continuous waveforms at f2. | ||
* | ||||
* @param unused is the starting argument of the RTEMS task | ||||
* | ||||
* The following data packet is sent by this function: | ||||
* - TM_LFR_SCIENCE_BURST_CWF_F2 | ||||
* - TM_LFR_SCIENCE_SBM2_CWF_F2 | ||||
* | ||||
*/ | ||||
paul
|
r33 | rtems_event_set event_out; | ||
paul
|
r35 | rtems_id queue_id; | ||
paul
|
r82 | rtems_status_code status; | ||
paul
|
r179 | ring_node *ring_node_to_send; | ||
paul
|
r181 | unsigned long long int acquisitionTimeF0_asLong; | ||
paul
|
r320 | event_out = EVENT_SETS_NONE_PENDING; | ||
queue_id = RTEMS_ID_NONE; | ||||
paul
|
r318 | acquisitionTimeF0_asLong = INIT_CHAR; | ||
paul
|
r33 | |||
paul
|
r82 | status = get_message_queue_id_send( &queue_id ); | ||
if (status != RTEMS_SUCCESSFUL) | ||||
{ | ||||
PRINTF1("in CWF2 *** ERR get_message_queue_id_send %d\n", status) | ||||
} | ||||
paul
|
r35 | |||
paul
|
r292 | BOOT_PRINTF("in CWF2 ***\n"); | ||
paul
|
r33 | |||
paul
|
r292 | while(1){ | ||
paul
|
r267 | // wait for an RTEMS_EVENT// send the snapshot when built | ||
status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_SBM2 ); | ||||
paul
|
r238 | rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2 | RTEMS_EVENT_MODE_BURST, | ||
RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); | ||||
paul
|
r318 | ring_node_to_send = getRingNodeToSendCWF( CHANNELF2 ); | ||
paul
|
r33 | if (event_out == RTEMS_EVENT_MODE_BURST) | ||
paul
|
r292 | { // data are sent whatever the transition time | ||
paul
|
r179 | status = rtems_message_queue_send( queue_id, &ring_node_to_send, sizeof( ring_node* ) ); | ||
paul
|
r33 | } | ||
paul
|
r238 | else if (event_out == RTEMS_EVENT_MODE_NORM_S1_S2) | ||
paul
|
r33 | { | ||
paul
|
r238 | if ( lfrCurrentMode == LFR_MODE_SBM2 ) | ||
{ | ||||
paul
|
r292 | // data are sent depending on the transition time | ||
if ( time_management_regs->coarse_time >= lastValidEnterModeTime) | ||||
{ | ||||
status = rtems_message_queue_send( queue_id, &ring_node_to_send, sizeof( ring_node* ) ); | ||||
} | ||||
paul
|
r238 | } | ||
paul
|
r112 | // launch snapshot extraction if needed | ||
paul
|
r238 | if (extractSWF2 == true) | ||
paul
|
r112 | { | ||
paul
|
r181 | ring_node_to_send_swf_f2 = ring_node_to_send_cwf_f2; | ||
paul
|
r112 | // extract the snapshot | ||
paul
|
r318 | build_snapshot_from_ring( ring_node_to_send_swf_f2, CHANNELF2, acquisitionTimeF0_asLong, | ||
paul
|
r238 | &ring_node_swf2_extracted, swf2_extracted ); | ||
extractSWF2 = false; | ||||
paul
|
r267 | swf2_ready = true; // once the snapshot at f2 is ready the CWF1 task will send an event to WFRM | ||
paul
|
r112 | } | ||
paul
|
r238 | if (swf0_ready_flag_f2 == true) | ||
paul
|
r112 | { | ||
paul
|
r238 | extractSWF2 = true; | ||
// record the acquition time of the f0 snapshot to use to build the snapshot at f2 | ||||
paul
|
r181 | acquisitionTimeF0_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime ); | ||
paul
|
r238 | swf0_ready_flag_f2 = false; | ||
paul
|
r112 | } | ||
paul
|
r33 | } | ||
} | ||||
} | ||||
rtems_task cwf1_task(rtems_task_argument argument) // ONLY USED IN SBM1 | ||||
{ | ||||
paul
|
r45 | /** This RTEMS task is dedicated to the transmission of continuous waveforms at f1. | ||
* | ||||
* @param unused is the starting argument of the RTEMS task | ||||
* | ||||
* The following data packet is sent by this function: | ||||
* - TM_LFR_SCIENCE_SBM1_CWF_F1 | ||||
* | ||||
*/ | ||||
paul
|
r33 | rtems_event_set event_out; | ||
paul
|
r35 | rtems_id queue_id; | ||
paul
|
r82 | rtems_status_code status; | ||
paul
|
r33 | |||
paul
|
r194 | ring_node *ring_node_to_send_cwf; | ||
paul
|
r33 | |||
paul
|
r320 | event_out = EVENT_SETS_NONE_PENDING; | ||
queue_id = RTEMS_ID_NONE; | ||||
paul
|
r82 | status = get_message_queue_id_send( &queue_id ); | ||
if (status != RTEMS_SUCCESSFUL) | ||||
{ | ||||
PRINTF1("in CWF1 *** ERR get_message_queue_id_send %d\n", status) | ||||
} | ||||
paul
|
r35 | |||
paul
|
r247 | BOOT_PRINTF("in CWF1 ***\n"); | ||
paul
|
r33 | |||
paul
|
r247 | while(1){ | ||
paul
|
r33 | // wait for an RTEMS_EVENT | ||
paul
|
r238 | rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2, | ||
RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); | ||||
paul
|
r179 | ring_node_to_send_cwf = getRingNodeToSendCWF( 1 ); | ||
paul
|
r172 | ring_node_to_send_cwf_f1->sid = SID_SBM1_CWF_F1; | ||
paul
|
r238 | if (lfrCurrentMode == LFR_MODE_SBM1) | ||
paul
|
r227 | { | ||
paul
|
r292 | // data are sent depending on the transition time | ||
if ( time_management_regs->coarse_time >= lastValidEnterModeTime ) | ||||
paul
|
r238 | { | ||
paul
|
r292 | status = rtems_message_queue_send( queue_id, &ring_node_to_send_cwf, sizeof( ring_node* ) ); | ||
paul
|
r238 | } | ||
paul
|
r227 | } | ||
paul
|
r112 | // launch snapshot extraction if needed | ||
paul
|
r238 | if (extractSWF1 == true) | ||
paul
|
r112 | { | ||
paul
|
r179 | ring_node_to_send_swf_f1 = ring_node_to_send_cwf; | ||
paul
|
r112 | // launch the snapshot extraction | ||
paul
|
r238 | status = rtems_event_send( Task_id[TASKID_SWBD], RTEMS_EVENT_MODE_NORM_S1_S2 ); | ||
extractSWF1 = false; | ||||
paul
|
r112 | } | ||
paul
|
r238 | if (swf0_ready_flag_f1 == true) | ||
paul
|
r112 | { | ||
paul
|
r238 | extractSWF1 = true; | ||
swf0_ready_flag_f1 = false; // this step shall be executed only one time | ||||
paul
|
r112 | } | ||
paul
|
r238 | if ((swf1_ready == true) && (swf2_ready == true)) // swf_f1 is ready after the extraction | ||
paul
|
r112 | { | ||
paul
|
r238 | status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_NORMAL ); | ||
swf1_ready = false; | ||||
swf2_ready = false; | ||||
paul
|
r112 | } | ||
paul
|
r32 | } | ||
} | ||||
paul
|
r105 | rtems_task swbd_task(rtems_task_argument argument) | ||
{ | ||||
/** This RTEMS task is dedicated to the building of snapshots from different continuous waveforms buffers. | ||||
* | ||||
* @param unused is the starting argument of the RTEMS task | ||||
* | ||||
*/ | ||||
rtems_event_set event_out; | ||||
paul
|
r181 | unsigned long long int acquisitionTimeF0_asLong; | ||
paul
|
r320 | event_out = EVENT_SETS_NONE_PENDING; | ||
paul
|
r318 | acquisitionTimeF0_asLong = INIT_CHAR; | ||
paul
|
r105 | |||
BOOT_PRINTF("in SWBD ***\n") | ||||
paul
|
r238 | while(1){ | ||
paul
|
r105 | // wait for an RTEMS_EVENT | ||
paul
|
r238 | rtems_event_receive( RTEMS_EVENT_MODE_NORM_S1_S2, | ||
RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); | ||||
if (event_out == RTEMS_EVENT_MODE_NORM_S1_S2) | ||||
paul
|
r106 | { | ||
paul
|
r181 | acquisitionTimeF0_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send_swf_f0->coarseTime ); | ||
paul
|
r319 | build_snapshot_from_ring( ring_node_to_send_swf_f1, CHANNELF1, acquisitionTimeF0_asLong, | ||
paul
|
r238 | &ring_node_swf1_extracted, swf1_extracted ); | ||
swf1_ready = true; // the snapshot has been extracted and is ready to be sent | ||||
paul
|
r106 | } | ||
else | ||||
{ | ||||
PRINTF1("in SWBD *** unexpected rtems event received %x\n", (int) event_out) | ||||
} | ||||
paul
|
r105 | } | ||
} | ||||
paul@pc-solar1.lab-lpp.local
|
r17 | //****************** | ||
// general functions | ||||
paul
|
r87 | |||
paul
|
r139 | void WFP_init_rings( void ) | ||
paul
|
r87 | { | ||
paul
|
r92 | // F0 RING | ||
paul
|
r172 | init_ring( waveform_ring_f0, NB_RING_NODES_F0, wf_buffer_f0, WFRM_BUFFER ); | ||
paul
|
r87 | // F1 RING | ||
paul
|
r172 | init_ring( waveform_ring_f1, NB_RING_NODES_F1, wf_buffer_f1, WFRM_BUFFER ); | ||
paul
|
r87 | // F2 RING | ||
paul
|
r172 | init_ring( waveform_ring_f2, NB_RING_NODES_F2, wf_buffer_f2, WFRM_BUFFER ); | ||
paul
|
r131 | // F3 RING | ||
paul
|
r172 | init_ring( waveform_ring_f3, NB_RING_NODES_F3, wf_buffer_f3, WFRM_BUFFER ); | ||
paul
|
r87 | |||
paul
|
r238 | ring_node_swf1_extracted.buffer_address = (int) swf1_extracted; | ||
ring_node_swf2_extracted.buffer_address = (int) swf2_extracted; | ||||
paul
|
r171 | |||
paul
|
r92 | DEBUG_PRINTF1("waveform_ring_f0 @%x\n", (unsigned int) waveform_ring_f0) | ||
paul
|
r238 | DEBUG_PRINTF1("waveform_ring_f1 @%x\n", (unsigned int) waveform_ring_f1) | ||
DEBUG_PRINTF1("waveform_ring_f2 @%x\n", (unsigned int) waveform_ring_f2) | ||||
DEBUG_PRINTF1("waveform_ring_f3 @%x\n", (unsigned int) waveform_ring_f3) | ||||
DEBUG_PRINTF1("wf_buffer_f0 @%x\n", (unsigned int) wf_buffer_f0) | ||||
DEBUG_PRINTF1("wf_buffer_f1 @%x\n", (unsigned int) wf_buffer_f1) | ||||
DEBUG_PRINTF1("wf_buffer_f2 @%x\n", (unsigned int) wf_buffer_f2) | ||||
DEBUG_PRINTF1("wf_buffer_f3 @%x\n", (unsigned int) wf_buffer_f3) | ||||
paul
|
r172 | |||
paul
|
r131 | } | ||
paul
|
r87 | |||
paul
|
r139 | void WFP_reset_current_ring_nodes( void ) | ||
paul
|
r87 | { | ||
paul
|
r179 | current_ring_node_f0 = waveform_ring_f0[0].next; | ||
current_ring_node_f1 = waveform_ring_f1[0].next; | ||||
current_ring_node_f2 = waveform_ring_f2[0].next; | ||||
current_ring_node_f3 = waveform_ring_f3[0].next; | ||||
paul
|
r92 | |||
paul
|
r179 | ring_node_to_send_swf_f0 = waveform_ring_f0; | ||
paul
|
r171 | ring_node_to_send_swf_f1 = waveform_ring_f1; | ||
ring_node_to_send_swf_f2 = waveform_ring_f2; | ||||
paul
|
r131 | |||
paul
|
r179 | ring_node_to_send_cwf_f1 = waveform_ring_f1; | ||
ring_node_to_send_cwf_f2 = waveform_ring_f2; | ||||
paul
|
r171 | ring_node_to_send_cwf_f3 = waveform_ring_f3; | ||
paul@pc-solar1.lab-lpp.local
|
r18 | } | ||
paul
|
r172 | int send_waveform_CWF3_light( ring_node *ring_node_to_send, ring_node *ring_node_cwf3_light, rtems_id queue_id ) | ||
paul
|
r38 | { | ||
paul
|
r40 | /** This function sends CWF_F3 CCSDS packets without the b1, b2 and b3 data. | ||
* | ||||
* @param waveform points to the buffer containing the data that will be send. | ||||
* @param headerCWF points to a table of headers that have been prepared for the data transmission. | ||||
* @param queue_id is the id of the rtems queue to which spw_ioctl_pkt_send structures will be send. The structures | ||||
* contain information to setup the transmission of the data packets. | ||||
* | ||||
* By default, CWF_F3 packet are send without the b1, b2 and b3 data. This function rebuilds a data buffer | ||||
* from the incoming data and sends it in 7 packets, 6 containing 340 blocks and 1 one containing 8 blocks. | ||||
* | ||||
*/ | ||||
paul
|
r38 | unsigned int i; | ||
paul
|
r318 | unsigned int j; | ||
paul
|
r38 | int ret; | ||
rtems_status_code status; | ||||
paul
|
r179 | |||
paul
|
r38 | char *sample; | ||
paul
|
r171 | int *dataPtr; | ||
paul
|
r38 | |||
ret = LFR_DEFAULT; | ||||
paul
|
r171 | dataPtr = (int*) ring_node_to_send->buffer_address; | ||
paul
|
r172 | ring_node_cwf3_light->coarseTime = ring_node_to_send->coarseTime; | ||
ring_node_cwf3_light->fineTime = ring_node_to_send->fineTime; | ||||
paul
|
r38 | //********************** | ||
// BUILD CWF3_light DATA | ||||
paul
|
r93 | for ( i=0; i< NB_SAMPLES_PER_SNAPSHOT; i++) | ||
paul
|
r38 | { | ||
paul
|
r171 | sample = (char*) &dataPtr[ (i * NB_WORDS_SWF_BLK) ]; | ||
paul
|
r318 | for (j=0; j < CWF_BLK_SIZE; j++) | ||
{ | ||||
wf_cont_f3_light[ (i * NB_BYTES_CWF3_LIGHT_BLK) + j] = sample[ j ]; | ||||
} | ||||
paul
|
r38 | } | ||
paul
|
r172 | // SEND PACKET | ||
status = rtems_message_queue_send( queue_id, &ring_node_cwf3_light, sizeof( ring_node* ) ); | ||||
if (status != RTEMS_SUCCESSFUL) { | ||||
ret = LFR_DEFAULT; | ||||
paul
|
r38 | } | ||
return ret; | ||||
} | ||||
paul
|
r135 | void compute_acquisition_time( unsigned int coarseTime, unsigned int fineTime, | ||
unsigned int sid, unsigned char pa_lfr_pkt_nr, unsigned char * acquisitionTime ) | ||||
{ | ||||
unsigned long long int acquisitionTimeAsLong; | ||||
paul
|
r318 | unsigned char localAcquisitionTime[BYTES_PER_TIME]; | ||
paul
|
r135 | double deltaT; | ||
paul
|
r318 | deltaT = INIT_FLOAT; | ||
paul
|
r135 | |||
paul
|
r318 | localAcquisitionTime[BYTE_0] = (unsigned char) ( coarseTime >> SHIFT_3_BYTES ); | ||
localAcquisitionTime[BYTE_1] = (unsigned char) ( coarseTime >> SHIFT_2_BYTES ); | ||||
localAcquisitionTime[BYTE_2] = (unsigned char) ( coarseTime >> SHIFT_1_BYTE ); | ||||
localAcquisitionTime[BYTE_3] = (unsigned char) ( coarseTime ); | ||||
localAcquisitionTime[BYTE_4] = (unsigned char) ( fineTime >> SHIFT_1_BYTE ); | ||||
localAcquisitionTime[BYTE_5] = (unsigned char) ( fineTime ); | ||||
paul
|
r135 | |||
paul
|
r318 | acquisitionTimeAsLong = ( (unsigned long long int) localAcquisitionTime[BYTE_0] << SHIFT_5_BYTES ) | ||
+ ( (unsigned long long int) localAcquisitionTime[BYTE_1] << SHIFT_4_BYTES ) | ||||
+ ( (unsigned long long int) localAcquisitionTime[BYTE_2] << SHIFT_3_BYTES ) | ||||
+ ( (unsigned long long int) localAcquisitionTime[BYTE_3] << SHIFT_2_BYTES ) | ||||
+ ( (unsigned long long int) localAcquisitionTime[BYTE_4] << SHIFT_1_BYTE ) | ||||
+ ( (unsigned long long int) localAcquisitionTime[BYTE_5] ); | ||||
paul
|
r135 | |||
switch( sid ) | ||||
{ | ||||
case SID_NORM_SWF_F0: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * T0_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
case SID_NORM_SWF_F1: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * T1_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
case SID_NORM_SWF_F2: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * T2_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
case SID_SBM1_CWF_F1: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * T1_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
case SID_SBM2_CWF_F2: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * T2_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
case SID_BURST_CWF_F2: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * T2_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
case SID_NORM_CWF_F3: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF_SHORT_F3 * T3_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
case SID_NORM_CWF_LONG_F3: | ||||
paul
|
r318 | deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * T3_IN_FINETIME ; | ||
paul
|
r135 | break; | ||
default: | ||||
paul
|
r172 | PRINTF1("in compute_acquisition_time *** ERR unexpected sid %d\n", sid) | ||
paul
|
r238 | deltaT = 0.; | ||
paul
|
r135 | break; | ||
} | ||||
acquisitionTimeAsLong = acquisitionTimeAsLong + (unsigned long long int) deltaT; | ||||
// | ||||
paul
|
r318 | acquisitionTime[BYTE_0] = (unsigned char) (acquisitionTimeAsLong >> SHIFT_5_BYTES); | ||
acquisitionTime[BYTE_1] = (unsigned char) (acquisitionTimeAsLong >> SHIFT_4_BYTES); | ||||
acquisitionTime[BYTE_2] = (unsigned char) (acquisitionTimeAsLong >> SHIFT_3_BYTES); | ||||
acquisitionTime[BYTE_3] = (unsigned char) (acquisitionTimeAsLong >> SHIFT_2_BYTES); | ||||
acquisitionTime[BYTE_4] = (unsigned char) (acquisitionTimeAsLong >> SHIFT_1_BYTE ); | ||||
acquisitionTime[BYTE_5] = (unsigned char) (acquisitionTimeAsLong ); | ||||
paul
|
r135 | |||
} | ||||
paul
|
r238 | void build_snapshot_from_ring( ring_node *ring_node_to_send, | ||
unsigned char frequencyChannel, | ||||
unsigned long long int acquisitionTimeF0_asLong, | ||||
ring_node *ring_node_swf_extracted, | ||||
int *swf_extracted) | ||||
paul
|
r105 | { | ||
unsigned int i; | ||||
paul
|
r319 | unsigned int node; | ||
paul
|
r105 | unsigned long long int centerTime_asLong; | ||
paul
|
r106 | unsigned long long int acquisitionTime_asLong; | ||
unsigned long long int bufferAcquisitionTime_asLong; | ||||
paul
|
r105 | unsigned char *ptr1; | ||
unsigned char *ptr2; | ||||
paul
|
r147 | unsigned char *timeCharPtr; | ||
paul
|
r106 | unsigned char nb_ring_nodes; | ||
unsigned long long int frequency_asLong; | ||||
unsigned long long int nbTicksPerSample_asLong; | ||||
unsigned long long int nbSamplesPart1_asLong; | ||||
unsigned long long int sampleOffset_asLong; | ||||
paul
|
r105 | |||
paul
|
r106 | unsigned int deltaT_F0; | ||
unsigned int deltaT_F1; | ||||
unsigned long long int deltaT_F2; | ||||
paul
|
r105 | |||
paul
|
r318 | deltaT_F0 = DELTAT_F0; | ||
deltaT_F1 = DELTAF_F1; | ||||
deltaT_F2 = DELTAF_F2; | ||||
sampleOffset_asLong = INIT_CHAR; | ||||
paul
|
r105 | |||
paul
|
r181 | // (1) get the f0 acquisition time => the value is passed in argument | ||
paul
|
r106 | |||
paul
|
r110 | // (2) compute the central reference time | ||
paul
|
r106 | centerTime_asLong = acquisitionTimeF0_asLong + deltaT_F0; | ||
paul
|
r320 | acquisitionTime_asLong = centerTime_asLong; //set to default value (Don_Initialisation_P2) | ||
bufferAcquisitionTime_asLong = centerTime_asLong; //set to default value (Don_Initialisation_P2) | ||||
nbTicksPerSample_asLong = TICKS_PER_T2; //set to default value (Don_Initialisation_P2) | ||||
paul
|
r105 | |||
paul
|
r110 | // (3) compute the acquisition time of the current snapshot | ||
paul
|
r106 | switch(frequencyChannel) | ||
{ | ||||
paul
|
r318 | case CHANNELF1: // 1 is for F1 = 4096 Hz | ||
paul
|
r106 | acquisitionTime_asLong = centerTime_asLong - deltaT_F1; | ||
nb_ring_nodes = NB_RING_NODES_F1; | ||||
paul
|
r318 | frequency_asLong = FREQ_F1; | ||
nbTicksPerSample_asLong = TICKS_PER_T1; // 65536 / 4096; | ||||
paul
|
r106 | break; | ||
paul
|
r318 | case CHANNELF2: // 2 is for F2 = 256 Hz | ||
paul
|
r106 | acquisitionTime_asLong = centerTime_asLong - deltaT_F2; | ||
nb_ring_nodes = NB_RING_NODES_F2; | ||||
paul
|
r318 | frequency_asLong = FREQ_F2; | ||
nbTicksPerSample_asLong = TICKS_PER_T2; // 65536 / 256; | ||||
paul
|
r106 | break; | ||
default: | ||||
acquisitionTime_asLong = centerTime_asLong; | ||||
paul
|
r319 | nb_ring_nodes = 0; | ||
paul
|
r318 | frequency_asLong = FREQ_F2; | ||
nbTicksPerSample_asLong = TICKS_PER_T2; | ||||
paul
|
r106 | break; | ||
} | ||||
paul
|
r105 | |||
paul
|
r319 | //***************************************************************************** | ||
paul
|
r110 | // (4) search the ring_node with the acquisition time <= acquisitionTime_asLong | ||
paul
|
r319 | node = 0; | ||
while ( node < nb_ring_nodes) | ||||
paul
|
r106 | { | ||
paul
|
r319 | //PRINTF1("%d ... ", node); | ||
bufferAcquisitionTime_asLong = get_acquisition_time( (unsigned char *) &ring_node_to_send->coarseTime ); | ||||
paul
|
r106 | if (bufferAcquisitionTime_asLong <= acquisitionTime_asLong) | ||
{ | ||||
paul
|
r246 | //PRINTF1("buffer found with acquisition time = %llx\n", bufferAcquisitionTime_asLong); | ||
paul
|
r319 | node = nb_ring_nodes; | ||
paul
|
r106 | } | ||
paul
|
r319 | else | ||
{ | ||||
node = node + 1; | ||||
ring_node_to_send = ring_node_to_send->previous; | ||||
} | ||||
paul
|
r106 | } | ||
paul
|
r105 | |||
paul
|
r110 | // (5) compute the number of samples to take in the current buffer | ||
paul
|
r318 | sampleOffset_asLong = ((acquisitionTime_asLong - bufferAcquisitionTime_asLong) * frequency_asLong ) >> SHIFT_2_BYTES; | ||
paul
|
r106 | nbSamplesPart1_asLong = NB_SAMPLES_PER_SNAPSHOT - sampleOffset_asLong; | ||
paul
|
r246 | //PRINTF2("sampleOffset_asLong = %lld, nbSamplesPart1_asLong = %lld\n", sampleOffset_asLong, nbSamplesPart1_asLong); | ||
paul
|
r105 | |||
paul
|
r318 | // (6) compute the final acquisition time | ||
acquisitionTime_asLong = bufferAcquisitionTime_asLong + | ||||
(sampleOffset_asLong * nbTicksPerSample_asLong); | ||||
paul
|
r105 | |||
paul
|
r110 | // (7) copy the acquisition time at the beginning of the extrated snapshot | ||
paul
|
r106 | ptr1 = (unsigned char*) &acquisitionTime_asLong; | ||
paul
|
r171 | // fine time | ||
paul
|
r238 | ptr2 = (unsigned char*) &ring_node_swf_extracted->fineTime; | ||
paul
|
r318 | ptr2[BYTE_2] = ptr1[ BYTE_4 + OFFSET_2_BYTES ]; | ||
ptr2[BYTE_3] = ptr1[ BYTE_5 + OFFSET_2_BYTES ]; | ||||
paul
|
r171 | // coarse time | ||
paul
|
r238 | ptr2 = (unsigned char*) &ring_node_swf_extracted->coarseTime; | ||
paul
|
r318 | ptr2[BYTE_0] = ptr1[ BYTE_0 + OFFSET_2_BYTES ]; | ||
ptr2[BYTE_1] = ptr1[ BYTE_1 + OFFSET_2_BYTES ]; | ||||
ptr2[BYTE_2] = ptr1[ BYTE_2 + OFFSET_2_BYTES ]; | ||||
ptr2[BYTE_3] = ptr1[ BYTE_3 + OFFSET_2_BYTES ]; | ||||
paul
|
r105 | |||
paul
|
r106 | // re set the synchronization bit | ||
paul
|
r171 | timeCharPtr = (unsigned char*) &ring_node_to_send->coarseTime; | ||
paul
|
r318 | ptr2[0] = ptr2[0] | (timeCharPtr[0] & SYNC_BIT); // [1000 0000] | ||
paul
|
r106 | |||
paul
|
r147 | if ( (nbSamplesPart1_asLong >= NB_SAMPLES_PER_SNAPSHOT) | (nbSamplesPart1_asLong < 0) ) | ||
{ | ||||
nbSamplesPart1_asLong = 0; | ||||
} | ||||
paul
|
r106 | // copy the part 1 of the snapshot in the extracted buffer | ||
for ( i = 0; i < (nbSamplesPart1_asLong * NB_WORDS_SWF_BLK); i++ ) | ||||
{ | ||||
paul
|
r238 | swf_extracted[i] = | ||
paul
|
r171 | ((int*) ring_node_to_send->buffer_address)[ i + (sampleOffset_asLong * NB_WORDS_SWF_BLK) ]; | ||
paul
|
r106 | } | ||
// copy the part 2 of the snapshot in the extracted buffer | ||||
ring_node_to_send = ring_node_to_send->next; | ||||
for ( i = (nbSamplesPart1_asLong * NB_WORDS_SWF_BLK); i < (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK); i++ ) | ||||
paul
|
r105 | { | ||
paul
|
r238 | swf_extracted[i] = | ||
paul
|
r171 | ((int*) ring_node_to_send->buffer_address)[ (i-(nbSamplesPart1_asLong * NB_WORDS_SWF_BLK)) ]; | ||
paul
|
r105 | } | ||
paul
|
r93 | } | ||
paul
|
r38 | |||
paul
|
r257 | double computeCorrection( unsigned char *timePtr ) | ||
paul
|
r135 | { | ||
paul
|
r168 | unsigned long long int acquisitionTime; | ||
unsigned long long int centerTime; | ||||
unsigned long long int previousTick; | ||||
unsigned long long int nextTick; | ||||
unsigned long long int deltaPreviousTick; | ||||
unsigned long long int deltaNextTick; | ||||
paul
|
r246 | double deltaPrevious_ms; | ||
double deltaNext_ms; | ||||
paul
|
r253 | double correctionInF2; | ||
paul
|
r257 | |||
paul
|
r320 | correctionInF2 = 0; //set to default value (Don_Initialisation_P2) | ||
paul
|
r257 | // get acquisition time in fine time ticks | ||
acquisitionTime = get_acquisition_time( timePtr ); | ||||
paul
|
r135 | |||
paul
|
r257 | // compute center time | ||
paul
|
r318 | centerTime = acquisitionTime + DELTAT_F0; // (2048. / 24576. / 2.) * 65536. = 2730.667; | ||
previousTick = centerTime - (centerTime & INT16_ALL_F); | ||||
nextTick = previousTick + TICKS_PER_S; | ||||
paul
|
r168 | |||
paul
|
r257 | deltaPreviousTick = centerTime - previousTick; | ||
deltaNextTick = nextTick - centerTime; | ||||
paul
|
r135 | |||
paul
|
r318 | deltaPrevious_ms = (((double) deltaPreviousTick) / TICKS_PER_S) * MS_PER_S; | ||
deltaNext_ms = (((double) deltaNextTick) / TICKS_PER_S) * MS_PER_S; | ||||
paul
|
r253 | |||
paul
|
r257 | PRINTF2(" delta previous = %.3f ms, delta next = %.2f ms\n", deltaPrevious_ms, deltaNext_ms); | ||
paul
|
r253 | |||
paul
|
r257 | // which tick is the closest? | ||
if (deltaPreviousTick > deltaNextTick) | ||||
{ | ||||
// the snapshot center is just before the second => increase delta_snapshot | ||||
paul
|
r318 | correctionInF2 = + (deltaNext_ms * FREQ_F2 / MS_PER_S ); | ||
paul
|
r257 | } | ||
else | ||||
{ | ||||
// the snapshot center is just after the second => decrease delta_snapshot | ||||
paul
|
r318 | correctionInF2 = - (deltaPrevious_ms * FREQ_F2 / MS_PER_S ); | ||
paul
|
r257 | } | ||
paul
|
r168 | |||
paul
|
r257 | PRINTF1(" correctionInF2 = %.2f\n", correctionInF2); | ||
return correctionInF2; | ||||
} | ||||
paul
|
r168 | |||
paul
|
r257 | void applyCorrection( double correction ) | ||
{ | ||||
int correctionInt; | ||||
paul
|
r320 | correctionInt = 0; | ||
paul
|
r272 | if (correction >= 0.) | ||
paul
|
r257 | { | ||
paul
|
r318 | if ( (ONE_TICK_CORR_INTERVAL_0_MIN < correction) && (correction < ONE_TICK_CORR_INTERVAL_0_MAX) ) | ||
paul
|
r263 | { | ||
paul
|
r318 | correctionInt = ONE_TICK_CORR; | ||
paul
|
r263 | } | ||
else | ||||
{ | ||||
paul
|
r318 | correctionInt = CORR_MULT * floor(correction); | ||
paul
|
r263 | } | ||
paul
|
r168 | } | ||
else | ||||
{ | ||||
paul
|
r318 | if ( (ONE_TICK_CORR_INTERVAL_1_MIN < correction) && (correction < ONE_TICK_CORR_INTERVAL_1_MAX) ) | ||
paul
|
r263 | { | ||
paul
|
r318 | correctionInt = -ONE_TICK_CORR; | ||
paul
|
r263 | } | ||
else | ||||
{ | ||||
paul
|
r318 | correctionInt = CORR_MULT * ceil(correction); | ||
paul
|
r263 | } | ||
paul
|
r257 | } | ||
waveform_picker_regs->delta_snapshot = waveform_picker_regs->delta_snapshot + correctionInt; | ||||
} | ||||
void snapshot_resynchronization( unsigned char *timePtr ) | ||||
{ | ||||
paul
|
r268 | /** This function compute a correction to apply on delta_snapshot. | ||
* | ||||
* | ||||
* @param timePtr is a pointer to the acquisition time of the snapshot being considered. | ||||
* | ||||
* @return void | ||||
* | ||||
*/ | ||||
paul
|
r318 | static double correction = INIT_FLOAT; | ||
paul
|
r267 | static resynchro_state state = MEASURE; | ||
paul
|
r271 | static unsigned int nbSnapshots = 0; | ||
paul
|
r257 | |||
int correctionInt; | ||||
correctionInt = 0; | ||||
switch (state) | ||||
{ | ||||
paul
|
r267 | case MEASURE: | ||
paul
|
r257 | // ******** | ||
paul
|
r271 | PRINTF1("MEASURE === %d\n", nbSnapshots); | ||
paul
|
r267 | state = CORRECTION; | ||
paul
|
r263 | correction = computeCorrection( timePtr ); | ||
paul
|
r267 | PRINTF1("MEASURE === correction = %.2f\n", correction ); | ||
paul
|
r257 | applyCorrection( correction ); | ||
paul
|
r267 | PRINTF1("MEASURE === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot); | ||
paul
|
r257 | //**** | ||
break; | ||||
paul
|
r267 | case CORRECTION: | ||
paul
|
r257 | //************ | ||
paul
|
r271 | PRINTF1("CORRECTION === %d\n", nbSnapshots); | ||
paul
|
r267 | state = MEASURE; | ||
paul
|
r257 | computeCorrection( timePtr ); | ||
paul
|
r274 | set_wfp_delta_snapshot(); | ||
paul
|
r267 | PRINTF1("CORRECTION === delta_snapshot = %d\n", waveform_picker_regs->delta_snapshot); | ||
paul
|
r257 | //**** | ||
break; | ||||
default: | ||||
break; | ||||
paul
|
r168 | } | ||
paul
|
r271 | |||
nbSnapshots++; | ||||
paul
|
r135 | } | ||
paul@pc-solar1.lab-lpp.local
|
r23 | //************** | ||
// wfp registers | ||||
paul
|
r171 | void reset_wfp_burst_enable( void ) | ||
paul
|
r97 | { | ||
/** This function resets the waveform picker burst_enable register. | ||||
* | ||||
* The burst bits [f2 f1 f0] and the enable bits [f3 f2 f1 f0] are set to 0. | ||||
* | ||||
*/ | ||||
paul
|
r171 | // [1000 000] burst f2, f1, f0 enable f3, f2, f1, f0 | ||
paul
|
r318 | waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable & RST_BITS_RUN_BURST_EN; | ||
paul
|
r97 | } | ||
void reset_wfp_status( void ) | ||||
{ | ||||
/** This function resets the waveform picker status register. | ||||
* | ||||
* All status bits are set to 0 [new_err full_err full]. | ||||
* | ||||
*/ | ||||
paul
|
r318 | waveform_picker_regs->status = INT16_ALL_F; | ||
paul
|
r97 | } | ||
paul
|
r171 | void reset_wfp_buffer_addresses( void ) | ||
{ | ||||
// F0 | ||||
paul
|
r179 | waveform_picker_regs->addr_data_f0_0 = current_ring_node_f0->previous->buffer_address; // 0x08 | ||
waveform_picker_regs->addr_data_f0_1 = current_ring_node_f0->buffer_address; // 0x0c | ||||
paul
|
r171 | // F1 | ||
paul
|
r179 | waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->previous->buffer_address; // 0x10 | ||
waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address; // 0x14 | ||||
paul
|
r171 | // F2 | ||
paul
|
r179 | waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->previous->buffer_address; // 0x18 | ||
waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address; // 0x1c | ||||
paul
|
r171 | // F3 | ||
paul
|
r179 | waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->previous->buffer_address; // 0x20 | ||
waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address; // 0x24 | ||||
paul
|
r171 | } | ||
void reset_waveform_picker_regs( void ) | ||||
paul
|
r97 | { | ||
/** This function resets the waveform picker module registers. | ||||
* | ||||
* The registers affected by this function are located at the following offset addresses: | ||||
* - 0x00 data_shaping | ||||
* - 0x04 run_burst_enable | ||||
* - 0x08 addr_data_f0 | ||||
* - 0x0C addr_data_f1 | ||||
* - 0x10 addr_data_f2 | ||||
* - 0x14 addr_data_f3 | ||||
* - 0x18 status | ||||
* - 0x1C delta_snapshot | ||||
* - 0x20 delta_f0 | ||||
* - 0x24 delta_f0_2 | ||||
paul
|
r256 | * - 0x28 delta_f1 (obsolet parameter) | ||
paul
|
r97 | * - 0x2c delta_f2 | ||
* - 0x30 nb_data_by_buffer | ||||
* - 0x34 nb_snapshot_param | ||||
* - 0x38 start_date | ||||
* - 0x3c nb_word_in_buffer | ||||
* | ||||
*/ | ||||
paul
|
r110 | set_wfp_data_shaping(); // 0x00 *** R1 R0 SP1 SP0 BW | ||
paul
|
r171 | |||
paul
|
r110 | reset_wfp_burst_enable(); // 0x04 *** [run *** burst f2, f1, f0 *** enable f3, f2, f1, f0 ] | ||
paul
|
r171 | |||
reset_wfp_buffer_addresses(); | ||||
paul
|
r110 | reset_wfp_status(); // 0x18 | ||
paul
|
r171 | |||
set_wfp_delta_snapshot(); // 0x1c *** 300 s => 0x12bff | ||||
paul
|
r97 | set_wfp_delta_f0_f0_2(); // 0x20, 0x24 | ||
paul
|
r171 | |||
paul
|
r256 | //the parameter delta_f1 [0x28] is not used anymore | ||
paul
|
r171 | |||
paul
|
r97 | set_wfp_delta_f2(); // 0x2c | ||
paul
|
r171 | |||
paul
|
r256 | DEBUG_PRINTF1("delta_snapshot %x\n", waveform_picker_regs->delta_snapshot); | ||
DEBUG_PRINTF1("delta_f0 %x\n", waveform_picker_regs->delta_f0); | ||||
DEBUG_PRINTF1("delta_f0_2 %x\n", waveform_picker_regs->delta_f0_2); | ||||
DEBUG_PRINTF1("delta_f1 %x\n", waveform_picker_regs->delta_f1); | ||||
DEBUG_PRINTF1("delta_f2 %x\n", waveform_picker_regs->delta_f2); | ||||
// 2688 = 8 * 336 | ||||
paul
|
r318 | waveform_picker_regs->nb_data_by_buffer = DFLT_WFP_NB_DATA_BY_BUFFER; // 0x30 *** 2688 - 1 => nb samples -1 | ||
waveform_picker_regs->snapshot_param = DFLT_WFP_SNAPSHOT_PARAM; // 0x34 *** 2688 => nb samples | ||||
waveform_picker_regs->start_date = COARSE_TIME_MASK; | ||||
paul
|
r171 | // | ||
// coarse time and fine time registers are not initialized, they are volatile | ||||
// | ||||
paul
|
r318 | waveform_picker_regs->buffer_length = DFLT_WFP_BUFFER_LENGTH; // buffer length in burst = 3 * 2688 / 16 = 504 = 0x1f8 | ||
paul
|
r97 | } | ||
void set_wfp_data_shaping( void ) | ||||
paul@pc-solar1.lab-lpp.local
|
r23 | { | ||
paul
|
r40 | /** This function sets the data_shaping register of the waveform picker module. | ||
* | ||||
* The value is read from one field of the parameter_dump_packet structure:\n | ||||
* bw_sp0_sp1_r0_r1 | ||||
* | ||||
*/ | ||||
paul
|
r32 | unsigned char data_shaping; | ||
paul@pc-solar1.lab-lpp.local
|
r23 | // get the parameters for the data shaping [BW SP0 SP1 R0 R1] in sy_lfr_common1 and configure the register | ||
// waveform picker : [R1 R0 SP1 SP0 BW] | ||||
paul
|
r32 | |||
paul
|
r192 | data_shaping = parameter_dump_packet.sy_lfr_common_parameters; | ||
paul
|
r32 | |||
paul@pc-solar1.lab-lpp.local
|
r23 | waveform_picker_regs->data_shaping = | ||
paul
|
r318 | ( (data_shaping & BIT_5) >> SHIFT_5_BITS ) // BW | ||
+ ( (data_shaping & BIT_4) >> SHIFT_3_BITS ) // SP0 | ||||
+ ( (data_shaping & BIT_3) >> 1 ) // SP1 | ||||
+ ( (data_shaping & BIT_2) << 1 ) // R0 | ||||
+ ( (data_shaping & BIT_1) << SHIFT_3_BITS ) // R1 | ||||
+ ( (data_shaping & BIT_0) << SHIFT_5_BITS ); // R2 | ||||
paul@pc-solar1.lab-lpp.local
|
r23 | } | ||
paul
|
r90 | void set_wfp_burst_enable_register( unsigned char mode ) | ||
paul@pc-solar1.lab-lpp.local
|
r23 | { | ||
paul
|
r40 | /** This function sets the waveform picker burst_enable register depending on the mode. | ||
* | ||||
* @param mode is the LFR mode to launch. | ||||
* | ||||
* The burst bits shall be before the enable bits. | ||||
* | ||||
*/ | ||||
paul
|
r90 | // [0000 0000] burst f2, f1, f0 enable f3 f2 f1 f0 | ||
// the burst bits shall be set first, before the enable bits | ||||
switch(mode) { | ||||
paul
|
r238 | case LFR_MODE_NORMAL: | ||
case LFR_MODE_SBM1: | ||||
case LFR_MODE_SBM2: | ||||
paul
|
r318 | waveform_picker_regs->run_burst_enable = RUN_BURST_ENABLE_SBM2; // [0110 0000] enable f2 and f1 burst | ||
paul
|
r238 | waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0f; // [1111] enable f3 f2 f1 f0 | ||
paul
|
r90 | break; | ||
paul
|
r238 | case LFR_MODE_BURST: | ||
paul
|
r318 | waveform_picker_regs->run_burst_enable = RUN_BURST_ENABLE_BURST; // [0100 0000] f2 burst enabled | ||
paul
|
r238 | waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0c; // [1100] enable f3 and f2 | ||
paul
|
r90 | break; | ||
default: | ||||
paul
|
r318 | waveform_picker_regs->run_burst_enable = INIT_CHAR; // [0000 0000] no burst enabled, no waveform enabled | ||
paul
|
r90 | break; | ||
} | ||||
} | ||||
paul
|
r97 | |||
void set_wfp_delta_snapshot( void ) | ||||
paul
|
r90 | { | ||
paul
|
r97 | /** This function sets the delta_snapshot register of the waveform picker module. | ||
paul
|
r90 | * | ||
paul
|
r97 | * The value is read from two (unsigned char) of the parameter_dump_packet structure: | ||
* - sy_lfr_n_swf_p[0] | ||||
* - sy_lfr_n_swf_p[1] | ||||
paul
|
r40 | * | ||
*/ | ||||
paul
|
r97 | unsigned int delta_snapshot; | ||
unsigned int delta_snapshot_in_T2; | ||||
paul
|
r33 | |||
paul
|
r318 | delta_snapshot = (parameter_dump_packet.sy_lfr_n_swf_p[0] * CONST_256) | ||
paul
|
r97 | + parameter_dump_packet.sy_lfr_n_swf_p[1]; | ||
paul
|
r318 | delta_snapshot_in_T2 = delta_snapshot * FREQ_F2; | ||
paul
|
r160 | waveform_picker_regs->delta_snapshot = delta_snapshot_in_T2 - 1; // max 4 bytes | ||
paul
|
r95 | } | ||
paul
|
r97 | void set_wfp_delta_f0_f0_2( void ) | ||
paul
|
r95 | { | ||
paul
|
r97 | unsigned int delta_snapshot; | ||
unsigned int nb_samples_per_snapshot; | ||||
float delta_f0_in_float; | ||||
delta_snapshot = waveform_picker_regs->delta_snapshot; | ||||
paul
|
r318 | nb_samples_per_snapshot = (parameter_dump_packet.sy_lfr_n_swf_l[0] * CONST_256) + parameter_dump_packet.sy_lfr_n_swf_l[1]; | ||
delta_f0_in_float = (nb_samples_per_snapshot / 2.) * ( (1. / FREQ_F2) - (1. / FREQ_F0) ) * FREQ_F2; | ||||
paul
|
r97 | |||
paul
|
r256 | waveform_picker_regs->delta_f0 = delta_snapshot - floor( delta_f0_in_float ); | ||
paul
|
r318 | waveform_picker_regs->delta_f0_2 = DFLT_WFP_DELTA_F0_2; // 48 = 11 0000, max 7 bits | ||
paul
|
r90 | } | ||
paul
|
r95 | |||
paul
|
r97 | void set_wfp_delta_f1( void ) | ||
paul
|
r95 | { | ||
paul
|
r256 | /** Sets the value of the delta_f1 parameter | ||
* | ||||
* @param void | ||||
* | ||||
* @return void | ||||
* | ||||
* delta_f1 is not used, the snapshots are extracted from CWF_F1 waveforms. | ||||
* | ||||
*/ | ||||
paul
|
r97 | unsigned int delta_snapshot; | ||
unsigned int nb_samples_per_snapshot; | ||||
float delta_f1_in_float; | ||||
delta_snapshot = waveform_picker_regs->delta_snapshot; | ||||
paul
|
r318 | nb_samples_per_snapshot = (parameter_dump_packet.sy_lfr_n_swf_l[0] * CONST_256) + parameter_dump_packet.sy_lfr_n_swf_l[1]; | ||
delta_f1_in_float = (nb_samples_per_snapshot / 2.) * ( (1. / FREQ_F2) - (1. / FREQ_F1) ) * FREQ_F2; | ||||
paul
|
r97 | |||
waveform_picker_regs->delta_f1 = delta_snapshot - floor( delta_f1_in_float ); | ||||
paul
|
r95 | } | ||
paul
|
r256 | void set_wfp_delta_f2( void ) // parameter not used, only delta_f0 and delta_f0_2 are used | ||
paul@pc-solar1.lab-lpp.local
|
r23 | { | ||
paul
|
r256 | /** Sets the value of the delta_f2 parameter | ||
* | ||||
* @param void | ||||
* | ||||
* @return void | ||||
* | ||||
* delta_f2 is used only for the first snapshot generation, even when the snapshots are extracted from CWF_F2 | ||||
* waveforms (see lpp_waveform_snapshot_controler.vhd for details). | ||||
* | ||||
*/ | ||||
paul
|
r97 | unsigned int delta_snapshot; | ||
unsigned int nb_samples_per_snapshot; | ||||
paul
|
r40 | |||
paul
|
r97 | delta_snapshot = waveform_picker_regs->delta_snapshot; | ||
paul
|
r318 | nb_samples_per_snapshot = (parameter_dump_packet.sy_lfr_n_swf_l[0] * CONST_256) + parameter_dump_packet.sy_lfr_n_swf_l[1]; | ||
paul
|
r97 | |||
paul
|
r318 | waveform_picker_regs->delta_f2 = delta_snapshot - (nb_samples_per_snapshot / 2) - 1; | ||
paul
|
r90 | } | ||
paul
|
r32 | |||
//***************** | ||||
// local parameters | ||||
paul
|
r133 | |||
void increment_seq_counter_source_id( unsigned char *packet_sequence_control, unsigned int sid ) | ||||
paul
|
r32 | { | ||
paul
|
r133 | /** This function increments the parameter "sequence_cnt" depending on the sid passed in argument. | ||
paul
|
r40 | * | ||
paul
|
r133 | * @param packet_sequence_control is a pointer toward the parameter sequence_cnt to update. | ||
* @param sid is the source identifier of the packet being updated. | ||||
* | ||||
* REQ-LFR-SRS-5240 / SSS-CP-FS-590 | ||||
* The sequence counters shall wrap around from 2^14 to zero. | ||||
* The sequence counter shall start at zero at startup. | ||||
* | ||||
* REQ-LFR-SRS-5239 / SSS-CP-FS-580 | ||||
* All TM_LFR_SCIENCE_ packets are sent to ground, i.e. destination id = 0 | ||||
paul
|
r40 | * | ||
*/ | ||||
paul
|
r56 | unsigned short *sequence_cnt; | ||
unsigned short segmentation_grouping_flag; | ||||
unsigned short new_packet_sequence_control; | ||||
paul
|
r133 | rtems_mode initial_mode_set; | ||
rtems_mode current_mode_set; | ||||
rtems_status_code status; | ||||
paul
|
r56 | |||
paul
|
r320 | initial_mode_set = RTEMS_DEFAULT_MODES; | ||
current_mode_set = RTEMS_DEFAULT_MODES; | ||||
sequence_cnt = NULL; | ||||
paul
|
r133 | //****************************************** | ||
// CHANGE THE MODE OF THE CALLING RTEMS TASK | ||||
status = rtems_task_mode( RTEMS_NO_PREEMPT, RTEMS_PREEMPT_MASK, &initial_mode_set ); | ||||
if ( (sid == SID_NORM_SWF_F0) || (sid == SID_NORM_SWF_F1) || (sid == SID_NORM_SWF_F2) | ||||
|| (sid == SID_NORM_CWF_F3) || (sid == SID_NORM_CWF_LONG_F3) | ||||
|| (sid == SID_BURST_CWF_F2) | ||||
|| (sid == SID_NORM_ASM_F0) || (sid == SID_NORM_ASM_F1) || (sid == SID_NORM_ASM_F2) | ||||
|| (sid == SID_NORM_BP1_F0) || (sid == SID_NORM_BP1_F1) || (sid == SID_NORM_BP1_F2) | ||||
|| (sid == SID_NORM_BP2_F0) || (sid == SID_NORM_BP2_F1) || (sid == SID_NORM_BP2_F2) | ||||
|| (sid == SID_BURST_BP1_F0) || (sid == SID_BURST_BP2_F0) | ||||
|| (sid == SID_BURST_BP1_F1) || (sid == SID_BURST_BP2_F1) ) | ||||
paul
|
r56 | { | ||
paul
|
r128 | sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_NORMAL_BURST; | ||
paul
|
r56 | } | ||
paul
|
r133 | else if ( (sid ==SID_SBM1_CWF_F1) || (sid ==SID_SBM2_CWF_F2) | ||
|| (sid == SID_SBM1_BP1_F0) || (sid == SID_SBM1_BP2_F0) | ||||
|| (sid == SID_SBM2_BP1_F0) || (sid == SID_SBM2_BP2_F0) | ||||
|| (sid == SID_SBM2_BP1_F1) || (sid == SID_SBM2_BP2_F1) ) | ||||
paul
|
r56 | { | ||
paul
|
r128 | sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_SBM1_SBM2; | ||
paul
|
r56 | } | ||
else | ||||
{ | ||||
paul
|
r128 | sequence_cnt = (unsigned short *) NULL; | ||
paul
|
r56 | PRINTF1("in increment_seq_counter_source_id *** ERR apid_destid %d not known\n", sid) | ||
} | ||||
paul
|
r84 | if (sequence_cnt != NULL) | ||
{ | ||||
paul
|
r318 | segmentation_grouping_flag = TM_PACKET_SEQ_CTRL_STANDALONE << SHIFT_1_BYTE; | ||
*sequence_cnt = (*sequence_cnt) & SEQ_CNT_MASK; | ||||
paul
|
r155 | |||
new_packet_sequence_control = segmentation_grouping_flag | (*sequence_cnt) ; | ||||
paul
|
r318 | packet_sequence_control[0] = (unsigned char) (new_packet_sequence_control >> SHIFT_1_BYTE); | ||
paul
|
r155 | packet_sequence_control[1] = (unsigned char) (new_packet_sequence_control ); | ||
paul
|
r128 | // increment the sequence counter | ||
paul
|
r84 | if ( *sequence_cnt < SEQ_CNT_MAX) | ||
{ | ||||
*sequence_cnt = *sequence_cnt + 1; | ||||
} | ||||
else | ||||
{ | ||||
*sequence_cnt = 0; | ||||
} | ||||
paul
|
r56 | } | ||
paul
|
r133 | |||
paul
|
r228 | //************************************* | ||
// RESTORE THE MODE OF THE CALLING TASK | ||||
paul
|
r133 | status = rtems_task_mode( initial_mode_set, RTEMS_PREEMPT_MASK, ¤t_mode_set ); | ||
paul
|
r56 | } | ||