Код:
function swap : real
var_input
in : real;
order : int; //(2143,3412,4321);
var
x at %MW0 : real;
d at %MW0 : dword;
w0 at %MW0 : word;
w1 at %MW1 : word;
---
x := in;
case order of 3412,4321:
d := rol(d, 16);
end_case
case order of 2143,4321:
w0 := rol(w0, 8);
w1 := rol(w1, 8);
end_case
swap := x;
или
function swap : real
var_input
x at %MW0 : real;
order : int; //(2143,3412,4321);
var
{flag noinit on}
d at %MW0 : dword;
w0 at %MW0 : word;
w1 at %MW1 : word;
{flag off}
---
case order of 3412,4321:
d := rol(d, 16);
end_case
case order of 2143,4321:
w0 := rol(w0, 8);
w1 := rol(w1, 8);
end_case
swap := x;
----
читаемого значения := swap(данные с плотномера модулем REAL, 4321);