Shortened the code

git-svn-id: svn://svn.cc65.org/cc65/trunk@1836 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/tgi/tgi-kernel.s b/libsrc/tgi/tgi-kernel.s
index 1aea1f82c95fdd45c195d8e7122bf1c4ff1f75af..efef4209557f104a033a905d594b93a5f6f6e677 100644 (file)
--- a/libsrc/tgi/tgi-kernel.s
+++ b/libsrc/tgi/tgi-kernel.s
@@ -99,15 +99,9 @@ _tgi_setup:
         lda     #>tgi_emu_bar
         sta     tgi_bar+2
 
-@L2:    lda    ptr1
-       pha
-       lda     ptr1+1
-       pha
-       jsr     tgi_install             ; Call driver install routine
-        pla                             ; (may update variables)
-       sta     ptr1+1                  ; (may modify ptr1 so it is preserved)
-       pla
-       sta     ptr1
+@L2:    jsr     tgi_install             ; Call driver install routine, may...
+                                        ; ...update variables
+        jsr     tgi_set_ptr             ; Set ptr1 to tgi_drv
 
 ; Copy variables. Beware: We are using internal knowledge about variable
 ; layout here!