Added library reference address to lightpen driver header.

[cc65] / libsrc / tgi / tgi_init.s

diff --git a/libsrc/tgi/tgi_init.s b/libsrc/tgi/tgi_init.s
index 5aab06a8391c91ad93480941ca4f977d78402f76..c8fd355d54c3dcccca5dd9c6f9ee1af8ee6a4989 100644 (file)
--- a/libsrc/tgi/tgi_init.s
+++ b/libsrc/tgi/tgi_init.s
@@ -1,16 +1,20 @@
 ;
 ; Ullrich von Bassewitz, 21.06.2002
 ;
-; void __fastcall__ tgi_init (void);
+; void tgi_init (void);
 ; /* Initialize the already loaded graphics driver */
 
 
         .include        "tgi-kernel.inc"
         .include        "tgi-error.inc"
 
-        .import         pushax
+        .import         pushax, pusha, decax1
         .importzp       ptr1
 
+
+;----------------------------------------------------------------------------
+
+.code
 .proc   _tgi_init
 
         jsr     _tgi_done               ; Switch off graphics if needed
@@ -22,12 +26,24 @@
 
         inc     _tgi_gmode              ; Remember that graph mode is active
 
+; Get the maximum X and Y coordinate
+
+        jsr     _tgi_getxres
+        jsr     decax1
+        sta     _tgi_xmax
+        stx     _tgi_xmax+1
+
+        jsr     _tgi_getyres
+        jsr     decax1
+        sta     _tgi_ymax
+        stx     _tgi_ymax+1
+
 ; Do driver initialization. Set draw and view pages.
 
-       lda     #0
-       jsr     tgi_setviewpage
-       lda     #0
-       jsr     tgi_setdrawpage
+        lda     #0
+        jsr     tgi_setviewpage
+        lda     #0
+        jsr     tgi_setdrawpage
 
 ; Set the default palette.
 
@@ -39,25 +55,20 @@
 
 ; Set the drawing color to white
 
-@L1:    lda     #TGI_COLOR_WHITE
+@L1:    lda     #tgi_color_white
         jsr     _tgi_setcolor           ; tgi_setcolor (TGI_COLOR_WHITE);
 
 ; Set the text style
 
         lda     #<$100
         ldx     #>$100
-        jsr     pushax                  ; Width scale
-        jsr     pushax                  ; Heigh scale
-        jsr     _tgi_textstyle          ; A = Direction = TEXT_VERTICAL
-
-; Clear the screen
-
-        jmp     tgi_clear
+        jsr     pushax                  ; Width scale = 1.0
+        jsr     pushax                  ; Heigh scale = 1.0
+        jsr     pusha                   ; Text direction = TGI_TEXT_HORIZONTAL
+        jmp     _tgi_settextstyle       ; A = Font = TGI_FONT_BITMAP
 
 ; Error exit
 
 @L9:    rts
 
 .endproc
-
-