home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / aint.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  161 b   |  20 lines
  1. /
  2. /
  3.  
  4. / aint fortran function
  5.  
  6. .globl    aint.
  7. .globl    temp
  8.  
  9. one = 40200
  10.  
  11. .globl    retrn
  12.  
  13. aint.:    temp
  14.     .+2
  15.     setf
  16.     movf    *2(r3),r0
  17.     modf    $one,r0
  18.     movf    r1,temp
  19.     jmp    retrn
  20.