home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s4 / ltod.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  332 b   |  28 lines
  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
  28.