From 50317642141ed16618984dde3aecd2285d5fd6fa Mon Sep 17 00:00:00 2001 From: Paul Gardner-Stephen Date: Sun, 28 Apr 2019 17:01:17 +0930 Subject: [PATCH] Fix issue #12 --- c64/basic/basic_shift_mem_up.s | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/c64/basic/basic_shift_mem_up.s b/c64/basic/basic_shift_mem_up.s index 80902ca0..f8554357 100644 --- a/c64/basic/basic_shift_mem_up.s +++ b/c64/basic/basic_shift_mem_up.s @@ -24,10 +24,14 @@ basic_shift_mem_up_and_relink: sbc basic_current_line_ptr+1 sta memmove_size+1 lda basic_end_of_text_ptr+0 - sbc basic_current_line_ptr+1 - sta memmove_size+0 - + sbc basic_current_line_ptr+0 + sta memmove_size+0 + jsr printf + .byte "TOP OF BASIC = $" + .byte $f1,basic_end_of_text_ptr + .byte $f0,basic_end_of_text_ptr + .byte $0d .byte "SHIFTING UP $" .byte $f1,memmove_size .byte $f0,memmove_size