How to convert bitX series to value bX?

Hi everybody,

some idea how to make this please?

let b13=(%bit0 bit0 bit0 bit0 bit0 bit0 bit0 bit0)
let b14=(%bit0 bit0 bit0 bit0 bit1 bit1 bit1 bit1)
let b15=(%bit1 bit1 bit1 bit1 bit1 bit1 bit1 bit1)

...

thanks

%11111111 = 1*128 + 1*64 + 1*32 + 1*16 + 1*8 + 1*4 + 1*2 + 1

I imagine there are a number of ways to do it (untested) ...

b13 = $FF * bit0
b15 = $FF * bit1
b14 = b13 * $100 + b15 / $10

If using an X2 there may be faster shifting methods (untested) ...

b13 = bit0 << 3 : b13 = $FF00 >> b13
b15 = bit1 << 3 : b15 = $FF00 >> b15
b14 = b13 << 8 + b15 >> 4

Yes hippy, i dont understand this code but its working well (tested) ... Thank you very much!