FreeCalypso > hg > fc-magnetite
view src/g23m-fad/fad/fad_kerp.c @ 271:e18367b5427e
init.c: applied our necessary FreeCalypso changes to reconstructed Init_Target()
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 06 Aug 2017 18:24:14 +0000 |
parents | 90eb61ecd093 |
children |
line wrap: on
line source
/* +----------------------------------------------------------------------------- | Project : GSM-F&D (8411) | Modul : FAD_KERP +----------------------------------------------------------------------------- | 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 functions for processing | of incomming primitives for the component | Fax Adaptation 3.45 of the mobile station +----------------------------------------------------------------------------- */ #ifndef FAD_KERP_C #define FAD_KERP_C #endif #define ENTITY_FAD /*==== INCLUDES ===================================================*/ #include <string.h> #include "typedefs.h" #include "pconst.cdg" #include "vsi.h" #include "macdef.h" #include "pconst.cdg" #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 "fad.h" #ifdef _TARGET_ #include "ra_l1int.h" #endif /*==== CONST =======================================================*/ /*==== TYPES =======================================================*/ /*==== VAR EXPORT ==================================================*/ /*==== VAR LOCAL ===================================================*/ /*==== FUNCTIONS ===================================================*/ /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_activate_req | +--------------------------------------------------------------------+ PURPOSE : Process primitive FAD_ACTIVATE_REQ received from T30. */ GLOBAL void ker_fad_activate_req (T_FAD_ACTIVATE_REQ *fad_activate_req) { TRACE_EVENT ("ker_fad_activate_req()"); PACCESS (fad_activate_req); /*******************************/ /* * Initialize Shared Fax/Data memory */ fad_data = &fad_data_base[0]; ker_init (); snd_init (); rcv_init (); /* * reset RBM */ rbm_reset (); fad_data_magic_num = FAD_DATA_MAGIC_NUM; /* memory is initialized */ /*******************************/ if (GET_STATE (KER) EQ KER_NULL) { sig_ker_snd_activate_req (fad_activate_req); sbm_init (FRAME_SIZE); rbm_init (fad_activate_req->frames_per_prim); sig_ker_snd_sync_req (FALSE); { PALLOC (fad_activate_cnf, FAD_ACTIVATE_CNF); /* * calculate the RX and TX buffersizes and notify it * to T30 */ fad_activate_cnf->buf_size_rx = fad_activate_req->frames_per_prim * FRAME_SIZE * RBM_PQ_MAX_PRIM; fad_activate_cnf->buf_size_tx = fad_activate_req->frames_per_prim * FRAME_SIZE * SBM_MAX_PRIMS; PSENDX (T30, fad_activate_cnf); } SET_STATE (KER, IDLE); #ifdef _TARGET_ { T_RA_DATATRANS_REQ RA_datatrans_req; l1i_ra_datatrans_req(&RA_datatrans_req); } #endif } PFREE (fad_activate_req); } /* +----------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_deactivate_req | +----------------------------------------------------------------------+ PURPOSE : Process primitive FAD_DEACTIVATE_REQ received from T30. */ GLOBAL void ker_fad_deactivate_req (T_FAD_DEACTIVATE_REQ *fad_deactivate_req) { TRACE_EVENT ("ker_fad_deactivate_req()"); PACCESS (fad_deactivate_req); sig_ker_snd_sync_req (FALSE); rbm_deinit(TRUE); SET_STATE (KER, KER_NULL); { PALLOC (fad_deactivate_cnf, FAD_DEACTIVATE_CNF); PSENDX (T30, fad_deactivate_cnf); } PFREE (fad_deactivate_req); } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_modify_req | +--------------------------------------------------------------------+ PURPOSE : Process primitive FAD_MODIFY_REQ received from T30. */ GLOBAL void ker_fad_modify_req (T_FAD_MODIFY_REQ *fad_modify_req) { TRACE_EVENT ("ker_fad_modify_req()"); PACCESS (fad_modify_req); if (GET_STATE (KER) NEQ KER_NULL) { fad_data->snd.trans_rate = fad_modify_req->trans_rate; fad_data->rcv.FlagFound = 0; TRACE_EVENT_P1("MODIFY %d bps", fad_data->snd.trans_rate); } PFREE (fad_modify_req); } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_data_req | +--------------------------------------------------------------------+ PURPOSE : Process primitive FAD_DATA_REQ received from T30. */ GLOBAL void ker_fad_data_req (T_FAD_DATA_REQ *fad_data_req) { T_SBM *sbm = &fad_data->sbm; USHORT err_cause = 0; #ifdef _SIMULATION_ TRACE_FUNCTION ("ker_fad_data_req()"); #endif PACCESS (fad_data_req); switch (GET_STATE (KER)) { case KER_NULL: err_cause = ERR_LOCAL_DATA_NULL; break; case IDLE: if (fad_data_req->trans_rate EQ R_BCS) { SET_STATE (KER, BCS_REC); sig_ker_snd_preamble_req (fad_data_req); } else { if (fad_data_req->trans_rate EQ R_7200) { sbm->syncCycle = SYNC_CYCLE_7200; sbm->framesUntilSync = (SYNC_CYCLE_7200-1); } else if (fad_data_req->trans_rate EQ R_12000) { sbm->syncCycle = SYNC_CYCLE_12000; sbm->framesUntilSync = (SYNC_CYCLE_12000-1); } SET_STATE (KER, MSG_REC); sig_ker_snd_train_req (fad_data_req, TRUE); } break; case BCS_REC: if (fad_data_req->trans_rate EQ R_BCS) sig_ker_snd_bcs_req (fad_data_req); else err_cause = ERR_LOCAL_MSG_RATE; break; case MSG_REC_TCF: err_cause = ERR_LOCAL_DATA_TCF_SND; break; case MSG_REC: if (fad_data_req->trans_rate NEQ R_BCS) sig_ker_snd_msg_req (fad_data_req); else err_cause = ERR_LOCAL_BCS_RATE; break; case BCS_TRA: if (fad_data_req->trans_rate EQ R_BCS) fad_data->snd.fad_data_req = fad_data_req; /* store data, send later */ break; case MSG_TRA_TCF: err_cause = ERR_LOCAL_DATA_TCF_RCV; break; case MSG_TRA: err_cause = ERR_LOCAL_DATA_MSG; break; default: err_cause = ERR_LOCAL_DATA_UNDEF; break; } if (err_cause) { ker_SetError (err_cause); sig_ker_snd_sync_req (FALSE); SET_STATE (KER, IDLE); PFREE (fad_data_req); } } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_snd_tcf_req | +--------------------------------------------------------------------+ PURPOSE : Process primitive FAD_SND_TCF_REQ received from T30. */ GLOBAL void ker_fad_snd_tcf_req (T_FAD_SND_TCF_REQ *fad_snd_tcf_req) { T_SBM *sbm = &fad_data->sbm; TRACE_FUNCTION ("ker_fad_snd_tcf_req()"); PACCESS (fad_snd_tcf_req); if (GET_STATE (KER) EQ IDLE) { SET_STATE (KER, MSG_REC_TCF); if (fad_snd_tcf_req->trans_rate EQ R_7200) { sbm->syncCycle = SYNC_CYCLE_7200; sbm->framesUntilSync = (SYNC_CYCLE_7200-1); } else if (fad_snd_tcf_req->trans_rate EQ R_12000) { sbm->syncCycle = SYNC_CYCLE_12000; sbm->framesUntilSync = (SYNC_CYCLE_12000-1); } sig_ker_snd_tcf_req (); } PFREE (fad_snd_tcf_req); } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_rcv_tcf_req | +--------------------------------------------------------------------+ PURPOSE : Process primitive FAD_RCV_TCF_REQ received from T30. */ GLOBAL void ker_fad_rcv_tcf_req (T_FAD_RCV_TCF_REQ *fad_rcv_tcf_req) { T_SBM *sbm = &fad_data->sbm; TRACE_FUNCTION ("ker_fad_rcv_tcf_req()"); PACCESS (fad_rcv_tcf_req); if (GET_STATE (KER) EQ IDLE) { if (fad_rcv_tcf_req->trans_rate EQ R_7200) { sbm->syncCycle = SYNC_CYCLE_7200; sbm->framesUntilSync = (SYNC_CYCLE_7200-1); } else if (fad_rcv_tcf_req->trans_rate EQ R_12000) { sbm->syncCycle = SYNC_CYCLE_12000; sbm->framesUntilSync = (SYNC_CYCLE_12000-1); } SET_STATE (KER, MSG_TRA_TCF); sig_ker_rcv_await_tcf_req (); } PFREE (fad_rcv_tcf_req); } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_ready_req | +--------------------------------------------------------------------+ PURPOSE : Process primitive FAD_READY_REQ received from T30. */ GLOBAL void ker_fad_ready_req (T_FAD_READY_REQ *fad_ready_req) { TRACE_FUNCTION ("ker_fad_ready_req()"); PACCESS (fad_ready_req); /* PZ 25.5.99 if (GET_STATE (KER) EQ MSG_TRA) sig_ker_rcv_ready_req (); */ sig_ker_rcv_ready_req (); PFREE (fad_ready_req); } /* +--------------------------------------------------------------------+ | PROJECT : GSM-F&D (8411) MODULE : FAD_KERP | | STATE : code ROUTINE : ker_fad_ignore_req | +--------------------------------------------------------------------+ PURPOSE : Process primitive FAD_IGNORE_REQ received from T30. */ GLOBAL void ker_fad_ignore_req (T_FAD_IGNORE_REQ *fad_ignore_req) { TRACE_FUNCTION ("ker_fad_ignore_req()"); PACCESS (fad_ignore_req); if (GET_STATE (KER) EQ MSG_TRA) fad_data->ker.forward_data = FALSE; PFREE (fad_ignore_req); }