home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / px / 14neg.s < prev    next >
Text File  |  1980-02-17  |  251b  |  30 lines
  1. /
  2. / NEGATION & ABSOLUTE VALUE
  3. /
  4. _ABS2:
  5.     tst    (sp)
  6.     bge    1f
  7. _NEG2:
  8.     neg    (sp)
  9. 1:
  10.     sxt    -(sp)
  11.     return
  12. _ABS4:
  13.     tst    (sp)
  14.     bge    1f
  15. _NEG4:
  16.     mov    (sp)+,r0
  17.     neg    r0
  18.     neg    (sp)
  19.     sbc    r0
  20.     mov    r0,-(sp)
  21. 1:
  22.     return
  23. _ABS8:
  24.     absf    (sp)
  25.     return
  26. _NEG8:
  27.     negf    (sp)
  28.     cfcc
  29.     return
  30.