home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt2 / rio.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  614 b   |  59 lines
  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
  58.  
  59.