Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

ESC updt #74

Browse Source
This commit is contained in:
pkali
2022-05-22 10:59:06 -04:00
parent ec5838ebaf
commit 9a3cf1251f
3 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.asm
+3
View File
@@ -1175,6 +1175,9 @@ nextishigher
lda kbcode lda kbcode
and #$3f ;CTRL and SHIFT ellimination and #$3f ;CTRL and SHIFT ellimination
cmp #28 ; ESC
bne getkeyend
mvx #1 escFlag
bne getkeyend bne getkeyend
checkJoyGetKey checkJoyGetKey
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+6 -11
View File
@@ -30,13 +30,10 @@ OptionsMainLoop
jsr OptionsInversion jsr OptionsInversion
jsr getkey jsr getkey
cmp #28 ; ESC ldx escFlag
seq:rts
bne @+ cmp #$f ;cursor down
mva #1 escFlag
rts
@ cmp #$f ;cursor down
bne OptionsNoDown bne OptionsNoDown
inc:lda OptionsY inc:lda OptionsY
cmp #maxoptions cmp #maxoptions
@@ -879,11 +876,9 @@ endOfTankName
CheckKeys CheckKeys
jsr getkey jsr getkey
cmp #28 ; ESC ldx escFlag
bne @+ seq:rts
mva #1 escFlag
rts
@
; is the char to be recorded? ; is the char to be recorded?
ldx #keycodesEnd-keycodes ;table was 38 chars long ldx #keycodesEnd-keycodes ;table was 38 chars long
IsLetter IsLetter