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_init.s
+++ b/libsrc/tgi/tgi_init.s
@@ -0,0 +1,24 @@
+;
+; Ullrich von Bassewitz, 21.06.2002
+;
+; void __fastcall__ tgi_init (unsigned char mode);
+; /* Initialize the given graphics mode. */
+
+
+        .include        "tgi-kernel.inc"
+        .include        "tgi-error.inc"
+
+        .import         _tgi_done
+        .export         _tgi_init
+
+_tgi_init:
+        pha                             ; Save mode
+        jsr     _tgi_done               ; Switch off graphics if needed
+        jsr     tgi_init                ; Initialize the mode
+        jsr     tgi_fetch_error         ; Get the error code
+        pla                             ; Restore the mode
+        ldx     _tgi_error              ; Did we have an error before?
+        bne     @L1                     ; Jump if yes
+        sta     _tgi_mode               ; Set the current mode if not
+@L1:    rts
+