a : dword;
b : word; (*старшее слово*)
с : word; (*младшее слово*)
b:=a\65536;
с:=a;
Ну или есть команды сдвига с вытеснением...
a : dword;
b : word; (*старшее слово*)
с : word; (*младшее слово*)
b:=a\65536;
с:=a;
Ну или есть команды сдвига с вытеснением...