/** 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" //***************** // waveform headers // SWF Header_TM_LFR_SCIENCE_SWF_t headerSWF_F0[7]; Header_TM_LFR_SCIENCE_SWF_t headerSWF_F1[7]; Header_TM_LFR_SCIENCE_SWF_t headerSWF_F2[7]; // CWF Header_TM_LFR_SCIENCE_CWF_t headerCWF_F1[ NB_PACKETS_PER_GROUP_OF_CWF ]; Header_TM_LFR_SCIENCE_CWF_t headerCWF_F2_BURST[ NB_PACKETS_PER_GROUP_OF_CWF ]; Header_TM_LFR_SCIENCE_CWF_t headerCWF_F2_SBM2[ NB_PACKETS_PER_GROUP_OF_CWF ]; Header_TM_LFR_SCIENCE_CWF_t headerCWF_F3[ NB_PACKETS_PER_GROUP_OF_CWF ]; Header_TM_LFR_SCIENCE_CWF_t headerCWF_F3_light[ NB_PACKETS_PER_GROUP_OF_CWF_LIGHT ]; //************** // waveform ring ring_node waveform_ring_f0[NB_RING_NODES_F0]; ring_node waveform_ring_f1[NB_RING_NODES_F1]; ring_node waveform_ring_f2[NB_RING_NODES_F2]; ring_node waveform_ring_f3[NB_RING_NODES_F3]; ring_node *current_ring_node_f0; ring_node *ring_node_to_send_swf_f0; ring_node *current_ring_node_f1; ring_node *ring_node_to_send_swf_f1; ring_node *ring_node_to_send_cwf_f1; ring_node *current_ring_node_f2; ring_node *ring_node_to_send_swf_f2; ring_node *ring_node_to_send_cwf_f2; ring_node *current_ring_node_f3; ring_node *ring_node_to_send_cwf_f3; bool extractSWF = false; bool swf_f0_ready = false; bool swf_f1_ready = false; bool swf_f2_ready = false; int wf_snap_extracted[ (NB_SAMPLES_PER_SNAPSHOT * NB_WORDS_SWF_BLK) + TIME_OFFSET ]; //********************* // Interrupt SubRoutine void reset_extractSWF( void ) { extractSWF = false; swf_f0_ready = false; swf_f1_ready = false; swf_f2_ready = false; } void change_f0_buffer( void ) { ring_node_to_send_swf_f0 = current_ring_node_f0; current_ring_node_f0 = current_ring_node_f0->next; if ( (waveform_picker_regs->status & 0x01) == 0x01) { 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; } else if ( (waveform_picker_regs->status & 0x02) == 0x02) { 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; } } void change_f1_buffer( ring_node *ring_node_to_send ) { ring_node_to_send = current_ring_node_f1; current_ring_node_f1 = current_ring_node_f1->next; if ( (waveform_picker_regs->status & 0x04) == 0x04) { ring_node_to_send->coarseTime = waveform_picker_regs->f1_0_coarse_time; ring_node_to_send->fineTime = waveform_picker_regs->f1_0_fine_time; waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->buffer_address; } else if ( (waveform_picker_regs->status & 0x08) == 0x08) { ring_node_to_send->coarseTime = waveform_picker_regs->f1_1_coarse_time; ring_node_to_send->fineTime = waveform_picker_regs->f1_1_fine_time; waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address; } } void change_f2_buffer( ring_node *ring_node_to_send ) { ring_node_to_send = current_ring_node_f2; current_ring_node_f2 = current_ring_node_f2->next; if ( (waveform_picker_regs->status & 0x10) == 0x10) { ring_node_to_send->coarseTime = waveform_picker_regs->f2_0_coarse_time; ring_node_to_send->fineTime = waveform_picker_regs->f2_0_fine_time; waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address; } else if ( (waveform_picker_regs->status & 0x20) == 0x20) { ring_node_to_send->coarseTime = waveform_picker_regs->f2_1_coarse_time; ring_node_to_send->fineTime = waveform_picker_regs->f2_1_fine_time; waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address; } } void waveforms_isr_f3( void ) { 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 if ((waveform_picker_regs->status & 0x40) == 0x40){ // [0100 0000] f3 buffer 0 is full // (1) change the receiving buffer for the waveform picker ring_node_to_send_cwf_f3 = current_ring_node_f3; current_ring_node_f3 = current_ring_node_f3->next; waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->buffer_address; // (2) send an event for the waveforms transmission if (rtems_event_send( Task_id[TASKID_CWF3], RTEMS_EVENT_0 ) != RTEMS_SUCCESSFUL) { spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_2 ); } rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_2); waveform_picker_regs->status = waveform_picker_regs->status & 0xffff77bf; // reset f3 bits to 0, [0111 0111 1011 1111] } else if ((waveform_picker_regs->status & 0x80) == 0x80){ // [1000 0000] f3 buffer 1 is full // (1) change the receiving buffer for the waveform picker ring_node_to_send_cwf_f3 = current_ring_node_f3; current_ring_node_f3 = current_ring_node_f3->next; waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address; // (2) send an event for the waveforms transmission if (rtems_event_send( Task_id[TASKID_CWF3], RTEMS_EVENT_0 ) != RTEMS_SUCCESSFUL) { spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_2 ); } rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_2); waveform_picker_regs->status = waveform_picker_regs->status & 0xffff777f; // reset f3 bits to 0, [0111 0111 0111 1111] } } } void waveforms_isr_normal( void ) { rtems_status_code status; if ( ( (waveform_picker_regs->status & 0x30) != 0x00 ) // [0011 0000] check the f2 full bits || ( (waveform_picker_regs->status & 0x0c) != 0x00 ) // [0000 1100] check the f1 full bits || ( (waveform_picker_regs->status & 0x03) != 0x00 )) // [0000 0011] check the f0 full bits { // change F0 ring node change_f0_buffer(); // change F1 ring node change_f1_buffer( ring_node_to_send_swf_f1 ); // change F2 ring node change_f2_buffer( ring_node_to_send_swf_f2 ); // status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_NORMAL ); if ( status != RTEMS_SUCCESSFUL) { status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_2 ); } // update status bits except f3 bits waveform_picker_regs->status = waveform_picker_regs->status & 0xffff00c0; // [1000 1000 1100 0000] } } void waveforms_isr_burst( void ) { rtems_status_code spare_status; if ( (waveform_picker_regs->status & 0x30) != 0 ){ // [0100] check the f2 full bit // (1) change the receiving buffer for the waveform picker change_f2_buffer( ring_node_to_send_cwf_f2 ); // (2) send an event for the waveforms transmission 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_2 ); } // update f2 status bits only waveform_picker_regs->status = waveform_picker_regs->status & 0xffffbbcf; // [1011 1011 1100 1111] f2 bit = 0 } } void waveforms_isr_sbm1( void ) { rtems_status_code status; rtems_status_code spare_status; //*** // F1 if ( (waveform_picker_regs->status & 0x02) == 0x02 ) { // [0010] check the f1 full bit // (1) change the receiving buffer for the waveform picker change_f1_buffer( ring_node_to_send_cwf_f1 ); // (2) send an event for the the CWF1 task for transmission (and snapshot extraction if needed) status = rtems_event_send( Task_id[TASKID_CWF1], RTEMS_EVENT_MODE_SBM1 ); waveform_picker_regs->status = waveform_picker_regs->status & 0xfffffddd; // [1111 1101 1101 1101] f1 bits = 0 } //*** // F0 if ( (waveform_picker_regs->status & 0x03) != 0x00 ) { // [0000 0011] one f0 buffer is full swf_f0_ready = true; change_f0_buffer(); } //*** // F2 if ( (waveform_picker_regs->status & 0x04) == 0x04 ) { // [0100] check the f2 full bit swf_f2_ready = true; change_f2_buffer( ring_node_to_send_swf_f2 ); if (rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_NORMAL ) != RTEMS_SUCCESSFUL) { spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_2 ); } } } void waveforms_isr_sbm2( void ) { rtems_status_code status; if ( (waveform_picker_regs->status & 0x04) == 0x04 ){ // [0100] check the f2 full bit // (1) change the receiving buffer for the waveform picker change_f2_buffer( ring_node_to_send_cwf_f2 ); // (2) send an event for the waveforms transmission status = rtems_event_send( Task_id[TASKID_CWF2], RTEMS_EVENT_MODE_SBM2 ); waveform_picker_regs->status = waveform_picker_regs->status & 0xfffffbbb; // [1111 1011 1011 1011] f2 bit = 0 } if ( (waveform_picker_regs->status & 0x01) == 0x01 ) { // [0001] check the f0 full bit swf_f0_ready = true; change_f0_buffer(); waveform_picker_regs->status = waveform_picker_regs->status & 0xfffffeee; // [1111 1110 1110 1110] f0 bits = 0 } if ( (waveform_picker_regs->status & 0x02) == 0x02 ) { // [0010] check the f1 full bit swf_f1_ready = true; change_f1_buffer( ring_node_to_send_swf_f1 ); waveform_picker_regs->status = waveform_picker_regs->status & 0xfffffddd; // [1111 1101 1101 1101] f1, f0 bits = 0 } } rtems_isr waveforms_isr( rtems_vector_number vector ) { /** 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. * */ // 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 rtems_status_code spare_status; waveforms_isr_f3(); if ( (waveform_picker_regs->status & 0xff8) != 0x00) // [1000] check the error bits { spare_status = rtems_event_send( Task_id[TASKID_DUMB], RTEMS_EVENT_2 ); } switch(lfrCurrentMode) { //******** // STANDBY case(LFR_MODE_STANDBY): break; //****** // NORMAL case(LFR_MODE_NORMAL): waveforms_isr_normal(); break; //****** // BURST case(LFR_MODE_BURST): waveforms_isr_burst(); break; //***** // SBM1 case(LFR_MODE_SBM1): waveforms_isr_sbm1(); break; //***** // SBM2 case(LFR_MODE_SBM2): waveforms_isr_sbm2(); break; //******** // DEFAULT default: break; } } //************ // RTEMS TASKS rtems_task wfrm_task(rtems_task_argument argument) //used with the waveform picker VHDL IP { /** 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 * */ rtems_event_set event_out; rtems_id queue_id; rtems_status_code status; bool resynchronisationEngaged; resynchronisationEngaged = false; init_header_snapshot_wf_table( SID_NORM_SWF_F0, headerSWF_F0 ); init_header_snapshot_wf_table( SID_NORM_SWF_F1, headerSWF_F1 ); init_header_snapshot_wf_table( SID_NORM_SWF_F2, headerSWF_F2 ); status = get_message_queue_id_send( &queue_id ); if (status != RTEMS_SUCCESSFUL) { PRINTF1("in WFRM *** ERR get_message_queue_id_send %d\n", status) } BOOT_PRINTF("in WFRM ***\n") while(1){ // wait for an RTEMS_EVENT rtems_event_receive(RTEMS_EVENT_MODE_NORMAL | RTEMS_EVENT_MODE_SBM1 | RTEMS_EVENT_MODE_SBM2 | RTEMS_EVENT_MODE_SBM2_WFRM, RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); if(resynchronisationEngaged == false) { // engage resynchronisation snapshot_resynchronization( (unsigned char *) ring_node_to_send_swf_f0->buffer_address); resynchronisationEngaged = true; } else { // reset delta_snapshot to the nominal value PRINTF("no resynchronisation, reset delta_snapshot to the nominal value\n") set_wfp_delta_snapshot(); resynchronisationEngaged = false; } // if (event_out == RTEMS_EVENT_MODE_NORMAL) { DEBUG_PRINTF("WFRM received RTEMS_EVENT_MODE_NORMAL\n") send_waveform_SWF((volatile int*) ring_node_to_send_swf_f0->buffer_address, SID_NORM_SWF_F0, headerSWF_F0, queue_id); send_waveform_SWF((volatile int*) ring_node_to_send_swf_f1->buffer_address, SID_NORM_SWF_F1, headerSWF_F1, queue_id); send_waveform_SWF((volatile int*) ring_node_to_send_swf_f2->buffer_address, SID_NORM_SWF_F2, headerSWF_F2, queue_id); } if (event_out == RTEMS_EVENT_MODE_SBM1) { DEBUG_PRINTF("WFRM received RTEMS_EVENT_MODE_SBM1\n") send_waveform_SWF((volatile int*) ring_node_to_send_swf_f0->buffer_address, SID_NORM_SWF_F0, headerSWF_F0, queue_id); send_waveform_SWF((volatile int*) wf_snap_extracted , SID_NORM_SWF_F1, headerSWF_F1, queue_id); send_waveform_SWF((volatile int*) ring_node_to_send_swf_f2->buffer_address, SID_NORM_SWF_F2, headerSWF_F2, queue_id); } if (event_out == RTEMS_EVENT_MODE_SBM2) { DEBUG_PRINTF("WFRM received RTEMS_EVENT_MODE_SBM2\n") send_waveform_SWF((volatile int*) ring_node_to_send_swf_f0->buffer_address, SID_NORM_SWF_F0, headerSWF_F0, queue_id); send_waveform_SWF((volatile int*) ring_node_to_send_swf_f1->buffer_address, SID_NORM_SWF_F1, headerSWF_F1, queue_id); send_waveform_SWF((volatile int*) wf_snap_extracted , SID_NORM_SWF_F2, headerSWF_F2, queue_id); } } } rtems_task cwf3_task(rtems_task_argument argument) //used with the waveform picker VHDL IP { /** 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 * */ rtems_event_set event_out; rtems_id queue_id; rtems_status_code status; init_header_continuous_wf_table( SID_NORM_CWF_LONG_F3, headerCWF_F3 ); init_header_continuous_cwf3_light_table( headerCWF_F3_light ); status = get_message_queue_id_send( &queue_id ); if (status != RTEMS_SUCCESSFUL) { PRINTF1("in CWF3 *** ERR get_message_queue_id_send %d\n", status) } BOOT_PRINTF("in CWF3 ***\n") while(1){ // wait for an RTEMS_EVENT rtems_event_receive( RTEMS_EVENT_0, RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); if ( (lfrCurrentMode == LFR_MODE_NORMAL) || (lfrCurrentMode == LFR_MODE_SBM1) || (lfrCurrentMode==LFR_MODE_SBM2) ) { if ( (parameter_dump_packet.sy_lfr_n_cwf_long_f3 & 0x01) == 0x01) { PRINTF("send CWF_LONG_F3\n") send_waveform_CWF( (volatile int*) ring_node_to_send_cwf_f3->buffer_address, SID_NORM_CWF_LONG_F3, headerCWF_F3, queue_id ); } else { PRINTF("send CWF_F3 (light)\n") send_waveform_CWF3_light( (volatile int*) ring_node_to_send_cwf_f3->buffer_address, headerCWF_F3_light, queue_id ); } } else { PRINTF1("in CWF3 *** lfrCurrentMode is %d, no data will be sent\n", lfrCurrentMode) } } } rtems_task cwf2_task(rtems_task_argument argument) // ONLY USED IN BURST AND SBM2 { /** 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 * */ rtems_event_set event_out; rtems_id queue_id; rtems_status_code status; init_header_continuous_wf_table( SID_BURST_CWF_F2, headerCWF_F2_BURST ); init_header_continuous_wf_table( SID_SBM2_CWF_F2, headerCWF_F2_SBM2 ); status = get_message_queue_id_send( &queue_id ); if (status != RTEMS_SUCCESSFUL) { PRINTF1("in CWF2 *** ERR get_message_queue_id_send %d\n", status) } BOOT_PRINTF("in CWF2 ***\n") while(1){ // wait for an RTEMS_EVENT rtems_event_receive( RTEMS_EVENT_MODE_BURST | RTEMS_EVENT_MODE_SBM2, RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); if (event_out == RTEMS_EVENT_MODE_BURST) { send_waveform_CWF( (volatile int *) ring_node_to_send_cwf_f2->buffer_address, SID_BURST_CWF_F2, headerCWF_F2_BURST, queue_id ); } if (event_out == RTEMS_EVENT_MODE_SBM2) { send_waveform_CWF( (volatile int *) ring_node_to_send_cwf_f2->buffer_address, SID_SBM2_CWF_F2, headerCWF_F2_SBM2, queue_id ); // launch snapshot extraction if needed if (extractSWF == true) { ring_node_to_send_swf_f2 = ring_node_to_send_cwf_f2; // extract the snapshot build_snapshot_from_ring( ring_node_to_send_swf_f2, 2 ); // send the snapshot when built status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_SBM2 ); extractSWF = false; } if (swf_f0_ready && swf_f1_ready) { extractSWF = true; swf_f0_ready = false; swf_f1_ready = false; } } } } rtems_task cwf1_task(rtems_task_argument argument) // ONLY USED IN SBM1 { /** 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 * */ rtems_event_set event_out; rtems_id queue_id; rtems_status_code status; init_header_continuous_wf_table( SID_SBM1_CWF_F1, headerCWF_F1 ); status = get_message_queue_id_send( &queue_id ); if (status != RTEMS_SUCCESSFUL) { PRINTF1("in CWF1 *** ERR get_message_queue_id_send %d\n", status) } BOOT_PRINTF("in CWF1 ***\n") while(1){ // wait for an RTEMS_EVENT rtems_event_receive( RTEMS_EVENT_MODE_SBM1, RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); send_waveform_CWF( (volatile int*) ring_node_to_send_cwf_f1->buffer_address, SID_SBM1_CWF_F1, headerCWF_F1, queue_id ); // launch snapshot extraction if needed if (extractSWF == true) { ring_node_to_send_swf_f1 = ring_node_to_send_cwf_f1; // launch the snapshot extraction status = rtems_event_send( Task_id[TASKID_SWBD], RTEMS_EVENT_MODE_SBM1 ); extractSWF = false; } if (swf_f0_ready == true) { extractSWF = true; swf_f0_ready = false; // this step shall be executed only one time } if ((swf_f1_ready == true) && (swf_f2_ready == true)) // swf_f1 is ready after the extraction { status = rtems_event_send( Task_id[TASKID_WFRM], RTEMS_EVENT_MODE_SBM1 ); swf_f1_ready = false; swf_f2_ready = false; } } } 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; BOOT_PRINTF("in SWBD ***\n") while(1){ // wait for an RTEMS_EVENT rtems_event_receive( RTEMS_EVENT_MODE_SBM1 | RTEMS_EVENT_MODE_SBM2, RTEMS_WAIT | RTEMS_EVENT_ANY, RTEMS_NO_TIMEOUT, &event_out); if (event_out == RTEMS_EVENT_MODE_SBM1) { build_snapshot_from_ring( ring_node_to_send_swf_f1, 1 ); swf_f1_ready = true; // the snapshot has been extracted and is ready to be sent } else { PRINTF1("in SWBD *** unexpected rtems event received %x\n", (int) event_out) } } } //****************** // general functions void WFP_init_rings( void ) { // F0 RING init_waveform_ring( waveform_ring_f0, NB_RING_NODES_F0, wf_snap_f0 ); // F1 RING init_waveform_ring( waveform_ring_f1, NB_RING_NODES_F1, wf_snap_f1 ); // F2 RING init_waveform_ring( waveform_ring_f2, NB_RING_NODES_F2, wf_snap_f2 ); // F3 RING init_waveform_ring( waveform_ring_f3, NB_RING_NODES_F3, wf_cont_f3 ); DEBUG_PRINTF1("waveform_ring_f0 @%x\n", (unsigned int) waveform_ring_f0) 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) } void init_waveform_ring(ring_node waveform_ring[], unsigned char nbNodes, volatile int wfrm[] ) { unsigned char i; waveform_ring[0].next = (ring_node*) &waveform_ring[ 1 ]; waveform_ring[0].previous = (ring_node*) &waveform_ring[ nbNodes - 1 ]; waveform_ring[0].buffer_address = (int) &wfrm[0]; waveform_ring[nbNodes-1].next = (ring_node*) &waveform_ring[ 0 ]; waveform_ring[nbNodes-1].previous = (ring_node*) &waveform_ring[ nbNodes - 2 ]; waveform_ring[nbNodes-1].buffer_address = (int) &wfrm[ (nbNodes-1) * WFRM_BUFFER ]; for(i=1; i> 8); headerSWF[ i ].packetID[1] = (unsigned char) (APID_TM_SCIENCE_NORMAL_BURST); headerSWF[ i ].packetSequenceControl[0] = TM_PACKET_SEQ_CTRL_STANDALONE; if (i == 6) { headerSWF[ i ].packetLength[0] = (unsigned char) (TM_LEN_SCI_SWF_224 >> 8); headerSWF[ i ].packetLength[1] = (unsigned char) (TM_LEN_SCI_SWF_224 ); headerSWF[ i ].blkNr[0] = (unsigned char) (BLK_NR_224 >> 8); headerSWF[ i ].blkNr[1] = (unsigned char) (BLK_NR_224 ); } else { headerSWF[ i ].packetLength[0] = (unsigned char) (TM_LEN_SCI_SWF_304 >> 8); headerSWF[ i ].packetLength[1] = (unsigned char) (TM_LEN_SCI_SWF_304 ); headerSWF[ i ].blkNr[0] = (unsigned char) (BLK_NR_304 >> 8); headerSWF[ i ].blkNr[1] = (unsigned char) (BLK_NR_304 ); } headerSWF[ i ].packetSequenceControl[1] = TM_PACKET_SEQ_CNT_DEFAULT; headerSWF[ i ].pktCnt = DEFAULT_PKTCNT; // PKT_CNT headerSWF[ i ].pktNr = i+1; // PKT_NR // DATA FIELD HEADER headerSWF[ i ].spare1_pusVersion_spare2 = DEFAULT_SPARE1_PUSVERSION_SPARE2; headerSWF[ i ].serviceType = TM_TYPE_LFR_SCIENCE; // service type headerSWF[ i ].serviceSubType = TM_SUBTYPE_LFR_SCIENCE; // service subtype headerSWF[ i ].destinationID = TM_DESTINATION_ID_GROUND; // AUXILIARY DATA HEADER headerSWF[ i ].time[0] = 0x00; headerSWF[ i ].time[0] = 0x00; headerSWF[ i ].time[0] = 0x00; headerSWF[ i ].time[0] = 0x00; headerSWF[ i ].time[0] = 0x00; headerSWF[ i ].time[0] = 0x00; headerSWF[ i ].sid = sid; headerSWF[ i ].hkBIA = DEFAULT_HKBIA; } return return_value; } int init_header_continuous_wf_table( unsigned int sid, Header_TM_LFR_SCIENCE_CWF_t *headerCWF ) { unsigned int i; int return_value; return_value = LFR_SUCCESSFUL; for (i=0; i> 8); headerCWF[ i ].packetID[1] = (unsigned char) (APID_TM_SCIENCE_SBM1_SBM2); } else { headerCWF[ i ].packetID[0] = (unsigned char) (APID_TM_SCIENCE_NORMAL_BURST >> 8); headerCWF[ i ].packetID[1] = (unsigned char) (APID_TM_SCIENCE_NORMAL_BURST); } headerCWF[ i ].packetSequenceControl[0] = TM_PACKET_SEQ_CTRL_STANDALONE; headerCWF[ i ].packetLength[0] = (unsigned char) (TM_LEN_SCI_CWF_336 >> 8); headerCWF[ i ].packetLength[1] = (unsigned char) (TM_LEN_SCI_CWF_336 ); headerCWF[ i ].blkNr[0] = (unsigned char) (BLK_NR_CWF >> 8); headerCWF[ i ].blkNr[1] = (unsigned char) (BLK_NR_CWF ); headerCWF[ i ].packetSequenceControl[1] = TM_PACKET_SEQ_CNT_DEFAULT; // DATA FIELD HEADER headerCWF[ i ].spare1_pusVersion_spare2 = DEFAULT_SPARE1_PUSVERSION_SPARE2; headerCWF[ i ].serviceType = TM_TYPE_LFR_SCIENCE; // service type headerCWF[ i ].serviceSubType = TM_SUBTYPE_LFR_SCIENCE; // service subtype headerCWF[ i ].destinationID = TM_DESTINATION_ID_GROUND; // AUXILIARY DATA HEADER headerCWF[ i ].sid = sid; headerCWF[ i ].hkBIA = DEFAULT_HKBIA; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; } return return_value; } int init_header_continuous_cwf3_light_table( Header_TM_LFR_SCIENCE_CWF_t *headerCWF ) { unsigned int i; int return_value; return_value = LFR_SUCCESSFUL; for (i=0; i> 8); headerCWF[ i ].packetID[1] = (unsigned char) (APID_TM_SCIENCE_NORMAL_BURST); headerCWF[ i ].packetSequenceControl[0] = TM_PACKET_SEQ_CTRL_STANDALONE; headerCWF[ i ].packetLength[0] = (unsigned char) (TM_LEN_SCI_CWF_672 >> 8); headerCWF[ i ].packetLength[1] = (unsigned char) (TM_LEN_SCI_CWF_672 ); headerCWF[ i ].blkNr[0] = (unsigned char) (BLK_NR_CWF_SHORT_F3 >> 8); headerCWF[ i ].blkNr[1] = (unsigned char) (BLK_NR_CWF_SHORT_F3 ); headerCWF[ i ].packetSequenceControl[1] = TM_PACKET_SEQ_CNT_DEFAULT; // DATA FIELD HEADER headerCWF[ i ].spare1_pusVersion_spare2 = DEFAULT_SPARE1_PUSVERSION_SPARE2; headerCWF[ i ].serviceType = TM_TYPE_LFR_SCIENCE; // service type headerCWF[ i ].serviceSubType = TM_SUBTYPE_LFR_SCIENCE; // service subtype headerCWF[ i ].destinationID = TM_DESTINATION_ID_GROUND; // AUXILIARY DATA HEADER headerCWF[ i ].sid = SID_NORM_CWF_F3; headerCWF[ i ].hkBIA = DEFAULT_HKBIA; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; headerCWF[ i ].time[0] = 0x00; } return return_value; } int send_waveform_SWF( volatile int *waveform, unsigned int sid, Header_TM_LFR_SCIENCE_SWF_t *headerSWF, rtems_id queue_id ) { /** This function sends SWF CCSDS packets (F2, F1 or F0). * * @param waveform points to the buffer containing the data that will be send. * @param sid is the source identifier of the data that will be sent. * @param headerSWF 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. * * One group of 2048 samples is sent as 7 consecutive packets, 6 packets containing 340 blocks and 8 packets containing 8 blocks. * */ unsigned int i; int ret; unsigned int coarseTime; unsigned int fineTime; rtems_status_code status; spw_ioctl_pkt_send spw_ioctl_send_SWF; spw_ioctl_send_SWF.hlen = TM_HEADER_LEN + 4 + 12; // + 4 is for the protocole extra header, + 12 is for the auxiliary header spw_ioctl_send_SWF.options = 0; ret = LFR_DEFAULT; coarseTime = waveform[0]; fineTime = waveform[1]; for (i=0; i<7; i++) // send waveform { spw_ioctl_send_SWF.data = (char*) &waveform[ (i * BLK_NR_304 * NB_WORDS_SWF_BLK) + TIME_OFFSET]; spw_ioctl_send_SWF.hdr = (char*) &headerSWF[ i ]; // BUILD THE DATA if (i==6) { spw_ioctl_send_SWF.dlen = BLK_NR_224 * NB_BYTES_SWF_BLK; } else { spw_ioctl_send_SWF.dlen = BLK_NR_304 * NB_BYTES_SWF_BLK; } // SET PACKET SEQUENCE COUNTER increment_seq_counter_source_id( headerSWF[ i ].packetSequenceControl, sid ); // SET PACKET TIME compute_acquisition_time( coarseTime, fineTime, sid, i, headerSWF[ i ].acquisitionTime ); // headerSWF[ i ].time[0] = headerSWF[ i ].acquisitionTime[0]; headerSWF[ i ].time[1] = headerSWF[ i ].acquisitionTime[1]; headerSWF[ i ].time[2] = headerSWF[ i ].acquisitionTime[2]; headerSWF[ i ].time[3] = headerSWF[ i ].acquisitionTime[3]; headerSWF[ i ].time[4] = headerSWF[ i ].acquisitionTime[4]; headerSWF[ i ].time[5] = headerSWF[ i ].acquisitionTime[5]; // SEND PACKET status = rtems_message_queue_send( queue_id, &spw_ioctl_send_SWF, ACTION_MSG_SPW_IOCTL_SEND_SIZE); if (status != RTEMS_SUCCESSFUL) { printf("%d-%d, ERR %d\n", sid, i, (int) status); ret = LFR_DEFAULT; } rtems_task_wake_after(TIME_BETWEEN_TWO_SWF_PACKETS); // 300 ms between each packet => 7 * 3 = 21 packets => 6.3 seconds } return ret; } int send_waveform_CWF(volatile int *waveform, unsigned int sid, Header_TM_LFR_SCIENCE_CWF_t *headerCWF, rtems_id queue_id) { /** This function sends CWF CCSDS packets (F2, F1 or F0). * * @param waveform points to the buffer containing the data that will be send. * @param sid is the source identifier of the data that will be sent. * @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. * * One group of 2048 samples is sent as 7 consecutive packets, 6 packets containing 340 blocks and 8 packets containing 8 blocks. * */ unsigned int i; int ret; unsigned int coarseTime; unsigned int fineTime; rtems_status_code status; spw_ioctl_pkt_send spw_ioctl_send_CWF; spw_ioctl_send_CWF.hlen = TM_HEADER_LEN + 4 + 10; // + 4 is for the protocole extra header, + 10 is for the auxiliary header spw_ioctl_send_CWF.options = 0; ret = LFR_DEFAULT; coarseTime = waveform[0]; fineTime = waveform[1]; for (i=0; i> 24 ); localAcquisitionTime[1] = (unsigned char) ( coarseTime >> 16 ); localAcquisitionTime[2] = (unsigned char) ( coarseTime >> 8 ); localAcquisitionTime[3] = (unsigned char) ( coarseTime ); localAcquisitionTime[4] = (unsigned char) ( fineTime >> 8 ); localAcquisitionTime[5] = (unsigned char) ( fineTime ); acquisitionTimeAsLong = ( (unsigned long long int) localAcquisitionTime[0] << 40 ) + ( (unsigned long long int) localAcquisitionTime[1] << 32 ) + ( (unsigned long long int) localAcquisitionTime[2] << 24 ) + ( (unsigned long long int) localAcquisitionTime[3] << 16 ) + ( (unsigned long long int) localAcquisitionTime[4] << 8 ) + ( (unsigned long long int) localAcquisitionTime[5] ); switch( sid ) { case SID_NORM_SWF_F0: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 24576. ; break; case SID_NORM_SWF_F1: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 4096. ; break; case SID_NORM_SWF_F2: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_304 * 65536. / 256. ; break; case SID_SBM1_CWF_F1: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 4096. ; break; case SID_SBM2_CWF_F2: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 256. ; break; case SID_BURST_CWF_F2: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 256. ; break; case SID_NORM_CWF_F3: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF_SHORT_F3 * 65536. / 16. ; break; case SID_NORM_CWF_LONG_F3: deltaT = ( (double ) (pa_lfr_pkt_nr) ) * BLK_NR_CWF * 65536. / 16. ; break; default: PRINTF1("in compute_acquisition_time *** ERR unexpected sid %d", sid) deltaT = 0.; break; } acquisitionTimeAsLong = acquisitionTimeAsLong + (unsigned long long int) deltaT; // acquisitionTime[0] = (unsigned char) (acquisitionTimeAsLong >> 40); acquisitionTime[1] = (unsigned char) (acquisitionTimeAsLong >> 32); acquisitionTime[2] = (unsigned char) (acquisitionTimeAsLong >> 24); acquisitionTime[3] = (unsigned char) (acquisitionTimeAsLong >> 16); acquisitionTime[4] = (unsigned char) (acquisitionTimeAsLong >> 8 ); acquisitionTime[5] = (unsigned char) (acquisitionTimeAsLong ); } void build_snapshot_from_ring( ring_node *ring_node_to_send, unsigned char frequencyChannel ) { unsigned int i; unsigned long long int centerTime_asLong; unsigned long long int acquisitionTimeF0_asLong; unsigned long long int acquisitionTime_asLong; unsigned long long int bufferAcquisitionTime_asLong; unsigned char *ptr1; unsigned char *ptr2; unsigned char *timeCharPtr; 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; unsigned int deltaT_F0; unsigned int deltaT_F1; unsigned long long int deltaT_F2; deltaT_F0 = 2731; // (2048. / 24576. / 2.) * 65536. = 2730.667; deltaT_F1 = 16384; // (2048. / 4096. / 2.) * 65536. = 16384; deltaT_F2 = 262144; // (2048. / 256. / 2.) * 65536. = 262144; sampleOffset_asLong = 0x00; // (1) get the f0 acquisition time acquisitionTimeF0_asLong = get_acquisition_time( (unsigned char *) current_ring_node_f0->buffer_address ); // (2) compute the central reference time centerTime_asLong = acquisitionTimeF0_asLong + deltaT_F0; // (3) compute the acquisition time of the current snapshot switch(frequencyChannel) { case 1: // 1 is for F1 = 4096 Hz acquisitionTime_asLong = centerTime_asLong - deltaT_F1; nb_ring_nodes = NB_RING_NODES_F1; frequency_asLong = 4096; nbTicksPerSample_asLong = 16; // 65536 / 4096; break; case 2: // 2 is for F2 = 256 Hz acquisitionTime_asLong = centerTime_asLong - deltaT_F2; nb_ring_nodes = NB_RING_NODES_F2; frequency_asLong = 256; nbTicksPerSample_asLong = 256; // 65536 / 256; break; default: acquisitionTime_asLong = centerTime_asLong; frequency_asLong = 256; nbTicksPerSample_asLong = 256; break; } //**************************************************************************** // (4) search the ring_node with the acquisition time <= acquisitionTime_asLong for (i=0; ibuffer_address ); if (bufferAcquisitionTime_asLong <= acquisitionTime_asLong) { PRINTF1("buffer found with acquisition time = %llx\n", bufferAcquisitionTime_asLong) break; } ring_node_to_send = ring_node_to_send->previous; } // (5) compute the number of samples to take in the current buffer sampleOffset_asLong = ((acquisitionTime_asLong - bufferAcquisitionTime_asLong) * frequency_asLong ) >> 16; nbSamplesPart1_asLong = NB_SAMPLES_PER_SNAPSHOT - sampleOffset_asLong; PRINTF2("sampleOffset_asLong = %llx, nbSamplesPart1_asLong = %llx\n", sampleOffset_asLong, nbSamplesPart1_asLong) // (6) compute the final acquisition time acquisitionTime_asLong = bufferAcquisitionTime_asLong + sampleOffset_asLong * nbTicksPerSample_asLong; // (7) copy the acquisition time at the beginning of the extrated snapshot ptr1 = (unsigned char*) &acquisitionTime_asLong; ptr2 = (unsigned char*) wf_snap_extracted; ptr2[0] = ptr1[ 0 + 2 ]; ptr2[1] = ptr1[ 1 + 2 ]; ptr2[2] = ptr1[ 2 + 2 ]; ptr2[3] = ptr1[ 3 + 2 ]; ptr2[6] = ptr1[ 4 + 2 ]; ptr2[7] = ptr1[ 5 + 2 ]; // re set the synchronization bit timeCharPtr = (unsigned char*) ring_node_to_send->buffer_address; ptr2[0] = ptr2[0] | (timeCharPtr[0] & 0x80); // [1000 0000] if ( (nbSamplesPart1_asLong >= NB_SAMPLES_PER_SNAPSHOT) | (nbSamplesPart1_asLong < 0) ) { nbSamplesPart1_asLong = 0; } // copy the part 1 of the snapshot in the extracted buffer for ( i = 0; i < (nbSamplesPart1_asLong * NB_WORDS_SWF_BLK); i++ ) { wf_snap_extracted[i + TIME_OFFSET] = ((int*) ring_node_to_send->buffer_address)[i + (sampleOffset_asLong * NB_WORDS_SWF_BLK) + TIME_OFFSET]; } // 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++ ) { wf_snap_extracted[i + TIME_OFFSET] = ((int*) ring_node_to_send->buffer_address)[(i-(nbSamplesPart1_asLong * NB_WORDS_SWF_BLK)) + TIME_OFFSET]; } } void snapshot_resynchronization( unsigned char *timePtr ) { 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; unsigned int deltaTickInF2; double deltaPrevious; double deltaNext; acquisitionTime = get_acquisition_time( timePtr ); // compute center time centerTime = acquisitionTime + 2731; // (2048. / 24576. / 2.) * 65536. = 2730.667; previousTick = centerTime - (centerTime & 0xffff); nextTick = previousTick + 65536; deltaPreviousTick = centerTime - previousTick; deltaNextTick = nextTick - centerTime; deltaPrevious = ((double) deltaPreviousTick) / 65536. * 1000.; deltaNext = ((double) deltaNextTick) / 65536. * 1000.; printf("delta previous = %f ms, delta next = %f ms\n", deltaPrevious, deltaNext); printf("delta previous = %llu, delta next = %llu\n", deltaPreviousTick, deltaNextTick); // which tick is the closest if (deltaPreviousTick > deltaNextTick) { deltaTickInF2 = floor( (deltaNext * 256. / 1000.) ); // the division by 2 is important here waveform_picker_regs->delta_snapshot = waveform_picker_regs->delta_snapshot + deltaTickInF2; printf("correction of = + %u\n", deltaTickInF2); } else { deltaTickInF2 = floor( (deltaPrevious * 256. / 1000.) ); // the division by 2 is important here waveform_picker_regs->delta_snapshot = waveform_picker_regs->delta_snapshot - deltaTickInF2; printf("correction of = - %u\n", deltaTickInF2); } } //************** // wfp registers void reset_wfp_burst_enable(void) { /** 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. * */ waveform_picker_regs->run_burst_enable = 0x00; // burst f2, f1, f0 enable f3, f2, f1, f0 } 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]. * */ waveform_picker_regs->status = 0x00; // burst f2, f1, f0 enable f3, f2, f1, f0 } void reset_waveform_picker_regs(void) { /** 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 * - 0x28 delta_f1 * - 0x2c delta_f2 * - 0x30 nb_data_by_buffer * - 0x34 nb_snapshot_param * - 0x38 start_date * - 0x3c nb_word_in_buffer * */ set_wfp_data_shaping(); // 0x00 *** R1 R0 SP1 SP0 BW reset_wfp_burst_enable(); // 0x04 *** [run *** burst f2, f1, f0 *** enable f3, f2, f1, f0 ] waveform_picker_regs->addr_data_f0_0 = current_ring_node_f0->buffer_address; // 0x08 waveform_picker_regs->addr_data_f0_1 = current_ring_node_f0->buffer_address; // 0x0c waveform_picker_regs->addr_data_f1_0 = current_ring_node_f1->buffer_address; // 0x10 waveform_picker_regs->addr_data_f1_1 = current_ring_node_f1->buffer_address; // 0x14 waveform_picker_regs->addr_data_f2_0 = current_ring_node_f2->buffer_address; // 0x18 waveform_picker_regs->addr_data_f2_1 = current_ring_node_f2->buffer_address; // 0x1c waveform_picker_regs->addr_data_f3_0 = current_ring_node_f3->buffer_address; // 0x20 waveform_picker_regs->addr_data_f3_1 = current_ring_node_f3->buffer_address; // 0x24 reset_wfp_status(); // 0x18 // set_wfp_delta_snapshot(); // 0x1c set_wfp_delta_f0_f0_2(); // 0x20, 0x24 set_wfp_delta_f1(); // 0x28 set_wfp_delta_f2(); // 0x2c 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 waveform_picker_regs->nb_data_by_buffer = 0xa7f; // 0x30 *** 2688 - 1 => nb samples -1 waveform_picker_regs->snapshot_param = 0xa80; // 0x34 *** 2688 => nb samples waveform_picker_regs->start_date = 0x00; // 0x38 waveform_picker_regs->buffer_length = 0x1f8; // buffer length in burst = 3 * 2688 / 16 = 504 = 0x1f8 } void set_wfp_data_shaping( void ) { /** 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 * */ unsigned char data_shaping; // 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] data_shaping = parameter_dump_packet.bw_sp0_sp1_r0_r1; waveform_picker_regs->data_shaping = ( (data_shaping & 0x10) >> 4 ) // BW + ( (data_shaping & 0x08) >> 2 ) // SP0 + ( (data_shaping & 0x04) ) // SP1 + ( (data_shaping & 0x02) << 2 ) // R0 + ( (data_shaping & 0x01) << 4 ); // R1 } void set_wfp_burst_enable_register( unsigned char mode ) { /** 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. * */ // [0000 0000] burst f2, f1, f0 enable f3 f2 f1 f0 // the burst bits shall be set first, before the enable bits switch(mode) { case(LFR_MODE_NORMAL): waveform_picker_regs->run_burst_enable = 0x00; // [0000 0000] no burst enable waveform_picker_regs->run_burst_enable = 0x0f; // [0000 1111] enable f3 f2 f1 f0 break; case(LFR_MODE_BURST): waveform_picker_regs->run_burst_enable = 0x40; // [0100 0000] f2 burst enabled // waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x04; // [0100] enable f2 waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0c; // [1100] enable f3 AND f2 break; case(LFR_MODE_SBM1): waveform_picker_regs->run_burst_enable = 0x20; // [0010 0000] f1 burst enabled waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0f; // [1111] enable f3 f2 f1 f0 break; case(LFR_MODE_SBM2): waveform_picker_regs->run_burst_enable = 0x40; // [0100 0000] f2 burst enabled waveform_picker_regs->run_burst_enable = waveform_picker_regs->run_burst_enable | 0x0f; // [1111] enable f3 f2 f1 f0 break; default: waveform_picker_regs->run_burst_enable = 0x00; // [0000 0000] no burst enabled, no waveform enabled break; } } void set_wfp_delta_snapshot( void ) { /** This function sets the delta_snapshot register of the waveform picker module. * * 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] * */ unsigned int delta_snapshot; unsigned int delta_snapshot_in_T2; delta_snapshot = parameter_dump_packet.sy_lfr_n_swf_p[0]*256 + parameter_dump_packet.sy_lfr_n_swf_p[1]; delta_snapshot_in_T2 = delta_snapshot * 256; waveform_picker_regs->delta_snapshot = delta_snapshot_in_T2 - 1; // max 4 bytes } void set_wfp_delta_f0_f0_2( void ) { unsigned int delta_snapshot; unsigned int nb_samples_per_snapshot; float delta_f0_in_float; delta_snapshot = waveform_picker_regs->delta_snapshot; nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1]; delta_f0_in_float =nb_samples_per_snapshot / 2. * ( 1. / 256. - 1. / 24576.) * 256.; waveform_picker_regs->delta_f0 = delta_snapshot - floor( delta_f0_in_float ); waveform_picker_regs->delta_f0_2 = 0x7; // max 7 bits } void set_wfp_delta_f1( void ) { unsigned int delta_snapshot; unsigned int nb_samples_per_snapshot; float delta_f1_in_float; delta_snapshot = waveform_picker_regs->delta_snapshot; nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1]; delta_f1_in_float = nb_samples_per_snapshot / 2. * ( 1. / 256. - 1. / 4096.) * 256.; waveform_picker_regs->delta_f1 = delta_snapshot - floor( delta_f1_in_float ); } void set_wfp_delta_f2() { unsigned int delta_snapshot; unsigned int nb_samples_per_snapshot; delta_snapshot = waveform_picker_regs->delta_snapshot; nb_samples_per_snapshot = parameter_dump_packet.sy_lfr_n_swf_l[0] * 256 + parameter_dump_packet.sy_lfr_n_swf_l[1]; waveform_picker_regs->delta_f2 = delta_snapshot - nb_samples_per_snapshot / 2; } //***************** // local parameters void increment_seq_counter_source_id( unsigned char *packet_sequence_control, unsigned int sid ) { /** This function increments the parameter "sequence_cnt" depending on the sid passed in argument. * * @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 * */ unsigned short *sequence_cnt; unsigned short segmentation_grouping_flag; unsigned short new_packet_sequence_control; rtems_mode initial_mode_set; rtems_mode current_mode_set; rtems_status_code status; //****************************************** // 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) ) { sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_NORMAL_BURST; } 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) ) { sequence_cnt = (unsigned short *) &sequenceCounters_SCIENCE_SBM1_SBM2; } else { sequence_cnt = (unsigned short *) NULL; PRINTF1("in increment_seq_counter_source_id *** ERR apid_destid %d not known\n", sid) } if (sequence_cnt != NULL) { segmentation_grouping_flag = TM_PACKET_SEQ_CTRL_STANDALONE << 8; *sequence_cnt = (*sequence_cnt) & 0x3fff; new_packet_sequence_control = segmentation_grouping_flag | (*sequence_cnt) ; packet_sequence_control[0] = (unsigned char) (new_packet_sequence_control >> 8); packet_sequence_control[1] = (unsigned char) (new_packet_sequence_control ); // increment the sequence counter if ( *sequence_cnt < SEQ_CNT_MAX) { *sequence_cnt = *sequence_cnt + 1; } else { *sequence_cnt = 0; } } //*********************************** // RESET THE MODE OF THE CALLING TASK status = rtems_task_mode( initial_mode_set, RTEMS_PREEMPT_MASK, ¤t_mode_set ); }