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