diff --git a/applecorn.po b/applecorn.po index 38c990e..069e073 100644 Binary files a/applecorn.po and b/applecorn.po differ diff --git a/auxmem.chario.s b/auxmem.chario.s index 6d22863..64ef6af 100644 --- a/auxmem.chario.s +++ b/auxmem.chario.s @@ -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 diff --git a/auxmem.vdu.s b/auxmem.vdu.s index 2470f9e..e93a32c 100644 --- a/auxmem.vdu.s +++ b/auxmem.vdu.s @@ -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