UNIX 6th Ed. - /usr/source/fort/rt1/abs.s

   1: /
   2: /
   3: 
   4: / abs & dabs fortran functions
   5: 
   6: .globl  abs.
   7: .globl  dabs.
   8: 
   9: .globl  retrn
  10: .globl  temp
  11: 
  12: dabs.:  temp
  13:         .+2
  14:         setd
  15:         br      1f
  16: 
  17: abs.:   temp
  18:         .+2
  19:         setf
  20: 1:
  21:         movf    *2(r3),r0
  22:         absf    r0
  23:         movf    r0,temp
  24:         jmp     retrn

Defined functions