mirror of
https://github.com/cc65/cc65.git
synced 2024-08-29 09:29:19 +00:00
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
78 lines
1.6 KiB
ArmAsm
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
|