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_geterror.s
+++ b/libsrc/tgi/tgi_geterror.s
@@ -2,12 +2,16 @@
 ; Ullrich von Bassewitz, 21.06.2002
 ;
 ; unsigned char __fastcall__ tgi_geterror (void);
-; /* Return the error code for the last operation. */
+; /* Return the error code for the last operation. This will also clear the 
+;  * error. 
+;  */

        .include        "tgi-kernel.inc"


 _tgi_geterror:
+        ldx     #0
        lda     _tgi_error
+        stx     _tgi_error
        rts