From 74b34af0a91a0303859da828f1fd568217214450 Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Tue, 30 Jun 2020 03:18:42 +0200
Subject: =?UTF-8?q?Debug-Output=20f=C3=BCr=20"Loading=20<filename>"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 CDisk.S | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/CDisk.S b/CDisk.S
index 60c959e..0f3a6ca 100644
--- a/CDisk.S
+++ b/CDisk.S
@@ -313,6 +313,12 @@ ProcessNextRequest:
 		beq	.EndProcReq		; Kein Request pending --->
 		movea.l	d0,a2			; A2 :  Aktuelles Packet
 
+	IFD DEBUG
+		moveq	#0,d2
+		move.b	dp_Flags(a2),d2		; für SMSG
+		SMSG	<"Loading '%s' (flags=$%02lx) ... ">,dp_FileName(a2),d2
+	ENDC
+
 	*** Falls RAM-Disk erlaubt: RAMDisk-Request bearbeiten
 
 		moveq.l	#0,d2
-- 
cgit v1.2.3