UNIX 7th Ed. - /usr/src/libc/gen/frexp11.s

   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

Defined functions