projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| b202b2da CH |
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) |