added support for fd indirection

git-svn-id: svn://svn.cc65.org/cc65/trunk@9 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/atari/open.s b/libsrc/atari/open.s
index 93519a6e83b58341eae03cf42394b832f2e6bde2..d39a4050e482659eb13797ec9e5aeb97d2dd58b9 100644 (file)
--- a/libsrc/atari/open.s
+++ b/libsrc/atari/open.s
@@ -2,7 +2,6 @@
 ; Christian Groessler, May-2000
 ;
 ; int open(const char *name,int flags,...);
-; returns fd
 ;
 
 UCASE_FILENAME = 1             ; comment it out if filename shouldn't be uppercased
@@ -11,10 +10,11 @@ UCASE_FILENAME      = 1             ; comment it out if filename shouldn't be uppercased
        .include "../common/fmode.inc"
        .include "../common/errno.inc"
        .export _open
+       .import fddecusage,newfd
        .import __do_oserror,__seterrno,incsp4
        .import ldaxysp,addysp,subysp
        .import _strupr,__oserror
-       .importzp tmp4,sp
+       .importzp tmp4,tmp2,sp
 .ifdef UCASE_FILENAME
        .importzp tmp3,ptr4
 .endif
@@ -118,10 +118,15 @@ loop2:    lda     (ptr4),y
 
        ldy     tmp4
 
+       ;AX - points to filename
+       ;Y  - iocb to use, if open needed
        jsr     newfd           ; maybe we don't need to open and can reuse an iocb
-       bcc     noopen
+                               ; returns fd num to use in tmp2, all regs unchanged
+       bcs     doopen          ; C set: open needed
+       lda     #0              ; clears N flag
+       beq     finish
 
-       sta     ICBAL,y
+doopen:        sta     ICBAL,y
        txa
        sta     ICBAH,y
        ldx     tmp4
@@ -131,7 +136,7 @@ loop2:      lda     (ptr4),y
 
        ; clean up the stack
 
-       php
+finish:        php
        txa
        pha
        tya
@@ -151,13 +156,10 @@ loop2:    lda     (ptr4),y
        plp
 
        bpl     ok
+       jsr     fddecusage      ; decrement usage counter of fd as open failed
        jmp     __do_oserror
 
-ok:    txa
-       lsr     a
-       lsr     a
-       lsr     a
-       lsr     a
+ok:    lda     tmp2            ; get fd
        ldx     #0
        stx     __oserror
        rts