:CUT_TO_BITS
L150 = L0;
for L151 = 0 to 15 do
L(L151) = L150 % 2;
L150 = L150 / 2;
endfor;
return;

:CUT_FROM_BITS
L150 = 0;
for L151 = 0 to 15 do
L150 = L150 * 2;
if L(L151) then
inc (L150,1);
endif;
endfor;
return;