Return to 32iostat.s CVS log

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

Annotation of 41BSD/cmd/px/32iostat.s, revision 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.