79 lines
1.1 KiB
ArmAsm
79 lines
1.1 KiB
ArmAsm
|
|
//
|
|
// CHROUT routine - screen support, DEL key handling
|
|
//
|
|
|
|
|
|
chrout_screen_DEL:
|
|
|
|
// In insert mode it embeds control character
|
|
ldx INSRT
|
|
beq !+
|
|
jmp chrout_screen_quote
|
|
!:
|
|
// ldx PNTR
|
|
jsr screen_get_clipped_PNTR
|
|
bne chrout_screen_del_column_non_0
|
|
|
|
// FALLTROUGH
|
|
|
|
chrout_screen_del_column_0:
|
|
|
|
ldy TBLX
|
|
beq chrout_screen_del_done // delete from row 0, col 0 does nothing
|
|
|
|
// Move cursor to end of previous line
|
|
dec TBLX
|
|
lda #39
|
|
sta PNTR
|
|
|
|
// Update PNT and USER pointers
|
|
jsr screen_calculate_PNT_USER
|
|
|
|
// Put space character at the current cursor position (do not clear the color!)
|
|
ldy #39
|
|
lda #$20
|
|
sta (PNT),y
|
|
|
|
// Finish with recalculating all the variables
|
|
jmp chrout_screen_calc_lptr_done
|
|
|
|
chrout_screen_del_column_non_0:
|
|
|
|
/* YYY disabled for rework
|
|
|
|
// Copy rest of logical line back
|
|
jsr screen_get_logical_line_end_ptr
|
|
ldy PNTR
|
|
cpy LNMX
|
|
beq !++
|
|
dey
|
|
!:
|
|
iny
|
|
lda (PNT),y
|
|
dey
|
|
sta (PNT),y
|
|
iny
|
|
lda (USER),y
|
|
dey
|
|
sta (USER),y
|
|
iny
|
|
cpy LNMX
|
|
bne !-
|
|
|
|
// Clear char at end of line
|
|
jsr screen_get_current_line_logical_length
|
|
tay
|
|
lda #$20
|
|
sta (PNT),y
|
|
!:
|
|
dec PNTR
|
|
|
|
// FALLTROUGH
|
|
|
|
*/
|
|
|
|
chrout_screen_del_done:
|
|
|
|
jmp chrout_screen_done
|