BSD 4 release

[unix-history] / usr / src / cmd / px / 30read.s

#\f
# Copyright (c) 1979 Regents of the University of California
#
# char sccsid[] = "@(#)30read.s 4.2 10/29/80";
#
# READ OPERATIONS
#
_GET:
       incl    r10
       calls   $0,_iosync      #insure that something is in the window
       jbs     $fEOF,FUNIT(r7),eeof
       bisw2   $SYNC,FUNIT(r7) #throw it away
       jmp     (r8)
eeof:
       movw    $EPASTEOF,_perrno
       jbr     error
_FNIL:
       incl    r10
       movl    (sp),r0
       jbs     $fWRITE,FUNIT(r0),l3002 #ignore sync of output files
       movl    r7,r6
       calls   $0,_unit        #do not discard arguement to unit on return
       calls   $0,_iosync
       jbs     $fEOF,FUNIT(r7),eeof
       movl    r6,r7
       movl    PFNAME(r7),_file
l3002:
       jmp     (r8)
_READ4:
       incl    r10
       calls   $0,_unsync      #prepare input stream
       pushl   $0              #space for answer
       pushl   sp              #ptr to answer space
       pushal  rd4             #ptr to input format
       pushl   FBUF(r7)        #stream
       calls   $3,_fscanf
       cmpl    $1,r0
       bneq    eiread
       bisw2   $SYNC,FUNIT(r7)
       jmp     (r8)
eiread:
       movw    $EBADINUM,_perrno
       jbr     error
_READ8:
       incl    r10
       calls   $0,_unsync      #prepare input stream
       clrd    -(sp)           #space for answer
       pushl   sp              #ptr to answer space
       pushal  rd8             #ptr to input format
       pushl   FBUF(r7)        #stream
       calls   $3,_fscanf
       cmpl    $1,r0
       bneq    efread
       bisw2   $SYNC,FUNIT(r7)
       jmp     (r8)
efread:
       movw    $EBADFNUM,_perrno
       jbr     error
_READLN:
       incl    r10
       calls   $0,_iosync
       jbs     $fEOLN,FUNIT(r7),l3005  #check for already at end of line
       movab   -1024(sp),sp    #temp space
       pushl   FBUF(r7)        #file
       pushl   $1024           #buffer
       pushal  8(sp)           #ptr to buffer
       calls   $3,_fgets
       movab   1024(sp),sp     #pop temp space
l3005:
       jbs     $fEOF,FUNIT(r7),eeof
       bisw2   $SYNC,FUNIT(r7)
       jmp     (r8)
_READC:
       incl    r10
       calls   $0,_iosync
       cvtbw   (r7),-(sp)
       jbs     $fEOF,FUNIT(r7),eeof
       bisw2   $SYNC,FUNIT(r7)
       jmp     (r8)
_READE:
       incl    r10
       calls   $0,_unsync      #push back char if present
       subl2   $bufsze,sp      #allocate space for name
       pushl   sp              #ptr to buffer
       pushal  rden            #format string
       pushl   FBUF(r7)        #FILE ptr
       calls   $3,_fscanf      #read name
       cmpl    r0,$1           #check for valid input
       bneq    entfd
       locc    $0,$bufsze,(sp) #find size of input
       subl3   r0,$bufsze+1,r6 #r6 has length of input
       addl3   (r10),ap,r5     #r5 points to candidate data
       cvtwl   (r5)+,r4        #r4 has number of candidates
       movaw   2(r5)[r4],r1    #r1 has addr of candidate name list
l3006:
       subw3   (r5)+,(r5),r0   #r0 has candidate length
       cmpw    r0,r6           #check for correct length
       bneq    l3007
       cmpc3   r0,(r1),(sp)    #check for actual match
       beql    l3008
l3007:
       addl2   r0,r1           #update ptr to next candidate
       sobgtr  r4,l3006
entfd:
       addl2   $bufsze,sp      #deallocate buffer
       addl2   $4,r10
       movw    $ENUMNTFD,_perrno
       jbr     error
l3008:
       addl2   $bufsze,sp      #deallocate buffer
       addl3   (r10)+,ap,r0    #r0 has number of cases
       subw3   r4,(r0),-(sp)   #push internal value
       jmp     (r8)

       .set    bufsze,84
rd4:    .asciz  "%ld"
rd8:    .asciz  "%lf"
rden:   .asciz  "%*[ \t\n]%80[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]",