home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / idim.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  253 b   |  30 lines
  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.
  30.