home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt2 / nice.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  169 b   |  21 lines
  1. /
  2. /
  3.  
  4. / fortran nice subroutine
  5.  
  6. .globl    nice.
  7. .globl    retrn, temp
  8.  
  9. nice.:
  10.     temp
  11.     .+2
  12.     mov    $16.,r0
  13.     tst    *2(sp)
  14.     beq    1f
  15.     mov    2(r3),r0
  16.     mov    2(r0),r0
  17. 1:
  18.     sys    nice
  19.     jmp    retrn
  20.  
  21.