|
|
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.