data _null_;
n = 13;
nBitsOn = length(compress(put(n,binary32.),'0'));
put n= n= BINARY32. nBitsOn=;
run;
x_chr = '100100100100';
x_val = input (x_chr,binary32.);
x_rev = input (reverse (put (x_val,binary32.)), binary32.);
x_inv = BNOT (x_val);
x_neg = -x_val;