;
; Ullrich von Bassewitz, 21.06.2002
;
-; void __fastcall__ tgi_init (void);
+; void tgi_init (void);
; /* Initialize the already loaded graphics driver */
; 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.
; 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 pusha ; Text direction = TGI_TEXT_VERTICAL
- jsr _tgi_textstyle ; A = Font = TGI_FONT_BITMAP
-
-; 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
-
-