From f43fedea2142472ca20821f16789ad67c1fb3508 Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sun, 28 Apr 2019 20:44:05 +0930
Subject: [PATCH] remove more debug output

---
 c64/basic/basic_insert_line.s |  3 ---
 c64/basic/basic_main_loop.s   | 11 -----------
 2 files changed, 14 deletions(-)

diff --git a/c64/basic/basic_insert_line.s b/c64/basic/basic_insert_line.s
index a523c516..4a22efb1 100644
--- a/c64/basic/basic_insert_line.s
+++ b/c64/basic/basic_insert_line.s
@@ -51,13 +51,10 @@ basic_insert_line:
 	
 	;; Get pointer back
 	pla
-	sta $0411
 	sta basic_current_line_ptr+1
 	pla
-	sta $0410
 	sta basic_current_line_ptr+0
 
-	inc $0427
 	;; Write the line number
 	ldy #2
 	ldx #<basic_current_line_ptr
diff --git a/c64/basic/basic_main_loop.s b/c64/basic/basic_main_loop.s
index 91571680..4c2c72ab 100644
--- a/c64/basic/basic_main_loop.s
+++ b/c64/basic/basic_main_loop.s
@@ -82,7 +82,6 @@ rsl_l1:	lda $0200,x
 	ora basic_fac1_exponent
 	beq +
 ml_bad_line_number:
-	inc $0424
 	;; Syntax error
 	ldx #10
 	jmp do_basic_error
@@ -114,19 +113,9 @@ skip_spaces:
 	lda basic_fac1_mantissa+1
 	sta basic_line_number+1
 
-	lda basic_current_line_ptr+0
-	sta $0420
-	lda basic_current_line_ptr+1
-	sta $0421
-	
 	;; Delete line if present
 	jsr basic_find_line
 
-	lda basic_current_line_ptr+0
-	sta $0420
-	lda basic_current_line_ptr+1
-	sta $0421
-	
 	bcs +
 
 	;; Delete the line, whether we are deleting or