From cdeaf05ccdeea7c7fa813592ba25967b65093822 Mon Sep 17 00:00:00 2001
From: FeralChild64 <you@example.com>
Date: Sat, 6 Jun 2020 22:23:24 +0200
Subject: [PATCH] fixed a bug preventing execution of multiple statements in
 the same line

---
 c64/basic/basic_execute_line.s            | 73 +++++++++--------------
 c64/basic/engine/end_of_statement_check.s |  2 +
 2 files changed, 30 insertions(+), 45 deletions(-)

diff --git a/c64/basic/basic_execute_line.s b/c64/basic/basic_execute_line.s
index 3120eb63..d4cf88a0 100644
--- a/c64/basic/basic_execute_line.s
+++ b/c64/basic/basic_execute_line.s
@@ -2,62 +2,39 @@
 // #LAYOUT# *   BASIC_0 #TAKE
 // #LAYOUT# *   *       #IGNORE
 
-// Jump back into the BASIC execute line loop
-// after first checking that we have a colon
-// or $00 char
+//
+// Tries to execute the statement, and all the subsequent ones
+//
 
 
 basic_execute_statement:
 
 	// Check for RUN/STOP
+
 	lda STKEY
-	bmi !+
-	jmp cmd_stop
+	bpl_16 cmd_stop
+
+	// Skip over any white spaces and colons (':')
 !:
-	// Skip over any white space and :
-	ldy #0
-
-#if CONFIG_MEMORY_MODEL_60K
-	ldx #<TXTPTR
-	jsr peek_under_roms
-#else // CONFIG_MEMORY_MODEL_38K
-	lda (TXTPTR),y
-#endif
-
-	jsr end_of_statement_check
-	bcs basic_end_of_line
+	jsr fetch_character
+	cmp #$20                           // space, can be skipped
+	beq !-
+	cmp #$3A                           // colon, can be skipped
+	beq !-
 	
-	// jsr printf
-	// .text "LINE PTR = $"
-	// .byte $f1,<OLDTXT,>OLDTXT
-	// .byte $f0,<OLDTXT,>OLDTXT
-	// .text ", STATEMENT PTR = $"
-	// .byte $f1,<TXTPTR,>TXTPTR
-	// .byte $f0,<TXTPTR,>TXTPTR
-	// .byte $d,0
-		
-	// Go through the line until its end is reached.
-	// If we reach the end are in direct mode, then
-	// go back to reading input, else look for the
-	// next line, and advance to that, or else
-	// return to READY prompt because we have run out
-	// of program.
-	
-	// Get next char of program text, even if it is hiding under a ROM or the
-	// IO area.
+	// Check if end of the line
 
-	ldy #0
-
-#if CONFIG_MEMORY_MODEL_60K
-	ldx #<TXTPTR
-	jsr peek_under_roms
 	cmp #$00
-#else // CONFIG_MEMORY_MODEL_38K
-	lda (TXTPTR),y
-#endif
-
 	beq basic_end_of_line
-	
+
+	// Not end of the line - we actually have something to execute	
+
+	// XXX continue rework from here
+
+	pha
+	jsr unconsume_character
+	pla
+
 	// The checks should be done in order of frequency, so that we are as
 	// fast as possible.
 
@@ -111,6 +88,12 @@ basic_skip_char:
 	
 basic_end_of_line:
 
+	// If we reach the end are in direct mode, then
+	// go back to reading input, else look for the
+	// next line, and advance to that, or else
+	// return to READY prompt because we have run out
+	// of program.
+
 	// XXX - If not in direct mode, then advance to next line, if there is
 	// one.
 
diff --git a/c64/basic/engine/end_of_statement_check.s b/c64/basic/engine/end_of_statement_check.s
index 75ca63d8..16ff1371 100644
--- a/c64/basic/engine/end_of_statement_check.s
+++ b/c64/basic/engine/end_of_statement_check.s
@@ -9,6 +9,8 @@
 
 end_of_statement_check:
 
+	// XXX this can probably be size-optimized
+
 	ldy #$00
 
 #if CONFIG_MEMORY_MODEL_60K