From a6888c5e46465bc8c65b7621348093b801fe3cff Mon Sep 17 00:00:00 2001
From: izydorst <izydorst@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 2 Jan 2003 22:18:30 +0000
Subject: [PATCH] TGI drivers updated for current API (INIT call has changed)

git-svn-id: svn://svn.cc65.org/cc65/trunk@1873 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/Makefile              |  2 +-
 libsrc/c128/c128-640-200-2.s |  7 ++-----
 libsrc/c128/c128-640-480-2.s |  8 ++------
 libsrc/c64/c64-320-200-2.s   |  9 +++------
 libsrc/geos/devel/geos-tgi.s | 27 ++++++++++++++++++++++++++-
 5 files changed, 34 insertions(+), 19 deletions(-)

diff --git a/libsrc/Makefile b/libsrc/Makefile
index 84fb45baa..985dfd096 100644
--- a/libsrc/Makefile
+++ b/libsrc/Makefile
@@ -246,7 +246,7 @@ plus4lib:
 
 .PHONY: clean
 clean:
-	@for i in common conio dbg em runtime tgi $(ALLTARGETS); do 	\
+	@for i in common conio dbg em joystick runtime tgi $(ALLTARGETS); do 	\
 	   $(MAKE) -C $$i clean;     	    	       	  	   					\
 	done
 
diff --git a/libsrc/c128/c128-640-200-2.s b/libsrc/c128/c128-640-200-2.s
index a220b9f55..703dfd418 100644
--- a/libsrc/c128/c128-640-200-2.s
+++ b/libsrc/c128/c128-640-200-2.s
@@ -287,10 +287,7 @@ DEINSTALL:
 ; Must set an error code: YES
 ;
 
-INIT:   cmp     #TGI_MODE_640_200_2     ; Correct mode?
-        beq     @L1                     ; Jump if yes
-        lda     #TGI_ERR_INV_MODE       ; ## Error
-        bne     @L9
+INIT:
 
 ; Initialize variables
 
@@ -317,7 +314,7 @@ INIT:   cmp     #TGI_MODE_640_200_2     ; Correct mode?
 ; Done, reset the error code
 
         lda     #TGI_ERR_OK
-@L9:    sta     ERROR
+        sta     ERROR
         rts
 
 ; ------------------------------------------------------------------------
diff --git a/libsrc/c128/c128-640-480-2.s b/libsrc/c128/c128-640-480-2.s
index 9f45bc32a..409c7d5d5 100644
--- a/libsrc/c128/c128-640-480-2.s
+++ b/libsrc/c128/c128-640-480-2.s
@@ -292,12 +292,8 @@ DEINSTALL:
 ; Must set an error code: YES
 ;
 
-INIT:   cmp     #TGI_MODE_640_480_2     ; Correct mode?
-        beq     @L1                     ; Jump if yes
-        lda     #TGI_ERR_INV_MODE       ; ## Error
-        bne     @L9
-
-@L1:	lda	pages			; is there enough memory?
+INIT:
+	lda	pages			; is there enough memory?
 	bne	@L11			; Jump if there is one screen
 	lda	#TGI_ERR_INV_MODE	; ## Error
 	bne	@L9
diff --git a/libsrc/c64/c64-320-200-2.s b/libsrc/c64/c64-320-200-2.s
index 4ab678c3e..ff19f1ba6 100644
--- a/libsrc/c64/c64-320-200-2.s
+++ b/libsrc/c64/c64-320-200-2.s
@@ -170,14 +170,11 @@ DEINSTALL:
 ; Must set an error code: YES
 ;
 
-INIT:   cmp     #TGI_MODE_320_200_2     ; Correct mode?
-        beq     @L1                     ; Jump if yes
-        lda     #TGI_ERR_INV_MODE       ; ## Error
-        bne     @L9
+INIT:
 
 ; Initialize variables
 
-@L1:    ldx     #$FF
+        ldx     #$FF
         stx     BITMASK
 
 ; Switch into graphics mode
@@ -201,7 +198,7 @@ INIT:   cmp     #TGI_MODE_320_200_2     ; Correct mode?
 ; Done, reset the error code
 
         lda     #TGI_ERR_OK
-@L9:    sta     ERROR
+        sta     ERROR
         rts
 
 ; ------------------------------------------------------------------------
diff --git a/libsrc/geos/devel/geos-tgi.s b/libsrc/geos/devel/geos-tgi.s
index 784d2834b..1429bef8d 100644
--- a/libsrc/geos/devel/geos-tgi.s
+++ b/libsrc/geos/devel/geos-tgi.s
@@ -887,7 +887,11 @@ TEXTSTYLE:
 ;
 
 OUTTEXT:
-	lda	X1
+	lda	TEXTDIR
+;	cmp	#TGI_TEXT_HORIZONTAL	; this is equal 0
+	bne	@vertical
+
+	lda	X1		; horizontal text output
 	ldx	X1+1
 	ldy	Y1
 	sta	r11L
@@ -899,6 +903,27 @@ OUTTEXT:
 	stx	r0H
 	jmp	PutString
 
+@vertical:
+	lda	X1		; vertical text output
+	ldx	X1+1
+	ldy	Y1
+	sta 	r11L
+	stx	r11H
+	sty	r1H
+	ldy	#0
+	lda	(ptr3),y
+	beq	@end
+	jsr	PutChar
+	inc	ptr3
+	bne	@L1
+	inc	ptr3+1
+@L1:	lda	Y1
+	clc
+	adc	#8
+	sta	Y1
+	bne	@vertical
+@end:	rts
+
 ;-------------
 ; copies of some runtime routines
 
-- 
2.39.5