quote:
for i := 0 to 1 by 1 do
my_byte[i] :=
_byte_from_8bool(
bit0 := my_bit[i*8],
bit1 := my_bit[i*8+1],
bit2 := my_bit[i*8+2],
bit3 := my_bit[i*8+3],
bit4 := my_bit[i*8+4],
bit5 := my_bit[i*8+5],
bit6 := my_bit[i*8+6],
bit7 := my_bit[i*8+6],
);
end_for
my_word :=
_word_from_2byte(
byte0 := my_byte[0],
byte1 := my_byte[1],
);

---