Operation

EXPDIF exponent(ST) - exponent(ST(1));
IF EXPDIF < 64
THEN
Q integer obtained by rounding ST ÷ ST(1) to the nearest integer;
(*or the nearest even integer if the result is exactly halfway between 2 integers *)
ST ST - (ST(1) * Q);
C2 0;
Q ST - (ST(1) * Q);
C0, C1, C3 three least-significant bits of Q; (* Q2, Q1, Q0 *)
C2 0;
C0, C1, C3 three least-significant bits of Q; (* Q2, Q1, Q0 *)
ELSE
C2 1;
N a number between 32 and 63;
QQ integer obtained by chopping (ST ÷ ST(1)) ÷ 2EXPDIF-N;
toward zero;
ST ST - (ST(1) * QQ * 2EXPDIF-N
FI;

[Back: Description]
[Next: Numeric Exceptions]