> -- divan писал(а):
> А как заставить ББ понять вот это 00010000b ?Он ругается на такое. Неужели придется манипулировать 8-значными числами типа INTEGER,  00010000, например.Кажется, понял.
b -- binary, h -- hexadeciaml. А поступает байт.

Получаете свой 1000xxxxb от железа в b: BYTE (Вы, вроде, это сумели).
Перегоняете в n: INTEGER простым присваиванием n := b.
Перегоняете в x: SET с помощью x := BITS(n).
Делаете y := x * {0 .. 3} -- это оставит только нужные 4 бита (пересечение множеств).
Потом ORD(y) будет Вашим кодом.

Вроде, так.