home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt2 / setfil.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  405 b   |  36 lines
  1. / Fortran library-- setfil
  2.  
  3. / call setfil(unit, 5hname )
  4.  
  5. .globl    setfil.
  6.  
  7. .globl    getbuf
  8. .globl    chkunit
  9. .globl    retrn
  10. .globl    utable
  11. .globl    temp
  12. .globl    rerr
  13.  
  14. setfil.:
  15.     temp
  16.     .+2
  17.     mov    2(r3),r1
  18.     mov    2(r1),r1
  19.     jsr    r5,chkunit
  20.     tstb    utable(r1)
  21.     beq    1f
  22.     jsr    r5,rerr; 112.
  23. 1:
  24.     jsr    r5,getbuf
  25.     movb    $-1,utable(r1)
  26.     mov    4(r3),r0
  27.     mov    r2,r1
  28. 1:
  29.     movb    (r0)+,(r1)
  30.     beq    1f
  31.     cmpb    $' ,(r1)+
  32.     bne    1b
  33.     clrb    -(r1)
  34. 1:
  35.     jmp    retrn
  36.