work towards being able to delete BASIC lines
This commit is contained in:
1 parent
490dda059f
commit
906fe108b3
8 files changed
+275
-60
No files matched your search
@@ -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 = $"
|
||||
|
||||
Reference in new issue
Block a user