Added library reference address to lightpen driver header.

[cc65] / libsrc / tgi / tgi_done.s

diff --git a/libsrc/tgi/tgi_done.s b/libsrc/tgi/tgi_done.s
index 83a70b580c0743a40969de569f307b782e6cf93a..8c25677927ba977caa6fff15d8f46f95d7b014d4 100644 (file)
--- 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