diff options
| author | B. Watson <yalhcru@gmail.com> | 2021-05-13 15:06:49 -0400 |
|---|---|---|
| committer | B. Watson <yalhcru@gmail.com> | 2021-05-13 15:06:49 -0400 |
| commit | 0b6f897c4551d1af18f88f84f6390af39d62284f (patch) | |
| tree | 22fd2f7b596959de500aec24d75808f5fba3b197 | |
| parent | 872aa3395c137369a5f56bc2d45487c4cba4fafb (diff) | |
| download | taipan-0b6f897c4551d1af18f88f84f6390af39d62284f.tar.gz | |
Show default at y/n prompts (costs 7 bytes, now 8838)
| -rw-r--r-- | timed_getch.s | 5 |
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' |