Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TOOL_INC.ZIP/ITOU.INC

Text File | 1988-01-29 | 474 b | 28 lines

(*
 * i_to_ur - converts an unsigned integer into an unsigned real
 *
 *)
function i_to_ur(i: integer): real;  {integer to unsigned-real conversion}
var
   u: word absolute i;
begin
   i_to_ur := u;
end;


(*
 * ur_to_i - converts an unsigned real into an integer
 *
 *)
function ur_to_i(v: real): integer;  {unsigned-real to integer conversion}
var
   i: integer;
   u: word absolute i;
begin
   u := trunc(v) and $FFFF;
   ur_to_i := i;
end;