From ced0eeb319988093a40c31bb1d317c65958456cd Mon Sep 17 00:00:00 2001 From: Paul Gardner-Stephen Date: Sun, 28 Apr 2019 20:41:38 +0930 Subject: [PATCH] disable debug output in basic line inserting, deleting and replacing --- c64/basic/basic_delete_line.s | 20 ++++++------ c64/basic/basic_insert_line.s | 10 +++--- c64/basic/basic_shift_mem_down.s | 52 ++++++++++++++++---------------- c64/basic/basic_shift_mem_up.s | 52 ++++++++++++++++---------------- 4 files changed, 67 insertions(+), 67 deletions(-) diff --git a/c64/basic/basic_delete_line.s b/c64/basic/basic_delete_line.s index 41076d72..b4712df3 100644 --- a/c64/basic/basic_delete_line.s +++ b/c64/basic/basic_delete_line.s @@ -6,11 +6,11 @@ ;; the following basic lines. basic_delete_line: - jsr printf - .byte "DELETING LINE AT $" - .byte $f1,basic_current_line_ptr - .byte $f0,basic_current_line_ptr - .byte $0d,0 + ;; jsr printf + ;; .byte "DELETING LINE AT $" + ;; .byte $f1,basic_current_line_ptr + ;; .byte $f0,basic_current_line_ptr + ;; .byte $0d,0 ;; Get address of next line ldx #tokenise_work4 - .byte $f0,tokenise_work3 - .byte $0d,0 + ;; jsr printf + ;; .byte "LINE LENGTH IS $" + ;; .byte $f0,tokenise_work4 + ;; .byte $f0,tokenise_work3 + ;; .byte $0d,0 lda tokenise_work4 sbc #0 diff --git a/c64/basic/basic_insert_line.s b/c64/basic/basic_insert_line.s index 3eee0e44..a523c516 100644 --- a/c64/basic/basic_insert_line.s +++ b/c64/basic/basic_insert_line.s @@ -15,11 +15,11 @@ basic_insert_line: ;; But first, remember where the pointer will be, so that we can ;; put the line in there after. - jsr printf - .byte "INSERTING LINE AT $" - .byte $f1,basic_current_line_ptr - .byte $f0,basic_current_line_ptr - .byte $0d,0 + ;; jsr printf + ;; .byte "INSERTING LINE AT $" + ;; .byte $f1,basic_current_line_ptr + ;; .byte $f0,basic_current_line_ptr + ;; .byte $0d,0 lda basic_current_line_ptr+0 pha diff --git a/c64/basic/basic_shift_mem_down.s b/c64/basic/basic_shift_mem_down.s index 5b0bba9b..b23af5ce 100644 --- a/c64/basic/basic_shift_mem_down.s +++ b/c64/basic/basic_shift_mem_down.s @@ -27,21 +27,21 @@ basic_shift_mem_down_and_relink: sbc memmove_src+1 sta memmove_size+1 - jsr printf - .byte "TOP OF BASIC = $" - .byte $f1,basic_end_of_text_ptr - .byte $f0,basic_end_of_text_ptr - .byte $0d - .byte "SHIFTING DOWN $" - .byte $f1,memmove_size - .byte $f0,memmove_size - .byte " BYTES FROM $" - .byte $f1,memmove_src - .byte $f0,memmove_src - .byte " TO $" - .byte $f1,memmove_dst - .byte $f0,memmove_dst - .byte $0d,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 DOWN $" + ;; .byte $f1,memmove_size + ;; .byte $f0,memmove_size + ;; .byte " BYTES FROM $" + ;; .byte $f1,memmove_src + ;; .byte $f0,memmove_src + ;; .byte " TO $" + ;; .byte $f1,memmove_dst + ;; .byte $f0,memmove_dst + ;; .byte $0d,0 ;; The copy routine that copies under the ROMs is as simple ;; as possible to be as small as possible, so we have @@ -78,17 +78,17 @@ basic_shift_mem_down_and_relink: ;; Increase copy page count so we can post-decrement compare with $00 inc memmove_size+1 - jsr printf - .byte "REVISED BOUNDS $" - .byte $f1,memmove_size - .byte $f0,memmove_size - .byte " BYTES FROM $" - .byte $f1,memmove_src - .byte $f0,memmove_src - .byte " TO $" - .byte $f1,memmove_dst - .byte $f0,memmove_dst - .byte $0d,0 + ;; jsr printf + ;; .byte "REVISED BOUNDS $" + ;; .byte $f1,memmove_size + ;; .byte $f0,memmove_size + ;; .byte " BYTES FROM $" + ;; .byte $f1,memmove_src + ;; .byte $f0,memmove_src + ;; .byte " TO $" + ;; .byte $f1,memmove_dst + ;; .byte $f0,memmove_dst + ;; .byte $0d,0 ;; Get Y value ready for the copy ldy memmove_size+0 diff --git a/c64/basic/basic_shift_mem_up.s b/c64/basic/basic_shift_mem_up.s index 8d4e85ae..c5731047 100644 --- a/c64/basic/basic_shift_mem_up.s +++ b/c64/basic/basic_shift_mem_up.s @@ -27,21 +27,21 @@ basic_shift_mem_up_and_relink: sbc basic_current_line_ptr+1 sta memmove_size+1 - 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 - .byte " BYTES FROM $" - .byte $f1,memmove_src - .byte $f0,memmove_src - .byte " TO $" - .byte $f1,memmove_dst - .byte $f0,memmove_dst - .byte $0d,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 + ;; .byte " BYTES FROM $" + ;; .byte $f1,memmove_src + ;; .byte $f0,memmove_src + ;; .byte " TO $" + ;; .byte $f1,memmove_dst + ;; .byte $f0,memmove_dst + ;; .byte $0d,0 ;; To make life simple for the copy routine that lives in RAM, ;; we have to adjust the end pointers down one page and set Y to the low @@ -70,17 +70,17 @@ basic_shift_mem_up_and_relink: stx tokenise_work3 - jsr printf - .byte "REVISED BOUNDS $" - .byte $f1,memmove_size - .byte $f0,memmove_size - .byte " BYTES FROM $" - .byte $f1,memmove_src - .byte $f0,memmove_src - .byte " TO $" - .byte $f1,memmove_dst - .byte $f0,memmove_dst - .byte $0d,0 + ;; jsr printf + ;; .byte "REVISED BOUNDS $" + ;; .byte $f1,memmove_size + ;; .byte $f0,memmove_size + ;; .byte " BYTES FROM $" + ;; .byte $f1,memmove_src + ;; .byte $f0,memmove_src + ;; .byte " TO $" + ;; .byte $f1,memmove_dst + ;; .byte $f0,memmove_dst + ;; .byte $0d,0 ;; Do the copy jsr shift_mem_up