Select Code to Download

#! perl -slw
use strict;
...
    NEG_ZERO, NEG_DENORM_1ST, NEG_DENORM_LST, NEG_NORM_1ST, NEG_NORM_L
+ST,
    NEG_INF, NEG_SNAN_1ST, NEG_SNAN_LST,
    NEG_IND, NEG_QNAN_1ST, NEG_QNAN_LST;

C:\test>\perl32\bin\perl ieee-32b.pl
                      0 : 0000000000000000
...
                -1.#IND : fff8000000000000
               -1.#QNAN : fff8000000000001
               -1.#QNAN : ffffffffffffffff