home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / io / io7.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  671 b   |  63 lines
  1. /
  2. /
  3.  
  4. / Fortran binary I/O
  5.  
  6. .globl    iowu
  7. .globl    ioru
  8. .globl    rewi
  9. .globl    enfl
  10.  
  11. iowu:
  12.     tst    (sp)+
  13.     mov    (sp)+,r1        / unit number
  14.     jsr    r5,setio; 42
  15. 1:
  16.     jsr    r5,getitm
  17.         br 1f
  18.     movb    ilen,r1
  19.     mov    ilval,r2
  20. 2:
  21.     movb    (r2)+,r0
  22.     jsr    r5,fputc
  23.     sob    r1,2b
  24.     br    1b
  25. 1:
  26.     jsr    r5,fflush
  27.     jmp    *(r4)+
  28.  
  29. ioru:
  30.     tst    (sp)+
  31.     mov    (sp)+,r1        / unit number
  32.     jsr    r5,setio; 41
  33.     clr    nlflg
  34.     mov    pc,binflg
  35. 1:
  36.     jsr    r5,getitm
  37.         br 1f
  38.     movb    ilen,r1
  39.     mov    ilval,r2
  40. 2:
  41.     jsr    r5,fgetc
  42.     movb    r0,(r2)+
  43.     sob    r1,2b
  44.     br    1b
  45. 1:
  46.     jmp    *(r4)+
  47.  
  48. rewi:
  49. enfl:
  50.     tst    (sp)+
  51.     mov    (sp)+,r1        / unit number
  52.     jsr    r5,chkunit
  53.     clrb    utable(r1)
  54.     asl    r1
  55.     mov    *btable(r1),r0
  56.     cmp    r0,$1
  57.     bhi    1f
  58.     sys    seek; 0; 0
  59.     jmp    *(r4)+
  60. 1:
  61.     sys    close
  62.     jmp    *(r4)+
  63.