Задача на бит-реверсивное преобразование

[Ser]

Всем привет!
Народ, помогите пожалуйста решить следующее задание:
Задача Осуществить бит-реверсивное преобразование 8-разрядного числа (самый старший бит двоичного числа меняется местами с самым младшим, следующий - с предпоследним, и т.д.)

[Stilet]

Если память не изменяет
Установка бита:

word_mem:=word_Mem or (1 shl Номер бита)

Получение бита:

Bite_boolean:=word_Mem and (1 shl Номер бита)

Если Bite_boolean Труе то этот бит по номеру равен 1.

[OCTAGRAM]

b := ((b and $AA) shr 1) or ((b and $55) shl 1);
b := ((b and $CC) shr 2) or ((b and $33) shl 2);
b := ((b and $F0) shr 4) or ((b and $0F) shl 4);

© Hacker's Delight