Help for this page

Select Code to Download

Select or download this

sub IEEE80toIEEE64 {
    my( $discard, $mantissa, $hidden, $exponent, $sign ) =
...
    return unpack 'd', pack 'b64', $mantissa . $exponent . $sign;
}

Select or download this

realtest x.bin                  C:\dmd\test>\test\80bit.pl
-1.0935598595647423806e-4950    -1.#INF
...
 50.000000                       50
-50.000000                      -50