disable debug output in basic line inserting, deleting and replacing
This commit is contained in:
1 parent
ff10535447
commit
ced0eeb319
4 files changed
+67
-67
No files matched your search
@@ -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
|
||||
|
||||
Reference in new issue
Block a user