BSD 1 development

[unix-history] / px / 30io.s

/
/ IO operations
/
_GET:
       jsr     pc,get
       jsr     pc,iosync
       return
_PUT:
       jsr     pc,put
       return
_MESSAGE:
       mov     $_unit2,r0
       jsr     pc,unit
       mov     fchain,r2       / flush all files
1:
       beq     2f
       bit     $FWRITE,FUNIT(r2)
       beq     3f
       mov     FBUF(r2),-(sp)
       jsr     pc,_fflush
       tst     (sp)+
3:
       mov     FCHAIN(r2),r2
       br      1b
2:
       mov     $_unit1,r2
       mov     FBUF(r2),-(sp)
       jsr     pc,_fflush
       tst     (sp)+
       return
_FNIL:
       mov     (sp),r0
       mov     _file,-(sp)
       mov     buf,-(sp)
       jsr     pc,unit
       jsr     pc,iosync
       mov     (sp)+,buf
       mov     (sp)+,_file
       return
_BUFF:
       mov     r3,bufopt
       return
_EOF:
       mov     (sp)+,r0
       mov     _file,-(sp)
       mov     buf,-(sp)
       mov     $EOF,-(sp)
       br      1f
_EOLN:
       mov     (sp)+,r0
       mov     _file,-(sp)
       mov     buf,-(sp)
       mov     $EOF+EOLN,-(sp)
1:
       jsr     pc,unit
       cmp     buf,$_unit0
       bne     1f
       cmp     bufopt,$1
       bne     1f
       mov     $u1buf,-(sp)
       jsr     pc,_fflush
       tst     (sp)+
1:
       mov     (sp)+,r1
       clr     -(sp)
       mov     buf,r2
       bit     $EOF,FUNIT(r2)
       bne     2f
       jsr     pc,iosync
       bit     r1,FUNIT(r2)
       beq     1f
2:
       mov     $1,(sp)
1:
       mov     (sp)+,r0
       mov     (sp)+,buf
       mov     (sp)+,_file
       mov     r0,-(sp)
       return
_RESET:
       bne     1f              / branch if name given
       cmp     *(sp),$_unit0
       bne     1f
       tst     _unit0+FNAME
       bne     1f
       clr     r0
       sys     seek; 0; 0
       bes     9f
       tst     (sp)+
       tst     (lc)+
       bic     $EOF+EOLN,_unit0+FUNIT
       bis     $SYNC,_unit0+FUNIT
       return
9:
       mov     $stdin,_file
       mov     r0,_errno
       mov     $ESEEK,_perrno
       error   ESEEK
1:
       jsr     pc,getname
       mov     r0,r1
       mov     PFNAME(r1),_file
       mov     FNAME(r1),openrnm
       sys     indir; openr
       bes     eopen
       mov     r0,*FBUF(r1)
       bis     $SYNC|FREAD,r0
       bis     r0,FUNIT(r1)
       return
ecreat:
       mov     r0,_errno
       mov     $ECREATE,_perrno
       error   ECREATE
eopen:
       mov     r0,_errno
       mov     $EOPEN,_perrno
       error   EOPEN
.data
openr:  sys     open; openrnm: .. ; 0
creit:  sys     creat; crenm: ..; 0644
openw:  sys     open; openwnm: .. ; 1
.text
_REWRITE:
       jsr     pc,getname
       mov     r0,r1
       mov     PFNAME(r1),_file
       mov     FNAME(r1),crenm
       sys     indir; creit
       bes     ecreat
       sys     close
       mov     FNAME(r1),openwnm
       sys     indir; openw
       bes     eopen
       mov     r0,*FBUF(r1)
       bis     $EOF|FWRITE,r0
       bis     r0,FUNIT(r1)
       return
_REMOVE:
       bne     1f
       mov     (lc)+,r3
1:
       mov     sp,r1
       mov     r3,r2
       inc     r2
       bic     $1,r2
       add     r2,sp
       add     r3,r1
       mov     r1,r0
       movb    (r1),r2
       clrb    (r1)
1:
       cmpb    -1(r1),$' 
       bne     1f
       clrb    -(r1)
       dec     r3
       bne     1b
