Битовые операции

[zetrix]

Задача вроде бы простая, но я не догоняю её..

В двухбайтной ячейке памяти записана последовательность нулей и единиц. С помощью битовых операций переставьте биты так, чтобы сначала шли все единицы, а затем все нули.

Я думаю сделать так: подсчитать кол-во единиц, потом всё затереть в 0, и допасать столько единиц, сколько насчитали. Но есть есть проблемы со знанием ассем-а. Цикл сделать - труда не составляет, а вот как с битами работат (считать/записать) - проблема...

[zetrix]

Ну что ж.. Спасибо за внимание, всё решил сам. Кому интересно, вот листинг (использовался ассемблер в Паскале, т.к. это разрешалось):

uses crt;
var i,s:integer;
label m1,m2,m0;

begin
write('Введите число: ');
readln(i);
 asm
 mov bx, 0
 mov ax, i
 mov cx, 16
m1:
 shl ax, 1
 JNC m2
 inc bx
m2:
 loop m1
 mov cx, bx
m0:
 shl ax, 1
 add ax, 1
 loop m0
mov s, ax
 end;
write('Полученное число: ',s);
readln;
end.

[rpy3uH]

ты гигант!!!!!

[zetrix]

не понял...
что ты этим хотел сказать?

[Alar]

zetrix, стандартная фраза восхищения, вообще у rpy3uHа их много...

[zetrix]

А.. ну... спасибо