function x = alawread(filename)
% function x = alawread(filename)
% 
% reads an a-law file and return the signal
% converted to a lineal scale
% 

fid = fopen(filename, 'r');
if fid>0
	x = fread(fid, inf, 'uchar');
end

% Decoding table
ALAWDEC = [
  -688,  -656,  -752,  -720,  -560,  -528,  -624,  -592,
  -944,  -912, -1008,  -976,  -816,  -784,  -880,  -848,
  -344,  -328,  -376,  -360,  -280,  -264,  -312,  -296,
  -472,  -456,  -504,  -488,  -408,  -392,  -440,  -424,
 -2752, -2624, -3008, -2880, -2240, -2112, -2496, -2368,
 -3776, -3648, -4032, -3904, -3264, -3136, -3520, -3392,
 -1376, -1312, -1504, -1440, -1120, -1056, -1248, -1184,
 -1888, -1824, -2016, -1952, -1632, -1568, -1760, -1696,
   -43,   -41,   -47,   -45,   -35,   -33,   -39,   -37,
   -59,   -57,   -63,   -61,   -51,   -49,   -55,   -53,
   -11,    -9,   -15,   -13,    -3,    -1,    -7,    -5,
   -27,   -25,   -31,   -29,   -19,   -17,   -23,   -21,
  -172,  -164,  -188,  -180,  -140,  -132,  -156,  -148,
  -236,  -228,  -252,  -244,  -204,  -196,  -220,  -212,
   -86,   -82,   -94,   -90,   -70,   -66,   -78,   -74,
  -118,  -114,  -126,  -122,  -102,   -98,  -110,  -106,
   688,   656,   752,   720,   560,   528,   624,   592,
   944,   912,  1008,   976,   816,   784,   880,   848,
   344,   328,   376,   360,   280,   264,   312,   296,
   472,   456,   504,   488,   408,   392,   440,   424,
  2752,  2624,  3008,  2880,  2240,  2112,  2496,  2368,
  3776,  3648,  4032,  3904,  3264,  3136,  3520,  3392,
  1376,  1312,  1504,  1440,  1120,  1056,  1248,  1184,
  1888,  1824,  2016,  1952,  1632,  1568,  1760,  1696,
    43,    41,    47,    45,    35,    33,    39,    37,
    59,    57,    63,    61,    51,    49,    55,    53,
    11,     9,    15,    13,     3,     1,     7,     5,
    27,    25,    31,    29,    19,    17,    23,    21,
   172,   164,   188,   180,   140,   132,   156,   148,
   236,   228,   252,   244,   204,   196,   220,   212,
    86,    82,    94,    90,    70,    66,    78,    74,
   118,   114,   126,   122,   102,    98,   110,   106]';

x = ALAWDEC(x+1);