UNIX 6th Ed. - /usr/source/s4/ltod.s

   1: / C library
   2: / return floating-point from long integer
   3: /	d = ltod(l)
   4: 
   5: .globl  _ltod
   6: _ltod:
   7:         mov     r5,-(sp)
   8:         mov     sp,r5
   9:         setl
  10:         movif   *4(r5),fr0
  11:         seti
  12:         mov     (sp)+,r5
  13:         rts     pc
  14: 
  15: / return long integer from floating
  16: /	dtol(d, l)
  17: 
  18: .globl  _dtol
  19: _dtol:
  20:         mov     r5,-(sp)
  21:         mov     sp,r5
  22:         setl
  23:         movf    4(r5),fr0
  24:         movfi   fr0,*12.(r5)
  25:         seti
  26:         mov     (sp)+,r5
  27:         rts     pc

Defined functions