Return to 33iofile.s CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / px

Annotation of 3BSD/cmd/px/33iofile.s, revision 1.1.1.1

1.1       root        1: #
                      2: # 33iofile.s
                      3: #
                      4: # FILE HOUSEKEEPING OPERATIONS
                      5: #
                      6: _DEFNAME:
                      7:        calls   $0,_getname
                      8:        movl    r1,sp
                      9:        bisw2   $FDEF,FUNIT(r0)
                     10:        jmp     (r8)
                     11: _BUFF:
                     12:        cvtbw   (r10)+,_bufopt
                     13:        jmp     (r8)
                     14: _RESET:
                     15:        cvtbl   (r10),r3                #attempt to rewind only if stdin
                     16:        bneq    l3301           # and no name is given
                     17:        cmpl    *(sp),$stdin
                     18:        bneq    l3301
                     19:        tstb    stdin+FNAME
                     20:        bneq    l3301
                     21:        pushl   stdin+FBUF
                     22:        calls   $1,_rewind
                     23:        tstl    r0              # -1 => error
                     24:        blss    eseek
                     25:        addl2   $3,r10
                     26:        addl2   $4,sp           #clear stack
                     27:        bicw2   $EOF+EOLN,stdin+FUNIT
                     28:        bisw2   $SYNC,stdin+FUNIT
                     29:        jmp     (r8)
                     30: l3301:
                     31:        calls   $0,_getname
                     32:        movl    r1,sp
                     33:        movl    r0,r6
                     34:        pushal  rdopen
                     35:        pushal  FNAME(r6)
                     36:        calls   $2,_fopen
                     37:        tstl    r0
                     38:        beql    eopen
                     39:        movl    r0,FBUF(r6)
                     40:        bisw2   $SYNC+FREAD,FUNIT(r6)
                     41:        jmp     (r8)
                     42: eseek:
                     43:        movl    stdin+PFNAME,_file
                     44:        movw    $ESEEK,_perrno
                     45:        jbr     error
                     46: eopen:
                     47:        movl    PFNAME(r6),_file
                     48:        movw    $EOPEN,_perrno
                     49:        jbr     error
                     50: _REWRITE:
                     51:        calls   $0,_getname
                     52:        movl    r1,sp
                     53:        movl    r0,r6
                     54:        movl    PFNAME(r6),_file
                     55:        pushal  wtopen
                     56:        pushal  FNAME(r6)
                     57:        calls   $2,_fopen
                     58:        tstl    r0
                     59:        beql    ecreat
                     60:        movl    r0,FBUF(r6)
                     61:        bisw2   $EOF+FWRITE,FUNIT(r6)
                     62:        jmp     (r8)
                     63: ecreat:
                     64:        movw    $ECREATE,_perrno
                     65:        jbr     error
                     66: _FLUSH:
                     67:        incl    r10
                     68:        calls   $1,_unit
                     69:        bbc     $fWRITE,FUNIT(r7),l3302
                     70:        pushl   FBUF(r7)
                     71:        calls   $1,_fflush
                     72: l3302:
                     73:        jmp     (r8)
                     74: _REMOVE:
                     75:        cvtbl   (r10)+,r3       #r3 has filename length
                     76:        bneq    l3303
                     77:        cvtwl   (r10)+,r3
                     78: l3303:
                     79:        movl    r3,r6           #r6 has stack length
                     80:        blbc    r6,l3304
                     81:        incl    r6
                     82: l3304:
                     83:        addl3   r3,sp,r1        #r1 pts to end of name
                     84: l3305:
                     85:        cmpb    -(r1),$blank    #delete trailing blanks
                     86:        bneq    l3306           #(note: could use "spanc" here)
                     87:        clrb    (r1)
                     88:        sobgtr  r3,l3305
                     89: l3306:
                     90:        movl    sp,_file        #remove file
                     91:        pushl   sp
                     92:        calls   $1,_unlink
                     93:        tstl    r0
                     94:        bneq    eremove
                     95:        addl2   r6,sp
                     96:        jmp     (r8)
                     97: eremove:
                     98:        movl    _file,sp        #recover filename
                     99:        movw    $EREMOVE,_perrno
                    100:        jbr     error
                    101: _MESSAGE:
                    102:        incl    r10
                    103:        calls   $0,_pflush
                    104:        pushal  stderr
                    105:        calls   $1,_unit
                    106:        jmp     (r8)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.