| 1 | #\f |
| 2 | # 32iostat.s |
| 3 | # |
| 4 | # FILE ACTIVATION AND STATUS OPERATIONS |
| 5 | # |
| 6 | _UNIT: |
| 7 | incl r10 |
| 8 | calls $1,_unit |
| 9 | jmp (r8) |
| 10 | _UNITINP: |
| 11 | incl r10 |
| 12 | pushal stdin |
| 13 | calls $1,_unit |
| 14 | jmp (r8) |
| 15 | _UNITOUT: |
| 16 | incl r10 |
| 17 | moval stdout,r7 |
| 18 | movl stdout+PFNAME,_file |
| 19 | jmp (r8) |
| 20 | _EOF: |
| 21 | cvtwl $EOF,r5 |
| 22 | brb l3202 |
| 23 | _EOLN: |
| 24 | cvtwl $EOF+EOLN,r5 |
| 25 | l3202: |
| 26 | incl r10 |
| 27 | movl _file,r4 #save active file |
| 28 | movl r7,r3 |
| 29 | calls $1,_unit |
| 30 | clrw -(sp) |
| 31 | bbs $fEOF,FUNIT(r7),l3204 |
| 32 | calls $0,_iosync |
| 33 | bitw r5,FUNIT(r7) |
| 34 | beql l3205 |
| 35 | l3204: |
| 36 | incw (sp) |
| 37 | l3205: |
| 38 | movl r3,r7 #restore active file |
| 39 | movl r4,_file |
| 40 | jmp (r8) |