home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / gen / frexp11.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  274 b   |  17 lines
  1. /  double frexp(x, ip)
  2. /  double x; int *ip;
  3. /  returns a fractional part 1/16 <= |value| < 1
  4. / and stores an exponent so x = value * 2^(*ip)
  5.  
  6. .globl    _frexp
  7. .globl    csv, cret
  8.  
  9. _frexp:
  10.     jsr    r5,csv
  11.     movf    4(r5),fr0
  12.     movei    fr0,r0
  13.     clr    r1
  14.     movie    r1,fr0
  15.     mov    r0,*12.(r5)
  16.     jmp    cret
  17.