6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4234 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2009-09-26 15:56:29 +00:00
parent b695733cda
commit 70cb60ef31
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
libsrc/c64/cputc.s
View File

@ -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