--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/g23m-fad/fad/fad_kerp.c	Fri Oct 16 06:25:50 2020 +0000
@@ -0,0 +1,403 @@
+/*
++-----------------------------------------------------------------------------
+|  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);
+}
+
+
+