6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-26 08:32:00 +00:00
Code Issues Projects Releases Wiki Activity

fix return Z flag: it was set if the LSB of the length was zero and

Browse Source 
didn't care about the MSB


git-svn-id: svn://svn.cc65.org/cc65/trunk@1207 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2002-03-24 23:44:16 +00:00
parent 9cfcdfab53
commit f709fd679b
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/atari/rwcommon.s
View File

@ -5,7 +5,7 @@
.include "atari.inc"
.include "../common/errno.inc"
.importzp tmp2,tmp3
.import incsp6,ldaxysp
.import incsp6,ldax0sp,ldaxysp
.import __errno,__oserror
.import fdtoiocb
@ -17,18 +17,12 @@ __rwsetup:
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
jsr ldax0sp ; get size
stx tmp2
ldx tmp3 ; iocb
cpx #$80 ; iocb must be 0...7
bcs iocberr
bcs iocberr
sta ICBLL,x
lda tmp2 ; size hi
sta ICBLH,x
@ -40,11 +34,11 @@ __rwsetup:
lda tmp2
sta ICBAH,x
jsr incsp6 ; pop args
plp
lda ICBLL,x
ora ICBLH,x ; return with Z if length was 0
rts
iocberr:jsr incsp6 ; pop args
plp ; throw away
ldx #$FF ; indicate error + clear ZF
rts