UNIX 6th Ed. - /usr/source/fort/io/io7.s

   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)+

Defined functions