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

   1: /
   2: /
   3: 
   4: / fortran random I/O
   5: 
   6: .globl  rread.
   7: .globl  rwrite.
   8: 
   9: .globl  temp
  10: .globl  retrn
  11: .globl  rerr
  12: 
  13: rread.: temp
  14:         .+2
  15:         mov     2(r3),r0
  16:         mov     2(r0),0f
  17:         mov     rfin,r0
  18:         bne     1f
  19:         sys     open; rf; 0
  20:         bes     9f
  21:         mov     r0,rfin
  22: 1:
  23:         sys     seek; 0:..; 0
  24:         mov     4(r3),0f
  25:         mov     6(r3),r0
  26:         mov     2(r0),0f+2
  27:         mov     rfin,r0
  28:         sys     read; 0:..; 0
  29:         jmp     retrn
  30: 
  31: rwrite.:temp
  32:         .+2
  33:         mov     2(r3),r0
  34:         mov     2(r0),0f
  35:         mov     rfout,r0
  36:         bne     1f
  37:         sys     creat; rf; 17
  38:         bes     9f
  39:         mov     r0,rfout
  40: 1:
  41:         sys     seek; 0:..; 0
  42:         mov     4(r3),0f
  43:         mov     6(r3),r0
  44:         mov     2(r0),0f+2
  45:         mov     rfout,r0
  46:         sys     write; 0:..; ..
  47:         jmp     retrn
  48: 
  49: 9:
  50:         jsr     r5,rerr; 456.
  51:         sys     exit
  52: 
  53: rf:
  54:         <fortrf\0>
  55:         .even
  56: rfin:   .=.+2
  57: rfout:  .=.+2

Defined functions