aboutsummaryrefslogtreecommitdiff
path: root/timed_getch.s
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2021-05-13 17:19:22 -0400
committerB. Watson <yalhcru@gmail.com>2021-05-13 17:19:22 -0400
commit9b2fa6472b78828f4af74ecc6992fb75a290b2f5 (patch)
tree38ea34eb012a965a5e9f2abb900dbe329e2f829c /timed_getch.s
parent0b6f897c4551d1af18f88f84f6390af39d62284f (diff)
downloadtaipan-9b2fa6472b78828f4af74ecc6992fb75a290b2f5.tar.gz
Uppercase Y/N, costs 2 bytes (now 8836)
Diffstat (limited to 'timed_getch.s')
-rw-r--r--timed_getch.s1
1 files changed, 1 insertions, 0 deletions
diff --git a/timed_getch.s b/timed_getch.s
index 1ee158f..eb29a29 100644
--- a/timed_getch.s
+++ b/timed_getch.s
@@ -175,6 +175,7 @@ _numgetc:
_yngetc:
sta FR0 ; stash default arg
ora #$80 ; show user the default (or a regular cursor if none)
+ and #$bf ; (uppercase)
jsr putchar
jsr _agetc_no_cursor
ora #$50 ; lowercase