Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Add files via upload

This commit is contained in:
jgharston 2023-01-21 22:16:25 +00:00 committed by GitHub
parent 7d58b3aa6a
commit 34ed8b02ca
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
auxmem.chario.s
View File

@ -157,7 +157,7 @@ INKEYGO CLI ; Enable IRQs
JSR GETCHRC ; Get character under cursor JSR GETCHRC ; Get character under cursor
STA COPYCHAR ; Save char under edit cursor STA COPYCHAR ; Save char under edit cursor
LDA CURSORED LDA CURSORED
JSR PUTCHRC ; Display edit cursor JSR SHOWWTCURSOR ; Show write cursor
JSR COPYSWAP1 ; Swap to copy cursor JSR COPYSWAP1 ; Swap to copy cursor
INKEYGO2 JSR GETCHRC ; Get character under cursor INKEYGO2 JSR GETCHRC ; Get character under cursor
STA OLDCHAR STA OLDCHAR
@ -174,12 +174,14 @@ INKEY0 ADC FLASHER
BNE INKEY3 ; Not time to toggle yet BNE INKEY3 ; Not time to toggle yet
LDA OLDCHAR ; Prepare to remove cursor LDA OLDCHAR ; Prepare to remove cursor
BIT FLASHER BIT FLASHER
BMI INKEY2 ; Remove cursor BPL INKEY1 ; Do not remove cursor
JSR REMRDCURSOR ; Remove read cursor
BRA INKEY3
INKEY1 LDA CURSOR ; Add cursor INKEY1 LDA CURSOR ; Add cursor
BIT VDUSTATUS BIT VDUSTATUS
BVC INKEY2 BVC INKEY2
LDA CURSORCP LDA CURSORCP
INKEY2 JSR PUTCHRC ; Toggle cursor INKEY2 JSR SHOWRDCURSOR ; Show read cursor
INKEY3 LDA #$27 ; Prepare to return CHR$27 if Escape state INKEY3 LDA #$27 ; Prepare to return CHR$27 if Escape state
CLC CLC
BIT ESCFLAG ; Check Escape state BIT ESCFLAG ; Check Escape state
@ -213,10 +215,10 @@ INKEYOK PHA ; Save key or timeout
LDA OLDCHAR ; Prepare for main cursor LDA OLDCHAR ; Prepare for main cursor
BIT VDUSTATUS BIT VDUSTATUS
BVC INKEYOFF2 ; No editing cursor BVC INKEYOFF2 ; No editing cursor
JSR PUTCHRC ; Remove cursor JSR REMRDCURSOR ; Remove read cursor
JSR COPYSWAP1 ; Swap cursor back JSR COPYSWAP1 ; Swap cursor back
LDA COPYCHAR ; Remove main cursor LDA COPYCHAR ; Remove main cursor
INKEYOFF2 JSR PUTCHRC ; Remove cursor INKEYOFF2 JSR REMWTCURSOR ; Remove write cursor
PLP PLP
BCS INKEYOK3 ; Timeout BCS INKEYOK3 ; Timeout
LDA ESCFLAG ; Keypress, test for Escape LDA ESCFLAG ; Keypress, test for Escape
@ -540,7 +542,7 @@ KEYCURSOR CMP #$C9
BEQ KEYCOPY BEQ KEYCOPY
PHA PHA
LDA OLDCHAR LDA OLDCHAR
JSR PUTCHRC ; Remove cursor JSR REMRDCURSOR ; Remove read cursor
PLA PLA
JSR COPYMOVE ; Move copy cursor JSR COPYMOVE ; Move copy cursor
JSR GETCHRC ; Save char under cursor JSR GETCHRC ; Save char under cursor
@ -553,7 +555,7 @@ KEYCOPYTAB LDA FXTABCHAR ; Prepare TAB if no copy cursor
BVC KEYREADOK1 ; No copy cursor, return TAB BVC KEYREADOK1 ; No copy cursor, return TAB
LDA OLDCHAR ; Get the char under cursor LDA OLDCHAR ; Get the char under cursor
PHA PHA
JSR OUTCHARCP ; Output it to restore and move cursor JSR PUTCOPYCURS ; Restore and move read cursor [OFF]
JSR GETCHRC ; Save char under cursor JSR GETCHRC ; Save char under cursor
STA OLDCHAR STA OLDCHAR
PLA PLA