From 08b1327044b5eb25f2f30ffa8f72152e225d2c1f Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sun, 28 Apr 2019 01:08:56 +0930
Subject: [PATCH] set $2B/$2C pointers when inserting a line of BASIC text

---
 c64/basic/basic_insert_line.s | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/c64/basic/basic_insert_line.s b/c64/basic/basic_insert_line.s
index f89ddfbc..7ac3b127 100644
--- a/c64/basic/basic_insert_line.s
+++ b/c64/basic/basic_insert_line.s
@@ -26,10 +26,21 @@ basic_insert_line:
 	;; Add on the four bytes space we need
 	clc
 	adc #5
+	pha
 	tax
+	
 	;; Make the space
 	jsr basic_shift_mem_up_and_relink
 
+	;; Now increase top of BASIC mem
+	pla
+	clc
+	adc basic_end_of_text_ptr+0
+	sta basic_end_of_text_ptr+0
+	lda basic_end_of_text_ptr+1
+	adc #0
+	sta basic_end_of_text_ptr+1
+	
 	;; Get pointer back
 	pla
 	sta basic_current_line_ptr+1