1b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* ------------------------------------------------------------------ 2b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * Copyright (C) 1998-2009 PacketVideo 3b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 4b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * Licensed under the Apache License, Version 2.0 (the "License"); 5b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * you may not use this file except in compliance with the License. 6b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * You may obtain a copy of the License at 7b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 8b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * http://www.apache.org/licenses/LICENSE-2.0 9b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 10b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * Unless required by applicable law or agreed to in writing, software 11b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * distributed under the License is distributed on an "AS IS" BASIS, 12b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either 13b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * express or implied. 14b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * See the License for the specific language governing permissions 15b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * and limitations under the License. 16b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * ------------------------------------------------------------------- 17b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber */ 18b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/**************************************************************************************** 19b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas HuberPortions of this file are derived from the following 3GPP standard: 20b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 21b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 3GPP TS 26.073 22b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ANSI-C code for the Adaptive Multi-Rate (AMR) speech codec 23b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Available from http://www.3gpp.org 24b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 25b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber(C) 2004, 3GPP Organizational Partners (ARIB, ATIS, CCSA, ETSI, TTA, TTC) 26b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas HuberPermission to distribute, modify and use this file under the standard license 27b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huberterms listed above has been obtained from the copyright holder. 28b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber****************************************************************************************/ 29b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* 30b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 31b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 32b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 33b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 34b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Pathname: ./audio/gsm-amr/c/src/c8_31pf.c 35b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Functions: 36b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 37b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Date: 05/26/2000 38b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 39b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 40b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REVISION HISTORY 41b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 42b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Modified to pass overflow flag through to basic math function. 43b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber The flag is passed back to the calling function by pointer reference. 44b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 45b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Optimized file to reduce clock cycle usage. Updated copyright 46b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber year. Removed unnecessary include files and unused #defines. 47b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 48b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Changed round function name to pv_round to avoid conflict with 49b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber round function in C standard library. 50b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 51b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: Replaced "int" and/or "char" with OSCL defined types. 52b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 53b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Description: 54b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 55b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 56b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber MODULE DESCRIPTION 57b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 58b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Purpose : Searches a 31 bit algebraic codebook containing 59b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber : 8 pulses in a frame of 40 samples. 60b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber : in the same manner as GSM-EFR 61b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 62b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber*/ 63b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 64b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 65b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; INCLUDES 66b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 67b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "c8_31pf.h" 68b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "typedef.h" 69b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "cnst.h" 70b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "inv_sqrt.h" 71b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "cor_h.h" 72b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "cor_h_x2.h" 73b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "set_sign.h" 74b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "s10_8pf.h" 75b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#include "basic_op.h" 76b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 77b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 78b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; MACROS 79b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Define module specific macros here 80b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 81b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 82b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 83b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; DEFINES 84b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Include all pre-processor statements here. Include conditional 85b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; compile variables also. 86b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 87b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#define NB_PULSE 8 88b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 89b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* define values/representation for output codevector and sign */ 90b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#define POS_CODE 8191 91b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#define NEG_CODE 8191 92b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#define POS_SIGN 32767 93b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber#define NEG_SIGN (Word16) (-32768L) 94b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 95b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 96b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; LOCAL FUNCTION DEFINITIONS 97b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Function Prototype declaration 98b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 99b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 100b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 101b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; LOCAL VARIABLE DEFINITIONS 102b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Variable declaration - defined here and used outside this module 103b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 104b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 105b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/*---------------------------------------------------------------------------- 106b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; EXTERNAL GLOBAL STORE/BUFFER/POINTER REFERENCES 107b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber; Declare variables used in this module but defined elsewhere 108b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber----------------------------------------------------------------------------*/ 109b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 110b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* 111b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 112b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION NAME: 113b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 114b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber INPUT AND OUTPUT DEFINITIONS 115b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 116b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Inputs: 117b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber codvec[] Array of type Word16 -- position of pulses 118b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign[] Array of type Word16 -- sign of pulses 119b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber h[] Array of type Word16 -- impulse response of 120b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber weighted synthesis filter 121b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Outputs: 122b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cod[] Array of type Word16 -- innovative code vector 123b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber y[] Array of type Word16 -- filtered innovative code 124b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_indx[] Array of type Word16 -- signs of 4 pulses (signs only) 125b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[] Array of type Word16 -- 126b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber position index of 8 pulses(position only) 127b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 128b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow Pointer to Flag -- set when overflow occurs 129b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 130b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Returns: 131b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx 132b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 133b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Global Variables Used: 134b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 135b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 136b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Local Variables Needed: 137b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 138b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 139b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION DESCRIPTION 140b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 141b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 142b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 143b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REQUIREMENTS 144b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 145b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 146b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 147b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 148b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REFERENCES 149b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 150b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [1] c8_31pf.c, UMTS GSM AMR speech codec, R99 - Version 3.2.0, March 2, 2001 151b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 152b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 153b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PSEUDO-CODE 154b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 155b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 156b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber RESOURCES USED [optional] 157b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 158b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber When the code is written for a specific target processor the 159b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber the resources used should be documented below. 160b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 161b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber HEAP MEMORY USED: x bytes 162b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 163b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STACK MEMORY USED: x bytes 164b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 165b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CLOCK CYCLES: (cycle count equation for this function) + (variable 166b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber used to represent cycle count for each subroutine 167b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber called) 168b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber where: (cycle count variable) = cycle count for [subroutine 169b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber name] 170b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 171b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 172b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CAUTION [optional] 173b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [State any special notes, constraints or cautions for users of this function] 174b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 175b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 176b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber*/ 177b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 178b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/************************************************************************* 179b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 180b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * FUNCTION: build_code() 181b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 182b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * PURPOSE: Builds the codeword, the filtered codeword and a 183b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * linear uncombined version of the index of the 184b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * codevector, based on the signs and positions of 8 pulses. 185b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber * 186b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *************************************************************************/ 187b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 188b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huberstatic void build_code( 189b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 codvec[], /* i : position of pulses */ 190b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sign[], /* i : sign of d[n] */ 191b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 cod[], /* o : innovative code vector */ 192b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 h[], /* i : impulse response of weighted synthesis filter*/ 193b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 y[], /* o : filtered innovative code */ 194b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sign_indx[], /* o : signs of 4 pulses (signs only) */ 195b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 pos_indx[], /* o : position index of 8 pulses(position only) */ 196b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Flag * pOverflow /* o : Flag set when overflow occurs */ 197b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber) 198b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber{ 199b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 i; 200b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 j; 201b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 k; 202b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 track; 203b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sign_index; 204b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 pos_index; 205b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 _sign[NB_PULSE]; 206b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 207b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p0; 208b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p1; 209b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p2; 210b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p3; 211b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p4; 212b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p5; 213b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p6; 214b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p7; 215b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 216b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p_cod = &cod[0]; 217b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p_codvec = &codvec[0]; 218b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 219b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 s; 220b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 221b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = 0; i < L_CODE; i++) 222b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 223b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *(p_cod++) = 0; 224b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 225b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 226b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = 0; i < NB_TRACK_MR102; i++) 227b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 228b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[i] = -1; 229b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_indx[i] = -1; 230b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 231b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 232b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (k = 0; k < NB_PULSE; k++) 233b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 234b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* read pulse position */ 235b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i = codvec[k]; 236b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* read sign */ 237b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber j = sign[i]; 238b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 239b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_index = i >> 2; /* index = pos/4 */ 240b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 241b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber track = i & 3; /* track = pos%4 */ 242b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 243b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (j > 0) 244b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 245b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cod[i] = (Word16)((Word32) cod[i] + POS_CODE); 246b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 247b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[k] = POS_SIGN; 248b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_index = 0; /* bit=0 -> positive pulse */ 249b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 250b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber else 251b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 252b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cod[i] = (Word16)((Word32) cod[i] - NEG_CODE); 253b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 254b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[k] = NEG_SIGN; 255b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_index = 1; /* bit=1 => negative pulse */ 256b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* index = add (index, 8); 1 = negative old code */ 257b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 258b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 259b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (pos_indx[track] < 0) 260b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { /* first set first NB_TRACK pulses */ 261b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[track] = pos_index; 262b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_indx[track] = sign_index; 263b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 264b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber else 265b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { /* 2nd row of pulses , test if positions needs to be switched */ 266b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (((sign_index ^ sign_indx[track]) & 1) == 0) 267b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 268b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* sign of 1st pulse == sign of 2nd pulse */ 269b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 270b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (pos_indx[track] <= pos_index) 271b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { /* no swap */ 272b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[track + NB_TRACK_MR102] = pos_index; 273b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 274b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber else 275b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { /* swap*/ 276b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[track + NB_TRACK_MR102] = pos_indx[track]; 277b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 278b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[track] = pos_index; 279b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_indx[track] = sign_index; 280b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 281b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 282b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber else 283b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 284b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* sign of 1st pulse != sign of 2nd pulse */ 285b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 286b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (pos_indx[track] <= pos_index) 287b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { /*swap*/ 288b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[track + NB_TRACK_MR102] = pos_indx[track]; 289b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 290b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[track] = pos_index; 291b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_indx[track] = sign_index; 292b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 293b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber else 294b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { /*no swap */ 295b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[track + NB_TRACK_MR102] = pos_index; 296b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 297b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 298b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 299b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 300b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 301b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p0 = h - *(p_codvec++); 302b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p1 = h - *(p_codvec++); 303b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p2 = h - *(p_codvec++); 304b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p3 = h - *(p_codvec++); 305b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p4 = h - *(p_codvec++); 306b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p5 = h - *(p_codvec++); 307b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p6 = h - *(p_codvec++); 308b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber p7 = h - *(p_codvec); 309b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 310b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = 0; i < L_CODE; i++) 311b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 312b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 0; 313b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 314b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 315b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 316b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 317b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p0++, 318b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[0], 319b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 320b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 321b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 322b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 323b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p1++, 324b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[1], 325b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 326b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 327b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 328b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 329b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p2++, 330b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[2], 331b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 332b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 333b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 334b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 335b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p3++, 336b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[3], 337b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 338b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 339b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 340b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 341b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p4++, 342b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[4], 343b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 344b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 345b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 346b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 347b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p5++, 348b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[5], 349b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 350b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 351b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 352b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 353b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p6++, 354b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[6], 355b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 356b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s = 357b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber L_mac( 358b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 359b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *p7++, 360b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber _sign[7], 361b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 362b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 363b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber y[i] = 364b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pv_round( 365b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber s, 366b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 367b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 368b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } /* for (i = 0; i < L_CODE; i++) */ 369b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 370b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber} /* build_code */ 371b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 372b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/****************************************************************************/ 373b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 374b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* 375b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 376b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION NAME: compress_code() 377b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 378b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber INPUT AND OUTPUT DEFINITIONS 379b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 380b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Inputs: 381b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 382b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Outputs: 383b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 384b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Returns: 385b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 386b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 387b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Global Variables Used: 388b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 389b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 390b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Local Variables Needed: 391b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 392b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 393b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION DESCRIPTION 394b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 395b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION: 396b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 397b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PURPOSE: compression of three indeces [0..9] to one 10 bit index 398b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber minimizing the phase shift of a bit error. 399b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 400b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 401b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REQUIREMENTS 402b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 403b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 404b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 405b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 406b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REFERENCES 407b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 408b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [1] c8_31pf.c, UMTS GSM AMR speech codec, R99 - Version 3.2.0, March 2, 2001 409b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 410b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 411b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PSEUDO-CODE 412b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 413b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 414b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber RESOURCES USED [optional] 415b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 416b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber When the code is written for a specific target processor the 417b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber the resources used should be documented below. 418b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 419b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber HEAP MEMORY USED: x bytes 420b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 421b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STACK MEMORY USED: x bytes 422b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 423b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CLOCK CYCLES: (cycle count equation for this function) + (variable 424b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber used to represent cycle count for each subroutine 425b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber called) 426b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber where: (cycle count variable) = cycle count for [subroutine 427b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber name] 428b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 429b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 430b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CAUTION [optional] 431b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [State any special notes, constraints or cautions for users of this function] 432b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 433b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 434b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber*/ 435b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 436b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huberstatic Word16 compress10( 437b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 pos_indxA, /* i : signs of 4 pulses (signs only) */ 438b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 pos_indxB, /* i : position index of 8 pulses (pos only) */ 439b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 pos_indxC, /* i : position and sign of 8 pulses (compressed) */ 440b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Flag *pOverflow) /* o : Flag set when overflow occurs */ 441b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber{ 442b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 indx; 443b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 ia; 444b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 ib; 445b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 ic; 446b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 447b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 tempWord32; 448b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 449b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber OSCL_UNUSED_ARG(pOverflow); 450b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 451b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ia = pos_indxA >> 1; 452b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 453b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib = pos_indxB >> 1; 454b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 455b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tempWord32 = ((Word32) ib * 5) << 1; 456b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 457b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tempWord32 = tempWord32 >> 1; 458b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 459b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib = (Word16) tempWord32; 460b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 461b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ic = pos_indxC >> 1; 462b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 463b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tempWord32 = ((Word32) ic * 25) << 1; 464b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 465b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tempWord32 = tempWord32 >> 1; 466b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 467b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ic = (Word16) tempWord32; 468b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 469b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += ic; 470b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 471b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += ia; 472b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 473b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx = ib << 3; 474b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 475b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ia = pos_indxA & 1; 476b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 477b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib = ((Word16)(pos_indxB & 1)) << 1; 478b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 479b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ic = ((Word16)(pos_indxC & 1)) << 2; 480b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 481b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += ic; 482b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 483b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += ia; 484b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 485b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx += ib; 486b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 487b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber return indx; 488b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 489b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber} 490b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 491b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/****************************************************************************/ 492b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 493b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* 494b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 495b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION NAME: compress_code() 496b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 497b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber INPUT AND OUTPUT DEFINITIONS 498b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 499b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Inputs: 500b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign_indx Array of type Word16 -- signs of 4 pulses (signs only) 501b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx Array of type Word16 -- position index of 8 pulses 502b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber (position only) 503b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 504b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Outputs: 505b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx Array of type Word16 -- position and sign of 8 pulses 506b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber (compressed) 507b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow Pointer to Flag -- set when overflow occurs 508b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 509b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Returns: 510b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 511b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 512b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Global Variables Used: 513b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 514b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 515b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Local Variables Needed: 516b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 517b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 518b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 519b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION DESCRIPTION 520b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 521b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PURPOSE: compression of the linear codewords to 4+three indeces 522b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber one bit from each pulse is made robust to errors by 523b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber minimizing the phase shift of a bit error. 524b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 4 signs (one for each track) 525b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i0,i4,i1 => one index (7+3) bits, 3 LSBs more robust 526b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i2,i6,i5 => one index (7+3) bits, 3 LSBs more robust 527b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i3,i7 => one index (5+2) bits, 2-3 LSbs more robust 528b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 529b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 530b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REQUIREMENTS 531b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 532b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 533b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 534b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 535b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REFERENCES 536b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 537b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [1] c3_14pf.c, UMTS GSM AMR speech codec, R99 - Version 3.2.0, March 2, 2001 538b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 539b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 540b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PSEUDO-CODE 541b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 542b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 543b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber RESOURCES USED [optional] 544b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 545b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber When the code is written for a specific target processor the 546b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber the resources used should be documented below. 547b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 548b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber HEAP MEMORY USED: x bytes 549b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 550b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STACK MEMORY USED: x bytes 551b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 552b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CLOCK CYCLES: (cycle count equation for this function) + (variable 553b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber used to represent cycle count for each subroutine 554b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber called) 555b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber where: (cycle count variable) = cycle count for [subroutine 556b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber name] 557b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 558b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 559b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CAUTION [optional] 560b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [State any special notes, constraints or cautions for users of this function] 561b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 562b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 563b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber*/ 564b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 565b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huberstatic void compress_code( 566b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sign_indx[], /* i : signs of 4 pulses (signs only) */ 567b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 pos_indx[], /* i : position index of 8 pulses (position only) */ 568b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 indx[], /* o : position and sign of 8 pulses (compressed) */ 569b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Flag *pOverflow) /* o : Flag set when overflow occurs */ 570b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber{ 571b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 i; 572b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 ia; 573b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 ib; 574b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 ic; 575b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 576b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p_indx = &indx[0]; 577b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 *p_sign_indx = &sign_indx[0]; 578b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 579b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word32 tempWord32; 580b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 581b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber for (i = 0; i < NB_TRACK_MR102; i++) 582b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 583b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber *(p_indx++) = *(p_sign_indx++); 584b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 585b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 586b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* First index 587b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx[NB_TRACK] = (ia/2+(ib/2)*5 +(ic/2)*25)*8 + ia%2 + (ib%2)*2 + (ic%2)*4; */ 588b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 589b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx[NB_TRACK_MR102] = 590b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber compress10( 591b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[0], 592b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[4], 593b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[1], 594b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 595b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 596b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* Second index 597b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx[NB_TRACK+1] = (ia/2+(ib/2)*5 +(ic/2)*25)*8 + ia%2 + (ib%2)*2 + (ic%2)*4; */ 598b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 599b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx[NB_TRACK_MR102+1] = 600b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber compress10( 601b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[2], 602b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[6], 603b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_indx[5], 604b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 605b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 606b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* 607b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Third index 608b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if ((ib/2)%2 == 1) 609b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx[NB_TRACK+2] = ((((4-ia/2) + (ib/2)*5)*32+12)/25)*4 + ia%2 + (ib%2)*2; 610b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber else 611b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx[NB_TRACK+2] = ((((ia/2) + (ib/2)*5)*32+12)/25)*4 + ia%2 + (ib%2)*2; 612b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber */ 613b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 614b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib = pos_indx[7] >> 1; 615b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 616b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib &= 1; 617b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 618b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ia = pos_indx[3] >> 1; 619b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 620b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber if (ib == 1) 621b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber { 622b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ia = 4 - ia; 623b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber } 624b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 625b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib = pos_indx[7] >> 1; 626b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 627b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tempWord32 = ((Word32) ib * 5) << 1; 628b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 629b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber tempWord32 = tempWord32 >> 1; 630b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 631b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib = (Word16) tempWord32; 632b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 633b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += ia; 634b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 635b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib <<= 5; 636b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 637b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += 12; 638b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 639b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ic = (Word16)(((Word32) ib * 1311) >> 15); 640b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 641b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ic <<= 2; 642b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 643b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ia = pos_indx[3] & 1; 644b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 645b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib = ((Word16)(pos_indx[7] & 1)) << 1; 646b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 647b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += ic; 648b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 649b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ib += ia; 650b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 651b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx[NB_TRACK_MR102+2] = ib; 652b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 653b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber} /* compress_code */ 654b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 655b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 656b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/****************************************************************************/ 657b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 658b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber/* 659b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 660b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION NAME: code_8i40_31bits() 661b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 662b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber INPUT AND OUTPUT DEFINITIONS 663b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 664b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Inputs: 665b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber x Array of type Word16 -- target vector 666b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cn Array of type Word16 -- residual after long term prediction 667b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber h Array of type Word16 -- impulse response of weighted synthesis filter 668b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 669b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 670b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Outputs: 671b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cod Array of type Word16 -- algebraic (fixed) codebook excitation 672b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber y Array of type Word16 -- filtered fixed codebook excitation 673b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx Array of type Word16 -- index of 8 pulses (signs+positions) 674b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow Pointer to Flag -- set when overflow occurs 675b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 676b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Returns: 677b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 678b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 679b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Global Variables Used: 680b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 681b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 682b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Local Variables Needed: 683b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 684b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 685b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 686b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION DESCRIPTION 687b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 688b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber FUNCTION: 689b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 690b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PURPOSE: Searches a 31 bit algebraic codebook containing 8 pulses 691b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber in a frame of 40 samples. 692b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 693b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber DESCRIPTION: 694b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber The code contains 8 nonzero pulses: i0...i7. 695b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber All pulses can have two possible amplitudes: +1 or -1. 696b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber The 40 positions in a subframe are divided into 4 tracks of 697b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber interleaved positions. Each track contains two pulses. 698b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber The pulses can have the following possible positions: 699b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 700b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i0, i4 : 0, 4, 8, 12, 16, 20, 24, 28, 32, 36 701b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i1, i5 : 1, 5, 9, 13, 17, 21, 25, 29, 33, 37 702b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i2, i6 : 2, 6, 10, 14, 18, 22, 26, 30, 34, 38 703b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber i3, i7 : 3, 7, 11, 15, 19, 23, 27, 31, 35, 39 704b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 705b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Each pair of pulses require 1 bit for their signs. The positions 706b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber are encoded together 3,3 and 2 resulting in 707b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber (7+3) + (7+3) + (5+2) bits for their 708b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber positions. This results in a 31 (4 sign and 27 pos) bit codebook. 709b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber The function determines the optimal pulse signs and positions, builds 710b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber the codevector, and computes the filtered codevector. 711b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 712b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 713b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REQUIREMENTS 714b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 715b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber None 716b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 717b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 718b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber REFERENCES 719b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 720b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [1] c8_31pf.c, UMTS GSM AMR speech codec, R99 - Version 3.2.0, March 2, 2001 721b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 722b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 723b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber PSEUDO-CODE 724b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 725b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 726b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber RESOURCES USED [optional] 727b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 728b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber When the code is written for a specific target processor the 729b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber the resources used should be documented below. 730b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 731b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber HEAP MEMORY USED: x bytes 732b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 733b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STACK MEMORY USED: x bytes 734b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 735b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CLOCK CYCLES: (cycle count equation for this function) + (variable 736b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber used to represent cycle count for each subroutine 737b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber called) 738b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber where: (cycle count variable) = cycle count for [subroutine 739b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber name] 740b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 741b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 742b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber CAUTION [optional] 743b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber [State any special notes, constraints or cautions for users of this function] 744b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 745b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber------------------------------------------------------------------------------ 746b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber*/ 747b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Hubervoid code_8i40_31bits( 748b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 x[], /* i : target vector */ 749b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 cn[], /* i : residual after long term prediction */ 750b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 h[], /* i : impulse response of weighted synthesis 751b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber filter */ 752b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 cod[], /* o : algebraic (fixed) codebook excitation */ 753b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 y[], /* o : filtered fixed codebook excitation */ 754b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 indx[], /* o : 7 Word16, index of 8 pulses (signs+positions) */ 755b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Flag *pOverflow /* o : Flag set when overflow occurs */ 756b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber) 757b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber{ 758b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 ipos[NB_PULSE]; 759b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 pos_max[NB_TRACK_MR102]; 760b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 codvec[NB_PULSE]; 761b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 762b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 dn[L_CODE]; 763b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 sign[L_CODE]; 764b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 765b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 rr[L_CODE][L_CODE]; 766b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 linear_signs[NB_TRACK_MR102]; 767b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber Word16 linear_codewords[NB_PULSE]; 768b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 769b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cor_h_x2( 770b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber h, 771b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber x, 772b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber dn, 773b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 2, 774b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber NB_TRACK_MR102, 775b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STEP_MR102, 776b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 777b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 778b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* 2 = use GSMEFR scaling */ 779b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 780b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber set_sign12k2( 781b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber dn, 782b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cn, 783b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign, 784b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_max, 785b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber NB_TRACK_MR102, 786b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ipos, 787b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STEP_MR102, 788b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 789b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 790b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber /* same setsign alg as GSM-EFR new constants though*/ 791b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 792b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cor_h( 793b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber h, 794b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign, 795b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber rr, 796b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 797b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 798b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber search_10and8i40( 799b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber NB_PULSE, 800b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber STEP_MR102, 801b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber NB_TRACK_MR102, 802b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber dn, 803b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber rr, 804b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber ipos, 805b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pos_max, 806b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber codvec, 807b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 808b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 809b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber build_code( 810b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber codvec, 811b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber sign, 812b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber cod, 813b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber h, 814b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber y, 815b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber linear_signs, 816b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber linear_codewords, 817b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 818b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 819b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber compress_code( 820b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber linear_signs, 821b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber linear_codewords, 822b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber indx, 823b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber pOverflow); 824b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 825b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber} /* code_8i40_31bits */ 826b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 827b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 828b841f14f8e51f2365945281fbfa54ef6a1b1b5a6Andreas Huber 829