disable debug output in basic line inserting, deleting and replacing

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

No files matched your search

+10 -10
View File
@@ -6,11 +6,11 @@
;; the following basic lines.
basic_delete_line:
jsr printf
.byte "DELETING LINE AT $"
.byte $f1,<basic_current_line_ptr,>basic_current_line_ptr
.byte $f0,<basic_current_line_ptr,>basic_current_line_ptr
.byte $0d,0
;; jsr printf
;; .byte "DELETING LINE AT $"
;; .byte $f1,<basic_current_line_ptr,>basic_current_line_ptr
;; .byte $f0,<basic_current_line_ptr,>basic_current_line_ptr
;; .byte $0d,0
;; Get address of next line
ldx #<basic_current_line_ptr
@@ -30,11 +30,11 @@ basic_delete_line:
sbc basic_current_line_ptr+1
sta tokenise_work4
jsr printf
.byte "LINE LENGTH IS $"
.byte $f0,<tokenise_work4,>tokenise_work4
.byte $f0,<tokenise_work3,>tokenise_work3
.byte $0d,0
;; jsr printf
;; .byte "LINE LENGTH IS $"
;; .byte $f0,<tokenise_work4,>tokenise_work4
;; .byte $f0,<tokenise_work3,>tokenise_work3
;; .byte $0d,0
lda tokenise_work4
sbc #0