diff --git a/c64/kernal/screen/chrout_screen_ins.s b/c64/kernal/screen/chrout_screen_ins.s index 52861ba1..90a44aba 100644 --- a/c64/kernal/screen/chrout_screen_ins.s +++ b/c64/kernal/screen/chrout_screen_ins.s @@ -4,20 +4,19 @@ // -// YYY moves cursor down the first time no more insertion is possible -// YYY in second part of the logical line moves everything froom the start of the line +// YYY in second part of the logical line moves everything from the start of the line chrout_screen_INS: - // First check if last character of the logiccall line is space + // First check if last character of the logical line is space jsr screen_check_space_ends_line beq chrout_screen_ins_possible // Not space, we cannot insert anything - bne_far chrout_screen_calc_lptr_done + bne_far chrout_screen_done chrout_screen_ins_possible: diff --git a/c64/kernal/screen/screen_grow_logical_line.s b/c64/kernal/screen/screen_grow_logical_line.s index 7be77bf9..b16d52b7 100644 --- a/c64/kernal/screen/screen_grow_logical_line.s +++ b/c64/kernal/screen/screen_grow_logical_line.s @@ -1,8 +1,13 @@ +screen_grow_logical_line_done_scroll: + + inc TBLX + + // FALLTROUGH + screen_grow_logical_line_done: - inc TBLX jmp screen_calculate_PNT_USER @@ -18,7 +23,7 @@ screen_grow_logical_line: // Do not grow line if previus one is grown ldy TBLX lda LDTBL+0, y - bpl screen_grow_logical_line_done + bpl screen_grow_logical_line_done_scroll // If last line, scroll the screen up cpy #24