X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Ftgi%2Ftgi_done.s;h=8c25677927ba977caa6fff15d8f46f95d7b014d4;hb=66ca781bb176cf316bb068d970fd7b3495d51e90;hp=83a70b580c0743a40969de569f307b782e6cf93a;hpb=f82ac8a91cdb71a17fd830745eb0ce2669afa6c8;p=cc65

diff --git a/libsrc/tgi/tgi_done.s b/libsrc/tgi/tgi_done.s
index 83a70b580..8c2567792 100644
--- a/libsrc/tgi/tgi_done.s
+++ b/libsrc/tgi/tgi_done.s
@@ -1,22 +1,19 @@
 ;
 ; Ullrich von Bassewitz, 21.06.2002
 ;
-; void __fastcall__ tgi_done (void);
+; void tgi_done (void);
 ; /* End graphics mode, switch back to text mode. Will NOT unload the driver! */
 
         .include        "tgi-kernel.inc"
+        .include        "tgi-error.inc"
 
-        .export         _tgi_done
+.proc   _tgi_done
 
-_tgi_done:
-        lda     _tgi_mode               ; Is a graphics mode active?
+        lda     _tgi_gmode              ; Is a graphics mode active?
         beq     @L1                     ; Jump if not
         jsr     tgi_done                ; Call the driver routine
-        jsr     tgi_fetch_error         ; Get the error code
-        lda     _tgi_error              ; Did we have an error?
-        bne     @L1                     ; Jump if yes
-        sta     _tgi_mode               ; Reset the current mode
+        lda     #$00
+        sta     _tgi_gmode              ; Reset the graph mode flag
 @L1:    rts
 
-
-
+.endproc