home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / mod.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  287 b   |  31 lines
  1. /
  2. /
  3.  
  4. / mod fortran function
  5.  
  6. .globl    mod.
  7.  
  8. .globl    retrn
  9. .globl    temp
  10. one = 40200
  11. .globl    rerr
  12.  
  13. mod.:    temp
  14.     .+2
  15.     setd
  16.     setl
  17.     cmp    *2(sp),$2
  18.     bne    1f
  19.     movif    *2(r3),r0
  20.     movf    r0,r2
  21.     movif    *4(r3),r1
  22.     divf    r1,r2
  23.     modf    $one,r2
  24.     mulf    r1,r3
  25.     subf    r3,r0
  26.     movfi    r0,temp
  27.     jmp    retrn
  28.  
  29. 1:
  30.     jsr    r5,rerr; 11.
  31.