|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2013, 18:41 | #1 |
Регистрация: 07.06.2013
Сообщений: 8
|
упаковка 32bit
мир дому Вашему! подскажите пожалуйста, как прописать упаковку,распаковку 32 bit ???, а то в codesis есть блоки 8bit pack, unpack, а мне надо 32bit, думаю на C пойму (в codesis язык ST-стуктурированный текст)...
|
10.06.2013, 11:04 | #2 |
Регистрация: 07.06.2013
Сообщений: 8
|
упаковал так: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); практически получилось, и работает, но хочется как у вас у програмистов...я то слесарь по КИП и А. Последний раз редактировалось rekbrjaaa; 10.06.2013 в 11:11. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi 32bit to 64 | nVz | Общие вопросы Delphi | 6 | 29.09.2012 22:50 |
Off экрана в Windows 7 (32bit) | Sobaka_ru | Windows | 7 | 05.09.2011 12:05 |
Сгенерировать опкод JMP near 32bit | Tronix | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 8 | 07.02.2011 23:34 |
как из 64bit в 32bit -ную систему??? | Sergeu | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 2 | 07.11.2009 20:01 |
Direct3d ZBuffer 32bit не устанавливается | Selestis | Мультимедиа в Delphi | 0 | 23.10.2009 22:31 |