4.3BSD - /usr/src/lib/libc/vax/gen/frexp.s

   1: /*
   2:  * Copyright (c) 1980 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  */
   6: 
   7: #ifdef LIBC_SCCS
   8:         .asciz  "@(#)frexp.s	5.3 (Berkeley) 3/9/86"
   9: #endif LIBC_SCCS
  10: 
  11: /* C library -- frexp(value, eptr) */
  12: 
  13: #include "DEFS.h"
  14: 
  15: ENTRY(frexp, 0)
  16:         movd    4(ap),r0                # (r0,r1) := value
  17:         extzv   $7,$8,r0,*12(ap)        # Fetch exponent
  18:         jeql    1f                      # If exponent zero, we're done
  19:         subl2   $128,*12(ap)            # Bias the exponent appropriately
  20:         insv    $128,$7,$8,r0           # Force result exponent to biased 0
  21: 1:
  22:         ret

Defined functions