Return to 32iostat.s CVS log

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

Annotation of 40BSD/cmd/px/32iostat.s, revision 1.1.1.1

1.1       root        1: #
                      2: # Copyright (c) 1979 Regents of the University of California
                      3: #
                      4: # char sccsid[] = "@(#)32iostat.s 4.2 10/16/80";
                      5: #
                      6: # FILE ACTIVATION AND STATUS OPERATIONS
                      7: #
                      8: _UNIT:
                      9:        incl    r10
                     10:        calls   $1,_unit
                     11:        jmp     (r8)
                     12: _UNITINP:
                     13:        incl    r10
                     14:        pushal  stdin
                     15:        calls   $1,_unit
                     16:        jmp     (r8)
                     17: _UNITOUT:
                     18:        incl    r10
                     19:        moval   stdout,r7
                     20:        movl    stdout+PFNAME,_file
                     21:        jmp     (r8)
                     22: _EOF:
                     23:        incl    r10
                     24:        movl    r7,r6           #save active file
                     25:        calls   $1,_unit
                     26:        movw    $1,-(sp)
                     27:        bitw    $EOF,FUNIT(r7)
                     28:        bneq    l3202
                     29:        calls   $0,_iosync
                     30:        bitw    $EOF,FUNIT(r7)
                     31:        bneq    l3202
                     32:        clrw    (sp)
                     33: l3202:
                     34:        movl    r6,r7           #restore active file
                     35:        movl    PFNAME(r7),_file
                     36:        jmp     (r8)
                     37: _EOLN:
                     38:        incl    r10
                     39:        movl    r7,r6           #save active file
                     40:        calls   $1,_unit
                     41:        clrw    -(sp)
                     42:        calls   $0,_iosync
                     43:        bitw    $EOLN,FUNIT(r7)
                     44:        beql    l3205
                     45:        incw    (sp)
                     46: l3205:
                     47:        movl    r6,r7           #restore active file
                     48:        movl    PFNAME(r7),_file
                     49:        jmp     (r8)

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