|
|
1.1 root 1: #
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)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.