output_bit(bit)

function output_bit(bit)

global bits_to_go buffer output

format long

buffer=fix(buffer*2^-1); % Equivalent to right shift
if(bit),buffer=bitor(buffer,128);end
bits_to_go=bits_to_go-1;

if(bits_to_go==0)
    %fprintf('%d ',buffer);
    output=[output buffer];
    bits_to_go=8;
end