Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-09-28 07:55:27 +00:00
Code Issues Projects Releases Wiki Activity

Improved Esc handling. Added ^S/^Q pause/resume.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-08-03 22:42:24 -04:00
parent 38c0d4c36d
commit 06511e2777
2 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

27
auxmem.s
View File

@ -592,8 +592,7 @@ RDCHHND PHX
BNE :S4
INC CURS+1
:S4 LDA $C000 ; Keyboard data/strobe
AND #$80
BEQ :L1
BPL :L1
LDA OLDCHAR ; Erase cursor
JSR PRCHRC
LDA $C000
@ -603,8 +602,8 @@ RDCHHND PHX
PLX
CMP #$1B ; Escape pressed?
BNE :S5
ROR $FF ; Set ESCFLG
SEC ; Return CS
ROR ESCFLAG
RTS
:S5 CLC
RTS
@ -614,7 +613,9 @@ OLDCHAR DB $00 ; Char under cursor
* Print char in A at ROW,COL
PRCHRC PHA
LDA ROW
LDA $C000 ; Kbd data/strobe
BMI :KEYHIT
:RESUME LDA ROW
ASL
TAX
LDA SCNTAB,X ; LSB of row address
@ -631,6 +632,24 @@ PRCHRC PHA
STA (ZP1),Y ; Screen address
STA $C005 ; Write aux mem again
RTS
:KEYHIT STA $C010 ; Clear strobe
AND #$7F
CMP #$13 ; Ctrl-S
BEQ :PAUSE
CMP #$1B ; Esc
BNE :RESUME
:ESC SEC
ROR ESCFLAG ; Set ESCFLAG
BRA :RESUME
:PAUSE STA $C010 ; Clear strobe
:L1 LDA $C000 ; Kbd data/strobe
BPL :L1
AND #$7F
CMP #$11 ; Ctrl-Q
BEQ :RESUME
CMP #$1B ; Esc
BEQ :ESC
BRA :PAUSE
* Return char at ROW,COL in A
GETCHRC LDA ROW