Return to 30read.s CVS log

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

Annotation of 3BSD/cmd/px/30read.s, revision 1.1

1.1     ! root        1: #
        !             2: # 30read.s
        !             3: #
        !             4: # READ OPERATIONS
        !             5: #
        !             6: _GET:
        !             7:        incl    r10
        !             8:        calls   $0,_iosync      #insure that something is in the window
        !             9:        bisw2   $SYNC,FUNIT(r7) #throw it away
        !            10:        jmp     (r8)
        !            11: _FNIL:
        !            12:        incl    r10
        !            13:        movl    (sp),r0
        !            14:        bbs     $fWRITE,FUNIT(r0),l3002 #ignore sync of output files
        !            15:        movl    r7,r2
        !            16:        movl    _file,r3
        !            17:        calls   $0,_unit        #do not discard arguement to unit on return
        !            18:        calls   $0,_iosync
        !            19:        movl    r2,r7
        !            20:        movl    r3,_file
        !            21: l3002:
        !            22:        jmp     (r8)
        !            23: _READ4:
        !            24:        incl    r10
        !            25:        calls   $0,_unsync      #prepare input stream
        !            26:        pushl   $0              #space for answer
        !            27:        pushl   sp              #ptr to answer space
        !            28:        pushal  rd4             #ptr to input format
        !            29:        pushl   FBUF(r7)        #stream
        !            30:        calls   $3,_fscanf
        !            31:        cmpl    $1,r0
        !            32:        bneq    eiread
        !            33:        bisw2   $SYNC,FUNIT(r7)
        !            34:        jmp     (r8)
        !            35: eiread:
        !            36:        movw    $EBADINUM,_perrno
        !            37:        jbr     error
        !            38: _READ8:
        !            39:        incl    r10
        !            40:        calls   $0,_unsync      #prepare input stream
        !            41:        clrd    -(sp)           #space for answer
        !            42:        pushl   sp              #ptr to answer space
        !            43:        pushal  rd8             #ptr to input format
        !            44:        pushl   FBUF(r7)        #stream
        !            45:        calls   $3,_fscanf
        !            46:        cmpl    $1,r0
        !            47:        bneq    efread
        !            48:        bisw2   $SYNC,FUNIT(r7)
        !            49:        jmp     (r8)
        !            50: efread:
        !            51:        movw    $EBADFNUM,_perrno
        !            52:        jbr     error
        !            53: _READLN:
        !            54:        incl    r10
        !            55:        calls   $0,_iosync
        !            56:        bbs     $fEOLN,FUNIT(r7),l3005  #check for already at end of line
        !            57:        pushal  rdln
        !            58:        pushl   FBUF(r7)
        !            59:        calls   $2,_fscanf
        !            60: l3005:
        !            61:        bisw2   $SYNC,FUNIT(r7)
        !            62:        jmp     (r8)
        !            63: _READC:
        !            64:        incl    r10
        !            65:        calls   $0,_iosync
        !            66:        cvtbw   (r7),-(sp)
        !            67:        bisw2   $SYNC,FUNIT(r7)
        !            68:        jmp     (r8)
        !            69: 
        !            70: rd4:   .byte   '%,'l,'d, 0
        !            71: rd8:   .byte   '%,'l,'f, 0
        !            72: rdln:  .byte   '%,'*,'[,'^,linefeed,'],'%,'*,'c, 0

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