Mercurial > hg > index.cgi
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?