function [s,r,TCH,x] = buildTCHburst(hS,hR,over,key,ber)          nhS = length(hS) ;       nhR = length(hR) ;       nbits = 224 ;
       bitsPerSym = 2 ;       nsyms = nbits / bitsPerSym ;       R = [ 0 0 0 0 ] ;
       SS = [ 1 0 ] ;       PR = [ 0 1 1 0 0 1 ] ;       UW = [ 1 1 1 0 0 0 0 1 0 1 0 0 1 0 0 1 ] ;       CI = [ 0 0 0 0 ] ;       SA = rand(1,16) > 1/2;      TCH = rand(1,160) > 1/2 ;      data = [ CI SA TCH ] ;       CRC = CrcEncode_mex(data) ;      burst = [ SS PR UW CI SA TCH CRC ]; 
      bitSeq1 = Scramble_mex(burst,key,1);       bitSeq = [ R bitSeq1 ] ;  		s = phs_mod_mex(bitSeq,over,hS) ;		r = phs_mod_mex(bitSeq,over,hR) ;      scale = sqrt(mean(s.*conj(s))) ;      s = s.' / scale;      s = [ s ; zeros(7*over,1) ; ] ;      scale = sqrt(mean(r.*conj(r))) ;      r = r.' / scale;      r = [ r ; zeros(7*over,1) ; ] ;      REF = bitSeq;      if (ber > 0)         bitErrors = rand(size(REF)) <= ber ;         REF = xor(REF,bitErrors) ;      end      x = phs_mod_mex(REF) ;      x = x.';      TCH = TCH.';