More work on the graphics subsystem

git-svn-id: svn://svn.cc65.org/cc65/trunk@1334 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-07-07 10:30:31 +00:00
parent 0fec0ce4d0
commit 104ce990cb
16 changed files with 209 additions and 102 deletions
--- a/libsrc/tgi/tgi_geterror.s
+++ b/libsrc/tgi/tgi_geterror.s
@@ -11,8 +11,11 @@
        .export         _tgi_geterror

 _tgi_geterror:
-        ldx     #0
-        lda     _tgi_error
-        stx     _tgi_error
-        rts
+        jsr     tgi_geterror            ; First call driver
+        ldx     #$00                    ; Clear high byte
+        ldy     _tgi_error              ; Test high level error code
+        beq     @L1                     ; Branch if no high level error code
+        tya                             ; Use high level code if we have one
+        stx     _tgi_error              ; Clear high level error code
+@L1:    rts