--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/g23m-fad/fad/fad_sndp.c	Sun Jul 15 04:40:46 2018 +0000
@@ -0,0 +1,214 @@
+/*
++-----------------------------------------------------------------------------
+|  Project :  GSM-F&D (8411)
+|  Modul   :  FAD_SNDP
++-----------------------------------------------------------------------------
+|  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_SNDP_C
+#define FAD_SNDP_C
+#endif
+
+#define ENTITY_FAD
+
+/*==== INCLUDES ===================================================*/
+
+#include <string.h>
+#include "typedefs.h"
+#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"
+
+/*==== CONST =======================================================*/
+
+/*==== TYPES =======================================================*/
+
+/*==== VAR EXPORT ==================================================*/
+
+/*==== VAR LOCAL ===================================================*/
+
+/*==== FUNCTIONS ===================================================*/
+
+/*
++--------------------------------------------------------------------+
+| PROJECT : GSM-F&D (8411)             MODULE  : FAD_SNDP            |
+| STATE   : code                       ROUTINE : snd_ra_ready_ind    |
++--------------------------------------------------------------------+
+
+  PURPOSE : Process primitive RA_READY_IND received from RA.
+
+*/
+
+GLOBAL void snd_ra_ready_ind (T_RA_READY_IND *ra_ready_ind)
+{
+  USHORT bytes_to_send;
+
+#ifdef _SIMULATION_
+  TRACE_FUNCTION ("snd_ra_ready_ind()");
+  PACCESS        (ra_ready_ind);
+#endif
+
+  if (GET_STATE(KER) EQ KER_NULL)
+  {
+#ifdef _SIMULATION_
+    PFREE (ra_ready_ind);
+#endif
+    return;
+  }
+
+  bytes_to_send = ra_ready_ind->req_frames * FRAME_SIZE;
+
+  if ((GET_STATE (SND) NEQ SYNC_SND) AND fad_data->snd.reset)
+  {
+    snd_SendReset (bytes_to_send);
+#ifdef _SIMULATION_
+    PFREE (ra_ready_ind);
+#endif
+    return;
+  }
+
+  switch (GET_STATE (SND))
+  {
+    case SYNC_SND:
+      sbm_free_empty_prims();
+      snd_SendSequence (bytes_to_send, FR_SYNC);
+      break;
+
+    case PREAM_SND:
+      if (!snd_SendSequence(bytes_to_send, FR_STATUS))
+      {
+/*
+        TRACE_EVENT ("BCS-REC:PREAM sent - start HDLC");
+*/
+        SET_STATE (SNDSUB, SUB_DATA);
+#ifdef _SIMULATION_
+        snd_BuildStatusFrames(fad_data->snd.fad_data_req, BCS_BUF_LEN);
+#else
+        snd_BuildStatusFrames(fad_data->snd.fad_data_req);
+#endif
+        SET_STATE (SND, BCS_SND);
+      }
+      break;
+
+    case BCS_SND:
+      if (GET_STATE (SNDSUB) NEQ SUB_DATA)
+        break;
+
+#ifdef _SIMULATION_
+      snd_SendBcsData(bytes_to_send);
+#else
+      snd_SendBcsData();
+#endif
+      if (!fad_data->snd.data_to_send)
+      {
+        if (fad_data->snd.fad_data_req->sdu.l_buf)
+        {
+#ifdef _SIMULATION_
+          snd_BuildStatusFrames(fad_data->snd.fad_data_req, BCS_BUF_LEN);
+#else
+          snd_BuildStatusFrames(fad_data->snd.fad_data_req);
+#endif
+        }
+        else
+        {
+/*
+          TRACE_EVENT ("BCS-REC:HDLC sent");
+*/
+          SET_STATE (SNDSUB, SUB_IDLE);
+          PFREE (fad_data->snd.fad_data_req);
+          fad_data->snd.fad_data_req = NULL;
+          sig_snd_ker_data_sent_ind ();
+        }
+      }
+      break;
+
+    case TCF_SND:
+      if (!(snd_SendSequence(bytes_to_send, FR_T4DATA)))
+      {
+        sig_snd_ker_data_sent_ind ();
+/*
+        TRACE_EVENT ("MSG-REC:TCF sent");
+*/
+      }
+      break;
+
+    case TRAIN_SND:
+    case TRAIN_CNF_SND:
+      snd_SendSequence (bytes_to_send, FR_TRAIN);
+      break;
+
+    case MSG_SND:
+      sbm_free_empty_prims();
+
+      if (GET_STATE (SNDSUB) EQ SUB_IDLE)   /* 1st MSG block < threshold */
+      {
+        if (!fad_data->snd.final)
+          if (fad_data->snd.data_to_send < fad_data->snd.threshold)
+          {
+            snd_SendSequence (bytes_to_send, FR_TRAIN);
+            break;
+          }
+        SET_STATE (SNDSUB, SUB_DATA);
+      }
+      if (fad_data->snd.final)
+      {
+        if (!snd_SendMsgData (ra_ready_ind->req_frames))
+        {
+          TRACE_EVENT ("MSG-REC:DATA sent");
+          SET_STATE (SNDSUB, SUB_IDLE);
+          sig_snd_ker_data_sent_ind ();
+#ifdef _SIMULATION_
+          snd_SendSequence(bytes_to_send, FR_SYNC);
+#endif
+        }
+      }
+      else
+      {
+        /* FINAL flag not set */
+
+        if (!snd_SendMsgData (ra_ready_ind->req_frames))
+        {
+          TRACE_EVENT ("MSG-REC:DATA buffer underflow");
+          sig_rcv_ker_error_ind (ERR_LOCAL_DATA_MSG_UFL);
+        }
+        if (    fad_data->snd.send_ready_to_t30
+            AND fad_data->snd.data_to_send < fad_data->snd.threshold)
+          {
+            sig_snd_ker_ready_ind ();
+            fad_data->snd.send_ready_to_t30 = FALSE;
+          }
+      }
+      break;
+
+    default:
+      break;
+  }
+
+#ifdef _SIMULATION_
+  PFREE (ra_ready_ind);
+#endif
+}