1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| nSource est entier sur 8 = 0x4041EF40A0000000
rDestination est réel sur 8
rDivMantisse est réel sur 8 = 0x10000000000000
SI nSource[53 A 63] = 0x7FF ALORS
rDestination = 1.0 / 0.0
SINON
rDestination = nSource[1 A 52]
rDestination = rDestination / rDivMantisse
SI nSource[53 A 63] <> 0x000 ALORS
rDestination = 1.0 + rDestination
FIN
POUR i = nSource[53 A 63] - 1023 A -1 PAS 1
rDestination = rDestination / 2.0
FIN
POUR i = nSource[53 A 63] - 1023 A 1 PAS -1
rDestination = rDestination * 2.0
FIN
FIN
SI nSource[64] ALORS
rDestination = -rDestination
FIN
Trace(rDestination) |