work on INS support for MEGA65 mode
This commit is contained in:
1 parent
db08fd1574
commit
2c5e181457
9 files changed
+126
-33
No files matched your search
@@ -41,16 +41,6 @@ chrout_screen_literal: // entry point for chrout_screen_quote
|
||||
|
||||
tax // store screen code, we need .A for calculations
|
||||
|
||||
// First we need offset from PNT in .Y, we can take it from PNTR
|
||||
|
||||
jsr screen_get_clipped_PNTR
|
||||
|
||||
// Put the character on the screen
|
||||
|
||||
txa
|
||||
ora RVS // Computes Mapping the 64, page 38
|
||||
sta (PNT),y
|
||||
|
||||
// Decrement number of chars waiting to be inserted
|
||||
|
||||
lda INSRT
|
||||
@@ -62,6 +52,16 @@ chrout_screen_literal: // entry point for chrout_screen_quote
|
||||
txa
|
||||
jsr screen_check_toggle_quote
|
||||
|
||||
// First we need offset from PNT in .Y, we can take it from PNTR
|
||||
|
||||
jsr screen_get_clipped_PNTR
|
||||
|
||||
// Put the character on the screen
|
||||
|
||||
txa
|
||||
ora RVS // Computes Mapping the 64, page 38
|
||||
sta (PNT),y
|
||||
|
||||
// Set colour of the newly printed character
|
||||
|
||||
lda COLOR
|
||||
|
||||
@@ -23,10 +23,10 @@ chrout_screen_jumptable_codes:
|
||||
.byte KEY_CRSR_LEFT
|
||||
.byte KEY_CRSR_DOWN
|
||||
.byte KEY_CRSR_UP
|
||||
.byte KEY_INS
|
||||
|
||||
__chrout_screen_jumptable_quote_guard:
|
||||
|
||||
.byte KEY_INS
|
||||
#if CONFIG_EDIT_STOPQUOTE
|
||||
.byte KEY_STOP
|
||||
#endif
|
||||
|
||||
Reference in new issue
Block a user