From b7de93a3a69d288951c02af6e1dc31228a7e9395 Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sat, 27 Apr 2019 23:48:57 +0930
Subject: [PATCH] abort line search as soon as we find a line with too high a
 line number.

---
 c64/basic/basic_find_line.s | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/c64/basic/basic_find_line.s b/c64/basic/basic_find_line.s
index a5ea3786..a3d96322 100644
--- a/c64/basic/basic_find_line.s
+++ b/c64/basic/basic_find_line.s
@@ -11,14 +11,16 @@ basic_find_line:
 basic_find_line_loop:	
 	;; Then search for line number
 	;; Line number 
-	ldy #2
+	ldy #3
 	ldx #<basic_current_line_ptr
 	jsr peek_under_roms
-	cmp basic_line_number+0
-	bne not_this_line
-	iny
-	jsr peek_under_roms
 	cmp basic_line_number+1
+	bcs line_num_too_high
+	bne not_this_line
+	dey
+	jsr peek_under_roms
+	cmp basic_line_number+0
+	bcs line_num_too_high
 	bne not_this_line
 
 	clc
@@ -33,6 +35,7 @@ not_this_line:
 	jsr peek_under_roms
 	bne more_lines_exist
 	;; no more lines exist, return failure
+line_num_too_high:	
 	sec
 	rts
 more_lines_exist: