2.9BSD - /usr/src/lib/c/gen/frexp11.s

   1: /*	@(#)frexp11.s	2.1	SCCS id keyword	*/
   2: /  double frexp(x, ip)
   3: /  double x; int *ip;
   4: /  returns a fractional part 1/16 <= |value| < 1
   5: / and stores an exponent so x = value * 2^(*ip)
   6: 
   7: .globl  _frexp
   8: .globl  csv, cret
   9: 
  10: _frexp:
  11:         jsr     r5,csv
  12:         movf    4(r5),fr0
  13:         movei   fr0,r0
  14:         clr     r1
  15:         movie   r1,fr0
  16:         mov     r0,*12.(r5)
  17:         jmp     cret

Defined functions