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

   1: /
   2: /
   3: 
   4: / sign & dsign fortran functions
   5: 
   6: .globl  sign.
   7: .globl  dsign.
   8: 
   9: .globl  retrn
  10: .globl  temp
  11: .globl  rerr
  12: 
  13: dsign.: temp
  14:         .+2
  15:         setd
  16:         br      1f
  17: 
  18: sign.:  temp
  19:         .+2
  20:         setf
  21: 1:
  22:         cmp     *2(sp),$2
  23:         bne     2f
  24:         movf    *2(r3),r0
  25:         absf    r0
  26:         tstf    *4(r3)
  27:         cfcc
  28:         bge     1f
  29:         negf    r0
  30: 1:
  31:         movf    r0,temp
  32:         jmp     retrn
  33: 
  34: 2:
  35:         jsr     r5,rerr; 12.

Defined functions