fix many blank lines when scrolling
This commit is contained in:
1 parent
f031907abb
commit
f23b0d03e9
1 file changed
+5
-1
+5
-1
@@ -637,7 +637,7 @@ line_not_linked_del:
|
|||||||
|
|
||||||
screen_advance_to_next_line:
|
screen_advance_to_next_line:
|
||||||
|
|
||||||
jsr hide_cursor_if_visible
|
;; jsr hide_cursor_if_visible
|
||||||
|
|
||||||
;; Go to start of line
|
;; Go to start of line
|
||||||
lda #0
|
lda #0
|
||||||
@@ -656,6 +656,9 @@ screen_advance_to_next_line:
|
|||||||
sbc HIBASE
|
sbc HIBASE
|
||||||
cmp #3
|
cmp #3
|
||||||
bcc +
|
bcc +
|
||||||
|
lda current_screen_line_ptr+0
|
||||||
|
cmp #$c0
|
||||||
|
bcc +
|
||||||
|
|
||||||
;; Off the bottom of the screen
|
;; Off the bottom of the screen
|
||||||
jsr scroll_screen_up
|
jsr scroll_screen_up
|
||||||
@@ -754,6 +757,7 @@ calculate_screen_line_pointer:
|
|||||||
|
|
||||||
;; Add 40 for every line, or 80 if the lines are linked
|
;; Add 40 for every line, or 80 if the lines are linked
|
||||||
ldx current_screen_y
|
ldx current_screen_y
|
||||||
|
|
||||||
*
|
*
|
||||||
;; Stop if we have counted enough lines
|
;; Stop if we have counted enough lines
|
||||||
beq +
|
beq +
|
||||||
|
|||||||
Reference in new issue
Block a user