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_unload.s
+++ b/libsrc/tgi/tgi_unload.s
@@ -0,0 +1,32 @@
+;
+; Ullrich von Bassewitz, 21.06.2002
+;
+; void __fastcall__ tgi_unload (void);
+; /* Unload the currently loaded driver. */
+
+
+        .include        "tgi-kernel.inc"
+        .include        "modload.inc"
+
+        .import         _tgi_done
+        .export         _tgi_unload
+
+
+_tgi_unload:
+        jsr     _tgi_done               ; Switch off graphics
+        jsr     tgi_deinstall           ; Allow the driver to clean up
+
+        lda     _tgi_drv
+        ldx     _tgi_drv+1
+        jsr     _mod_free               ; Free the driver
+
+; Clear variables
+
+        lda     #$00
+        sta     _tgi_drv
+        sta     _tgi_drv+1
+        sta     _tgi_error
+        
+        rts
+
+