function f=pcmcode(y)
%8bits binary PCM
f=zeros(length(y),8);
z=sign(y);
y=y*128;
y=fix(y);
y=abs(y);
for i=1:length(y)
    if y(i)==128
        y(i)=127.999;
    end
end
for i=1:length(y)
    for j=6:-1:0
        f(i,8-j)=fix(y(i)/(2^j));
        y(i)=mod(y(i),(2^j));
    end
end
for i=1:length(y)
    if z(i)==-1
        f(i,1)=0;
    else 
        f(i,1)=1;
    end
end