work towards being able to delete BASIC lines

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-28 20:27:19 +09:30
1 parent 490dda059f
commit 906fe108b3
8 files changed
+275 -60

No files matched your search

+4 -4
View File
@@ -19,13 +19,13 @@ basic_shift_mem_up_and_relink:
sta memmove_src+1
;; Work out size of region to copy
lda basic_end_of_text_ptr+1
sec
sbc basic_current_line_ptr+1
sta memmove_size+1
lda basic_end_of_text_ptr+0
sec
sbc basic_current_line_ptr+0
sta memmove_size+0
lda basic_end_of_text_ptr+1
sbc basic_current_line_ptr+1
sta memmove_size+1
jsr printf
.byte "TOP OF BASIC = $"