From ed435d1632bc87360859b23fa5948eb49804185a Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Mon, 15 Oct 2018 12:23:00 -0400
Subject: [PATCH] megaload: get actual RTS fix from qkumba

---
 megademo/megaload.s | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/megademo/megaload.s b/megademo/megaload.s
index eb4fdb08..e342808b 100644
--- a/megademo/megaload.s
+++ b/megademo/megaload.s
@@ -1,5 +1,5 @@
 ; read any file slot 6 version
-; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013
+; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013,2018
 
 ; TODO:
 ;	non-slot6?  self modfiy code?
@@ -303,9 +303,11 @@ seekread1:
 
 	; if track does not match, then seek
 
-	lda	curtrk
-	cmp	phase
-	beq	re_read_addr	; **was** repeat_until_right_sector
+;	lda	curtrk		; BUG fixed recently
+;	cmp	phase
+
+	cpx	phase
+	beq	repeat_until_right_sector
 	jsr	seek
 
 	; [re-]read sector
@@ -401,6 +403,7 @@ adr_96:
 				; then sector/sector?
 adr_read_two_bytes:
 	sta	curtrk		; store out current track
+	tax
 L20:
 	lda	$c0ec		; read until full value
 	bpl	L20