home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / 2014.11.minnie.tuhs.org.tar / minnie.tuhs.org / UnixArchive / PDP-11 / Trees / V6 / usr / source / s4 / abs.s < prev    next >
Encoding:
Text File  |  1975-05-14  |  165 b   |  17 lines
  1. / abs - int absolute value.
  2. / fabs - floating abs
  3.  
  4. .globl    _abs
  5. _abs:
  6.     mov    2(sp),r0
  7.     bge    1f
  8.     neg    r0
  9. 1:
  10.     rts    pc
  11.  
  12. .globl    _fabs
  13. _fabs:
  14.     movf    2(sp),fr0
  15.     absf    fr0
  16.     rts    pc
  17.