1:
       sub     r3,r1
       mov     r1,1f
       mov     r1,_file
       sys     indir; 0f
       bes     9f
       movb    r2,(r0)
       return
.data
0:      sys     unlink; 1: ..
.text
9:
       mov     _file,sp
       mov     r0,_errno
       mov     $EREMOVE,_perrno
       error   EREMOVE
_UNITINP:
       cmp     bufopt,$2
       bge     1f                      / bufopt >= 2, don't flush on read
       cmp     $512.,u1cnt
       beq     1f
       mov     $u1buf,-(sp)
       jsr     pc,_fflush
       tst     (sp)+
1:
       mov     $_unit0,buf
       mov     $stdin,_file
       return
_UNITOUT:
       mov     $_unit1,buf
       mov     $stdout,_file
       return
_UNIT:
       mov     (sp)+,r0
       cmp     r0,$_unit0
       beq     _UNITINP
       jsr     pc,unit
       return
_READ8:
       sub     $32.,sp
       mov     sp,-(sp)
       mov     $32.,-(sp)
       mov     $1,-(sp)
       jsr     pc,_preadn
       bcs     1f
       add     $6,sp
       mov     sp,-(sp)
       jsr     pc,_atof
       add     $34.,sp
       movf    fr0,-(sp)
       return
1:
       add     $38.,sp
       clrf    -(sp)
       return
_READ4:
       sub     $20.,sp
       mov     sp,-(sp)
       mov     $20.,-(sp)
       clr     -(sp)
       jsr     pc,_preadn
       bcs     1f
       add     $6.,sp
       mov     sp,-(sp)
       jsr     pc,_atol
       add     $22.,sp
       mov     r1,-(sp)
       mov     r0,-(sp)
       return
1:
       add     $26.,sp
       clr     -(sp)
       sxt     -(sp)
       return
_READC:
       jsr     pc,iosync
       clr     -(sp)
       movb    *buf,(sp)
       jsr     pc,get
       return
_READLN:
       jsr     pc,iosync
       mov     buf,r0
       bit     $EOLN+EOF,FUNIT(r0)
       bne     1f
       jsr     pc,get
       br      _READLN
1:
       jsr     pc,get
       return
_PAGE:
       mov     $14,-(sp)
       br      1f
_WRITC:
       beq     1f
       mov     $323,r0
       br      pwriteit
1:
       movb    (sp)+,*buf
       jsr     pc,put
       tst     bufopt
       beq     2f
       return
_WRITLN:
       mov     $327,r0
       mov     $'\n,-(sp)
       mov     $1,r2
       cmp     buf,$_unit1
       bne     1f
       cmp     bufopt,$1
       bgt     1f
       clr     r2
       br      1f
_WRITG:
       mov     $325,r0
       mov     (lc)+,-(sp)
       br      pwriteit
_WRHEX2:
       mov     $267,r0
       br      3f
_WRHEX4:
       mov     $277,r0
       br      3f
_WROCT2:
       mov     $330,r0
       br      3f
_WROCT4:
       mov     $331,r0
       br      3f
_WRIT2:
       mov     $320,r0
       br      3f
_WRIT4:
       mov     $321,r0
       br      3f
_WRIT8:
       mov     $324,r0
       br      3f
_WRITB:
       mov     $322,r0
       br      3f
_WRIT82:
       mov     $326,r0
3:
pwriteit:
       mov     bufopt,r2
1:
       mov     r3,-(sp)
       mov     r0,-(sp)
       jsr     pc,_pwrite
       mov     r0,sp
       tst     r2
       bne     1f
2:
       cmp     buf,$_unit1
       bne     1f
       mov     buf,r0
       mov     FBUF(r0),-(sp)
       jsr     pc,_fflush
       tst     (sp)+
1:
       return
_DEFNAME:
       jsr     pc,getname
       bis     $100000,FUNIT(r0)
       return
_FLUSH:
       mov     (sp)+,r0
       jsr     pc,unit
       mov     buf,r0
       bit     $FWRITE,FUNIT(r0)
       beq     1f
       mov     FBUF(r0),-(sp)
       jsr     pc,_fflush
       tst     (sp)+
1:
       return