From: izydorst <izydorst@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 31 Dec 2002 16:37:53 +0000 (+0000)
Subject: fixed bugs
X-Git-Tag: V2.12.0~1809
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=960b04249637330a2a62c5434291b17f2e9e2e43;p=cc65

fixed bugs


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

diff --git a/libsrc/geos/devel/geos-tgi.s b/libsrc/geos/devel/geos-tgi.s
index 02d459942..ed9a24f68 100644
--- a/libsrc/geos/devel/geos-tgi.s
+++ b/libsrc/geos/devel/geos-tgi.s
@@ -2,10 +2,6 @@
 ; Graphics driver for the 320x200x2 or 640x200x2 mode on GEOS 64/128
 ; Maciej 'YTM/Elysium' Witkowiak <ytm@elysium.pl>
 ; 28-31.12.2002
-;
-; - not tested OutText
-; - not tested on VDC
-; - erratic Circle when needs to clip
 
 	.include 	"zeropage.inc"
 
@@ -425,10 +421,9 @@ SETDRAWPAGE:
 SETCOLOR:
         tax
         beq     @L1
-        inx
-@L1:    stx     BITMASK
-	txa			; need to have either 0 or 1
-	jmp	SetPattern
+        lda	#1
+@L1:    sta     BITMASK
+	jmp	SetPattern	; need to have either 0 or 1
 
 ; ------------------------------------------------------------------------
 ; SETPALETTE: Set the palette (not available with all drivers/hardware).
@@ -515,25 +510,25 @@ SETPIXELCLIP:
 	bmi	@finito		; y<0
 	lda	X1+1
 	bmi	@finito		; x<0
-	lda	xres
-	ldx	xres+1
+	lda	X1
+	ldx	X1+1
 	sta	ADDR
 	stx	ADDR+1
 	ldx	#ADDR
-	lda	X1
-	ldy	X1+1
-	jsr	icmp		; if (xres<x1)
-	bcs	@cont		; !(xres<x1)
-@finito:rts
-@cont:	lda	yres
-	ldx	yres+1
+	lda	xres
+	ldy	xres+1
+	jsr	icmp		; ( x < xres ) ...
+	bcs	@finito
+	lda	Y1
+	ldx	Y1+1
 	sta	ADDR
 	stx	ADDR+1
 	ldx	#ADDR
-	lda	Y1
-	ldy	Y1+1
-	jsr	icmp		; if (yres<y1)
-	bcc	@finito
+	lda	yres
+	ldy	yres+1
+	jsr	icmp		; ... && ( y < yres )
+	bcc	SETPIXEL
+@finito:rts
 
 SETPIXEL:
 	lda	X1