chris/open-roms
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

disable debug output in basic line inserting, deleting and replacing

Browse Source
This commit is contained in:
Paul Gardner-Stephen committed 2019-04-28 20:41:38 +09:30
1 parent ff10535447
commit ced0eeb319
4 files changed
+67 -67
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

c64/basic/basic_delete_line.s
+10 -10
View File
@@ -6,11 +6,11 @@
;; the following basic lines. ;; the following basic lines.
basic_delete_line: basic_delete_line:
jsr printf ;; jsr printf
.byte "DELETING LINE AT $" ;; .byte "DELETING LINE AT $"
.byte $f1,<basic_current_line_ptr,>basic_current_line_ptr ;; .byte $f1,<basic_current_line_ptr,>basic_current_line_ptr
.byte $f0,<basic_current_line_ptr,>basic_current_line_ptr ;; .byte $f0,<basic_current_line_ptr,>basic_current_line_ptr
.byte $0d,0 ;; .byte $0d,0
;; Get address of next line ;; Get address of next line
ldx #<basic_current_line_ptr ldx #<basic_current_line_ptr
@@ -30,11 +30,11 @@ basic_delete_line:
sbc basic_current_line_ptr+1 sbc basic_current_line_ptr+1
sta tokenise_work4 sta tokenise_work4
jsr printf ;; jsr printf
.byte "LINE LENGTH IS $" ;; .byte "LINE LENGTH IS $"
.byte $f0,<tokenise_work4,>tokenise_work4 ;; .byte $f0,<tokenise_work4,>tokenise_work4
.byte $f0,<tokenise_work3,>tokenise_work3 ;; .byte $f0,<tokenise_work3,>tokenise_work3
.byte $0d,0 ;; .byte $0d,0
lda tokenise_work4 lda tokenise_work4
sbc #0 sbc #0
c64/basic/basic_insert_line.s
+5 -5
View File
@@ -15,11 +15,11 @@ basic_insert_line:
;; But first, remember where the pointer will be, so that we can ;; But first, remember where the pointer will be, so that we can
;; put the line in there after. ;; put the line in there after.
jsr printf ;; jsr printf
.byte "INSERTING LINE AT $" ;; .byte "INSERTING LINE AT $"
.byte $f1,<basic_current_line_ptr,>basic_current_line_ptr ;; .byte $f1,<basic_current_line_ptr,>basic_current_line_ptr
.byte $f0,<basic_current_line_ptr,>basic_current_line_ptr ;; .byte $f0,<basic_current_line_ptr,>basic_current_line_ptr
.byte $0d,0 ;; .byte $0d,0
lda basic_current_line_ptr+0 lda basic_current_line_ptr+0
pha pha
c64/basic/basic_shift_mem_down.s
+26 -26
View File
@@ -27,21 +27,21 @@ basic_shift_mem_down_and_relink:
sbc memmove_src+1 sbc memmove_src+1
sta memmove_size+1 sta memmove_size+1
jsr printf ;; jsr printf
.byte "TOP OF BASIC = $" ;; .byte "TOP OF BASIC = $"
.byte $f1,<basic_end_of_text_ptr,>basic_end_of_text_ptr ;; .byte $f1,<basic_end_of_text_ptr,>basic_end_of_text_ptr
.byte $f0,<basic_end_of_text_ptr,>basic_end_of_text_ptr ;; .byte $f0,<basic_end_of_text_ptr,>basic_end_of_text_ptr
.byte $0d ;; .byte $0d
.byte "SHIFTING DOWN $" ;; .byte "SHIFTING DOWN $"
.byte $f1,<memmove_size,>memmove_size ;; .byte $f1,<memmove_size,>memmove_size
.byte $f0,<memmove_size,>memmove_size ;; .byte $f0,<memmove_size,>memmove_size
.byte " BYTES FROM $" ;; .byte " BYTES FROM $"
.byte $f1,<memmove_src,>memmove_src ;; .byte $f1,<memmove_src,>memmove_src
.byte $f0,<memmove_src,>memmove_src ;; .byte $f0,<memmove_src,>memmove_src
.byte " TO $" ;; .byte " TO $"
.byte $f1,<memmove_dst,>memmove_dst ;; .byte $f1,<memmove_dst,>memmove_dst
.byte $f0,<memmove_dst,>memmove_dst ;; .byte $f0,<memmove_dst,>memmove_dst
.byte $0d,0 ;; .byte $0d,0
;; The copy routine that copies under the ROMs is as simple ;; The copy routine that copies under the ROMs is as simple
;; as possible to be as small as possible, so we have ;; 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 ;; Increase copy page count so we can post-decrement compare with $00
inc memmove_size+1 inc memmove_size+1
jsr printf ;; jsr printf
.byte "REVISED BOUNDS $" ;; .byte "REVISED BOUNDS $"
.byte $f1,<memmove_size,>memmove_size ;; .byte $f1,<memmove_size,>memmove_size
.byte $f0,<memmove_size,>memmove_size ;; .byte $f0,<memmove_size,>memmove_size
.byte " BYTES FROM $" ;; .byte " BYTES FROM $"
.byte $f1,<memmove_src,>memmove_src ;; .byte $f1,<memmove_src,>memmove_src
.byte $f0,<memmove_src,>memmove_src ;; .byte $f0,<memmove_src,>memmove_src
.byte " TO $" ;; .byte " TO $"
.byte $f1,<memmove_dst,>memmove_dst ;; .byte $f1,<memmove_dst,>memmove_dst
.byte $f0,<memmove_dst,>memmove_dst ;; .byte $f0,<memmove_dst,>memmove_dst
.byte $0d,0 ;; .byte $0d,0
;; Get Y value ready for the copy ;; Get Y value ready for the copy
ldy memmove_size+0 ldy memmove_size+0
c64/basic/basic_shift_mem_up.s
+26 -26
View File
@@ -27,21 +27,21 @@ basic_shift_mem_up_and_relink:
sbc basic_current_line_ptr+1 sbc basic_current_line_ptr+1
sta memmove_size+1 sta memmove_size+1
jsr printf ;; jsr printf
.byte "TOP OF BASIC = $" ;; .byte "TOP OF BASIC = $"
.byte $f1,<basic_end_of_text_ptr,>basic_end_of_text_ptr ;; .byte $f1,<basic_end_of_text_ptr,>basic_end_of_text_ptr
.byte $f0,<basic_end_of_text_ptr,>basic_end_of_text_ptr ;; .byte $f0,<basic_end_of_text_ptr,>basic_end_of_text_ptr
.byte $0d ;; .byte $0d
.byte "SHIFTING UP $" ;; .byte "SHIFTING UP $"
.byte $f1,<memmove_size,>memmove_size ;; .byte $f1,<memmove_size,>memmove_size
.byte $f0,<memmove_size,>memmove_size ;; .byte $f0,<memmove_size,>memmove_size
.byte " BYTES FROM $" ;; .byte " BYTES FROM $"
.byte $f1,<memmove_src,>memmove_src ;; .byte $f1,<memmove_src,>memmove_src
.byte $f0,<memmove_src,>memmove_src ;; .byte $f0,<memmove_src,>memmove_src
.byte " TO $" ;; .byte " TO $"
.byte $f1,<memmove_dst,>memmove_dst ;; .byte $f1,<memmove_dst,>memmove_dst
.byte $f0,<memmove_dst,>memmove_dst ;; .byte $f0,<memmove_dst,>memmove_dst
.byte $0d,0 ;; .byte $0d,0
;; To make life simple for the copy routine that lives in RAM, ;; 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 ;; 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 stx tokenise_work3
jsr printf ;; jsr printf
.byte "REVISED BOUNDS $" ;; .byte "REVISED BOUNDS $"
.byte $f1,<memmove_size,>memmove_size ;; .byte $f1,<memmove_size,>memmove_size
.byte $f0,<memmove_size,>memmove_size ;; .byte $f0,<memmove_size,>memmove_size
.byte " BYTES FROM $" ;; .byte " BYTES FROM $"
.byte $f1,<memmove_src,>memmove_src ;; .byte $f1,<memmove_src,>memmove_src
.byte $f0,<memmove_src,>memmove_src ;; .byte $f0,<memmove_src,>memmove_src
.byte " TO $" ;; .byte " TO $"
.byte $f1,<memmove_dst,>memmove_dst ;; .byte $f1,<memmove_dst,>memmove_dst
.byte $f0,<memmove_dst,>memmove_dst ;; .byte $f0,<memmove_dst,>memmove_dst
.byte $0d,0 ;; .byte $0d,0
;; Do the copy ;; Do the copy
jsr shift_mem_up jsr shift_mem_up