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