2.9BSD - /usr/src/ucb/pascal/px/14neg.s

   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

Defined functions