%
% FPUL Frame Start of IEEE 802.16-2005 (WiMAX, OFDMA only)
% Input:
%       PermBase           -- Permutation Base
%       SubgroupCodeOffset -- Sub Group Code Offset
%       NMLORangCodes      -- Number of Ranging Codes
% Output:
%       RangingCode -- Ranging Code LUT
% Remark:
%
% Matlab 7 Release 14 SP2

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Property of Freescale
%  Freescale Confidential Proprietary
%  Freescale Copyright (C) 2005 All rights reserved
%  ----------------------------------------------------------------------------
%  $RCSfile: mRangingCode.m.rca $
%  $Revision: 1.5 $
%  $Date: Wed Nov  8 11:56:57 2006 $
%  Target: Matlab
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%-- Matlab files used by this file
%-- End of list

function [RangingCode]= mRangingCode(PermBase,SubgroupCodeOffset,NMLORangCodes)

NRANGINGCODE = 1;%256;
NRANGINGCODEBIT  = 144;

NMLORangCodes = NMLORangCodes + 1;

for BitIndex=0:6
    PermBaseArray(BitIndex+1) = bitshift(bitand(PermBase,bitshift(1,BitIndex)),-BitIndex);
end

initPRBS = [fliplr(PermBaseArray) 1 1 0 1 0 1 0 0];
RangingCode = zeros(NRANGINGCODE,NRANGINGCODEBIT);
for k = 1:NRANGINGCODE
    for i = 1 : NRANGINGCODEBIT
        out = xor(xor(initPRBS(1),initPRBS(4)),(xor(initPRBS(7),initPRBS(15))));
        RangingCode(k,i) = out;
        if (out == 0)
            RangingCode(k,i) = -1;
        end
        initPRBS = [out initPRBS(1:end-1)];
    end
end

end