UNIX 6th Ed. - /usr/source/fort/rt2/setfil.s

   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

Defined functions