упаковка 32bit

[rekbrjaaa]

мир дому Вашему! подскажите пожалуйста, как прописать упаковку,распаковку 32 bit ???, а то в codesis есть блоки 8bit pack, unpack, а мне надо 32bit, думаю на C пойму (в codesis язык ST-стуктурированный текст)...

[rekbrjaaa]

упаковал так:r_b1:=BYTE_TO_DWORD(b1);
r_b2:=BYTE_TO_DWORD(b2);
r_b3:=BYTE_TO_DWORD(b3);
r_b4:=BYTE_TO_DWORD(b4);
bb2:=ROL(r_b2,8);
bb3:=ROL(r_b3,16);
bb4:=ROL(r_b4,24);
x:=(r_b1 + bb2 + bb3 + bb4);
распаковал так:x:=x;
bo0:=EXTRACT(x:=x, n:=0);
bo1:=EXTRACT(x:=x, n:=1);
bo2:=EXTRACT(x:=x, n:=2);
bo3:=EXTRACT(x:=x, n:=3);
bo4:=EXTRACT(x:=x, n:=4);
bo5:=EXTRACT(x:=x, n:=5);
bo6:=EXTRACT(x:=x, n:=6);
bo7:=EXTRACT(x:=x, n:=7);
bo8:=EXTRACT(x:=x, n:=8);
bo9:=EXTRACT(x:=x, n:=9);
bo10:=EXTRACT(x:=x, n:=10);
bo11:=EXTRACT(x:=x, n:=11);
bo12:=EXTRACT(x:=x, n:=12);
bo13:=EXTRACT(x:=x, n:=13);
bo14:=EXTRACT(x:=x, n:=14);
bo15:=EXTRACT(x:=x, n:=15);
bo16:=EXTRACT(x:=x, n:=16);
bo17:=EXTRACT(x:=x, n:=17);
bo18:=EXTRACT(x:=x, n:=18);
bo19:=EXTRACT(x:=x, n:=19);
bo20:=EXTRACT(x:=x, n:=20);
bo21:=EXTRACT(x:=x, n:=21);
bo22:=EXTRACT(x:=x, n:=22);
bo23:=EXTRACT(x:=x, n:=23);
bo24:=EXTRACT(x:=x, n:=24);
bo25:=EXTRACT(x:=x, n:=25);
bo26:=EXTRACT(x:=x, n:=26);
bo27:=EXTRACT(x:=x, n:=27);
bo28:=EXTRACT(x:=x, n:=28);
bo29:=EXTRACT(x:=x, n:=29);
bo30:=EXTRACT(x:=x, n:=30);
bo31:=EXTRACT(x:=x, n:=31);
практически получилось, и работает, но хочется как у вас у програмистов...я то слесарь по КИП и А.