X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fatari%2Fgraphics.s;h=ab26ed0da90bb4f36dcbaee73fb6a00fe34e372e;hb=b727c075e9935078cf8f34baeacb8a32439794e1;hp=cad5412bc3298120fd36fb5f75fc8246231edd3e;hpb=3a8150f03d2357957d6d34564b1e406477b10fa1;p=cc65

diff --git a/libsrc/atari/graphics.s b/libsrc/atari/graphics.s
index cad5412bc..ab26ed0da 100644
--- a/libsrc/atari/graphics.s
+++ b/libsrc/atari/graphics.s
@@ -10,12 +10,12 @@
         .export __graphics
 
         .import findfreeiocb
-        .import __do_oserror,__oserror
+        .import __oserror
         .import fddecusage
         .import clriocb
         .import fdtoiocb
         .import newfd
-	.import	scrdev
+        .import scrdev
         .importzp tmp1,tmp2,tmp3
 
         .include        "atari.inc"
@@ -97,7 +97,12 @@ doopen: txa
         stx     __oserror
         rts
 
-cioerr: jsr     fddecusage      ; decrement usage counter of fd as open failed
-        jmp     __do_oserror
+cioerr: sty     tmp3            ; remember error code
+        lda     #CLOSE
+        sta     ICCOM,x
+        jsr     CIOV            ; close IOCB again since open failed
+        jsr     fddecusage      ; and decrement usage counter of fd
+        lda     tmp3            ; put error code into A
+        jmp     __mappederrno
 
 .endproc        ; __graphics