6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-21 20:29:24 +00:00
Code Issues Projects Releases Wiki Activity

fixed return code for _rs232_init

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2005 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2003-03-07 00:19:22 +00:00
parent 295631d06b
commit 14b402ab7e
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
libsrc/atari/rs232.s
View File

@ -15,7 +15,7 @@
;
.import findfreeiocb
.import __seterrno, __do_oserror, __oserror
.import __do_oserror
.import fddecusage
.import fdtoiocb
.import __inviocb
@ -60,16 +60,8 @@ rshand: .word $ffff
.proc _rs232_init
jsr findfreeiocb
beq iocbok ; we found one
lda #<EMFILE ; "too many open files"
ldx #>EMFILE
seterr: jsr __seterrno
lda #$FF
tax
rts ; return -1
iocbok: txa
bne init_err
txa
tay ; move iocb # into Y
lda #3
sta tmp3 ; name length + 1
@ -102,18 +94,21 @@ doopen: tax
sta ICBLL,x ; zap buf len
sta ICBLH,x
jsr CIOV
bmi cioerr
bmi cioerr1
lda tmp2 ; get fd
sta rshand
ldx #0
stx rshand+1
txa
stx __oserror
rts
cioerr: jsr fddecusage ; decrement usage counter of fd as open failed
jmp __do_oserror
cioerr1:jsr fddecusage ; decrement usage counter of fd as open failed
init_err:
ldx #0
lda #RS_ERR_INIT_FAILED
rts
.endproc ; _rs232_init