home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / ifix.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  199 b   |  23 lines
  1. /
  2. /
  3.  
  4. / ifix & int fortran functions
  5.  
  6. .globl    ifix.
  7. .globl    int.
  8.  
  9. .globl    lval
  10. .globl    r4i4
  11. .globl    gas4
  12. .globl    rval4p
  13. .globl    retrn
  14. .globl    temp
  15.  
  16. int.:
  17. ifix.:    temp
  18.     lval; temp
  19.     rval4p; 2
  20.     r4i4
  21.     gas4
  22.     retrn
  23.