         ttl       ieee format equivalent exponent (iefexp)
***************************************
* (c) copyright 1981 by motorola inc. *
***************************************
 
*************************************************
*                  iefexp                       *
* ieee format equivalent exponent function      *
*                                               *
*  input:   d7 - ieee floating point argument   *
*                                               *
*  output:  d7 - ieee floating point exponential*
*                result                         *
*                                               *
*     all other registers are transparent       *
*                                               *
*       maximum stack used:   54 bytes          *
*                                               *
*  condition codes:                             *
*        z - set if result in d7 is zero        *
*        n - cleared                            *
*        v - set if result is nan (not-a-number)*
*        c - undefined                          *
*        x - undefined                          *
*                                               *
*                                               *
*  notes:                                       *
*    1) if the input argument is a nan (not-a-  *
*       number) then the "v" bit will be set    *
*       and the argument unchanged upon return. *
*    2) see the mc68344 user's guide for details*
*       on the range of ieee normalized values  *
*       supported.                              *
*    2) spot checks show at least 6.8 digit     *
*       accuracy for all abs(arg) < 30.         *
*                                               *
*************************************************
         page
iefexp   idnt  1,1 ieee format equivalent exp
 
         opt       pcs
 
         section   9
 
         xdef      iefexp                        entry point
 
         xref      ffpexp            fast floating point exponent
         xref      iefsop            front-end single argument routine
         xref      ieftieee         back-end return to ieee format
         xref      iefrtd7          return to caller argument in d7
         xref      ffpcpyrt            copyright stub
 
************************
* exponent entry point *
************************
iefexp   jsr       iefsop    convert argument to ffp format
         bra.s     iefnrm    branch normalized
* argument is an infinity
         bpl.s     iefdrtn   branch if plus - return itself
         move.l    #0,d7     return plus zero if was negative infinity
iefdrtn  jmp       iefrtd7   return the result that is in d7
 
* argument is normalized
iefnrm   jsr       ffpexp    call fast floating point exponent function
         jmp       ieftieee  and return in ieee format
 
         end
                       ing point exponent function
         jmp       ieftieee  and return in ieee format
 
         end
                       ing point exponent function
         jmp       ieftieee  and return in ieee format
 
         end
                       ing point exponent function
         jmp       ieftieee  and return in ieee format
 
         end
                       