       ttl     fast floating point abs/neg (ffpabs/ffpneg)
***************************************
* (c) copyright 1981 by motorola inc. *
***************************************
 
*************************************************************
*                     ffpabs                                *
*           fast floating point absolute value              *
*                                                           *
*  input:  d7 - fast floating point argument                *
*                                                           *
*  output: d7 - fast floating point absolute value result   *
*                                                           *
*      condition codes:                                     *
*              n - cleared                                  *
*              z - set if result is zero                    *
*              v - cleared                                  *
*              c - undefined                                *
*              x - undefined                                *
*                                                           *
*               all registers transparent                   *
*                                                           *
*************************************************************
         page
ffpabs idnt    1,1  ffp abs/neg
 
         xdef      ffpabs    fast floating point absolute value
 
       xref    ffpcpyrt        copyright notice
 
         section  9
 
******************************
* absolute value entry point *
******************************
ffpabs   and.b     #$7f,d7   clear the sign bit
         rts                 and return to the caller
         page
*************************************************************
*                     ffpneg                                *
*           fast floating point negate                      *
*                                                           *
*  input:  d7 - fast floating point argument                *
*                                                           *
*  output: d7 - fast floating point negated result          *
*                                                           *
*      condition codes:                                     *
*              n - set if result is negative                *
*              z - set if result is zero                    *
*              v - cleared                                  *
*              c - undefined                                *
*              x - undefined                                *
*                                                           *
*               all registers transparent                   *
*                                                           *
*************************************************************
         page
         xdef      ffpneg    fast floating point negate
 
**********************
* negate entry point *
**********************
ffpneg   tst.b     d7        ? is argument a zero
         beq.s     ffprtn    return if so
         eor.b     #$80,d7   invert the sign bit
ffprtn   rts                 and return to caller
 
         end

ler
 
         end

ler
 
         end

ler
 
         end

