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

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

Defined functions