From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 26 Sep 2009 15:56:29 +0000 (+0000)
Subject: Fix the plot routine to work with the buggy -02 kernal.
X-Git-Tag: V2.13.0rc1~22
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=70cb60ef31deec78362e29cdb7689daf1ab49d8e;p=cc65

Fix the plot routine to work with the buggy -02 kernal.


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

diff --git a/libsrc/c64/cputc.s b/libsrc/c64/cputc.s
index cf4275668..6df02b405 100644
--- a/libsrc/c64/cputc.s
+++ b/libsrc/c64/cputc.s
@@ -1,8 +1,8 @@
 ;
-; Ullrich von Bassewitz, 06.08.1998
+; Ullrich von Bassewitz, 1998-08-06, 2009-09-26
 ;
-; void cputcxy (unsigned char x, unsigned char y, char c);
-; void cputc (char c);
+; void __fastcall__ cputcxy (unsigned char x, unsigned char y, char c);
+; void __fastcall__ cputc (char c);
 ;
 
     	.export	       	_cputcxy, _cputc, cputdirect, putchar
@@ -84,12 +84,20 @@ L11:	ora	#$40
 
 
 
-; Set cursor position, calculate RAM pointers
+; Set cursor position, calculate RAM pointers. Because kernal -02 doesn't
+; update the color RAM pointer, we have to do that manually here.
 
 plot:	ldy	CURS_X
 	ldx	CURS_Y
 	clc
-	jmp	PLOT		; Set the new cursor
+       	jsr	PLOT		; Set the new cursor
+        lda     SCREEN_PTR      ; Low byte of color RAM ...
+        sta     CRAM_PTR        ; ... is same as text screen pointer
+        lda     SCREEN_PTR+1    ; While high byte of color RAM
+        and     #$03
+        ora     #$D8            ; ... needs to be adjusted
+        sta     CRAM_PTR+1
+        rts