From 20f604119d6a828da1f992928b89760ade86cff6 Mon Sep 17 00:00:00 2001
From: Martin Haye <martin.haye@ucop.edu>
Date: Sat, 20 Feb 2021 15:28:56 -0800
Subject: [PATCH] Improved loader debug mode.

---
 Platform/Apple/virtual/src/core/loader.s | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/Platform/Apple/virtual/src/core/loader.s b/Platform/Apple/virtual/src/core/loader.s
index 8b5e4801..0f393931 100644
--- a/Platform/Apple/virtual/src/core/loader.s
+++ b/Platform/Apple/virtual/src/core/loader.s
@@ -79,8 +79,8 @@ init	; Put something interesting on the screen :)
 	; And finally the memory mgr (fall through)
 runBlk	jsr getBlk	; get block size and calc pointers
 !if DEBUG { 
-	lda #1		; turn on printer
-	jsr $FE95
+;	lda #1		; turn on printer
+;	jsr $FE95
 	jsr debug
 }
 	bit setLcRW+lcBank2
@@ -91,7 +91,14 @@ runBlk	jsr getBlk	; get block size and calc pointers
 	jsr ROM_cout
 	jsr ROM_crout
 }
-	jmp $4000	; and run it so it'll relocate itself
+	jsr $4000	; and run it so it'll relocate itself
+	bit setLcWr+lcBank2
+!if DEBUG {
+	lda #"r"
+	jsr ROM_cout
+	jsr ROM_crout
+}
+	rts
 
 getByte	ldy #0
 	lda (pData),y