6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-27 09:33:42 +00:00
Code Issues Projects Releases Wiki Activity

space improvements by Daniel Serpell

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4484 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2009-11-25 17:03:18 +00:00
parent ce931b85be
commit d17e0f7c02
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
libsrc/atari/rwcommon.s
View File

@ -5,44 +5,44 @@
.include "atari.inc"
.include "errno.inc"
.importzp tmp2,tmp3
.import incsp4,ldax0sp,ldaxysp
.import popax
.import __errno,__oserror
.import fdtoiocb
.export __rwsetup
__rwsetup:
sta tmp2
stx tmp3 ; remember size
ldy #3
jsr ldaxysp ; get fd
pha ; push size in stack
txa
pha
jsr popax ; get buffer address
pha
txa
pha
jsr popax ; get handle
jsr fdtoiocb ; convert to iocb
bmi iocberr
bmi iocberr ; negative (X=$FF or A>$7F) on error.
tax
cpx #$80 ; iocb must be 0...7
bcs iocberr
lda tmp2
sta ICBLL,x
lda tmp3 ; size hi
sta ICBLH,x
stx tmp3
jsr ldax0sp ; get buf addr
stx tmp2
ldx tmp3
sta ICBAL,x
lda tmp2
pla ; store address
sta ICBAH,x
jsr incsp4 ; pop args
lda ICBLL,x
ora ICBLH,x ; return with Z if length was 0
pla
sta ICBAL,x
pla ; store length
sta ICBLH,x
pla
sta ICBLL,x
ora ICBLH,x ; returns Z if length is 0
rts
iocberr:jsr incsp4 ; pop args
iocberr:pla
pla
pla
pla
ldx #$FF ; indicate error + clear ZF
rts
;
; this routine updates errno. do a JMP here right after calling
; CIOV. we expect status in Y.