![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to 35iosubs.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 41BSD / cmd / px|
Return to 35iosubs.s CVS log | Up to [CSRG BSD Unix] / 41BSD / cmd / px |
1.1 ! root 1: # ! 2: # Copyright (c) 1979 Regents of the University of California ! 3: # ! 4: # char sccsid[] = "@(#)35iosubs.s 4.2 10/16/80"; ! 5: # ! 6: # IO SUBROUTINES ! 7: # ! 8: .globl _getname #activate a file ! 9: .globl _unit #establish active file ! 10: .globl _iosync #syncronize a file window ! 11: .globl _unsync #push backed synced record for formatted read ! 12: .globl _pflush #flush all active files ! 13: .globl _pclose #close selected files ! 14: .globl _pmflush #flush pxp buffer ! 15: # ! 16: # system I/O routines ! 17: # ! 18: .globl _fclose ! 19: .globl _fflush ! 20: .globl _fopen ! 21: .globl _fprintf ! 22: .globl _fputc ! 23: .globl _fread ! 24: .globl _fscanf ! 25: .globl _fwrite ! 26: .globl _mktemp ! 27: .globl _rewind ! 28: .globl _setbuf ! 29: .globl _ungetc ! 30: .globl _unlink ! 31: # ! 32: # standard files ! 33: # ! 34: # file records ! 35: # ! 36: .set fnamesze,76 #maximum size of file name ! 37: .set recsze,30+fnamesze #file record size ! 38: .set FNAME,-recsze #name of associated UNIX file ! 39: .set LCOUNT,-30 #number of lines of output ! 40: .set LLIMIT,-26 #maximum number of text lines ! 41: .set FBUF,-22 #FILE pointer ! 42: .set FCHAIN,-18 #chain to next file ! 43: .set FLEV,-14 #ptr to associated file variable ! 44: .set PFNAME,-10 #ptr to name of error msg file ! 45: .set FUNIT,-6 #file status flags ! 46: .set FSIZE,-4 #size of elements in the file ! 47: .set WINDOW,0 #file window element ! 48: # ! 49: # unit flags ! 50: # ! 51: .set FDEF,0x8000 #1 => reserved file name ! 52: .set FTEXT,0x4000 #1 => text file, process EOLN ! 53: .set FWRITE,0x2000 #1 => open for writing ! 54: .set FREAD,0x1000 #1 => open for reading ! 55: .set TEMP,0x0800 #1 => temporary file ! 56: .set SYNC,0x0400 #1 => window is out of sync ! 57: .set EOLN,0x0200 #1 => at end of line ! 58: .set EOF,0x0100 #1 => at end of file ! 59: # ! 60: # bit positions of unit flags ! 61: # ! 62: .set fDEF,15 ! 63: .set fTEXT,14 ! 64: .set fWRITE,13 ! 65: .set fREAD,12 ! 66: .set fTEMP,11 ! 67: .set fSYNC,10 ! 68: .set fEOLN,9 ! 69: .set fEOF,8 ! 70: # ! 71: # standard file buffers ! 72: # ! 73: .set ioEOF,4 #bit position flagging EOF ! 74: .set ioERR,5 #bit position flagging I/O error ! 75: .set FLAG,12 #record offset of error flag ! 76: # ! 77: # standard input file ! 78: # ! 79: .data ! 80: .space fnamesze #name of associated UNIX file ! 81: .long 0 #line count ! 82: .long 0 #line limit ! 83: .long __iob #FILE pointer ! 84: .long stdout #chain to next file ! 85: .long 0 #ptr to associated file variable ! 86: .long sinnam #ptr to name of error msg file ! 87: .word FTEXT+FREAD+SYNC #file status flags ! 88: .long 1 #size of elements in the file ! 89: stdin: ! 90: .word 0 #file window element ! 91: # ! 92: # standard output file ! 93: # ! 94: .space fnamesze #name of associated UNIX file ! 95: .long 0 #line count ! 96: .long 0 #line limit ! 97: .long __iob+16 #FILE pointer ! 98: .long stderr #chain to next file ! 99: .long 0 #ptr to associated file variable ! 100: .long soutnam #ptr to name of error msg file ! 101: .word FTEXT+FWRITE+EOF #file status flags ! 102: .long 1 #size of elements in the file ! 103: stdout: ! 104: .word 0 #file window element ! 105: # ! 106: # standard error file ! 107: # ! 108: .space fnamesze #name of associated UNIX file ! 109: .long 0 #line count ! 110: .long 0 #line limit ! 111: .long __iob+32 #FILE pointer ! 112: .long 0 #chain to next file ! 113: .long 0 #ptr to associated file variable ! 114: .long msgnam #ptr to name of error msg file ! 115: .word FTEXT+FWRITE #file status flags ! 116: .long 1 #size of elements in the file ! 117: stderr: ! 118: .word 0 #file window element ! 119: ! 120: tmpname:.byte 't,'m,'p,'.,'X,'X,'X,'X,'X,'X, 0 ! 121: .text ! 122: sinnam: .byte 's,'t,'a,'n,'d,'a,'r,'d,' ,'i,'n,'p,'u,'t, 0 ! 123: soutnam:.byte 's,'t,'a,'n,'d,'a,'r,'d,' ,'o,'u,'t,'p,'u,'t, 0 ! 124: msgnam: .byte 'M,'e,'s,'s,'a,'g,'e,' ,'f,'i,'l,'e, 0 ! 125: monout: .byte 'p,'m,'o,'n,'.,'o,'u,'t, 0 ! 126: rdopen: .byte 'r, 0 ! 127: wtopen: .byte 'w, 0 ! 128: .set formfeed,12 ! 129: .set linefeed,10 ! 130: .set blank,' ! 131: # ! 132: # getname ! 133: # ! 134: # takes the width of a string in the subopcode and ! 135: # returns a pointer to a file structure in r0 ! 136: # ! 137: # there should be a string on the stack ! 138: # of length the contents of subopcode on top of ! 139: # a pointer to the file variable ! 140: # ! 141: # a new file structure is allocated if needed ! 142: # temporary names are generated, and given ! 143: # names are blank trimmed ! 144: # ! 145: # if a new file buffer is allocated, the address ! 146: # is stored in the file variable. ! 147: # ! 148: # ! 149: _getname: #(datasze, maxnamlen, name, fileptr) ! 150: #int datasze; ! 151: #int maxnamlen; ! 152: #char *name; ! 153: #struct file **fileptr; ! 154: ! 155: .word R6|R7|R8|R9 ! 156: movl 4(ap),r6 #r6 has data size ! 157: movl 12(ap), r8 # r8 points to file name ! 158: movl 16(ap), r9 # r9 pts to file variable ! 159: tstl ( r9) #check for existing file record ! 160: bneq gotone ! 161: # ! 162: # allocate and initialize a new file record ! 163: # ! 164: clrl r7 # r7 has status flags ! 165: tstl r6 #check for size ! 166: bneq l3502 ! 167: movw $FTEXT, r7 #default to text file ! 168: movl $1,r6 #default size ! 169: l3502: ! 170: addl3 $recsze,r6,-(sp)#size of record ! 171: calls $1,_palloc #r0 points to allocated buffer ! 172: addl2 $recsze,r0 #adjust to base of record ! 173: clrl LCOUNT(r0) #set default line limits ! 174: movl _llimit,LLIMIT(r0) ! 175: movw r7,FUNIT(r0) #set flags ! 176: movl r6,FSIZE(r0) #set size ! 177: movl r9,FLEV(r0) #set ptr to file variable ! 178: movl r0,( r9) #set file var ptr ! 179: # ! 180: # link the new record into the file chain ! 181: # ! 182: movl $_fchain-FCHAIN,r6 #r6 pts to "previous" record ! 183: movl _fchain,r1 #r1 pts to "next" record ! 184: brb l3505 ! 185: l3504: ! 186: movl r1,r6 #advance previous ! 187: movl FCHAIN(r1),r1 #get next ! 188: l3505: ! 189: cmpl FLEV(r1), r9 #check level ! 190: blssu l3504 #continue until greater ! 191: ! 192: movl r1,FCHAIN(r0) #link in new record ! 193: movl r0,FCHAIN(r6) ! 194: ! 195: movl r0, r9 # r9 points to file record ! 196: jbr setname ! 197: # ! 198: # have a previous buffer, dispose of associated file ! 199: # ! 200: gotone: ! 201: movl ( r9), r9 # r9 points to file record ! 202: bicw2 $~(FDEF+TEMP+FTEXT),FUNIT( r9) #clear status flags ! 203: bbc $fDEF,FUNIT( r9),l3506 #check for predefined file ! 204: bicw2 $FDEF,FUNIT( r9) #clear predefined flag ! 205: jbr setname ! 206: l3506: ! 207: pushl FBUF( r9) #flush and close previous file ! 208: calls $1,_fclose ! 209: movl FBUF( r9),r0 ! 210: bbs $ioERR,FLAG(r0),eclose ! 211: bbc $fTEMP,FUNIT( r9),setname #check for temp file ! 212: tstl r8 #remove renamed temp files ! 213: beql setname ! 214: pushl PFNAME( r9) ! 215: calls $1,_unlink ! 216: tstl r0 #check for remove error ! 217: beql setname ! 218: eunlink: ! 219: movl PFNAME( r9),_file ! 220: movw $EREMOVE,_perrno ! 221: moval error,PC(fp) #error return ! 222: ret ! 223: eclose: ! 224: movl PFNAME( r9),_file ! 225: movw $ECLOSE,_perrno ! 226: moval error,PC(fp) #error return ! 227: ret ! 228: # ! 229: # get the filename associated with the buffer ! 230: # ! 231: setname: ! 232: tstl r8 #check for a given name ! 233: bneq l3508 #br => has a name ! 234: tstb FNAME( r9) #check for no current name ! 235: bneq l3513 #br => had a previous name so use it ! 236: # ! 237: # no name given and no previous name, so generate ! 238: # a new one of the form tmp.xxxxxx ! 239: # ! 240: bisw2 $TEMP,FUNIT( r9)#set status to temporary ! 241: pushal tmpname #get a unique temp name ! 242: calls $1,_mktemp ! 243: movl r0, r8 #ptr to new temp name ! 244: movl $16,r2 #maximum name length ! 245: brb l3512 ! 246: # ! 247: # put the new name into the structure ! 248: # ! 249: l3508: ! 250: bicw2 $TEMP,FUNIT( r9) #set permanent status ! 251: locc $blank,8(ap),( r8) #check for trailing blanks ! 252: subl3 r0,8(ap),r2 #deduct length of blanks ! 253: cmpl r2,$fnamesze #check for name too long ! 254: bgeq enamsze ! 255: l3512: ! 256: movc3 r2,( r8),FNAME( r9) #move name into record ! 257: clrb (r3) #place zero after name ! 258: moval FNAME( r9),PFNAME( r9) #set pointer to name ! 259: l3513: ! 260: movl r9,r0 #return ptr to file record ! 261: ret ! 262: enamsze: ! 263: movw $ENAMESIZE,_perrno ! 264: moval error,PC(fp) #error return ! 265: ret ! 266: # ! 267: # unit establishes a new active file ! 268: # ! 269: _unit: ! 270: .word 0 ! 271: movl 4(ap),r7 ! 272: beql erefinaf ! 273: bbs $fDEF,FUNIT(r7),erefinaf ! 274: movl PFNAME(r7),_file ! 275: ret ! 276: erefinaf: ! 277: movw $EREFINAF,_perrno ! 278: moval error,PC(fp) #error return ! 279: ret ! 280: # ! 281: # iosync insures that a useable image is in the buffer window ! 282: # ! 283: _iosync: ! 284: .word R6 ! 285: cvtwl FUNIT(r7),r6 #r6 has FUNIT flags ! 286: bbc $fREAD,r6,eread #error if not open for reading ! 287: bbc $fSYNC,r6,l3515 #check for already synced ! 288: bbs $fEOF,r6,epeof #error if past EOF ! 289: bicw2 $SYNC,r6 #clear unsynced flag ! 290: pushl FBUF(r7) #stream ! 291: pushl $1 #number of items to read ! 292: pushl FSIZE(r7) #data size ! 293: pushl r7 #ptr to input window ! 294: calls $4,_fread ! 295: movl FBUF(r7),r0 #check for EOF ! 296: bbs $ioERR,FLAG(r0),epeof ! 297: bbs $ioEOF,FLAG(r0),eof ! 298: bbc $fTEXT,r6,l3514 #check for text processing ! 299: bicw2 $EOLN,r6 #check for EOLN ! 300: cmpb (r7),$linefeed ! 301: bneq l3514 ! 302: movb $blank,(r7) #blank out linefeed ! 303: bisw2 $EOLN,r6 ! 304: l3514: ! 305: movw r6,FUNIT(r7) #update status flags ! 306: l3515: ! 307: ret ! 308: eof: ! 309: bisw2 $EOF,r6 #set EOF ! 310: movw r6,FUNIT(r7) #update status flags ! 311: pushr $R2|R3|R4|R5 #save registers ! 312: movc5 $0,(r0),$0,FSIZE(r7),(r7) #clear buffer to undefined ! 313: popr $R2|R3|R4|R5 #restore registers ! 314: ret ! 315: eread: ! 316: movw $EREADIT,_perrno ! 317: moval error,PC(fp) #error return ! 318: ret ! 319: epeof: ! 320: movw $EPASTEOF,_perrno ! 321: moval error,PC(fp) #error return ! 322: ret ! 323: # ! 324: # push back last char read to prepare for formatted read ! 325: # ! 326: _unsync: ! 327: .word 0 ! 328: bbc $fREAD,FUNIT(r7),eread #error if not open for reading ! 329: bbs $fSYNC,FUNIT(r7),l3526 #push back window char ! 330: pushl FBUF(r7) ! 331: cvtbl (r7),-(sp) ! 332: calls $2,_ungetc ! 333: l3526: ! 334: ret ! 335: # ! 336: # flush all active output files ! 337: # ! 338: _pflush: ! 339: .word R6 ! 340: movl _fchain,r6 ! 341: beql l3518 ! 342: l3516: ! 343: bbc $fWRITE,FUNIT(r6),l3517 ! 344: pushl FBUF(r6) ! 345: calls $1,_fflush ! 346: l3517: ! 347: movl FCHAIN(r6),r6 ! 348: bneq l3516 ! 349: l3518: ! 350: ret ! 351: # ! 352: # close all active files down to the specified FLEV ! 353: # ! 354: _pclose: ! 355: .word R6|R9 ! 356: movl _fchain, r9 ! 357: beql l3520 ! 358: l3519: ! 359: cmpl FLEV( r9),4(ap) ! 360: bgtru l3520 ! 361: bbs $fDEF,FUNIT( r9),l3525 ! 362: movl FBUF( r9),r6 ! 363: beql l3525 ! 364: pushl r6 ! 365: calls $1,_fclose ! 366: jbs $ioERR,FLAG(r6),eclose ! 367: bbc $fTEMP,FUNIT( r9),l3525 ! 368: pushl PFNAME( r9) #remove TEMP files ! 369: calls $1,_unlink ! 370: tstl r0 ! 371: jneq eunlink ! 372: l3525: ! 373: subl3 $recsze, r9,-(sp) ! 374: movl FCHAIN( r9), r9 ! 375: calls $1,_pfree ! 376: tstl r9 ! 377: bneq l3519 ! 378: l3520: ! 379: movl r9,_fchain ! 380: ret ! 381: # ! 382: # write out the pxp data ! 383: # ! 384: _pmflush: ! 385: .word R6 ! 386: tstl _pxpbuf ! 387: beql l3521 ! 388: pushal wtopen ! 389: pushal monout ! 390: calls $2,_fopen ! 391: tstl r0 ! 392: beql l3522 ! 393: movl r0,r6 ! 394: pushl r6 ! 395: pushl $1 ! 396: pushl _pxpsize ! 397: pushl _pxpbuf ! 398: calls $4,_fwrite ! 399: bbs $ioERR,FLAG(r6),l3522 ! 400: pushl r6 ! 401: calls $1,_fclose ! 402: bbs $ioERR,FLAG(r6),l3522 ! 403: l3521: ! 404: ret ! 405: l3522: ! 406: pushal monout ! 407: calls $1,_perror ! 408: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.