TGI Implementation

git-svn-id: svn://svn.cc65.org/cc65/trunk@1312 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-06-21 13:28:51 +00:00
parent e50b24d46a
commit f82ac8a91c
7 changed files with 97 additions and 5 deletions
--- a/libsrc/tgi/tgi_done.s
+++ b/libsrc/tgi/tgi_done.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 21.06.2002
+;
+; void __fastcall__ tgi_done (void);
+; /* End graphics mode, switch back to text mode. Will NOT unload the driver! */
+
+        .include        "tgi-kernel.inc"
+
+        .export         _tgi_done
+
+_tgi_done:
+        lda     _tgi_mode               ; 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
+@L1:    rts
+
+
+