6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-06 22:31:52 +00:00
Code Issues Projects Releases Wiki Activity

Fix comment and gotox force colour change

Browse Source
This commit is contained in:
jede 2019-07-21 11:01:14 +02:00 committed by greg-king5
parent 996537282c
commit e7bb0aad19
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libsrc/telestrat/cputc.s
View File

@ -34,7 +34,7 @@ do_not_change_color_foreground:
dec SCRX ; Dec SCRX in order to place attribute before the right position dec SCRX ; Dec SCRX in order to place attribute before the right position
pha pha
txa ; Swap X to A because, X contains CHARCOLOR txa ; Swap X to A because, X contains BGCOLOR
ORA #%00010000 ; Add 16 because background color is an attribute between 16 and 23. 17 is red background for example ORA #%00010000 ; Add 16 because background color is an attribute between 16 and 23. 17 is red background for example
BRK_TELEMON XFWR ; Change color on the screen (background) BRK_TELEMON XFWR ; Change color on the screen (background)
pla pla

5
libsrc/telestrat/gotox.s
View File

@ -2,10 +2,15 @@
; jede jede@oric.org 2017-02-25 ; jede jede@oric.org 2017-02-25
; ;
.export _gotox .export _gotox
.import OLD_CHARCOLOR, OLD_BGCOLOR
.include "telestrat.inc" .include "telestrat.inc"
.proc _gotox .proc _gotox
sta SCRX sta SCRX
lda #$FF
sta OLD_CHARCOLOR
sta OLD_BGCOLOR
rts rts
.endproc .endproc