changeset 35:336be9cef342

Fix test in writechrconduc to test true lower case flag correctly
author William Astle <lost@l-w.ca>
date Mon, 21 Nov 2022 22:35:29 -0700
parents 7111bc587420
children c786c1dd4632
files src/lwbasic.s
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lwbasic.s	Mon Nov 21 22:29:06 2022 -0700
+++ b/src/lwbasic.s	Mon Nov 21 22:35:29 2022 -0700
@@ -962,7 +962,7 @@
 writechrconduc  tst filenum                     ; is it screen?
                 bne writechr                    ; brif not - just output it
                 tst console_truelc              ; does the current text screen support actual lower case?
-                beq writechr                    ; brif so - just output character
+                bne writechr                    ; brif so - just output character
                 cmpa #'a                        ; is it lower case?
                 blo writechr                    ; brif not
                 cmpa #'z                        ; is it still lower case?