1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 17:29:50 +00:00
cc65/libsrc/atari/rwcommon.s
uz 53dd513176 This commit was generated by cvs2svn to compensate for changes in r2,
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
2000-05-28 13:40:48 +00:00

78 lines
1.6 KiB
ArmAsm

;
; common iocb setup routine for read, write
; expects parameters (int fd,void *buf,int count)
;
.include "atari.inc"
.include "../common/errno.inc"
.importzp tmp2,tmp3
.import incsp6,ldaxysp
.import __errno,__oserror
.import fdtoiocb
.export __rwsetup
__rwsetup:
ldy #5
jsr ldaxysp ; get fd
jsr fdtoiocb ; convert to iocb
bmi iocberr
; asl a ; iocb # --> iocb index
; asl a
; asl a
; asl a
sta tmp3 ; save it
ldy #1
jsr ldaxysp ; get size
php ; save cond codes, for zero-ness
stx tmp2
ldx tmp3 ; iocb
cpx #$80 ; iocb must be 0...7
bcs iocberr
sta ICBLL,x
lda tmp2 ; size hi
sta ICBLH,x
ldy #3 ; get buf addr (was 2 in orig. version)
jsr ldaxysp
stx tmp2
ldx tmp3
sta ICBAL,x
lda tmp2
sta ICBAH,x
jsr incsp6 ; pop args
plp
rts
iocberr:jsr incsp6 ; pop args
plp ; throw away
ldx #$FF ; indicate error + clear ZF
rts
;
; this routine updates errno. do a JMP here right after calling
; CIOV. we expect status in Y.
;
.export __do_oserror,__seterrno,__inviocb
__do_oserror:
sty __oserror ; save os dependent error code
retminus:
lda #$FF
tax ; return -1
rts
__seterrno:
sta __errno
stx __errno+1
rts
;
; sets EINVAL error code and returns -1
;
__inviocb:
lda #<EINVAL
ldx #>EINVAL
jsr __seterrno
jmp retminus ; return -1