FreeCalypso > hg > fc-magnetite
view src/g23m-fad/fad/fad_sbm.c @ 632:d968a3216ba0
new tangomdm build target
TCS211/Magnetite built for target leonardo runs just fine on the Tango-based
Caramel board, but a more proper tangomdm build target is preferable in order
to better market these Tango modems to prospective commercial customers. The
only differences are in GPIO and MCSI config:
* MCSI is enabled in the tangomdm build config.
* GPIO 1 is loudspeaker amplifier control on Leonardo, but on Tango platforms
it can be used for anything. On Caramel boards this GPIO should be
configured as an output driving high.
* GPIO 2 needs to be configured as Calypso input on Leonardo, but on Tango
platforms it can be used for anything. On Caramel boards this GPIO should be
configured as an output, either high or low is OK.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 04 Jan 2020 19:27:41 +0000 |
parents | 90eb61ecd093 |
children |
line wrap: on
line source
/* +----------------------------------------------------------------------------- | Project : GSM-F&D (8411) | Modul : FAD_SBM +----------------------------------------------------------------------------- | Copyright 2002 Texas Instruments Berlin, AG | All rights reserved. | | This file is confidential and a trade secret of Texas | Instruments Berlin, AG | The receipt of or possession of this file does not convey | any rights to reproduce or disclose its contents or to | manufacture, use, or sell anything it may describe, in | whole, or in part, without the specific written consent of | Texas Instruments Berlin, AG. +----------------------------------------------------------------------------- | Purpose : This Modul defines the send buffer manager for | the component Fax Adaptation 3.45 of the mobile station +----------------------------------------------------------------------------- */ #ifndef FAD_SBM_C #define FAD_SBM_C #endif #define ENTITY_FAD /*==== INCLUDES ===================================================*/ #include <string.h> #include "typedefs.h" #include "pconst.cdg" #include "vsi.h" #include "custom.h" #include "gsm.h" #include "cnf_fad.h" #include "mon_fad.h" #include "prim.h" #include "pei.h" #include "tok.h" #include "ccdapi.h" #include "cl_ribu.h" #include "fad.h" /*==== CONST =======================================================*/ /*==== TYPES =======================================================*/ /*==== VAR EXPORT ==================================================*/ /*==== VAR LOCAL ===================================================*/ /*==== FUNCTIONS ===================================================*/ /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_SBM | | STATE : code ROUTINE : sbm_init | +--------------------------------------------------------------------+ PURPOSE : */ GLOBAL void sbm_init(USHORT frameSize) { T_SBM *sbm = &fad_data->sbm; USHORT n; TRACE_FUNCTION ("sbm_init()"); cl_ribu_init(&sbm->ribu, SBM_PRIMBUF_SIZE); for (n = 0; n < sbm->ribu.depth; n++) sbm->Prim[n].Prim = NULL; sbm->PA = 0; sbm->CurrPrimOff = 0; sbm->CurrPrimLen = 0; sbm->FrameSize = frameSize; fad_data->snd.FD.buf = fad_data->snd.FD_buf; } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_SBM | | STATE : code ROUTINE : sbm_store_prim | +--------------------------------------------------------------------+ PURPOSE : */ GLOBAL void sbm_store_prim(T_SBM_PRIM *sendPrim) { T_SBM *sbm = &fad_data->sbm; #ifdef _SIMULATION_ TRACE_FUNCTION ("sbm_store_prim()"); #endif sbm->Prim[sbm->ribu.wi].Prim = sendPrim; if (!sbm->ribu.filled) /* Initialize new primitive for read out */ { sbm->CurrPrimOff = sendPrim->sdu.o_buf >> 3; sbm->CurrPrimLen = sendPrim->sdu.l_buf >> 3; } cl_ribu_write_index(&sbm->ribu); } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_SBM | | STATE : code ROUTINE : sbm_free_empty_prims| +--------------------------------------------------------------------+ PURPOSE : */ GLOBAL void sbm_free_empty_prims(void) { T_SBM *sbm = &fad_data->sbm; #ifdef _SIMULATION_ TRACE_FUNCTION ("sbm_free_empty_prims()"); #endif while (sbm->PA NEQ sbm->ribu.ri) { PFREE (sbm->Prim[sbm->PA].Prim); sbm->PA++; if (sbm->PA EQ sbm->ribu.depth) sbm->PA = 0; } } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_SBM | | STATE : code ROUTINE : sbm_get_frame | +--------------------------------------------------------------------+ PURPOSE : */ GLOBAL BOOL sbm_get_frame(T_FRAME_DESC *ul_FD, UBYTE reqFrames) { T_SBM *sbm = &fad_data->sbm; USHORT requiredData; BOOL insertSync; #ifdef _SIMULATION_ TRACE_FUNCTION ("sbm_get_frame()"); #endif cl_set_frame_desc_0(ul_FD, NULL, 0); if (!sbm->ribu.filled) /* There is no primitive */ { return FALSE; } insertSync = FALSE; if (sbm->syncCycle NEQ SYNC_CYCLE_NONE) { if (reqFrames > sbm->framesUntilSync) { insertSync = TRUE; reqFrames--; } else sbm->framesUntilSync -= reqFrames; } requiredData = sbm->FrameSize * (USHORT)reqFrames; if (sbm->CurrPrimLen > requiredData) { /* Current primitive holds more than enough data */ cl_set_frame_desc_0(ul_FD, sbm->Prim[sbm->ribu.ri].Prim->sdu.buf + sbm->CurrPrimOff, requiredData); sbm->CurrPrimOff += requiredData; sbm->CurrPrimLen -= requiredData; } else { /* * Current primitive doesn't hold enough data * or just the right amount of data. * -> Switch to next primitive */ /* Take all data from first primitive */ cl_set_frame_desc_0(ul_FD, sbm->Prim[sbm->ribu.ri].Prim->sdu.buf + sbm->CurrPrimOff, sbm->CurrPrimLen); cl_ribu_read_index(&sbm->ribu); /* Switch to next primitive */ if (!sbm->ribu.filled) /* There is no second primitive */ { ul_FD->Adr[1] = (UBYTE *) NULL; ul_FD->Len[1] = 0; sbm->CurrPrimOff = 0; sbm->CurrPrimLen = 0; } else /* Second primitive is available */ { requiredData -= sbm->CurrPrimLen; sbm->CurrPrimOff = sbm->Prim[sbm->ribu.ri].Prim->sdu.o_buf >> 3; sbm->CurrPrimLen = sbm->Prim[sbm->ribu.ri].Prim->sdu.l_buf >> 3; if (requiredData EQ 0) { /* * First primitive was just used up. * We had to switch to next primitive, but don't need data. */ ul_FD->Adr[1] = (UBYTE *) NULL; ul_FD->Len[1] = 0; } else { /* Data from next primitive is required */ ul_FD->Adr[1] = sbm->Prim[sbm->ribu.ri].Prim->sdu.buf + sbm->CurrPrimOff; if (sbm->CurrPrimLen > requiredData) { /* Enough data found in second primitive */ ul_FD->Len[1] = requiredData; sbm->CurrPrimOff += requiredData; sbm->CurrPrimLen -= requiredData; } else { /* Even with the second primitive there are not enough data! */ ul_FD->Len[1] = sbm->CurrPrimLen; /* Second primitive is also emptied, switch to next primitve */ cl_ribu_read_index(&sbm->ribu); if (sbm->ribu.filled) { sbm->CurrPrimOff = sbm->Prim[sbm->ribu.ri].Prim->sdu.o_buf >> 3; sbm->CurrPrimLen = sbm->Prim[sbm->ribu.ri].Prim->sdu.l_buf >> 3; } else { sbm->CurrPrimOff = 0; sbm->CurrPrimLen = 0; } } } } } if ((ul_FD->Len[0]+ul_FD->Len[1]) < requiredData) { /* * If there are not enough data available align the length to 64 bit * align the length to 64 bit boundaries. * This alignment should normally occur at the end of the message phase. * The required data are always a multiple of 64 bits. */ int i, k = 0; int diff = requiredData - (ul_FD->Len[0]+ul_FD->Len[1]); if (ul_FD->Len[1] > 0) k = 1; for (i = 0; i < ul_FD->Len[k]; i++) fad_data->snd.ul_FD_align[i] = ul_FD->Adr[k][i]; for (i = ul_FD->Len[k]; i < ul_FD->Len[k] + diff; i++) fad_data->snd.ul_FD_align[i] = 0; ul_FD->Len[k] += diff; ul_FD->Adr[k] = fad_data->snd.ul_FD_align; } if (insertSync) { USHORT framesUntilSync = sbm->framesUntilSync; USHORT frame_off = 0, i, j; for (i=0; i<2; i++) { for (j=0; j<ul_FD->Len[i]; j+=FRAME_SIZE) { if (framesUntilSync-- EQ 0) { memcpy((char*)&sbm->frames[frame_off], (char*)FR_SEQ_SYNC, FRAME_SIZE); frame_off+=FRAME_SIZE; } memcpy((char*)&sbm->frames[frame_off], (char*)ul_FD->Adr[i], FRAME_SIZE); frame_off+=FRAME_SIZE; sbm->framesUntilSync = sbm->syncCycle - reqFrames + framesUntilSync; } } cl_set_frame_desc_0(ul_FD, sbm->frames, (USHORT)((reqFrames+1)*FRAME_SIZE)); } return TRUE; }