mirror of
https://github.com/cc65/cc65.git
synced 2024-11-04 17:04:58 +00:00
53dd513176
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
34 lines
672 B
ArmAsm
34 lines
672 B
ArmAsm
;
|
|
; Christian Groessler, Apr-2000
|
|
;
|
|
; int read(int fd,void *buf,int count)
|
|
;
|
|
|
|
.include "atari.inc"
|
|
.import __rwsetup,__do_oserror,__inviocb,__oserror
|
|
.export _read
|
|
|
|
_read: jsr __rwsetup ; do common setup for read and write
|
|
beq done ; if size 0, it's a no-op
|
|
cpx #$FF ; invalid iocb?
|
|
beq _inviocb
|
|
lda #GETCHR ; iocb command code
|
|
sta ICCOM,x
|
|
jsr CIOV ; read it
|
|
bpl done
|
|
cpy #EOFERR ; eof is treated specially
|
|
beq done
|
|
jmp __do_oserror ; update errno
|
|
|
|
done: lda ICBLL,x ; buf len lo
|
|
pha ; save
|
|
lda ICBLH,x ; get buf len hi
|
|
tax ; to X
|
|
lda #0
|
|
sta __oserror ; clear system dependend error code
|
|
pla ; get buf len lo
|
|
rts
|
|
|
|
_inviocb:
|
|
jmp __inviocb
|