From 2bb8bda9b6c770c4f1929d0adc0e57e60531117e Mon Sep 17 00:00:00 2001
From: Elliot Nunn <elliotnunn@me.com>
Date: Wed, 3 Jan 2018 06:55:49 +0800
Subject: [PATCH] Add option to print progress to NanoKernel log

---
 OS/StartMgr/Boot3.a | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/OS/StartMgr/Boot3.a b/OS/StartMgr/Boot3.a
index d125ce2..ff394c7 100644
--- a/OS/StartMgr/Boot3.a
+++ b/OS/StartMgr/Boot3.a
@@ -531,15 +531,29 @@ pramFigmentOffset		EQU		$8A			; sayeth SheepShaver
 pramFigmentFlag			EQU		5			; (SheepShaver also sets bits 0 and 2)
 
 
+LogProgress				SET		0			; SET to 1 (at any point) to spam NanoKernel log
+
+
 						MACRO
 &label					Progress
 
-						movem.l		a0/a1, -(sp)
+	IF LogProgress THEN
+@progRegs				reg			a0/a1/d0/d1/d2
+	ELSE
+@progRegs				reg			a0/a1
+	ENDIF
+
+						movem.l		@progRegs, -(sp)
+	IF LogProgress THEN
+						pea			@str + 1	; c string
+						move		#-3, -(sp)
+						dc.w		$AA7F
+	ENDIF
 						move.l		$2b6, a0	; expandmem
 						lea			@str, a1
 						move.l		a1, $324(a0)
 						bsr			NudgeProgressBar
-						movem.l		(sp)+, a0/a1
+						movem.l		(sp)+, @progRegs
 						bra.s		@poststr
 
 						LCLC		&oldstr				; save string setting
@@ -547,6 +561,10 @@ pramFigmentFlag			EQU		5			; (SheepShaver also sets bits 0 and 2)
 						STRING		Pascal				; change it
 @str
 						dc.b		'&label'			; insert string
+	IF LogProgress THEN
+						STRING		C
+						dc.b		'^n'
+	ENDIF
 						align		2
 @poststr
 						STRING		&oldstr				; change it back