aboutsummaryrefslogtreecommitdiff
path: root/timed_getch.s
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2021-05-13 15:06:49 -0400
committerB. Watson <yalhcru@gmail.com>2021-05-13 15:06:49 -0400
commit0b6f897c4551d1af18f88f84f6390af39d62284f (patch)
tree22fd2f7b596959de500aec24d75808f5fba3b197 /timed_getch.s
parent872aa3395c137369a5f56bc2d45487c4cba4fafb (diff)
downloadtaipan-0b6f897c4551d1af18f88f84f6390af39d62284f.tar.gz
Show default at y/n prompts (costs 7 bytes, now 8838)
Diffstat (limited to 'timed_getch.s')
-rw-r--r--timed_getch.s5
1 files changed, 4 insertions, 1 deletions
diff --git a/timed_getch.s b/timed_getch.s
index f4c8431..1ee158f 100644
--- a/timed_getch.s
+++ b/timed_getch.s
@@ -174,7 +174,10 @@ _numgetc:
; extern unsigned char __fastcall__ yngetc(char dflt);
_yngetc:
sta FR0 ; stash default arg
- jsr _lcgetc
+ ora #$80 ; show user the default (or a regular cursor if none)
+ jsr putchar
+ jsr _agetc_no_cursor
+ ora #$50 ; lowercase
cmp #'y' ; return y or n immediately
beq ok
cmp #'n'