NAME
    SPTst - Compares a float against zero (0.0).

SYNOPSIS
    result = SPTst(fnum)
    D0             D1

    int SPTst(float fnum);

FUNCTION
    Accepts a floating point number and returns the condition
    codes set to indicate the result of a comparison against
    the value of zero (0.0).  Additionally, the integer functional
    result is returned.

INPUTS
    fnum    - floating point number.

RESULT
    Condition codes set to reflect the following branches:

            EQ - fnum =  0.0
            NE - fnum != 0.0
            PL - fnum >= 0.0
            MI - fnum <  0.0

    Integer functional result as:

            +1 => fnum > 0.0
            -1 => fnum < 0.0
             0 => fnum = 0.0

BUGS
    None.

SEE ALSO