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

Some more cursor jiggery-pokery to address #243

This commit is contained in:
Bobbi Webber-Manners 2023-01-09 15:21:05 -05:00
parent ae68427b33
commit 75333d5638
3 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
auxmem.chario.s
View File

@ -553,7 +553,7 @@ KEYCOPYTAB LDA FXTABCHAR ; Prepare TAB if no copy cursor
BVC KEYREADOK1 ; No copy cursor, return TAB
LDA OLDCHAR ; Get the char under cursor
PHA
JSR OUTCHARCP ; Output it to restore and move cursor
JSR PUTCOPYCURS ; Output it to restore and move cursor
JSR GETCHRC ; Save char under cursor
STA OLDCHAR
PLA

15
auxmem.vdu.s
View File

@ -154,7 +154,7 @@ OUTCHAR LDX FXVDUQLEN
BIT VDUSTATUS
BMI OUTCHEXIT ; VDU disabled
OUTCHARCP JSR PRCHRC ; Store char, checking keypress
JSR VDU09 ; Move cursor right
OUTCHARCP2 JSR VDU09 ; Move cursor right
* OSBYTE &75 - Read VDUSTATUS
*****************************
@ -281,7 +281,7 @@ COPYMOVE PHA
JSR GETCHRC
STA COPYCHAR
LDA CURSORED
JSR PUTCHRC ; Edit cursor
JSR PUTCURSOR ; Edit cursor
SEC
JSR COPYSWAP2 ; Initialise copy cursor
ROR FLASHER
@ -401,6 +401,17 @@ PUTCURSOR TAX ; Preserve character
RTS
* Wrapper around OUTCHARCP used when drawing copy cursor
PUTCOPYCURS TAX ; Preserve character
BIT VDUSCREEN
BVS :SHR
TXA
JMP OUTCHARCP
:SHR TXA ; Recover character
JMP OUTCHARCP2
RTS
* OSBYTE &87 - Read character at cursor
***************************************
* Fetch character from screen at (TEXTX,TEXTY) and return MODE in Y