|
|
f26de63 |
From e7bb0aad19ca0636e1fba54c6f9b7dae55f91e08 Mon Sep 17 00:00:00 2001
|
|
|
f26de63 |
From: jede <jede@oric.org>
|
|
|
f26de63 |
Date: Sun, 21 Jul 2019 11:01:14 +0200
|
|
|
a4f04fe |
Subject: [PATCH 028/170] Fix comment and gotox force colour change
|
|
|
f26de63 |
|
|
|
f26de63 |
---
|
|
|
f26de63 |
libsrc/telestrat/cputc.s | 2 +-
|
|
|
f26de63 |
libsrc/telestrat/gotox.s | 5 +++++
|
|
|
f26de63 |
2 files changed, 6 insertions(+), 1 deletion(-)
|
|
|
f26de63 |
|
|
|
f26de63 |
diff --git a/libsrc/telestrat/cputc.s b/libsrc/telestrat/cputc.s
|
|
|
f26de63 |
index 4b8e4fef..38f8af84 100644
|
|
|
f26de63 |
--- a/libsrc/telestrat/cputc.s
|
|
|
f26de63 |
+++ b/libsrc/telestrat/cputc.s
|
|
|
f26de63 |
@@ -34,7 +34,7 @@ do_not_change_color_foreground:
|
|
|
f26de63 |
dec SCRX ; Dec SCRX in order to place attribute before the right position
|
|
|
f26de63 |
|
|
|
f26de63 |
pha
|
|
|
f26de63 |
- txa ; Swap X to A because, X contains CHARCOLOR
|
|
|
f26de63 |
+ txa ; Swap X to A because, X contains BGCOLOR
|
|
|
f26de63 |
ORA #%00010000 ; Add 16 because background color is an attribute between 16 and 23. 17 is red background for example
|
|
|
f26de63 |
BRK_TELEMON XFWR ; Change color on the screen (background)
|
|
|
f26de63 |
pla
|
|
|
f26de63 |
diff --git a/libsrc/telestrat/gotox.s b/libsrc/telestrat/gotox.s
|
|
|
f26de63 |
index cd8828d6..7a172071 100644
|
|
|
f26de63 |
--- a/libsrc/telestrat/gotox.s
|
|
|
f26de63 |
+++ b/libsrc/telestrat/gotox.s
|
|
|
f26de63 |
@@ -2,10 +2,15 @@
|
|
|
f26de63 |
; jede jede@oric.org 2017-02-25
|
|
|
f26de63 |
;
|
|
|
f26de63 |
.export _gotox
|
|
|
f26de63 |
+ .import OLD_CHARCOLOR, OLD_BGCOLOR
|
|
|
f26de63 |
|
|
|
f26de63 |
.include "telestrat.inc"
|
|
|
f26de63 |
|
|
|
f26de63 |
.proc _gotox
|
|
|
f26de63 |
sta SCRX
|
|
|
f26de63 |
+
|
|
|
f26de63 |
+ lda #$FF
|
|
|
f26de63 |
+ sta OLD_CHARCOLOR
|
|
|
f26de63 |
+ sta OLD_BGCOLOR
|
|
|
f26de63 |
rts
|
|
|
f26de63 |
.endproc
|
|
|
f26de63 |
--
|
|
|
a4f04fe |
2.26.0
|
|
|
f26de63 |
|