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

   1: /
   2: /
   3: 
   4: / dim fortran function
   5: 
   6: .globl  dim.
   7: 
   8: .globl  retrn
   9: .globl  temp
  10: .globl  rerr
  11: /
  12: dim.:   temp
  13:         .+2
  14:         setf
  15:         cmp     *2(sp),$2
  16:         bne     2f
  17:         movf    *2(r3),r0
  18:         subf    *4(r3),r0
  19:         cfcc
  20:         bge     1f
  21:         clrf    r0
  22: 1:
  23:         movf    r0,temp
  24:         jmp     retrn
  25: 
  26: 2:
  27:         jsr     r5,rerr; 7.

Defined functions